diff --git a/ldb/globals.h b/ldb/globals.h index 23b5fa356f17fbf98fc5a93d753aa7544c423c12..b0e089b75c0604af498753015dbce5e5f637794a 100644 --- a/ldb/globals.h +++ b/ldb/globals.h @@ -1,11 +1,11 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/globals.h,v 1.5 1990/10/13 04:49:59 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/globals.h,v 1.6 1990/10/23 00:04:36 wlott Exp $ */ #if !defined(_INCLUDE_GLOBALS_H_) #define _INCLUDED_GLOBALS_H_ #include "lisp.h" -#if !defined(LANGUAGE_ASSEMBLY) +#ifndef LANGUAGE_ASSEMBLY extern char *number_stack_start; @@ -13,12 +13,12 @@ extern int foreign_function_call_active; #ifdef mips extern unsigned long saved_global_pointer; +extern unsigned long current_flags_register; #endif extern lispobj *current_control_stack_pointer; extern lispobj *current_control_frame_pointer; extern lispobj *current_binding_stack_pointer; -extern unsigned long current_flags_register; extern lispobj *read_only_space; extern lispobj *static_space; @@ -31,18 +31,28 @@ extern lispobj *current_dynamic_space; extern lispobj *current_dynamic_space_free_pointer; extern lispobj *current_auto_gc_trigger; -#else +#else LANGUAGE_ASSEMBLY /* These are needed by ./assem.s */ -.extern foreign_function_call_active 4 +#ifdef mips +#define EXTERN(name,bytes) .extern name bytes +#endif +#ifdef sparc +#define EXTERN(name,bytes) .global _/**/name +#endif -.extern current_dynamic_space_free_pointer 4 -.extern current_control_stack_pointer 4 -.extern current_control_frame_pointer 4 -.extern current_binding_stack_pointer 4 -.extern current_flags_register 4 +EXTERN(foreign_function_call_active, 4) -#endif +EXTERN(current_dynamic_space_free_pointer, 4) +EXTERN(current_control_stack_pointer, 4) +EXTERN(current_control_frame_pointer, 4) +EXTERN(current_binding_stack_pointer, 4) +#ifdef mips +EXTERN(current_flags_register, 4) #endif + +#endif LANGUAGE_ASSEMBLY + +#endif _INCLUDED_GLOBALS_H_