X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsProbes.d;h=6312c43362634d4af54dd0d48b831b904279f7a2;hb=784e214dd44eba39f4c34936a27e6cc82948205c;hp=87a34c8dcaa7f5b29076af5ec10cac71244d4c7d;hpb=015d3d46b6de2f95386a515a7d166d996a0416db;p=ghc-hetmet.git

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