summaryrefslogtreecommitdiff
path: root/rts/RaiseAsync.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2010-04-07 09:28:24 +0000
committerSimon Marlow <marlowsd@gmail.com>2010-04-07 09:28:24 +0000
commitef6e8211dee59eb7fa80a242391b89b52bd57f80 (patch)
tree18b374037dc19404142b97fdabd3baf4263edb1c /rts/RaiseAsync.c
parent2baf448a8bb8138c736c74ae40cafa4b09491fda (diff)
downloadhaskell-ef6e8211dee59eb7fa80a242391b89b52bd57f80.tar.gz
Fix for derefing ThreadRelocated TSOs in MVar operations
Diffstat (limited to 'rts/RaiseAsync.c')
-rw-r--r--rts/RaiseAsync.c4
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;
}