src/runtime/globals.h

   1 /*
   2  * This software is part of the SBCL system. See the README file for
   3  * more information.
   4  *
   5  * This software is derived from the CMU CL system, which was
   6  * written at Carnegie Mellon University and released into the
   7  * public domain. The software is in the public domain and is
   8  * provided with absolutely no warranty. See the COPYING and CREDITS
   9  * files for more information.
  10  */
  11
  12 #if !defined(_INCLUDE_GLOBALS_H_)
  13 #define _INCLUDED_GLOBALS_H_
  14
  15 #ifndef LANGUAGE_ASSEMBLY
  16
  17 #include "runtime.h"
  18
  19 extern int foreign_function_call_active;
  20
  21 extern lispobj *current_control_stack_pointer;
  22 extern lispobj *current_control_frame_pointer;
  23 #if !defined(ibmrt) && !defined(__i386__)
  24 extern lispobj *current_binding_stack_pointer;
  25 #endif
  26
  27 #if !defined(ibmrt) && !defined(__i386__)
  28 /* FIXME: Why doesn't the x86 need this? */
  29 extern lispobj *dynamic_space_free_pointer;
  30 extern lispobj *current_auto_gc_trigger;
  31 #endif
  32
  33 extern lispobj *current_dynamic_space;
  34
  35 extern void globals_init(void);
  36
  37 #else  LANGUAGE_ASSEMBLY
  38
  39 #ifdef mips
  40 #define EXTERN(name,bytes) .extern name bytes
  41 #endif
  42 /**/
  43 #ifdef sparc
  44 #ifdef SVR4
  45 #define EXTERN(name,bytes) .global name
  46 #else
  47 #define EXTERN(name,bytes) .global _ ## name
  48 #endif
  49 #endif
  50 /**/
  51 #ifdef ibmrt
  52 #define EXTERN(name,bytes) .globl _/**/name
  53 #endif
  54 /**/
  55 #ifdef alpha
  56 #ifdef linux
  57 #define EXTERN(name,bytes) .globl name
  58 #endif
  59 #endif
  60 #ifdef __i386__
  61 #ifdef __linux__
  62 /* I'm very dubious about this.  Linux hasn't used _ on external names
  63  * since ELF became prevalent - i.e. about 1996, on x86    -dan 20010125 */
  64 #define EXTERN(name,bytes) .globl _/**/name
  65 #else
  66 #define EXTERN(name,bytes) .global _ ## name
  67 #endif
  68 #endif
  69
  70 EXTERN(foreign_function_call_active, 4)
  71
  72 EXTERN(current_control_stack_pointer, 4)
  73 EXTERN(current_control_frame_pointer, 4)
  74 EXTERN(current_binding_stack_pointer, 4)
  75 EXTERN(dynamic_space_free_pointer, 4)
  76 EXTERN(current_dynamic_space, 4)
  77
  78 #ifdef mips
  79 EXTERN(current_flags_register, 4)
  80 #endif
  81
  82 #endif LANGUAGE_ASSEMBLY
  83
  84 #endif _INCLUDED_GLOBALS_H_