diff --git a/code/pmax-machdef.lisp b/code/pmax-machdef.lisp new file mode 100644 index 0000000000000000000000000000000000000000..6477c8ce5c6697960ee69c1c1470a2fee98de063 --- /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 0000000000000000000000000000000000000000..8b8e96b5aa355ce3c10007dc2c08a4bff13ee027 --- /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))