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