From: scpmw@leeds.ac.uk <unknown>
Date: Fri, 5 Nov 2010 15:16:55 +0000 (+0000)
Subject: Eventlog: Put correct size for startup event
X-Git-Tag: 2010-11-18~4
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=72fd6d39870c75bd5d916620ed5e707f07179385

Eventlog: Put correct size for startup event
---

diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c
index ebfbb7b..ef51228 100644
--- a/rts/eventlog/EventLog.c
+++ b/rts/eventlog/EventLog.c
@@ -235,12 +235,15 @@ initEventLogging(void)
                 sizeof(EventThreadID) + sizeof(StgWord16);
             break;
 
+        case EVENT_STARTUP:         // (cap count)
+            eventTypes[t].size = sizeof(EventCapNo);
+            break;
+
         case EVENT_SHUTDOWN:        // (cap)
         case EVENT_REQUEST_SEQ_GC:  // (cap)
         case EVENT_REQUEST_PAR_GC:  // (cap)
         case EVENT_GC_START:        // (cap)
         case EVENT_GC_END:          // (cap)
-        case EVENT_STARTUP:
         case EVENT_GC_IDLE:
         case EVENT_GC_WORK:
         case EVENT_GC_DONE: