summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2008-07-08 11:04:10 +0000
committerSimon Marlow <marlowsd@gmail.com>2008-07-08 11:04:10 +0000
commit0e3cc7448cd966c1463adc4685b7d8646dccd0ed (patch)
tree7944f99cd9467dce1d07e393647b814c5d0b9f07 /rts
parent6837025d796bf1487be3d572937e18d0e2cf727b (diff)
downloadhaskell-0e3cc7448cd966c1463adc4685b7d8646dccd0ed.tar.gz
remove old #ifdef SMP bits
Diffstat (limited to 'rts')
-rw-r--r--rts/posix/Signals.c19
1 files changed, 0 insertions, 19 deletions
diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c
index 27f09b02ae..f79e348d60 100644
--- a/rts/posix/Signals.c
+++ b/rts/posix/Signals.c
@@ -429,24 +429,9 @@ stg_sig_install(StgInt sig STG_UNUSED,
* We like to shutdown nicely after receiving a SIGINT, write out the
* stats, write profiling info, close open files and flush buffers etc.
* -------------------------------------------------------------------------- */
-#ifdef SMP
-pthread_t startup_guy;
-#endif
-
static void
shutdown_handler(int sig STG_UNUSED)
{
-#ifdef SMP
- // if I'm a worker thread, send this signal to the guy who
- // originally called startupHaskell(). Since we're handling
- // the signal, it won't be a "send to all threads" type of signal
- // (according to the POSIX threads spec).
- if (pthread_self() != startup_guy) {
- pthread_kill(startup_guy, sig);
- return;
- }
-#endif
-
// If we're already trying to interrupt the RTS, terminate with
// extreme prejudice. So the first ^C tries to exit the program
// cleanly, and the second one just kills it.
@@ -477,10 +462,6 @@ initDefaultHandlers()
{
struct sigaction action,oact;
-#ifdef SMP
- startup_guy = pthread_self();
-#endif
-
// install the SIGINT handler
action.sa_handler = shutdown_handler;
sigemptyset(&action.sa_mask);