From: simonmar <unknown>
Date: Sun, 10 Apr 2005 21:44:10 +0000 (+0000)
Subject: [project @ 2005-04-10 21:44:10 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~768
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d2ebcf24e738c858a9b999602795c25c32c82bcf;hp=6a35ffaf70347d9e10b5c009c2f296e2717520f3;p=ghc-hetmet.git

[project @ 2005-04-10 21:44:10 by simonmar]
Fix for Storage.c assertion failure
---

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;
 }
 
 /* -----------------------------------------------------------------------------