[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp

[Frode Vatvedt Fjeld]

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 at 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