From: simonmar <unknown>
Date: Fri, 22 Apr 2005 13:12:41 +0000 (+0000)
Subject: [project @ 2005-04-22 13:12:41 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~701
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5d0394e2003e80c3083beba77b5a70f28d1f4747;p=ghc-hetmet.git

[project @ 2005-04-22 13:12:41 by simonmar]
checkSanity: fix bug in nursery checking
---

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index b2878c2..9298c15 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -961,10 +961,10 @@ checkSanity( void )
 	}
 
 	for (s = 0; s < n_nurseries; s++) {
-	    ASSERT(countBlocks(generations[g].steps[s].blocks)
-		   == generations[g].steps[s].n_blocks);
-	    ASSERT(countBlocks(generations[g].steps[s].large_objects)
-		   == generations[g].steps[s].n_large_blocks);
+	    ASSERT(countBlocks(nurseries[s].blocks)
+		   == nurseries[s].n_blocks);
+	    ASSERT(countBlocks(nurseries[s].large_objects)
+		   == nurseries[s].n_large_blocks);
 	}
 	    
 	checkFreeListSanity();