Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16497
Modified Files: memref.lisp Log Message: Fixed a bug in the compiler-macro for (setf memref <negative> <x> :unsigned-byte32).
Date: Fri Jul 16 03:06:36 2004 Author: ffjeld
Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.16 movitz/losp/muerte/memref.lisp:1.17 --- movitz/losp/muerte/memref.lisp:1.16 Thu Jul 15 14:07:18 2004 +++ movitz/losp/muerte/memref.lisp Fri Jul 16 03:06:36 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.16 2004/07/15 21:07:18 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.17 2004/07/16 10:06:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -352,7 +352,7 @@ (:compile-two-forms (:eax :edx) ,index-var ,offset-var) (:load-lexical (:lexical-binding ,object-var) :ebx) (:std) - (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + (:sarl ,movitz::+movitz-fixnum-shift+ :edx) (:addl :eax :edx) ; EDX = offset+index (:movl :ecx (:ebx :edx)) (:movl :edi :edx)