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