diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-01-27 16:42:26 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-01-27 16:42:26 +0000 |
| commit | 784e214dd44eba39f4c34936a27e6cc82948205c (patch) | |
| tree | 42ce7135e1045117461118f7cbc098df5e707138 /rts/Messages.h | |
| parent | 069cd16951bd45a55c94b5adce048c4ec9aad2c8 (diff) | |
| download | haskell-784e214dd44eba39f4c34936a27e6cc82948205c.tar.gz | |
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.
Diffstat (limited to 'rts/Messages.h')
| -rw-r--r-- | rts/Messages.h | 1 |
1 files changed, 1 insertions, 0 deletions
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); |