X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCUtils.c;h=0e20c46bee8ed53f4c22641d928427548b95fdbb;hb=baf34c5931e931566d0a6d3f892db43db7ed8f46;hp=184b540dcad91486cc53336b45fae36f55558de0;hpb=27a28cf6bc2196ee1690ac1fcc4d4c59d9b0d50f;p=ghc-hetmet.git

diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c
index 184b540..0e20c46 100644
--- a/rts/sm/GCUtils.c
+++ b/rts/sm/GCUtils.c
@@ -124,9 +124,9 @@ todo_block_full (nat size, step_workspace *ws)
     if (ws->step->todos != NULL || 
         (bd->free - bd->u.scan < WORK_UNIT_WORDS / 2)) {
         if (bd->free + size < bd->start + BLOCK_SIZE_W) {
-            debugTrace(DEBUG_gc, "increasing limit for %p", bd->start);
             ws->todo_lim = stg_min(bd->start + BLOCK_SIZE_W,
                                    ws->todo_lim + stg_max(WORK_UNIT_WORDS,size));
+            debugTrace(DEBUG_gc, "increasing limit for %p to %p", bd->start, ws->todo_lim);
             return ws->todo_free;
         }
     }
@@ -213,7 +213,7 @@ alloc_todo_block (step_workspace *ws, nat size)
                             bd->free + stg_max(WORK_UNIT_WORDS,size));
 
     debugTrace(DEBUG_gc, "alloc new todo block %p for step %d", 
-               bd->start, ws->step->abs_no);
+               bd->free, ws->step->abs_no);
 
     return ws->todo_free;
 }