X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fglobals.h;h=2064f6f08b194bbab7d9b59a019cc4a732e08469;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=fecc3634d4c908208f466ab1a9263b39d93c4063;hpb=fdd3f1d028eed3a886dae0c5635ddd70ca12b206;p=sbcl.git diff --git a/src/runtime/globals.h b/src/runtime/globals.h index fecc363..2064f6f 100644 --- a/src/runtime/globals.h +++ b/src/runtime/globals.h @@ -14,23 +14,28 @@ #ifndef LANGUAGE_ASSEMBLY +#include +#include #include "runtime.h" extern int foreign_function_call_active; +extern boolean stop_the_world; extern lispobj *current_control_stack_pointer; extern lispobj *current_control_frame_pointer; -#if !defined(__i386__) +#if !defined(LISP_FEATURE_X86) extern lispobj *current_binding_stack_pointer; #endif -#if !defined(__i386__) +#if !defined(LISP_FEATURE_X86) /* FIXME: Why doesn't the x86 need this? */ extern lispobj *dynamic_space_free_pointer; extern lispobj *current_auto_gc_trigger; #endif extern lispobj *current_dynamic_space; +extern pid_t parent_pid; +extern boolean stop_the_world; extern void globals_init(void); @@ -54,9 +59,13 @@ extern void globals_init(void); #endif #endif #ifdef ppc +#ifdef DARWIN +#define EXTERN(name,bytes) .globl _/**/name +#else #define EXTERN(name,bytes) .globl name #endif -#ifdef __i386__ +#endif +#ifdef LISP_FEATURE_X86 #ifdef __linux__ /* I'm very dubious about this. Linux hasn't used _ on external names * since ELF became prevalent - i.e. about 1996, on x86 -dan 20010125 */ @@ -66,6 +75,11 @@ extern void globals_init(void); #endif #endif +/* FIXME : these sizes are, incidentally, bogus on Alpha. But the + * EXTERN macro doesn't use its second arg anyway, so no immediate harm + * done -dan 2002.05.07 + */ + EXTERN(foreign_function_call_active, 4) EXTERN(current_control_stack_pointer, 4)