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+