Skip to content
Snippets Groups Projects
Commit 301afae5 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix some printf formats for 64 bits

parent bb9d6c36
No related branches found
Tags ghc-8.8.1-rc1
No related merge requests found
......@@ -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);
......
......@@ -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,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment