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

[Frode Vatvedt Fjeld]

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