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 #ifdef FOREIGN_FUNCTION_CALL_FLAG
  26 int foreign_function_call_active;
  27 #endif
  28
  29 lispobj *current_control_stack_pointer;
  30 lispobj *current_control_frame_pointer;
  31 #ifndef BINDING_STACK_POINTER
  32 lispobj *current_binding_stack_pointer;
  33 #endif
  34
  35 /* ALLOCATION_POINTER is x86 or RT.  Anyone want to do an RT port?   */
  36
  37 # if !defined(LISP_FEATURE_X86) && !defined(LISP_FEATURE_X86_64)
  38 /* The Object Formerly Known As current_dynamic_space_free_pointer */
  39 lispobj *dynamic_space_free_pointer;
  40 #endif
  41
  42 #ifndef LISP_FEATURE_GENCGC /* GENCGC has its own way to record trigger */
  43 lispobj *current_auto_gc_trigger;
  44 #endif
  45
  46 #ifdef LISP_FEATURE_SB_THREAD
  47 boolean stop_the_world=0;
  48 #endif
  49
  50 /* For copying GCs, this points to the start of the dynamic space
  51  * currently in use (that will become the from_space when the next GC
  52  * is done).  For the GENCGC, it always points to DYNAMIC_SPACE_START. */
  53 lispobj *current_dynamic_space;
  54
  55 #if defined(LISP_FEATURE_SB_THREAD)
  56 pthread_key_t specials=0;
  57 #endif
  58
  59 void globals_init(void)
  60 {
  61     /* Space, stack, and free pointer vars are initialized by
  62      * validate() and coreparse(). */
  63     current_control_frame_pointer = (lispobj *)0;
  64
  65 #ifndef LISP_FEATURE_GENCGC
  66     /* no GC trigger yet */
  67     current_auto_gc_trigger = NULL;
  68 #endif
  69
  70 #ifdef FOREIGN_FUNCTION_CALL_FLAG
  71     foreign_function_call_active = 1;
  72 #endif
  73
  74 #ifdef LISP_FEATURE_SB_THREAD
  75     pthread_key_create(&specials,0);
  76 #endif
  77 }