summaryrefslogtreecommitdiff
path: root/rts/BlockAlloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/BlockAlloc.c')
-rw-r--r--rts/BlockAlloc.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/BlockAlloc.c b/rts/BlockAlloc.c
index 5e0e321947..d2f08eeb62 100644
--- a/rts/BlockAlloc.c
+++ b/rts/BlockAlloc.c
@@ -365,8 +365,8 @@ checkFreeListSanity(void)
for (bd = free_list; bd != NULL; bd = bd->link) {
IF_DEBUG(block_alloc,
- debugBelch("group at 0x%p, length %d blocks\n",
- bd->start, bd->blocks));
+ debugBelch("group at 0x%p, length %ld blocks\n",
+ bd->start, (long)bd->blocks));
ASSERT(bd->blocks > 0);
checkWellFormedGroup(bd);
if (bd->link != NULL) {