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.
12 #if !defined(_INCLUDE_GLOBALS_H_)
13 #define _INCLUDED_GLOBALS_H_
15 #ifndef LANGUAGE_ASSEMBLY
19 extern int foreign_function_call_active;
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;
27 #if !defined(ibmrt) && !defined(__i386__)
28 extern lispobj *dynamic_space_free_pointer;
29 extern lispobj *current_auto_gc_trigger;
32 extern void globals_init(void);
34 #else LANGUAGE_ASSEMBLY
36 /* These are needed by ./assem.s */
39 #define EXTERN(name,bytes) .extern name bytes
43 #define EXTERN(name,bytes) .global name
45 #define EXTERN(name,bytes) .global _ ## name
49 #define EXTERN(name,bytes) .globl _/**/name
54 #define EXTERN(name,bytes) .globl _/**/name
56 #define EXTERN(name,bytes) .global _ ## name
60 EXTERN(foreign_function_call_active, 4)
62 EXTERN(current_control_stack_pointer, 4)
63 EXTERN(current_control_frame_pointer, 4)
64 #if !defined(ibmrt) && !defined(__i386__)
65 EXTERN(current_binding_stack_pointer, 4)
66 EXTERN(dynamic_space_free_pointer, 4)
70 EXTERN(current_flags_register, 4)
73 #endif LANGUAGE_ASSEMBLY
75 #endif _INCLUDED_GLOBALS_H_