From: David L. <lic...@us...> - 2012-09-27 18:33:35
|
The branch "master" has been updated in SBCL: via ceca5e366b9de70cf973a793640acee2cedfcee5 (commit) from 06c288327bb8ea3a9534c63c0a8a909445a62054 (commit) - Log ----------------------------------------------------------------- commit ceca5e366b9de70cf973a793640acee2cedfcee5 Author: David Lichteblau <da...@li...> Date: Thu Sep 27 20:11:32 2012 +0200 Fix the cheneygc build Thanks to Christoph Egger for the report. --- src/runtime/print.c | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/src/runtime/print.c b/src/runtime/print.c index 33c5489..da8744e 100644 --- a/src/runtime/print.c +++ b/src/runtime/print.c @@ -77,7 +77,9 @@ dyndebug_init() if (n != DYNDEBUG_NFLAGS) fprintf(stderr, "Bug in dyndebug_init\n"); +#if defined(LISP_FEATURE_GENCGC) gencgc_verbose = dyndebug_config.dyndebug_gencgc_verbose; +#endif char *featurelist = getenv("SBCL_DYNDEBUG"); if (featurelist) { ----------------------------------------------------------------------- hooks/post-receive -- SBCL |
From: David L. <lic...@us...> - 2013-11-29 20:33:17
|
The branch "master" has been updated in SBCL: via 3db292921fabecad0ba8107097d763ba2a044136 (commit) from debae3c18d31b5222be4d5de8dcb2601336e24a4 (commit) - Log ----------------------------------------------------------------- commit 3db292921fabecad0ba8107097d763ba2a044136 Author: David Lichteblau <da...@li...> Date: Fri Nov 29 22:23:48 2013 +0200 Fix the cheneygc build Cheneygc takes a generation argument, but ignores it. --- src/code/gc.lisp | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/code/gc.lisp b/src/code/gc.lisp index f869788..f94068d 100644 --- a/src/code/gc.lisp +++ b/src/code/gc.lisp @@ -356,8 +356,10 @@ which may in turn trigger a collection of one or more older generations as well. If FULL is true, all generations are collected. If GEN is provided, it can be used to specify the oldest generation guaranteed to be collected." - (when (eq t (sub-gc :gen (if full sb!vm:+pseudo-static-generation+ gen))) - (post-gc))) + #!-gencgc (declare (ignore full)) + (let (#!+gencgc (gen (if full sb!vm:+pseudo-static-generation+ gen))) + (when (eq t (sub-gc :gen gen)) + (post-gc)))) (define-alien-routine scrub-control-stack sb!alien:void) ----------------------------------------------------------------------- hooks/post-receive -- SBCL |