0.9.2.18: various error &co reporting improvements and build tweaks
[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 #include <sys/types.h>
18 #include <unistd.h>
19
20 #include "sbcl.h"
21 #include "runtime.h"
22 #include "globals.h"
23 #include "validate.h"
24
25 int foreign_function_call_active;
26
27 lispobj *current_control_stack_pointer;
28 lispobj *current_control_frame_pointer;
29 #ifndef BINDING_STACK_POINTER
30 lispobj *current_binding_stack_pointer;
31 #endif
32
33 /* ALLOCATION_POINTER is x86 or RT.  Anyone want to do an RT port?   */
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 #ifdef LISP_FEATURE_SB_THREAD
45 boolean stop_the_world=0;
46 #endif
47
48 /* For copying GCs, this points to the start of the dynamic space
49  * currently in use (that will become the from_space when the next GC
50  * is done).  For the GENCGC, it always points to DYNAMIC_SPACE_START. */
51 lispobj *current_dynamic_space;
52
53 #if defined(LISP_FEATURE_SB_THREAD)
54 pthread_key_t specials=0;
55 #endif
56
57 void globals_init(void)
58 {
59     /* Space, stack, and free pointer vars are initialized by
60      * validate() and coreparse(). */
61     current_control_frame_pointer = (lispobj *)0;
62
63 #ifndef LISP_FEATURE_GENCGC 
64     /* no GC trigger yet */
65     current_auto_gc_trigger = NULL;
66 #endif
67
68     /* Set foreign function call active. */
69     foreign_function_call_active = 1;
70 #if defined(LISP_FEATURE_SB_THREAD)
71     pthread_key_create(&specials,0);
72 #endif    
73 }