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/RtsProbes.d | |
| 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/RtsProbes.d')
| -rw-r--r-- | rts/RtsProbes.d | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsProbes.d b/rts/RtsProbes.d index 87a34c8dca..6312c43362 100644 --- a/rts/RtsProbes.d +++ b/rts/RtsProbes.d @@ -36,7 +36,7 @@ provider HaskellEvent { // scheduler events probe create__thread (EventCapNo, EventThreadID); probe run__thread (EventCapNo, EventThreadID); - probe stop__thread (EventCapNo, EventThreadID, EventThreadStatus); + probe stop__thread (EventCapNo, EventThreadID, EventThreadStatus, EventThreadID); probe thread__runnable (EventCapNo, EventThreadID); probe migrate__thread (EventCapNo, EventThreadID, EventCapNo); probe run__spark (EventCapNo, EventThreadID); |