accounting wibble: we were missing an alloc_blocks++ in allocateLocal()

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index cd840dd..d8381e0 100644 (file)
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -695,6 +695,7 @@ allocateLocal (Capability *cap, nat n)
                bd->gen_no = 0;
                bd->step = cap->r.rNursery;
                bd->flags = 0;
                bd->gen_no = 0;
                bd->step = cap->r.rNursery;
                bd->flags = 0;

+                alloc_blocks++;

            } else {
                // we have a block in the nursery: take it and put
                // it at the *front* of the nursery list, and use it
            } else {
                // we have a block in the nursery: take it and put
                // it at the *front* of the nursery list, and use it