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

[Frode Vatvedt Fjeld]

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