From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 8 May 2007 10:09:08 +0000 (+0000)
Subject: FIX crash on exit with biographical profiling
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7f6c03992744898286d41529200508f775a77e04

FIX crash on exit with biographical profiling
Seems to be a bug introduced by code to free the memory allocated by
the heap profiler.
---

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 76a6b33..19abac7 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -523,11 +523,13 @@ endHeapProfiling(void)
     }
 #endif
 
-    {
+    if (doingLDVProfiling()) {
         nat t;
-        for (t = 0; t <= era; t++) {
+        for (t = 1; t <= era; t++) {
             freeEra( &censuses[t] );
         }
+    } else {
+        freeEra( &censuses[0] );
     }
     stgFree(censuses);