X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStorage.c;h=195f410e5d41803cae94efcd222f2b5a9058a181;hb=5d9f7faf4c6519af8da750919c986ffcda660030;hp=1c14265f49a644c925c0a17fb7bd15789431fa18;hpb=15f6c4cff24c2b9ffc1191733ddb48c5f72d15be;p=ghc-hetmet.git

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 1c14265..195f410 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -772,7 +772,7 @@ dirty_MUT_VAR(StgRegTable *reg, StgClosure *p)
     bdescr *bd;
     if (p->header.info == &stg_MUT_VAR_CLEAN_info) {
 	p->header.info = &stg_MUT_VAR_DIRTY_info;
-	bd = Bdescr(p);
+	bd = Bdescr((StgPtr)p);
 	if (bd->gen_no > 0) recordMutableCap(p,cap,bd->gen_no);
     }
 }