From 784e214dd44eba39f4c34936a27e6cc82948205c Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 27 Jan 2011 16:42:26 +0000 Subject: Annotate thread stop events with the owner of the black hole So we can now get these in ThreadScope: 19487000: cap 1: stopping thread 6 (blocked on black hole owned by thread 4) Note: needs an update to ghc-events. Older ThreadScopes will just ignore the new information. --- rts/Messages.h | 1 + 1 file changed, 1 insertion(+) (limited to 'rts/Messages.h') diff --git a/rts/Messages.h b/rts/Messages.h index febb839ee9..4121364b21 100644 --- a/rts/Messages.h +++ b/rts/Messages.h @@ -9,6 +9,7 @@ #include "BeginPrivate.h" nat messageBlackHole(Capability *cap, MessageBlackHole *msg); +StgTSO * blackHoleOwner (StgClosure *bh); #ifdef THREADED_RTS void executeMessage (Capability *cap, Message *m); -- cgit v1.2.1