diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-18 09:40:18 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-18 09:40:18 +0000 |
| commit | 7e09fadd0a587f7555db5b966af594419800b534 (patch) | |
| tree | 5d293fed89acf991348a2afebd7d2a2ddef6deac /rts/sm/GCUtils.c | |
| parent | 052ad75a87e7f84d9dcf3115c3ec87bd119cc90d (diff) | |
| download | haskell-7e09fadd0a587f7555db5b966af594419800b534.tar.gz | |
fix gcc warnings for printf formats on 32-bit
Diffstat (limited to 'rts/sm/GCUtils.c')
| -rw-r--r-- | rts/sm/GCUtils.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c index 9230eb8a95..4432ad6ce5 100644 --- a/rts/sm/GCUtils.c +++ b/rts/sm/GCUtils.c @@ -179,7 +179,8 @@ todo_block_full (nat size, step_workspace *ws) step *stp; stp = ws->step; 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); + bd->start, (unsigned long)(bd->free - bd->u.scan), + stp->abs_no, stp->n_todos); // ToDo: use buffer_todo ACQUIRE_SPIN_LOCK(&stp->sync_todo); if (stp->todos_last == NULL) { |