0.8.21.1:
[sbcl.git] / 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 <sys/types.h>
18 #include <unistd.h>
19 #include "sbcl.h"
20 #include "runtime.h"
21
22 extern int foreign_function_call_active;
23 extern boolean stop_the_world;
24
25 extern lispobj *current_control_stack_pointer;
26 extern lispobj *current_control_frame_pointer;
27 #if !defined(LISP_FEATURE_X86)
28 extern lispobj *current_binding_stack_pointer;
29 #endif
30
31 #if !defined(LISP_FEATURE_X86)
32 /* FIXME: Why doesn't the x86 need this? */
33 extern lispobj *dynamic_space_free_pointer;
34 extern lispobj *current_auto_gc_trigger;
35 #endif
36
37 extern lispobj *current_dynamic_space;
38 extern pid_t parent_pid;
39 extern boolean stop_the_world;
40
41 extern void globals_init(void);
42
43 #else /* LANGUAGE_ASSEMBLY */
44
45 #ifdef mips
46 #define EXTERN(name,bytes) .extern name bytes
47 #endif
48 /**/
49 #ifdef sparc
50 #ifdef SVR4
51 #define EXTERN(name,bytes) .global name
52 #else
53 #define EXTERN(name,bytes) .global _ ## name
54 #endif
55 #endif
56 /**/
57 #ifdef alpha
58 #ifdef __linux__
59 #define EXTERN(name,bytes) .globl name 
60 #endif
61 #endif
62 #ifdef ppc
63 #ifdef LISP_FEATURE_DARWIN
64 #define EXTERN(name,bytes) .globl _/**/name
65 #else
66 #define EXTERN(name,bytes) .globl name 
67 #endif
68 #endif
69 #ifdef LISP_FEATURE_X86
70 #ifdef __linux__
71 /* I'm very dubious about this.  Linux hasn't used _ on external names
72  * since ELF became prevalent - i.e. about 1996, on x86    -dan 20010125 */
73 #define EXTERN(name,bytes) .globl _/**/name
74 #else
75 #define EXTERN(name,bytes) .global _ ## name
76 #endif
77 #endif
78
79 /* FIXME : these sizes are, incidentally, bogus on Alpha.  But the
80  * EXTERN macro doesn't use its second arg anyway, so no immediate harm
81  * done   -dan 2002.05.07
82  */
83
84 EXTERN(foreign_function_call_active, 4)
85
86 EXTERN(current_control_stack_pointer, 4)
87 EXTERN(current_control_frame_pointer, 4)
88 EXTERN(current_binding_stack_pointer, 4)
89 EXTERN(dynamic_space_free_pointer, 4)
90 EXTERN(current_dynamic_space, 4)
91
92 #ifdef mips
93 EXTERN(current_flags_register, 4)
94 #endif
95
96 #endif /* LANGUAGE_ASSEMBLY */
97
98 #endif /* _INCLUDED_GLOBALS_H_ */