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.
26 int foreign_function_call_active;
28 lispobj *current_control_stack_pointer;
29 lispobj *current_control_frame_pointer;
30 #ifndef BINDING_STACK_POINTER
31 lispobj *current_binding_stack_pointer;
34 lispobj *read_only_space;
35 lispobj *static_space;
36 lispobj *dynamic_0_space;
37 lispobj *dynamic_1_space;
38 lispobj *control_stack;
40 lispobj *control_stack_end;
42 lispobj *binding_stack;
44 lispobj *current_dynamic_space;
45 #ifndef ALLOCATION_POINTER
46 lispobj *current_dynamic_space_free_pointer;
48 #ifndef INTERNAL_GC_TRIGGER
49 lispobj *current_auto_gc_trigger;
52 void globals_init(void)
54 /* Space, stack, and free pointer vars are initialized by
55 * validate() and coreparse(). */
57 #ifndef INTERNAL_GC_TRIGGER
58 /* no GC trigger yet */
59 current_auto_gc_trigger = NULL;
62 /* Set foreign function call active. */
63 foreign_function_call_active = 1;
65 /* Initialize the current Lisp state. */
67 current_control_stack_pointer = control_stack;
69 current_control_stack_pointer = control_stack_end;
72 current_control_frame_pointer = (lispobj *)0;
73 #ifndef BINDING_STACK_POINTER
74 current_binding_stack_pointer = binding_stack;