2 * This software is part of the SBCL system. See the README file for
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.
16 #if !defined(_INCLUDE_GLOBALS_H_)
17 #define _INCLUDED_GLOBALS_H_
19 #ifndef LANGUAGE_ASSEMBLY
23 extern int foreign_function_call_active;
25 extern lispobj *current_control_stack_pointer;
26 extern lispobj *current_control_frame_pointer;
27 #if !defined(ibmrt) && !defined(__i386__)
28 extern lispobj *current_binding_stack_pointer;
31 #if !defined(ibmrt) && !defined(__i386__)
32 extern lispobj *dynamic_space_free_pointer;
33 extern lispobj *current_auto_gc_trigger;
36 extern void globals_init(void);
38 #else LANGUAGE_ASSEMBLY
40 /* These are needed by ./assem.s */
43 #define EXTERN(name,bytes) .extern name bytes
47 #define EXTERN(name,bytes) .global name
49 #define EXTERN(name,bytes) .global _ ## name
53 #define EXTERN(name,bytes) .globl _/**/name
58 #define EXTERN(name,bytes) .globl _/**/name
60 #define EXTERN(name,bytes) .global _ ## name
64 EXTERN(foreign_function_call_active, 4)
66 EXTERN(current_control_stack_pointer, 4)
67 EXTERN(current_control_frame_pointer, 4)
68 #if !defined(ibmrt) && !defined(__i386__)
69 EXTERN(current_binding_stack_pointer, 4)
70 EXTERN(dynamic_space_free_pointer, 4)
74 EXTERN(current_flags_register, 4)
77 #endif LANGUAGE_ASSEMBLY
79 #endif _INCLUDED_GLOBALS_H_