[Sbcl-commits] CVS: sbcl/src/cold warm.lisp,1.23,1.24

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl/src/cold
In directory usw-pr-cvs1:/tmp/cvs-serv22592/src/cold

Modified Files:
	warm.lisp 
Log Message:
0.7.6.1:
	Mostly-tested but still considered "experimental" non-invasive
	stack exhaustion checking, using a guard page at the end of the
	stack and an extra clause in the sigsegv (on some ports, sigbus)
	handler.  One day there will be an internals doc with the 
	gory details: for now, try http://ww.telent.net/diary/2002/7/#23.59392


Index: warm.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/cold/warm.lisp,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- warm.lisp	19 Mar 2002 20:17:50 -0000	1.23
+++ warm.lisp	23 Jul 2002 17:22:36 -0000	1.24
@@ -13,6 +13,14 @@
 
 ;;;; general warm init compilation policy
 
+#+(and sbcl alpha) ; SBCL/Alpha uses stop-and-copy, and Alphas have lotso RAM.
+(progn
+  (sb!ext::gc-off)
+  (setf (sb!ext::bytes-consed-between-gcs) (* 30 (expt 10 6)))
+  (sb!ext::gc-on)
+  (sb!ext::gc))
+
+
 (proclaim '(optimize (compilation-speed 1)
 		     (debug #+sb-show 2 #-sb-show 1)
 		     (inhibit-warnings 2)