Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv29818
Modified Files: compiler.lisp Log Message: Still some tweaking of register allocation stuff.
Date: Wed Jun 9 13:24:29 2004 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.64 movitz/compiler.lisp:1.65 --- movitz/compiler.lisp:1.64 Wed Jun 9 10:26:00 2004 +++ movitz/compiler.lisp Wed Jun 9 13:24:29 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.64 2004/06/09 17:26:00 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.65 2004/06/09 20:24:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -5825,9 +5825,12 @@ protect-registers protect-carry) (cdr instruction) (declare (ignore protect-registers protect-carry)) - (when init-with-register + (cond + (init-with-register (assert init-with-type) - (values binding init-with-type)))) + (values binding init-with-type)) + ((not (typep binding 'temporary-name)) + (values binding t)))))
(define-find-read-bindings :init-lexvar (binding &key init-with-register &allow-other-keys) (declare (ignore binding))