diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-08-21 11:06:20 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-08-21 11:06:20 +0000 |
| commit | cbc5fb05036f3c1990b2f9f91b9e1c66b97a392f (patch) | |
| tree | 05162c6799e0cd974eb76e385ddba2a65a6a4166 /rts/Schedule.c | |
| parent | f7612a64de7e39a57ec978ab2d567ec5b16cb584 (diff) | |
| download | haskell-cbc5fb05036f3c1990b2f9f91b9e1c66b97a392f.tar.gz | |
Fix references to exceptions from the RTS
We now need to make sure that they have been toException'd.
Also, the RTS doesn't know about the Deadlock exception any more.
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 a9ea81bbe4..537cee0d53 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -3152,7 +3152,7 @@ resurrectThreads (StgTSO *threads) case BlockedOnException: /* Called by GC - sched_mutex lock is currently held. */ throwToSingleThreaded(cap, tso, - (StgClosure *)BlockedOnDeadMVar_closure); + (StgClosure *)blockedOnDeadMVar_closure); break; case BlockedOnBlackHole: throwToSingleThreaded(cap, tso, @@ -3160,7 +3160,7 @@ resurrectThreads (StgTSO *threads) break; case BlockedOnSTM: throwToSingleThreaded(cap, tso, - (StgClosure *)BlockedIndefinitely_closure); + (StgClosure *)blockedIndefinitely_closure); break; case NotBlocked: /* This might happen if the thread was blocked on a black hole |