diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-16 23:05:50 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-16 23:05:50 +0000 |
| commit | 50935f16dd3b479416530a991d52ee2fa7bd62ef (patch) | |
| tree | d2251de42d5654e9a40062cc7f18676548c612aa /rts | |
| parent | 0dfcd5776f3ef89ceaafef6c4730ddac759e3716 (diff) | |
| download | haskell-50935f16dd3b479416530a991d52ee2fa7bd62ef.tar.gz | |
Compute max_era more simply
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/ProfHeap.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index 3f2b9f6c22..db9e41fa18 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"); |