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*