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 extern lispobj *read_only_space;
32 extern lispobj *static_space;
33 extern lispobj *dynamic_0_space;
34 extern lispobj *dynamic_1_space;
35 extern lispobj *control_stack;
36 extern lispobj *binding_stack;
38 extern lispobj *control_stack_end;
40 extern lispobj *current_dynamic_space;
41 #if !defined(ibmrt) && !defined(__i386__)
42 extern lispobj *current_dynamic_space_free_pointer;
43 extern lispobj *current_auto_gc_trigger;
46 extern void globals_init(void);
48 #else LANGUAGE_ASSEMBLY
50 /* These are needed by ./assem.s */
53 #define EXTERN(name,bytes) .extern name bytes
57 #define EXTERN(name,bytes) .global name
59 #define EXTERN(name,bytes) .global _ ## name
63 #define EXTERN(name,bytes) .globl _/**/name
68 #define EXTERN(name,bytes) .globl _/**/name
70 #define EXTERN(name,bytes) .global _ ## name
74 EXTERN(foreign_function_call_active, 4)
76 EXTERN(current_control_stack_pointer, 4)
77 EXTERN(current_control_frame_pointer, 4)
78 #if !defined(ibmrt) && !defined(__i386__)
79 EXTERN(current_binding_stack_pointer, 4)
80 EXTERN(current_dynamic_space_free_pointer, 4)
84 EXTERN(current_flags_register, 4)
87 #endif LANGUAGE_ASSEMBLY
89 #endif _INCLUDED_GLOBALS_H_