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 }