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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
*** empty log message ***
Date: Tue May 24 08:32:28 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.143 movitz/compiler.lisp:1.144
--- movitz/compiler.lisp:1.143	Tue May 24 01:30:14 2005
+++ movitz/compiler.lisp	Tue May 24 08:32:27 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.143 2005/05/23 23:30:14 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.144 2005/05/24 06:32:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -3990,10 +3990,16 @@
 	      ((and (typep movitz-obj 'movitz-bignum)
 		    (eq :untagged-fixnum-ecx
 			(new-binding-location result-mode frame-map :default nil)))
+	       (unless (typep (movitz-bignum-value movitz-obj) '(unsigned-byte 32))
+		 (warn "Loading non-u32 ~S into ~S."
+		       (movitz-bignum-value movitz-obj)
+		       result-mode))
 	       (make-immediate-move (ldb (byte 32 0) (movitz-bignum-value movitz-obj))
 				    :ecx))
-	      (t #+ignore (warn "load to ~S at ~S from ~S"
-		       result-mode (new-binding-location result-mode frame-map) movitz-obj)
+	      (t (when (member (new-binding-location result-mode frame-map :default nil)
+			       '(:ebx :ecx :edx :esi))
+		   (warn "load to ~S at ~S from ~S"
+			 result-mode (new-binding-location result-mode frame-map) movitz-obj))
 		 (append `((:movl ,(new-make-compiled-constant-reference movitz-obj funobj)
 				  :eax))
 			 (make-store-lexical result-mode :eax nil funobj frame-map)))))