0.7.12.51
[sbcl.git] / src / runtime / globals.c
1 /*
2  * variables everybody needs to look at or frob on
3  */
4
5 /*
6  * This software is part of the SBCL system. See the README file for
7  * more information.
8  *
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.
14  */
15
16 #include <stdio.h>
17
18 #include "runtime.h"
19 #include "sbcl.h"
20 #include "globals.h"
21 #include "validate.h"
22
23 int foreign_function_call_active;
24
25 lispobj *current_control_stack_pointer;
26 lispobj *current_control_frame_pointer;
27 #ifndef BINDING_STACK_POINTER
28 lispobj *current_binding_stack_pointer;
29 #endif
30
31 /* ALLOCATION_POINTER is more or less synonymous with RT, it seems.
32  * Anyone want to do an RT port of sbcl?  
33  */
34
35 #ifndef ALLOCATION_POINTER
36 /* The Object Formerly Known As current_dynamic_space_free_pointer */
37 lispobj *dynamic_space_free_pointer;
38 #endif
39
40 #ifndef LISP_FEATURE_GENCGC /* GENCGC has its own way to record trigger */
41 lispobj *current_auto_gc_trigger;
42 #endif
43
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;
48
49 void globals_init(void)
50 {
51     /* Space, stack, and free pointer vars are initialized by
52      * validate() and coreparse(). */
53
54 #ifndef LISP_FEATURE_GENCGC 
55     /* no GC trigger yet */
56     current_auto_gc_trigger = NULL;
57 #endif
58
59     /* Set foreign function call active. */
60     foreign_function_call_active = 1;
61
62     /* Initialize the current Lisp state. */
63 #ifdef LISP_FEATURE_STACK_GROWS_DOWNWARD_NOT_UPWARD
64     current_control_stack_pointer = (lispobj *)CONTROL_STACK_END;
65 #else
66     current_control_stack_pointer = (lispobj *)CONTROL_STACK_START;
67 #endif
68
69     current_control_frame_pointer = (lispobj *)0;
70 #ifndef BINDING_STACK_POINTER
71     current_binding_stack_pointer = native_pointer(BINDING_STACK_START);
72 #endif
73 }