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)