Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv18914
Modified Files: memref.lisp Log Message: Fixed (memref .. :character) used EBX in an undisciplined way.
Date: Mon Aug 16 16:15:12 2004 Author: ffjeld
Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.26 movitz/losp/muerte/memref.lisp:1.27 --- movitz/losp/muerte/memref.lisp:1.26 Thu Aug 12 10:00:29 2004 +++ movitz/losp/muerte/memref.lisp Mon Aug 16 16:15:12 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Mar 6 21:25:49 2001 ;;;; -;;;; $Id: memref.lisp,v 1.26 2004/08/12 17:00:29 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.27 2004/08/16 23:15:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -187,11 +187,11 @@ (cond ((eq 0 offset) `(with-inline-assembly (:returns :eax) - (:compile-two-forms (:ecx :ebx) ,object ,index) + (:compile-two-forms (:ebx :ecx) ,object ,index) (:xorl :eax :eax) (:movb ,(movitz:tag :character) :al) - (:sarl ,movitz::+movitz-fixnum-shift+ :ebx) ; scale index - (:movb (:ecx :ebx ,(offset-by 1)) :ah))) + (:sarl ,movitz::+movitz-fixnum-shift+ :ecx) ; scale index + (:movb (:ebx :ecx ,(offset-by 1)) :ah))) (t (let ((object-var (gensym "memref-object-"))) `(let ((,object-var ,object)) (with-inline-assembly (:returns :eax)