[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators-cl.lisp 
Log Message:
For non-lexical go, add a bounds check for the calcuclated
stack-pointer before assuming it.

Date: Tue Mar 30 16:33:54 2004
Author: ffjeld

Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.13 movitz/special-operators-cl.lisp:1.14
--- movitz/special-operators-cl.lisp:1.13	Tue Mar 30 14:36:15 2004
+++ movitz/special-operators-cl.lisp	Tue Mar 30 16:33:54 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.13 2004/03/30 19:36:15 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.14 2004/03/30 21:33:54 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -704,6 +704,7 @@
 			  `((:xorl :ebx :ebx)
 			    (:globally (:call (:edi (:edi-offset dynamic-locate-catch-tag))))
 			    (:jnc '(:sub-program () (:int 108)))
+			    (:locally (:bound (:edi (:edi-offset stack-bottom)) :eax))
 			    (:movl :eax :esp)
 			    (:movl (:esp) :ebp)
 			    (:movl (:ebp -4) :esi)