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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
*** empty log message ***
Date: Sun May 22 00:38:51 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.139 movitz/compiler.lisp:1.140
--- movitz/compiler.lisp:1.139	Sun May  8 03:16:26 2005
+++ movitz/compiler.lisp	Sun May 22 00:38:51 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.139 2005/05/08 01:16:26 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.140 2005/05/21 22:38:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -6639,7 +6639,8 @@
 	 ((movitz-subtypep type0 '(integer 0 0))
 	  (cond
 	   ((eql destination loc1)
-	    (break "NOP add: ~S" instruction))
+	    #+ignore (break "NOP add: ~S" instruction)
+	    nil)
 	   ((and (member destination-location '(:eax :ebx :ecx :edx))
 		 (member loc1 '(:eax :ebx :ecx :edx)))
 	    `((:movl ,loc1 ,destination-location)))
@@ -6653,7 +6654,8 @@
 	  ;; (warn "zero-add ~S => ~S [~S]" loc0 destination-location result-type)
 	  (cond
 	   ((eql destination loc0)
-	    (break "NOP add: ~S" instruction))
+	    #+ignore (break "NOP add: ~S" instruction)
+	    nil)
 	   ((and (member destination-location '(:eax :ebx :ecx :edx))
 		 (member loc0 '(:eax :ebx :ecx :edx)))
 	    `((:movl ,loc0 ,destination-location)))