From: simonmar <unknown>
Date: Wed, 11 May 2005 12:44:26 +0000 (+0000)
Subject: [project @ 2005-05-11 12:44:26 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~574
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5f82512925a089d604a6192f559fd764a653fe90;p=ghc-hetmet.git

[project @ 2005-05-11 12:44:26 by simonmar]
allocateLocal(): bump the block count on the step, not the global
alloc_blocks count.
---

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 3d3178b..99d36d2 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -662,7 +662,7 @@ allocateLocal( StgRegTable *reg, nat n )
 		// full: allocate a fresh block (we can't fail here).
 		ACQUIRE_SM_LOCK;
 		bd = allocBlock();
-		alloc_blocks++;
+		reg->rNursery->n_blocks++;
 		RELEASE_SM_LOCK;
 		bd->gen_no = 0;
 		bd->step = g0s0;