summaryrefslogtreecommitdiff
path: root/rts/sm
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2008-06-18 09:40:18 +0000
committerSimon Marlow <marlowsd@gmail.com>2008-06-18 09:40:18 +0000
commit7e09fadd0a587f7555db5b966af594419800b534 (patch)
tree5d293fed89acf991348a2afebd7d2a2ddef6deac /rts/sm
parent052ad75a87e7f84d9dcf3115c3ec87bd119cc90d (diff)
downloadhaskell-7e09fadd0a587f7555db5b966af594419800b534.tar.gz
fix gcc warnings for printf formats on 32-bit
Diffstat (limited to 'rts/sm')
-rw-r--r--rts/sm/GCUtils.c3
-rw-r--r--rts/sm/Sweep.c2
2 files changed, 3 insertions, 2 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) {
diff --git a/rts/sm/Sweep.c b/rts/sm/Sweep.c
index 873944ce24..9251290c90 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);
}