From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 22 Jul 2010 17:28:07 +0000 (+0000)
Subject: Improve trap handling under NetBSD.
X-Git-Tag: 20101212-Gtk~142
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=07bac18f0c52cf48ca68b106be7f827bcd026da2;p=mit-scheme.git

Improve trap handling under NetBSD.
---

diff --git a/src/microcode/ux.h b/src/microcode/ux.h
index ea62e7c95..06929fa1d 100644
--- a/src/microcode/ux.h
+++ b/src/microcode/ux.h
@@ -72,6 +72,10 @@ USA.
 
 #if defined(__netbsd__) || defined(__NetBSD__)
 #  define SYSTEM_VARIANT "NetBSD"
+#  include <sys/param.h>
+#  if defined(__NetBSD_Version__) && __NetBSD_Version__ >= 200000000
+#    define HAVE_SIGACTION_SIGINFO_SIGNALS
+#  endif
 #endif
 
 #ifdef _NEXTOS
@@ -270,6 +274,10 @@ USA.
 typedef RETSIGTYPE Tsignal_handler_result;
 
 #ifdef _POSIX_REALTIME_SIGNALS
+#  define HAVE_SIGACTION_SIGINFO_SIGNALS
+#endif
+
+#ifdef HAVE_SIGACTION_SIGINFO_SIGNALS
    typedef void (*Tsignal_handler) (int, siginfo_t *, void *);
 #else
    typedef RETSIGTYPE (*Tsignal_handler) (int);
diff --git a/src/microcode/uxsig.c b/src/microcode/uxsig.c
index 8951d1f23..f91c16ee9 100644
--- a/src/microcode/uxsig.c
+++ b/src/microcode/uxsig.c
@@ -46,7 +46,7 @@ extern void UX_reinitialize_tty (void);
 
 #ifdef HAVE_POSIX_SIGNALS
 
-#ifdef _POSIX_REALTIME_SIGNALS
+#ifdef HAVE_SIGACTION_SIGINFO_SIGNALS
 #  define SIGACT_HANDLER(act) ((act) -> sa_sigaction)
 #else
 #  define SIGACT_HANDLER(act) ((act) -> sa_handler)
diff --git a/src/microcode/uxtrap.h b/src/microcode/uxtrap.h
index c23b76faa..052c2253f 100644
--- a/src/microcode/uxtrap.h
+++ b/src/microcode/uxtrap.h
@@ -637,7 +637,67 @@ typedef struct
 
 #endif /* __sparc */
 
+/* Judging by the CVS logs, NetBSD seems to have begun supporting
+   siginfo cruft somewhere around 1.5ish or 1.6ish, so 2.0 is a
+   reasonable guess.  */
+
+#if defined(__NetBSD__)
+
+#include <sys/param.h>
+
+#if defined(__NetBSD_Version__) && __NetBSD_Version__ >= 200000000
+
+#  define HAVE_SIGACTION_SIGINFO_SIGNALS
+#  include <sys/siginfo.h>
+#  include <sys/ucontext.h>
+
+#  ifdef __IA32__
+#    include <i386/mcontext.h>
+#    define SIGCONTEXT_NREGS _NGREG
+#    define __SIGCONTEXT_REG(scp, ir)           \
+  ((((scp) -> uc_mcontext) -> __gregs) [(ir)])
+#    define SIGCONTEXT_FIRST_REG(scp) (& (__SIGCONTEXT_REG (scp, _REG_GS)))
+#    define SIGCONTEXT_RFREE(scp) (__SIGCONTEXT_REG (scp, _REG_EDI))
+#  endif
+
+#  define SIGCONTEXT_SP(scp) (_UC_MACHINE_SP (scp))
+#  define SIGCONTEXT_PC(scp) (_UC_MACHINE_PC (scp))
+
+#  define INITIALIZE_UX_SIGNAL_CODES()                                  \
+  do {                                                                  \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_ILLOPC, "Illegal opcode"); \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_ILLOPN, "Illegal operand"); \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_ILLADR, "Illegal addressing mode"); \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_ILLTRP, "Illegal trap"); \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_PRVOPC, "Privileged opcode"); \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_PRVREG, "Privileged register"); \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_COPROC, "Coprocessor error"); \
+    DECLARE_UX_SIGNAL_CODE (SIGILL, (~0L), ILL_BADSTK, "Internal stack error"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_INTDIV, "Integer divide by zero"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_INTOVF, "Integer overflow"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_FLTDIV, "Floating-point divide by zero"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_FLTOVF, "Floating-point overflow"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_FLTUND, "Floating-point underflow"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_FLTRES, "Floating-point inexact result"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_FLTINV, "Invalid floating-point operation"); \
+    DECLARE_UX_SIGNAL_CODE (SIGFPE, (~0L), FPE_FLTSUB, "Subscript out of range"); \
+    DECLARE_UX_SIGNAL_CODE (SIGSEGV, (~0L), SEGV_MAPERR, "Address not mapped to object"); \
+    DECLARE_UX_SIGNAL_CODE (SIGSEGV, (~0L), SEGV_ACCERR, "Invalid permissions for mapped object"); \
+    DECLARE_UX_SIGNAL_CODE (SIGBUS, (~0L), BUS_ADRALN, "Invalid address alignment"); \
+    DECLARE_UX_SIGNAL_CODE (SIGBUS, (~0L), BUS_ADRERR, "Nonexistent physical address"); \
+    DECLARE_UX_SIGNAL_CODE (SIGBUS, (~0L), BUS_OBJERR, "Object-specific hardware error"); \
+    DECLARE_UX_SIGNAL_CODE (SIGTRAP, (~0L), TRAP_BRKPT, "Process breakpoint"); \
+    DECLARE_UX_SIGNAL_CODE (SIGTRAP, (~0L), TRAP_TRACE, "Process trace trap"); \
+  } while (0)
+
+#endif /* __NetBSD_Version__ >= 200000000 */
+#endif /* __NetBSD__ */
+
 #ifdef _POSIX_REALTIME_SIGNALS
+#  define HAVE_SIGACTION_SIGINFO_SIGNALS
+#endif
+
+#ifdef HAVE_SIGACTION_SIGINFO_SIGNALS
 #  define SIGINFO_T siginfo_t *
 #  define SIGINFO_VALID_P(info) (1)
 #  define SIGINFO_CODE(info) ((info) -> si_code)
@@ -682,7 +742,7 @@ typedef struct
 #endif
 
 #ifndef SIGCONTEXT_RFREE
-#  define SIGCONTEXT_RFREE ((unsigned long) heap_alloc_limit)
+#  define SIGCONTEXT_RFREE(scp) ((unsigned long) heap_alloc_limit)
 #endif
 
 #ifndef SIGCONTEXT_SCHSP