Permalink
Browse files

0.8.3.95

	Minimal fix to compile on Linux 2.6 and recent FreeBSD:
	disable running of pre-gc hooks
	move running of post-gc hooks later, so it is done after
	 other threads start running aagin, outside the GC lock
  • Loading branch information...
1 parent 8f4ef01 commit 2da80a5263e44a824675283340b2253db2348f5e @telent telent committed Sep 29, 2003
Showing with 6 additions and 4 deletions.
  1. +5 −3 src/code/gc.lisp
  2. +1 −1 version.lisp-expr
View
@@ -244,16 +244,18 @@ and submit it as a patch."
(let ((*already-in-gc* t))
(without-interrupts
(gc-stop-the-world)
+ #+nil
(dolist (h *before-gc-hooks*)
(carefully-funcall h))
(collect-garbage gen)
(incf *n-bytes-freed-or-purified*
(max 0 (- pre-gc-dynamic-usage (dynamic-usage))))
(setf *need-to-collect-garbage* nil)
- (dolist (h *after-gc-hooks*)
- (carefully-funcall h))
+
(gc-start-the-world)))
- (scrub-control-stack)))
+ (scrub-control-stack))
+ (dolist (h *after-gc-hooks*)
+ (carefully-funcall h)))
(values))
View
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.3.94"
+"0.8.3.95"

0 comments on commit 2da80a5

Please sign in to comment.