Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv12742
Modified Files: arrays.lisp Log Message: Fixed a nasty bug in (setf aref) for u32 vectors.
Date: Sun Jul 11 16:02:33 2004 Author: ffjeld
Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.34 movitz/losp/muerte/arrays.lisp:1.35 --- movitz/losp/muerte/arrays.lisp:1.34 Thu Jul 8 14:51:48 2004 +++ movitz/losp/muerte/arrays.lisp Sun Jul 11 16:02:33 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.34 2004/07/08 21:51:48 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.35 2004/07/11 23:02:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -337,7 +337,7 @@ (:cmpl ,(movitz:basic-vector-type-tag :u32) :ecx) (:jne 'not-u32-vector) (:call-global-constant unbox-u32) - (:movl :eax + (:movl :ecx (:ebx :edx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))) (:jmp 'return)
@@ -628,7 +628,7 @@ (setf (fill-pointer array) length))) (cond (initial-element - (check-type initial-element (unsigned-byte 8)) + (check-type initial-element bit) (dotimes (i length) (setf (aref array i) initial-element))) (initial-contents