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)
|