From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 12 Oct 2007 10:17:11 +0000 (+0000)
Subject: accounting wibble: we were missing an alloc_blocks++ in allocateLocal()
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=6c278790358dc723fe574a593203993be46ab2fb;p=ghc-hetmet.git

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
--- 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;
+                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