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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Only insert stack-checks when the function also has its own stack-frame.

Date: Thu Apr 15 06:45:06 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.46 movitz/compiler.lisp:1.47
--- movitz/compiler.lisp:1.46	Wed Apr 14 15:04:05 2004
+++ movitz/compiler.lisp	Thu Apr 15 06:45:05 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.46 2004/04/14 19:04:05 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.47 2004/04/15 10:45:05 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -3859,7 +3859,7 @@
 			    and do (setq need-normalized-ecx-p t))))))
 	(assert (not (minusp stack-setup-size)))
 	(let ((stack-frame-init-code
-	       (append (when (and do-check-stack-p
+	       (append (when (and do-check-stack-p use-stack-frame-p
 				  *compiler-auto-stack-checks-p*
 				  (not (without-check-stack-limit-p env)))
 			 `((,*compiler-local-segment-prefix*