[project @ 1997-08-25 12:28:27 by simonm]

Fix problem with installing signal handlers on FreeBSD.
Symptom: occasional reports of 'cannot install SEGV handler...',
sometimes when the Haskell program calls 'error'.

diff --git a/ghc/runtime/main/Signals.lc b/ghc/runtime/main/Signals.lc
index 858b407..97fb56b 100644 (file)
--- a/ghc/runtime/main/Signals.lc
+++ b/ghc/runtime/main/Signals.lc
@@ -163,7 +163,9 @@ install_segv_handler(void)
     /* FreeBSD seems to generate SIGBUS for stack overflows */
     if (signal(SIGBUS, segv_handler) == SIG_ERR)
        return -1;
-    return ((int) signal(SIGSEGV, segv_handler));
+    if (signal(SIGSEGV, segv_handler) == SIG_ERR)
+       return -1;
+    return 0;
 #else
     return ((int) signal(SIGSEGV, segv_handler) == SIG_ERR);
     /* I think the "== SIG_ERR" is saying "there was no