Skip to content
Snippets Groups Projects
Commit e2aa1c4f authored by dtc's avatar dtc
Browse files

Hooks for GENCGC.

parent f85e38e0
No related branches found
No related tags found
No related merge requests found
/* /*
* main() entry point for a stand alone lisp image. * 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 @@ ...@@ -25,6 +25,9 @@
#include "gc.h" #include "gc.h"
#include "monitor.h" #include "monitor.h"
#include "validate.h" #include "validate.h"
#if defined GENCGC
#include "gencgc.h"
#endif
#include "core.h" #include "core.h"
#include "save.h" #include "save.h"
#include "lispregs.h" #include "lispregs.h"
...@@ -171,6 +174,10 @@ void main(int argc, char *argv[], char *envp[]) ...@@ -171,6 +174,10 @@ void main(int argc, char *argv[], char *envp[])
initial_function = load_core_file(core); initial_function = load_core_file(core);
#if defined GENCGC
gencgc_pickup_dynamic();
#else
#if defined WANT_CGC && defined X86_CGC_ACTIVE_P #if defined WANT_CGC && defined X86_CGC_ACTIVE_P
{ {
extern int use_cgc_p; extern int use_cgc_p;
...@@ -179,6 +186,7 @@ void main(int argc, char *argv[], char *envp[]) ...@@ -179,6 +186,7 @@ void main(int argc, char *argv[], char *envp[])
use_cgc_p = 1; /* enable allocator */ use_cgc_p = 1; /* enable allocator */
} }
#endif #endif
#endif
#ifdef BINDING_STACK_POINTER #ifdef BINDING_STACK_POINTER
SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack); SetSymbolValue(BINDING_STACK_POINTER, (lispobj)binding_stack);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment