From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 4 Aug 2009 09:21:15 +0000 (+0000)
Subject: fix off-by-one in memory allocation
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e9f5a98d3ce9c8999b9b229affab9eaa137337da;hp=086827c0811f1327c86b540111dfb62f378c96e9;p=ghc-hetmet.git

fix off-by-one in memory allocation
---

diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c
index 7f93d73..4786358 100644
--- a/rts/eventlog/EventLog.c
+++ b/rts/eventlog/EventLog.c
@@ -139,7 +139,7 @@ initEventLogging(void)
 
     debugTrace(DEBUG_eventlog, "intiEventLog: start");
 
-    event_log_filename = stgMallocBytes(strlen(prog_name) + 9, 
+    event_log_filename = stgMallocBytes(strlen(prog_name) + 10,
                                         "initEventLogging");
 
     if (sizeof(EventDesc) / sizeof(char*) != NUM_EVENT_TAGS) {
@@ -399,7 +399,7 @@ printAndClearEventLog(Capability *cap)
 
 void initEventsBuf(EventsBuf* eb, StgWord64 size)
 {
-    eb->begin = eb->pos = malloc(size);
+    eb->begin = eb->pos = stgMallocBytes(size, "initEventsBuf");
     eb->size = size;
 }