Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
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...
commit 2da80a5263e44a824675283340b2253db2348f5e 1 parent 8f4ef01
@telent telent authored
Showing with 6 additions and 4 deletions.
  1. +5 −3 src/code/gc.lisp
  2. +1 −1  version.lisp-expr
View
8 src/code/gc.lisp
@@ -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
2  version.lisp-expr
@@ -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"
Please sign in to comment.
Something went wrong with that request. Please try again.