diff --git a/lisp/globals.h b/lisp/globals.h index 3167d57a8d4c700c573ce368424bab74ab8cea6a..c6265ac9dcac8df603abf34d924c0bf1cdd77de4 100644 --- a/lisp/globals.h +++ b/lisp/globals.h @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/globals.h,v 1.2 1992/09/08 20:18:32 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/globals.h,v 1.3 1994/10/24 20:03:32 ram Exp $ */ #if !defined(_INCLUDE_GLOBALS_H_) #define _INCLUDED_GLOBALS_H_ @@ -38,8 +38,12 @@ extern void globals_init(void); #define EXTERN(name,bytes) .extern name bytes #endif #ifdef sparc +#ifdef SVR4 +#define EXTERN(name,bytes) .global name +#else #define EXTERN(name,bytes) .global _ ## name #endif +#endif #ifdef ibmrt #define EXTERN(name,bytes) .globl _/**/name #endif diff --git a/lisp/interr.c b/lisp/interr.c index d5ef6e6be25f8f6e04c71df57f5f28d30e168804..0b6117a187da5419cd57f18449502399a432b4d6 100644 --- a/lisp/interr.c +++ b/lisp/interr.c @@ -1,5 +1,5 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.1.1.1 1994/10/24 19:47:21 ram Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.2 1994/10/24 20:04:27 ram Exp $ * * Stuff to handle internal errors. *