From 301afae5ce9fd9fde20da4cb12b4b19d98ec53da Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 17 Jun 2008 10:11:02 +0000 Subject: [PATCH] fix some printf formats for 64 bits --- rts/sm/GCUtils.c | 2 +- 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 6a4596e..9230eb8 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 979fe9c..873944c 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, -- 1.7.10.4