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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
*** empty log message ***
Date: Mon May 23 18:45:15 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.140 movitz/compiler.lisp:1.141
--- movitz/compiler.lisp:1.140	Sun May 22 00:38:51 2005
+++ movitz/compiler.lisp	Mon May 23 18:45:15 2005
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.140 2005/05/21 22:38:51 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.141 2005/05/23 16:45:15 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -3964,10 +3964,6 @@
 	      (:lexical-binding
 	       (append (make-immediate-move x :eax)
 		       (make-store-lexical result-mode :eax nil funobj frame-map)))
-	      (:untagged-fixnum-eax
-	       (let ((value (movitz-fixnum-value object)))
-		 (check-type value (unsigned-byte 16))
-		 (make-immediate-move value :eax)))
 	      (:untagged-fixnum-ecx
 	       (let ((value (movitz-fixnum-value object)))
 		 (check-type value (signed-byte 30))
@@ -3981,6 +3977,9 @@
 		       '((:clc)))))))
 	 (movitz-heap-object
 	  (ecase (result-mode-type result-mode)
+	    (:untagged-fixnum-ecx
+	     (let ((value (movitz-bignum-value object)))
+	       (make-immediate-move (ldb (byte 32 0) value) :ecx)))
 	    (:lexical-binding
 	     (append `((:movl ,(new-make-compiled-constant-reference movitz-obj funobj)
 			      :eax))