From b06befbed808f537022b994923aa97e4a99b1555 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren>
Date: Wed, 22 Jun 1994 13:25:20 +0000
Subject: [PATCH] Updated for the sgi.

---
 code/debug-int.lisp |  4 ++--
 code/exports.lisp   | 12 +++++++++---
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index e53473eb9..72ed41218 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.65 1994/04/06 17:02:40 hallgren Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.66 1994/06/22 13:21:40 hallgren Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1095,7 +1095,7 @@
 			   vm:other-pointer-type)
 			code-header-len)))
 	       ;; Check to see if we were executing in a branch delay slot.
-	       #+pmax  ; pmax only
+	       #+(or pmax sgi) ; pmax only
 	       (when (logbitp 31 (alien:slot scp 'mips::sc-cause))
 		 (incf pc-offset vm:word-bytes))
 	       (unless (<= 0 pc-offset
diff --git a/code/exports.lisp b/code/exports.lisp
index 98469861d..5e7c636bf 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.99 1994/04/06 17:03:07 hallgren Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.100 1994/06/22 13:25:20 hallgren Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -63,6 +63,10 @@
 (if (find-package "ALPHA")
     (rename-package "ALPHA" "ALPHA" '("VM" "OLD-ALPHA"))
     (make-package "ALPHA" :nicknames '("VM" "OLD-ALPHA") :use nil))
+#+sgi
+(if (find-package "SGI")
+    (rename-package "SGI" "SGI" '("VM" "OLD-SGI"))
+    (make-package "SGI" :nicknames '("VM" "OLD-SGI") :use nil))
 (if (find-package "CONDITIONS")
     (rename-package "CONDITIONS" "CONDITIONS" 'nil)
     (make-package "CONDITIONS" :nicknames 'nil :use nil))
@@ -560,10 +564,11 @@
        "DOUBLE-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P"))
   (intern name "KERNEL"))
 (defpackage #+pmax "MIPS" #+sparc "SPARC" #+ibmrt "RT"
-            #+x86 "X86" #+hppa "HPPA" #+alpha "ALPHA"
+            #+x86 "X86" #+hppa "HPPA" #+alpha "ALPHA" #+sgi "SGI"
             (:nicknames "VM"
 			#+pmax "OLD-MIPS" #+sparc "OLD-SPARC" #+ibmrt "OLD-RT"
-			#+x86 "OLD-X86" #+hppa "HPPA" #+alpha "OLD-ALPHA")
+			#+x86 "OLD-X86" #+hppa "HPPA" #+alpha "OLD-ALPHA"
+			#+sgi "OLD-SGI")
             (:import-from "LISP" "%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET"
              "%PUT" "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET"
              "%SET-DOCUMENTATION" "%SET-FDEFINITION" "%SET-FILL-POINTER"
@@ -1083,6 +1088,7 @@
 	   "FIXED-ALLOC"
 	   "HPPA-FASL-FILE-IMPLEMENTATION"
 	   "ALPHA-FASL-FILE-IMPLEMENTATION"
+	   "SGI-FASL-FILE-IMPLEMENTATION"
 	   "MAKE-UNBOUND-MARKER"
 	   "RETURN-SINGLE"
 	   "BACKEND-PAGE-SIZE"
-- 
GitLab