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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Minor fixes to allow a lexical variable to be loaded into the EBP register.

Date: Tue Apr 13 09:03:10 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.43 movitz/compiler.lisp:1.44
--- movitz/compiler.lisp:1.43	Sun Apr 11 14:55:24 2004
+++ movitz/compiler.lisp	Tue Apr 13 09:03:10 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.43 2004/04/11 18:55:24 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.44 2004/04/13 13:03:10 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -2981,7 +2981,7 @@
 (defun single-value-register (mode)
   (ecase mode
     ((:eax :single-value :multiple-values :function) :eax)
-    ((:ebx :ecx :edx :esi :esp) mode)))
+    ((:ebx :ecx :edx :esi :esp :ebp) mode)))
 
 (defun result-mode-register (mode)
   (case mode
@@ -3155,7 +3155,7 @@
 		   result-mode :eax
 		   (install-for-single-value binding binding-location :eax t)))))
 	    (t (case (result-mode-type result-mode)
-		 ((:single-value :eax :ebx :ecx :edx :esi :esp)
+		 ((:single-value :eax :ebx :ecx :edx :esi :esp :ebp)
 		  (install-for-single-value binding binding-location
 					    (single-value-register result-mode) nil))
 		 (:push