0.pre8.28
[sbcl/lichteblau.git] / src / runtime / globals.c
blobb55aecd153d0ac2f81a9844c6b0ab0cf290ede35
1 /*
2 * variables everybody needs to look at or frob on
3 */
5 /*
6 * This software is part of the SBCL system. See the README file for
7 * more information.
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.
16 #include <stdio.h>
17 #include <sys/types.h>
18 #include <unistd.h>
20 #include "runtime.h"
21 #include "sbcl.h"
22 #include "globals.h"
23 #include "validate.h"
25 int foreign_function_call_active;
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
33 /* ALLOCATION_POINTER is x86 or RT. Anyone want to do an RT port? */
35 #ifndef ALLOCATION_POINTER
36 /* The Object Formerly Known As current_dynamic_space_free_pointer */
37 lispobj *dynamic_space_free_pointer;
38 #endif
40 #ifndef LISP_FEATURE_GENCGC /* GENCGC has its own way to record trigger */
41 lispobj *current_auto_gc_trigger;
42 #endif
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 void globals_init(void)
51 /* Space, stack, and free pointer vars are initialized by
52 * validate() and coreparse(). */
53 current_control_frame_pointer = (lispobj *)0;
55 #ifndef LISP_FEATURE_GENCGC
56 /* no GC trigger yet */
57 current_auto_gc_trigger = NULL;
58 #endif
60 /* Set foreign function call active. */
61 foreign_function_call_active = 1;
62 #ifdef LISP_FEATURE_SB_THREAD
63 parent_pid=getpid();
64 #endif