X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfHeap.c;h=e8966ece3ed5e6eb5c072b2bbfb057bd32769429;hb=6099982b0968a636eeccbafccb9a3593f8841449;hp=76a6b33edc8813b1896bfe4757171bbb078161de;hpb=a7f3dd00fd6fd4111ddaef0f5b5ab88cf6a05694;p=ghc-hetmet.git

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