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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
sync

Date: Sun Aug 21 19:51:53 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.151 movitz/compiler.lisp:1.152
--- movitz/compiler.lisp:1.151	Sun Aug 21 17:27:19 2005
+++ movitz/compiler.lisp	Sun Aug 21 19:51:53 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.151 2005/08/21 15:27:19 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.152 2005/08/21 17:51:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -6920,6 +6920,12 @@
 			     `((:movl :eax ,destination))))
 			  (binding
 			   (make-store-lexical destination :eax nil funobj frame-map))))))))
+	 ((and (movitz-subtypep result-type '(unsigned-byte 32))
+	       (warn "Unknown u32 ADD: ~A/~S = ~A/~S + ~A/~S"
+		      destination-location
+		      destination
+		      loc0 term0
+		      loc1 term1)))
 	 (t (append (cond
 		     ((type-specifier-singleton type0)
 		      (append (make-load-lexical term1 :eax funobj nil frame-map)