diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-12-02 12:25:41 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-12-11 22:43:30 -0500 |
commit | 480a38d4ad2f6fa2137e81e9f318dda445858e9c (patch) | |
tree | 658945c7c94daa1489299b7719b6ba73f8ace3d0 | |
parent | 2895fa60350e19016ee4babc1a1ce8bc5179364d (diff) | |
download | haskell-480a38d4ad2f6fa2137e81e9f318dda445858e9c.tar.gz |
rts: don't use siginterrupt (#19019)
-rw-r--r-- | rts/posix/Signals.c | 6 |
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. |