diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-17 10:11:02 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-17 10:11:02 +0000 |
| commit | 301afae5ce9fd9fde20da4cb12b4b19d98ec53da (patch) | |
| tree | 39d987ff4f90b4a77a4083df5e6a761400a735ed /rts | |
| parent | bb9d6c363c927899fd32d3c99bf2af4bdaeee789 (diff) | |
| download | haskell-301afae5ce9fd9fde20da4cb12b4b19d98ec53da.tar.gz | |
fix some printf formats for 64 bits
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, |