X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsProbes.d;h=bd32fca385a366498c0def0b3866406e8f24bc2e;hb=7d9eb2e45b4a9ff4cb053b1ec37602be88528b62;hp=dbc5111e46edb36023da2bed3002cb29a27bd0b0;hpb=96d64fe2175d829f9499656750d51cf577ff9892;p=ghc-hetmet.git

diff --git a/rts/RtsProbes.d b/rts/RtsProbes.d
index dbc5111..bd32fca 100644
--- a/rts/RtsProbes.d
+++ b/rts/RtsProbes.d
@@ -23,6 +23,8 @@
  * typedef uint16_t EventCapNo;
  * typedef uint16_t EventPayloadSize; // variable-size events
  * typedef uint16_t EventThreadStatus;
+ * typedef uint32_t EventCapsetID;
+ * typedef uint16_t EventCapsetType;  // types for EVENT_CAPSET_CREATE
  */
 
 /* -----------------------------------------------------------------------------
@@ -60,5 +62,9 @@ provider HaskellEvent {
   probe gc__idle (EventCapNo);
   probe gc__work (EventCapNo);
   probe gc__done (EventCapNo);
+  probe capset__create(EventCapsetID, EventCapsetType);
+  probe capset__delete(EventCapsetID);
+  probe capset__assign__cap(EventCapsetID, EventCapNo);
+  probe capset__remove__cap(EventCapsetID, EventCapNo);
 
 };