X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStorage.c;h=1c14265f49a644c925c0a17fb7bd15789431fa18;hb=ac3efabf007b8d8a0f08f8820892803611f4a2f4;hp=b6fab5850be456b06daf56c8abf1bf05e1f8a706;hpb=a5bd056033e0f81e4d8ca30aa7c26cde3a3a132b;p=ghc-hetmet.git

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index b6fab58..1c14265 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -769,9 +769,11 @@ void
 dirty_MUT_VAR(StgRegTable *reg, StgClosure *p)
 {
     Capability *cap = regTableToCapability(reg);
+    bdescr *bd;
     if (p->header.info == &stg_MUT_VAR_CLEAN_info) {
 	p->header.info = &stg_MUT_VAR_DIRTY_info;
-	recordMutableCap(p,cap,Bdescr(p)->gen_no);
+	bd = Bdescr(p);
+	if (bd->gen_no > 0) recordMutableCap(p,cap,bd->gen_no);
     }
 }