From d2ebcf24e738c858a9b999602795c25c32c82bcf Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Sun, 10 Apr 2005 21:44:10 +0000
Subject: [PATCH] [project @ 2005-04-10 21:44:10 by simonmar] Fix for
 Storage.c assertion failure

---
 ghc/rts/Storage.c |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 7957d73..14e4444 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -376,6 +376,7 @@ resetNurseries( void )
   for (cap = free_capabilities; cap != NULL; cap = cap->link)
 #else
   cap = &MainCapability;
+  ASSERT(cap->r.rNursery == g0s0->blocks);
 #endif
   {
     for (bd = cap->r.rNursery; bd; bd = bd->link) {
@@ -465,6 +466,8 @@ resizeNursery ( nat blocks )
   
   g0s0->n_blocks = blocks;
   ASSERT(countBlocks(g0s0->blocks) == g0s0->n_blocks);
+
+  MainCapability.r.rNursery = g0s0->blocks;
 }
 
 /* -----------------------------------------------------------------------------
-- 
1.7.10.4