summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-12-02 12:25:41 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-12-11 22:43:30 -0500
commit480a38d4ad2f6fa2137e81e9f318dda445858e9c (patch)
tree658945c7c94daa1489299b7719b6ba73f8ace3d0
parent2895fa60350e19016ee4babc1a1ce8bc5179364d (diff)
downloadhaskell-480a38d4ad2f6fa2137e81e9f318dda445858e9c.tar.gz
rts: don't use siginterrupt (#19019)
-rw-r--r--rts/posix/Signals.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c
index 5ad688bc2f..57b1873c77 100644
--- a/rts/posix/Signals.c
+++ b/rts/posix/Signals.c
@@ -680,15 +680,11 @@ initDefaultHandlers(void)
// install the SIGINT handler
action.sa_handler = shutdown_handler;
sigemptyset(&action.sa_mask);
- action.sa_flags = 0;
+ action.sa_flags = 0; // disable SA_RESTART
if (sigaction(SIGINT, &action, &oact) != 0) {
sysErrorBelch("warning: failed to install SIGINT handler");
}
-#if defined(HAVE_SIGINTERRUPT)
- siginterrupt(SIGINT, 1); // isn't this the default? --SDM
-#endif
-
// install the SIGFPE handler
// In addition to handling SIGINT, also handle SIGFPE by ignoring it.