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