X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStorage.c;h=14e444424f3e5cce1ea465ccec360e10e1e6e1a0;hb=d2ebcf24e738c858a9b999602795c25c32c82bcf;hp=7957d73ce582e0de3d04c3e5c18cd29c624f1232;hpb=6a35ffaf70347d9e10b5c009c2f296e2717520f3;p=ghc-hetmet.git

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