diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-30 15:31:23 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-30 15:31:23 +0000 |
| commit | a916885ce70142ae5c05cc9e28230c308821e3d6 (patch) | |
| tree | 6a47be14ef0f0dfeca9dab097a5a2d09780c8ff0 /rts/RtsStartup.c | |
| parent | 90d1deddda8123c46c4d029439591075ff310fb4 (diff) | |
| download | haskell-a916885ce70142ae5c05cc9e28230c308821e3d6.tar.gz | |
Handle renames from #3310
Also add a panic for resurrecting a thread blocked on an exception,
since it should never happen.
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 2c1c5549f1..f0b2170bad 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -171,9 +171,9 @@ hs_init(int *argc, char **argv[]) getStablePtr((StgPtr)heapOverflow_closure); getStablePtr((StgPtr)runFinalizerBatch_closure); getStablePtr((StgPtr)unpackCString_closure); - getStablePtr((StgPtr)blockedOnDeadMVar_closure); + getStablePtr((StgPtr)blockedIndefinitelyOnMVar_closure); getStablePtr((StgPtr)nonTermination_closure); - getStablePtr((StgPtr)blockedIndefinitely_closure); + getStablePtr((StgPtr)blockedIndefinitelyOnSTM_closure); /* initialise the shared Typeable store */ initGlobalStore(); |