From e2aa1c4fce060356da678ab6ed5e155c53a33dc5 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Tue, 18 Nov 1997 17:08:42 +0000 Subject: [PATCH] Hooks for GENCGC. --- lisp/lisp.c | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index 8baf1a68b..f186c7345 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.12 1997/11/18 16:56:01 dtc Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.13 1997/11/18 17:08:42 dtc Exp $ * */ @@ -25,6 +25,9 @@ #include "gc.h" #include "monitor.h" #include "validate.h" +#if defined GENCGC +#include "gencgc.h" +#endif #include "core.h" #include "save.h" #include "lispregs.h" @@ -171,6 +174,10 @@ void main(int argc, char *argv[], char *envp[]) initial_function = load_core_file(core); + +#if defined GENCGC + gencgc_pickup_dynamic(); +#else #if defined WANT_CGC && defined X86_CGC_ACTIVE_P { extern int use_cgc_p; @@ -179,6 +186,7 @@ void main(int argc, char *argv[], char *envp[]) use_cgc_p = 1; /* enable allocator */ } #endif +#endif #ifdef BINDING_STACK_POINTER SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack); -- GitLab