diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 22:08:07 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 22:08:07 +0000 |
| commit | baf34c5931e931566d0a6d3f892db43db7ed8f46 (patch) | |
| tree | 8831fda83984f0500008a553a162932de0012e7f /rts/sm/GCUtils.c | |
| parent | 27a28cf6bc2196ee1690ac1fcc4d4c59d9b0d50f (diff) | |
| download | haskell-baf34c5931e931566d0a6d3f892db43db7ed8f46.tar.gz | |
debug output tweaks
Diffstat (limited to 'rts/sm/GCUtils.c')
| -rw-r--r-- | rts/sm/GCUtils.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c index 184b540dca..0e20c46bee 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; } |