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

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
The inlined stack-check in the function prelude should access the
limit using the thread-local segment prefix, not the global.

Date: Sun Apr 11 14:55:24 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.42 movitz/compiler.lisp:1.43
--- movitz/compiler.lisp:1.42	Tue Apr  6 10:34:45 2004
+++ movitz/compiler.lisp	Sun Apr 11 14:55:24 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.42 2004/04/06 14:34:45 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.43 2004/04/11 18:55:24 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -3847,7 +3847,7 @@
 	       (append (when (and do-check-stack-p
 				  *compiler-auto-stack-checks-p*
 				  (not (without-check-stack-limit-p env)))
-			 `((,*compiler-global-segment-prefix*
+			 `((,*compiler-local-segment-prefix*
 			    :bound (:edi ,(global-constant-offset 'stack-bottom)) :esp)))
 		       (when use-stack-frame-p
 			`((:pushl :ebp)