diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-12-10 09:39:06 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-12-10 09:39:06 +0000 |
| commit | a201afd3d2c4bef07e4e7682b129f60dbdde0e8a (patch) | |
| tree | 166e5a7658237549a68124e814f4ebc95b33ce74 /rts/eventlog | |
| parent | 43048e07b7a9e43fca1412e8decb8845e8ab70ed (diff) | |
| download | haskell-a201afd3d2c4bef07e4e7682b129f60dbdde0e8a.tar.gz | |
allocate enough room for the longer filename (addendum to #4512)
Diffstat (limited to 'rts/eventlog')
| -rw-r--r-- | rts/eventlog/EventLog.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c index 71b348488f..fec34b9647 100644 --- a/rts/eventlog/EventLog.c +++ b/rts/eventlog/EventLog.c @@ -174,7 +174,9 @@ initEventLogging(void) StgWord8 t, c; nat n_caps; - event_log_filename = stgMallocBytes(strlen(prog_name) + 10, + event_log_filename = stgMallocBytes(strlen(prog_name) + + 10 /* .%d */ + + 10 /* .eventlog */, "initEventLogging"); if (sizeof(EventDesc) / sizeof(char*) != NUM_EVENT_TAGS) { |