[movitz-cvs] CVS update: movitz/compiler.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

11 Apr 2004

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)

    