diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/GCUtils.c | 2 | ||||
| -rw-r--r-- | rts/sm/Sweep.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c index 6a4596e0e2..9230eb8a95 100644 --- a/rts/sm/GCUtils.c +++ b/rts/sm/GCUtils.c @@ -178,7 +178,7 @@ todo_block_full (nat size, step_workspace *ws) { step *stp; stp = ws->step; - trace(TRACE_gc|DEBUG_gc, "push todo block %p (%d words), step %d, n_todos: %d", + trace(TRACE_gc|DEBUG_gc, "push todo block %p (%ld words), step %d, n_todos: %d", bd->start, bd->free - bd->u.scan, stp->abs_no, stp->n_todos); // ToDo: use buffer_todo ACQUIRE_SPIN_LOCK(&stp->sync_todo); diff --git a/rts/sm/Sweep.c b/rts/sm/Sweep.c index 979fe9ccea..873944ce24 100644 --- a/rts/sm/Sweep.c +++ b/rts/sm/Sweep.c @@ -70,7 +70,7 @@ sweep(step *step) step->live_estimate = live; - trace(DEBUG_gc|TRACE_gc, "sweeping: %d blocks, %d were copied, %d freed (%d%%), %d are fragmented, live estimate: %d%%", + trace(DEBUG_gc|TRACE_gc, "sweeping: %d blocks, %d were copied, %d freed (%d%%), %d are fragmented, live estimate: %ld%%", step->n_old_blocks + freed, step->n_old_blocks - blocks + freed, freed, |