X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fglobals.h;h=69898204ce951782dfa09b6660641f6c98f27cea;hb=b05ccdd91520249de6b465e226d3708089e541dc;hp=2ed255f729aba3f958244bd48730692d870c0886;hpb=d7f6139a91d7d9b0667a597584ae306d958bb2f4;p=sbcl.git diff --git a/src/runtime/globals.h b/src/runtime/globals.h index 2ed255f..6989820 100644 --- a/src/runtime/globals.h +++ b/src/runtime/globals.h @@ -20,12 +20,12 @@ extern int foreign_function_call_active; extern lispobj *current_control_stack_pointer; extern lispobj *current_control_frame_pointer; -#if !defined(ibmrt) && !defined(__i386__) +#if !defined(__i386__) extern lispobj *current_binding_stack_pointer; #endif -#if !defined(ibmrt) && !defined(__i386__) -/* FIXME: why doesn't the x86 need this? */ +#if !defined(__i386__) +/* FIXME: Why doesn't the x86 need this? */ extern lispobj *dynamic_space_free_pointer; extern lispobj *current_auto_gc_trigger; #endif @@ -36,11 +36,10 @@ extern void globals_init(void); #else LANGUAGE_ASSEMBLY -/* These are needed by assem.S. */ - #ifdef mips #define EXTERN(name,bytes) .extern name bytes #endif +/**/ #ifdef sparc #ifdef SVR4 #define EXTERN(name,bytes) .global name @@ -48,20 +47,16 @@ extern void globals_init(void); #define EXTERN(name,bytes) .global _ ## name #endif #endif -#ifdef ibmrt -#define EXTERN(name,bytes) .globl _/**/name -#endif - +/**/ #ifdef alpha -#ifdef linux +#ifdef __linux__ #define EXTERN(name,bytes) .globl name #endif #endif - -/* 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 */ #ifdef __i386__ #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 */ #define EXTERN(name,bytes) .globl _/**/name #else #define EXTERN(name,bytes) .global _ ## name