From baf34c5931e931566d0a6d3f892db43db7ed8f46 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 16 Apr 2008 22:08:07 +0000 Subject: [PATCH] debug output tweaks --- rts/sm/GCUtils.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; } -- 1.7.10.4