From 0d38205a9e2eef4f7caef15ace9ca4d9b52b4dd7 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 24 Oct 1994 20:04:27 +0000
Subject: [PATCH] Solais patches.

---
 lisp/globals.h | 6 +++++-
 lisp/interr.c  | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/globals.h b/lisp/globals.h
index 3167d57a8..c6265ac9d 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 d5ef6e6be..0b6117a18 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.
  *
-- 
GitLab