[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv10397

Modified Files:
	compiler.lisp 
Log Message:
Renamed normalize-u32-ecx to box-u32-ecx, and added primitive-function
box-u32 that does the inverse. Improved aref and (setf aref) of
u32-vectors accordingly.

Date: Mon May 24 15:10:13 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.60 movitz/compiler.lisp:1.61
--- movitz/compiler.lisp:1.60	Mon May 24 10:58:00 2004
+++ movitz/compiler.lisp	Mon May 24 15:10:12 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.60 2004/05/24 14:58:00 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.61 2004/05/24 19:10:12 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -4788,7 +4788,7 @@
 	   (case (result-mode-type desired-result)
 	     ((:eax :single-value)
 	      (values (append code
-			      `((:call (:edi ,(global-constant-offset 'normalize-u32-ecx)))))
+			      `((:call (:edi ,(global-constant-offset 'box-u32-ecx)))))
 		      desired-result))
 	     (t (make-result-and-returns-glue desired-result :eax
 					      (make-result-and-returns-glue :eax :untagged-fixnum-ecx code