From 41aed6e97bc8f931f0a2ef50d78857acea5e29b6 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 27 May 1993 01:36:42 +0000
Subject: [PATCH] Added gengc version of ``sigcontext'' under #+gengc.

---
 code/pmax-vm.lisp | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/code/pmax-vm.lisp b/code/pmax-vm.lisp
index aec8bc202..2c9c11a43 100644
--- a/code/pmax-vm.lisp
+++ b/code/pmax-vm.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.12 1992/10/08 22:10:34 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.13 1993/05/27 01:36:42 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.12 1992/10/08 22:10:34 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.13 1993/05/27 01:36:42 wlott Exp $
 ;;;
 ;;; This file contains the PMAX specific runtime stuff.
 ;;;
@@ -29,6 +29,7 @@
 
 ;;;; The sigcontext structure.
 
+#-gengc
 (def-alien-type sigcontext
   (struct nil
     (sc-onstack unsigned-long)
@@ -45,6 +46,20 @@
     (sc-badvaddr system-area-pointer)
     (sc-badpaddr system-area-pointer)))
 
+#+gengc
+(def-alien-type sigcontext
+  (struct nil
+    (sc-regs (array unsigned-long 32))
+    (sc-mdlo unsigned-long)
+    (sc-mdhi unsigned-long)
+    (sc-pc system-area-pointer)
+    (sc-cause unsigned-long)
+    (sc-badvaddr system-area-pointer)
+    (sc-ownedfp unsigned-long)
+    (sc-fpregs (array unsigned-long 32))
+    (sc-fpc-csr unsigned-long)
+    (sc-fpc-eir unsigned-long)
+    (sc-were-in-lisp boolean)))
 
 
 ;;;; Add machine specific features to *features*
-- 
GitLab