From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 8 May 2007 13:20:49 +0000 (+0000)
Subject: FIX BUILD (non-profiling RTS was broken in previous patch)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a60af39758448f92d8eaa3b62072f9adcdbbee9d

FIX BUILD (non-profiling RTS was broken in previous patch)
---

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 19abac7..e8966ec 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -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();