From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 18 Oct 2007 09:44:15 +0000 (+0000)
Subject: rollback "accounting wibble: we were missing an alloc_blocks .. "
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8aa44328884efa12ef22999ec01ebf368bd7bca2

rollback "accounting wibble: we were missing an alloc_blocks .. "
I misread the code, now added a comment to explain why it isn't necessary
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index eb29b2d..34284e5 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -663,7 +663,9 @@ allocateLocal (Capability *cap, nat n)
             bd->gen_no = 0;
             bd->step = cap->r.rNursery;
             bd->flags = 0;
-            alloc_blocks++;
+            // NO: alloc_blocks++;
+            // calcAllocated() uses the size of the nursery, and we've
+            // already bumpted nursery->n_blocks above.
         } else {
             // we have a block in the nursery: take it and put
             // it at the *front* of the nursery list, and use it