Compute max_era more simply
authorIan Lynagh <igloo@earth.li>
Thu, 16 Aug 2007 23:05:50 +0000 (23:05 +0000)
committerIan Lynagh <igloo@earth.li>
Thu, 16 Aug 2007 23:05:50 +0000 (23:05 +0000)
rts/ProfHeap.c

index 3f2b9f6..db9e41f 100644 (file)
@@ -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");