[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 (file)
--- 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();