FIX BUILD (non-profiling RTS was broken in previous patch)
authorSimon Marlow <simonmar@microsoft.com>
Tue, 8 May 2007 13:20:49 +0000 (13:20 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Tue, 8 May 2007 13:20:49 +0000 (13:20 +0000)
rts/ProfHeap.c

index 19abac7..e8966ec 100644 (file)
@@ -523,6 +523,7 @@ endHeapProfiling(void)
     }
 #endif
 
+#ifdef PROFILING
     if (doingLDVProfiling()) {
         nat t;
         for (t = 1; t <= era; t++) {
@@ -531,6 +532,10 @@ endHeapProfiling(void)
     } else {
         freeEra( &censuses[0] );
     }
+#else
+    freeEra( &censuses[0] );
+#endif
+
     stgFree(censuses);
 
     seconds = mut_user_time();