From 5d0394e2003e80c3083beba77b5a70f28d1f4747 Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 22 Apr 2005 13:12:41 +0000 Subject: [PATCH] [project @ 2005-04-22 13:12:41 by simonmar] checkSanity: fix bug in nursery checking --- ghc/rts/Storage.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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(); -- 1.7.10.4