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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Fixed bug in make-result-and-returns-glue for case :boolean-cf=1 to
:ebx, :ecx, etc.

Date: Wed Apr 13 09:25:41 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.135 movitz/compiler.lisp:1.136
--- movitz/compiler.lisp:1.135	Sun Feb 27 03:30:22 2005
+++ movitz/compiler.lisp	Wed Apr 13 09:25:41 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.135 2005/02/27 02:30:22 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.136 2005/04/13 07:25:41 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -5084,7 +5084,7 @@
 	       (:boolean-cf=1
 		(values (append code
 				`((:sbbl :ecx :ecx)
-				  (:movl (:edi (:ecx 4) ,(global-constant-offset 'null-cons))
+				  (:movl (:edi (:ecx 4) ,(global-constant-offset 'not-not-nil))
 					 ,desired-result)))
 			desired-result))
 	       (#.+boolean-modes+