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