diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 09:28:24 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 09:28:24 +0000 |
commit | ef6e8211dee59eb7fa80a242391b89b52bd57f80 (patch) | |
tree | 18b374037dc19404142b97fdabd3baf4263edb1c /rts/RaiseAsync.c | |
parent | 2baf448a8bb8138c736c74ae40cafa4b09491fda (diff) | |
download | haskell-ef6e8211dee59eb7fa80a242391b89b52bd57f80.tar.gz |
Fix for derefing ThreadRelocated TSOs in MVar operations
Diffstat (limited to 'rts/RaiseAsync.c')
-rw-r--r-- | rts/RaiseAsync.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index bebbcd4722..df7429a48a 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -271,7 +271,7 @@ check_target: // might as well just do it now. The message will // be a no-op when it arrives. unlockClosure((StgClosure*)m, i); - tryWakeupThread(cap, target); + tryWakeupThread_(cap, target); goto retry; } @@ -337,7 +337,7 @@ check_target: // thread now anyway and ignore the message when it // arrives. unlockClosure((StgClosure *)mvar, info); - tryWakeupThread(cap, target); + tryWakeupThread_(cap, target); goto retry; } |