diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-12 15:31:17 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-25 08:40:26 +0100 |
| commit | 820134a0d80d54d218742d35453903d0348b279f (patch) | |
| tree | bcb2555cda6502ffd96b9fb2f14c167706b01111 | |
| parent | 0b3811c093736950c1d2757fb12dba60f9bf97ca (diff) | |
| download | haskell-820134a0d80d54d218742d35453903d0348b279f.tar.gz | |
remove unused sched_shutting_down
| -rw-r--r-- | rts/Capability.c | 2 | ||||
| -rw-r--r-- | rts/Schedule.c | 7 |
2 files changed, 1 insertions, 8 deletions
diff --git a/rts/Capability.c b/rts/Capability.c index 4c33115ca5..d02c34d311 100644 --- a/rts/Capability.c +++ b/rts/Capability.c @@ -842,7 +842,7 @@ tryGrabCapability (Capability *cap, Task *task) * allow the workers to stop. * * This function should be called when interrupted and - * shutting_down_scheduler = rtsTrue, thus any worker that wakes up + * sched_state = SCHED_SHUTTING_DOWN, thus any worker that wakes up * will exit the scheduler and call taskStop(), and any bound thread * that wakes up will return to its caller. Runnable threads are * killed. diff --git a/rts/Schedule.c b/rts/Schedule.c index d44cf72400..7d3fb53fc7 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -98,13 +98,6 @@ volatile StgWord sched_state = SCHED_RUNNING; StgTSO dummy_tso; /* - * Set to TRUE when entering a shutdown state (via shutdownHaskellAndExit()) -- - * in an MT setting, needed to signal that a worker thread shouldn't hang around - * in the scheduler when it is out of work. - */ -rtsBool shutting_down_scheduler = rtsFalse; - -/* * This mutex protects most of the global scheduler data in * the THREADED_RTS runtime. */ |