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