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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Have the :untagged-fixnum-ecx mode accept (signed-byte 30) values.

Date: Tue Mar 30 14:23:40 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.37 movitz/compiler.lisp:1.38
--- movitz/compiler.lisp:1.37	Sun Mar 28 10:09:27 2004
+++ movitz/compiler.lisp	Tue Mar 30 14:23:40 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.37 2004/03/28 15:09:27 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.38 2004/03/30 19:23:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -3432,7 +3432,7 @@
 		 (make-immediate-move value :eax)))
 	      (:untagged-fixnum-ecx
 	       (let ((value (movitz-fixnum-value object)))
-		 (check-type value (unsigned-byte 16))
+		 (check-type value (signed-byte 30))
 		 (make-immediate-move value :ecx)))
 	      (:push
 	       `((:pushl ,x)))