Update of /cvsroot/sbcl/sbcl/src/code
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9258/src/code
Modified Files:
gc.lisp
Log Message:
1.0.25.56: SUB-GC: don't observe deadlines
- because the condition that's signalled can cause arbitrary code to
run catching us with pants down
- and we should not skip gc if it was triggerred
Index: gc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/gc.lisp,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- gc.lisp 16 Feb 2009 21:53:25 -0000 1.84
+++ gc.lisp 24 Feb 2009 10:32:12 -0000 1.85
@@ -215,7 +215,9 @@
;; Now, if GET-MUTEX did not cons, that would be enough.
;; Because it does, we need the :IN-PROGRESS bit above to
;; tell the runtime not to trigger gcs.
- (let ((sb!impl::*in-without-gcing* t))
+ (let ((sb!impl::*in-without-gcing* t)
+ (sb!impl::*deadline* nil)
+ (sb!impl::*deadline-seconds* nil))
(sb!thread:with-mutex (*already-in-gc*)
(let ((*gc-inhibit* t))
(let ((old-usage (dynamic-usage))
|