From: Gabor Melis <mega@hotpop.com>
Date: Thu, 20 Oct 2005 09:47:41 +0000 (+0000)
Subject: 0.9.5.78:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e663f81f7297ab9f53b38d5f0975152de3557e69;p=sbcl.git

0.9.5.78:
  * be nicer to gdb: use SIGINT instead of SIGTRAP for the
    SA_NODEFER test (thanks to Cyrus Harmon)
---

diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c
index a266301..8a93526 100644
--- a/src/runtime/interrupt.c
+++ b/src/runtime/interrupt.c
@@ -1075,8 +1075,17 @@ see_if_sigaction_nodefer_works()
     sa.sa_sigaction = sigaction_nodefer_test_handler;
     sigemptyset(&sa.sa_mask);
     sigaddset(&sa.sa_mask, SIGABRT);
-    sigaction(SIGTRAP, &sa, NULL);
-    kill(getpid(), SIGTRAP);
+    /* We can use any signal for which a handler will be installed
+     * later. Let's go with SIGINT because gdb barfs on SIGTRAP on
+     * Darwin. */
+    sigaction(SIGINT, &sa, NULL);
+    /* Make sure no signals are blocked. */
+    {
+        sigset_t empty;
+        sigemptyset(&empty);
+        sigprocmask(SIG_SETMASK, &empty, 0);
+    }
+    kill(getpid(), SIGINT);
     while (sigaction_nodefer_works == -1);
 }
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 680854d..ffe2269 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.5.77"
+"0.9.5.78"