X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FProfHeap.c;h=db9e41fa18a45c7c3d773e1046dab73953086a87;hb=eb64777602e77588cb781865f742fa23fad06d08;hp=3f2b9f6c22396089a20f866ecf1d7c99e4f2ff59;hpb=629e852d8202408216e0cbb8362d1eb4beffbfcc;p=ghc-hetmet.git

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 3f2b9f6..db9e41f 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -457,12 +457,8 @@ initHeapProfiling(void)
 	era = 0;
     }
 
-    {   // max_era = 2^LDV_SHIFT
-	nat p;
-	max_era = 1;
-	for (p = 0; p < LDV_SHIFT; p++)
-	    max_era *= 2;
-    }
+    // max_era = 2^LDV_SHIFT
+	max_era = 1 << LDV_SHIFT;
 
     n_censuses = 32;
     censuses = stgMallocBytes(sizeof(Census) * n_censuses, "initHeapProfiling");