Annotate thread stop events with the owner of the black hole

[ghc-hetmet.git] / rts / RtsProbes.d

diff --git a/rts/RtsProbes.d b/rts/RtsProbes.d
index 87a34c8..6312c43 100644 (file)
--- 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);