/* For copying GCs, this points to the start of the dynamic space
* currently in use (that will become the from_space when the next GC
* is done). For the GENCGC, it always points to DYNAMIC_SPACE_START. */
lispobj *current_dynamic_space;
/* For copying GCs, this points to the start of the dynamic space
* currently in use (that will become the from_space when the next GC
* is done). For the GENCGC, it always points to DYNAMIC_SPACE_START. */
lispobj *current_dynamic_space;
void globals_init(void)
{
/* Space, stack, and free pointer vars are initialized by
* validate() and coreparse(). */
current_control_frame_pointer = (lispobj *)0;
void globals_init(void)
{
/* Space, stack, and free pointer vars are initialized by
* validate() and coreparse(). */
current_control_frame_pointer = (lispobj *)0;
/* no GC trigger yet */
current_auto_gc_trigger = NULL;
#endif
/* Set foreign function call active. */
foreign_function_call_active = 1;
/* no GC trigger yet */
current_auto_gc_trigger = NULL;
#endif
/* Set foreign function call active. */
foreign_function_call_active = 1;