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/sm/GCUtils.c | |
| parent | bb9d6c363c927899fd32d3c99bf2af4bdaeee789 (diff) | |
| download | haskell-301afae5ce9fd9fde20da4cb12b4b19d98ec53da.tar.gz | |
fix some printf formats for 64 bits
Diffstat (limited to 'rts/sm/GCUtils.c')
| -rw-r--r-- | rts/sm/GCUtils.c | 2 |
1 files changed, 1 insertions, 1 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); |