diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-21 14:45:28 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-21 14:45:28 +0000 |
| commit | 179a3a7bd67ccc816e3b934eff770fb49c4cc456 (patch) | |
| tree | ac5b175be0aac2f14c842dc04f94406209f514fe /rts/Schedule.c | |
| parent | 1c7a841f836d3be3e21af98dd7a84079ad1096b3 (diff) | |
| download | haskell-179a3a7bd67ccc816e3b934eff770fb49c4cc456.tar.gz | |
When raising NonTermination with the RTS, build the right value
We now use a nonTermination value in the base library to take take of
constructing the SomeException value, with the dictionaries etc, for us.
We'll probably need to do the same for some other exceptions too
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 96c52f5350..a9ea81bbe4 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1021,7 +1021,7 @@ scheduleDetectDeadlock (Capability *cap, Task *task) case BlockedOnException: case BlockedOnMVar: throwToSingleThreaded(cap, task->tso, - (StgClosure *)NonTermination_closure); + (StgClosure *)nonTermination_closure); return; default: barf("deadlock: main thread blocked in a strange way"); @@ -3156,7 +3156,7 @@ resurrectThreads (StgTSO *threads) break; case BlockedOnBlackHole: throwToSingleThreaded(cap, tso, - (StgClosure *)NonTermination_closure); + (StgClosure *)nonTermination_closure); break; case BlockedOnSTM: throwToSingleThreaded(cap, tso, |