From 41fb1832a8a0ef1b16d1c402a8acc832b270d071 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 26 Nov 1990 15:22:05 +0000
Subject: [PATCH] Initial revision

---
 code/pmax-machdef.lisp  | 35 +++++++++++++++++++++++++++++++++++
 code/sparc-machdef.lisp | 31 +++++++++++++++++++++++++++++++
 2 files changed, 66 insertions(+)
 create mode 100644 code/pmax-machdef.lisp
 create mode 100644 code/sparc-machdef.lisp

diff --git a/code/pmax-machdef.lisp b/code/pmax-machdef.lisp
new file mode 100644
index 000000000..6477c8ce5
--- /dev/null
+++ b/code/pmax-machdef.lisp
@@ -0,0 +1,35 @@
+;;; -*- Log: code.log; Package: Mach -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the Spice Lisp project at
+;;; Carnegie-Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of Spice Lisp, please contact
+;;; Scott Fahlman (FAHLMAN@CMUC). 
+;;; **********************************************************************
+;;;
+;;; Record definitions needed for the interface to Mach.
+;;;
+(in-package "MACH")
+
+
+(export '(sigcontext-onstack sigcontext-mask sigcontext-pc sigcontext-regs
+	  sigcontext-mdlo sigcontext-mdhi sigcontext-ownedfp sigcontext-fpregs
+	  sigcontext-fpc_csr sigcontext-fpc_eir sigcontext-cause
+	  sigcontext-badvaddr sigcontext-badpaddr sigcontext *sigcontext
+	  indirect-*sigcontext))
+
+
+(def-c-record sigcontext
+  (onstack unsigned-long)
+  (mask unsigned-long)
+  (pc system-area-pointer)
+  (regs int-array)
+  (mdlo unsigned-long)
+  (mdhi unsigned-long)
+  (ownedfp unsigned-long)
+  (fpregs int-array)
+  (fpc_csr unsigned-long)
+  (fpc_eir unsigned-long)
+  (cause unsigned-long)
+  (badvaddr system-area-pointer)
+  (badpaddr system-area-pointer))
diff --git a/code/sparc-machdef.lisp b/code/sparc-machdef.lisp
new file mode 100644
index 000000000..8b8e96b5a
--- /dev/null
+++ b/code/sparc-machdef.lisp
@@ -0,0 +1,31 @@
+;;; -*- Log: code.log; Package: Mach -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the Spice Lisp project at
+;;; Carnegie-Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of Spice Lisp, please contact
+;;; Scott Fahlman (FAHLMAN@CMUC). 
+;;; **********************************************************************
+;;;
+;;; Record definitions needed for the interface to Mach.
+;;;
+(in-package "MACH")
+
+(export '(sigcontext-onstack sigcontext-mask sigcontext-sp sigcontext-pc
+	  sigcontext-npc sigcontext-psr sigcontext-g1 sigcontext-o0
+	  sigcontext-regs sigcontext-fpregs sigcontext-y sigcontext-fsr
+	  sigcontext *sigcontext indirect-*sigcontext))
+
+(def-c-record sigcontext
+  (onstack unsigned-long)
+  (mask unsigned-long)
+  (sp system-area-pointer)
+  (pc system-area-pointer)
+  (npc system-area-pointer)
+  (psr unsigned-long)
+  (g1 unsigned-long)
+  (o0 unsigned-long)
+  (regs int-array)
+  (fpregs int-array)
+  (y unsigned-long)
+  (fsr unsigned-long))
-- 
GitLab