X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCUtils.c;h=8b63674c77932ad6970cfa82a70542444a84ff66;hb=bef3da1e26639303fccbf26c312d2833eedb486e;hp=a544e836fce80fe060c1b82371ac08ef71169d2f;hpb=214b3663d5d7598c13643f9221e43d5a7735b47f;p=ghc-hetmet.git diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c index a544e83..8b63674 100644 --- a/rts/sm/GCUtils.c +++ b/rts/sm/GCUtils.c @@ -294,14 +294,13 @@ alloc_todo_block (gen_workspace *ws, nat size) #if DEBUG void -printMutableList(generation *gen) +printMutableList(bdescr *bd) { - bdescr *bd; StgPtr p; - debugBelch("mutable list %p: ", gen->mut_list); + debugBelch("mutable list %p: ", bd); - for (bd = gen->mut_list; bd != NULL; bd = bd->link) { + for (; bd != NULL; bd = bd->link) { for (p = bd->start; p < bd->free; p++) { debugBelch("%p (%s), ", (void *)*p, info_type((StgClosure *)*p)); }