2 * variables everybody needs to look at or frob on
6 * This software is part of the SBCL system. See the README file for
9 * This software is derived from the CMU CL system, which was
10 * written at Carnegie Mellon University and released into the
11 * public domain. The software is in the public domain and is
12 * provided with absolutely no warranty. See the COPYING and CREDITS
13 * files for more information.
23 int foreign_function_call_active;
25 lispobj *current_control_stack_pointer;
26 lispobj *current_control_frame_pointer;
27 #ifndef BINDING_STACK_POINTER
28 lispobj *current_binding_stack_pointer;
31 /* ALLOCATION_POINTER is more or less synonymous with RT, it seems.
32 * Anyone want to do an RT port of sbcl?
35 #ifndef ALLOCATION_POINTER
36 /* The Object Formerly Known As current_dynamic_space_free_pointer */
37 lispobj *dynamic_space_free_pointer;
40 #ifndef INTERNAL_GC_TRIGGER
41 lispobj *current_auto_gc_trigger;
44 /* For copying GCs, this points to the start of the dynamic space
45 * currently in use (that will become the from_space when the next GC
46 * is done). For the GENCGC, it always points to DYNAMIC_SPACE_START. */
47 lispobj *current_dynamic_space =
49 DYNAMIC_0_SPACE_START;
54 void globals_init(void)
56 /* Space, stack, and free pointer vars are initialized by
57 * validate() and coreparse(). */
59 #ifndef INTERNAL_GC_TRIGGER
60 /* no GC trigger yet */
61 current_auto_gc_trigger = NULL;
64 /* Set foreign function call active. */
65 foreign_function_call_active = 1;
67 /* Initialize the current Lisp state. */
68 #ifndef __i386__ /* if stack grows upward */
69 current_control_stack_pointer = (lispobj *)CONTROL_STACK_START;
71 current_control_stack_pointer = (lispobj *)CONTROL_STACK_END;
74 current_control_frame_pointer = (lispobj *)0;
75 #ifndef BINDING_STACK_POINTER
76 current_binding_stack_pointer = BINDING_STACK_START;