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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Teach make-compiled-stack-restore about :untagged-fixnum-ecx.

Date: Wed Feb  2 08:49:00 2005
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.133 movitz/compiler.lisp:1.134
--- movitz/compiler.lisp:1.133	Mon Jan 31 15:11:14 2005
+++ movitz/compiler.lisp	Wed Feb  2 08:48:58 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.133 2005/01/31 14:11:14 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.134 2005/02/02 07:48:58 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -5369,7 +5369,7 @@
 	   ((:single-value :eax :ebx)
 	    (values `((:addl ,(* 4 stack-displacement) :esp))
 		    :multiple-values)))) ; assume this addl will set CF=0
-	((:single-value :eax :ebx :ecx :edx :push :lexical-binding
+	((:single-value :eax :ebx :ecx :edx :push :lexical-binding :untagged-fixnum-ecx
 	  :boolean :boolean-branch-on-false :boolean-branch-on-true)
 	 (ecase returns
 	   (#.+boolean-modes+