summaryrefslogtreecommitdiff
path: root/rts/RaiseAsync.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/RaiseAsync.c')
-rw-r--r--rts/RaiseAsync.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index edc4a91193..86a16d3e08 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -33,9 +33,6 @@ static void removeFromQueues(Capability *cap, StgTSO *tso);
static void removeFromMVarBlockedQueue (StgTSO *tso);
-static void blockedThrowTo (Capability *cap,
- StgTSO *target, MessageThrowTo *msg);
-
static void throwToSendMsg (Capability *cap USED_IF_THREADS,
Capability *target_cap USED_IF_THREADS,
MessageThrowTo *msg USED_IF_THREADS);
@@ -467,7 +464,7 @@ throwToSendMsg (Capability *cap STG_UNUSED,
// Block a throwTo message on the target TSO's blocked_exceptions
// queue. The current Capability must own the target TSO in order to
// modify the blocked_exceptions queue.
-static void
+void
blockedThrowTo (Capability *cap, StgTSO *target, MessageThrowTo *msg)
{
debugTraceCap(DEBUG_sched, cap, "throwTo: blocking on thread %lu",