X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2FEventLogFormat.h;h=83330dadaaaf7c130e5580389994ed34f69853ea;hb=609e7ddfb10bc04762b820e70e0487ad6c514c2e;hp=c4551c1424a674630296740e7e763235c1b5bad6;hpb=e459b0d1199bff41cb92678493e4f462cea8aaf6;p=ghc-hetmet.git

diff --git a/includes/rts/EventLogFormat.h b/includes/rts/EventLogFormat.h
index c4551c1..83330da 100644
--- a/includes/rts/EventLogFormat.h
+++ b/includes/rts/EventLogFormat.h
@@ -116,8 +116,12 @@
 #define EVENT_LOG_MSG             16 /* (message ...)          */
 #define EVENT_STARTUP             17 /* (num_capabilities)     */
 #define EVENT_BLOCK_MARKER        18 /* (size, end_time, capability) */
+#define EVENT_USER_MSG            19 /* (message ...)          */
+#define EVENT_GC_IDLE             20 /* () */
+#define EVENT_GC_WORK             21 /* () */
+#define EVENT_GC_DONE             22 /* () */
 
-#define NUM_EVENT_TAGS            19
+#define NUM_EVENT_TAGS            23
 
 #if 0  /* DEPRECATED EVENTS: */
 #define EVENT_CREATE_SPARK        13 /* (cap, thread) */
@@ -141,7 +145,7 @@
 
 typedef StgWord16 EventTypeNum;
 typedef StgWord64 EventTimestamp; // in nanoseconds
-typedef StgWord64 EventThreadID;
+typedef StgWord32 EventThreadID;
 typedef StgWord16 EventCapNo;
 typedef StgWord16 EventPayloadSize; // variable-size events