diff options
| author | scpmw@leeds.ac.uk <unknown> | 2010-11-05 15:16:55 +0000 |
|---|---|---|
| committer | scpmw@leeds.ac.uk <unknown> | 2010-11-05 15:16:55 +0000 |
| commit | 72fd6d39870c75bd5d916620ed5e707f07179385 (patch) | |
| tree | 2c265ad31261af4fd0e27a9aa0e86259aec9add9 /rts/eventlog | |
| parent | 22a25aa92bdbdcd4b29ada4cea187496b44bc53b (diff) | |
| download | haskell-72fd6d39870c75bd5d916620ed5e707f07179385.tar.gz | |
Eventlog: Put correct size for startup event
Diffstat (limited to 'rts/eventlog')
| -rw-r--r-- | rts/eventlog/EventLog.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c index ebfbb7b0e4..ef512281ec 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: |