From ac3efabf007b8d8a0f08f8820892803611f4a2f4 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 10 Feb 2006 12:00:21 +0000 Subject: [PATCH] fix for dirty_MUT_VAR: don't try to recordMutableCap in gen 0 --- ghc/rts/Storage.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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); } } -- 1.7.10.4