From 7e09fadd0a587f7555db5b966af594419800b534 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 18 Jun 2008 09:40:18 +0000 Subject: [PATCH] fix gcc warnings for printf formats on 32-bit --- rts/sm/GCUtils.c | 3 ++- rts/sm/Sweep.c | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c index 9230eb8..4432ad6 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) { diff --git a/rts/sm/Sweep.c b/rts/sm/Sweep.c index 873944c..9251290 100644 --- a/rts/sm/Sweep.c +++ b/rts/sm/Sweep.c @@ -76,7 +76,7 @@ sweep(step *step) freed, blocks == 0 ? 0 : (freed * 100) / blocks, fragd, - (blocks - freed) == 0 ? 0 : ((live / BLOCK_SIZE_W) * 100) / (blocks - freed)); + (unsigned long)((blocks - freed) == 0 ? 0 : ((live / BLOCK_SIZE_W) * 100) / (blocks - freed))); ASSERT(countBlocks(step->old_blocks) == step->n_old_blocks); } -- 1.7.10.4