X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfHeap.c;h=f1a3b05ce49bc27be37b0565148bda562c67a5b2;hb=72475c8247406b64b8d5d9441c0b37b17d703a54;hp=ed5dc36009408a8300e9769aa32bcd328b5cc6e4;hpb=23e5985c3db852981d527d10d6a6271688049790;p=ghc-hetmet.git

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index ed5dc36..f1a3b05 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -343,8 +343,12 @@ initEra(Census *census)
 STATIC_INLINE void
 freeEra(Census *census)
 {
-    arenaFree(census->arena);
-    freeHashTable(census->hash, NULL);
+    if (RtsFlags.ProfFlags.bioSelector != NULL)
+        // when bioSelector==NULL, these are freed in heapCensus()
+    {
+        arenaFree(census->arena);
+        freeHashTable(census->hash, NULL);
+    }
 }
 
 /* --------------------------------------------------------------------------