Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv13722
Modified Files: compiler.lisp Log Message: When *compiler-auto-stack-checks-p* is true, perform check also after allocating an &rest-list on the stack.
Date: Sat Aug 7 04:10:19 2004 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.88 movitz/compiler.lisp:1.89 --- movitz/compiler.lisp:1.88 Fri Aug 6 07:41:37 2004 +++ movitz/compiler.lisp Sat Aug 7 04:10:19 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.88 2004/08/06 14:41:37 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.89 2004/08/07 11:10:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -5972,6 +5972,9 @@ (:pushl :edi) (:subl 4 :edx) (:jnz ',restify-alloca-loop) + ,@(when *compiler-auto-stack-checks-p* + `((,*compiler-local-segment-prefix* + :bound (:edi ,(global-constant-offset 'stack-bottom)) :esp))) (:leal (:esp 5) :edx) (:andl -7 :edx)) ; Make EDX a proper consp into the alloca area. (cond