X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FBlockAlloc.c;h=d2f08eeb628292de8c7e6d4773fc037715186944;hp=5e0e321947af8b5dcd03d188b0c846a2a8cb0c70;hb=c76c69c5b62f1ca4fa52d75b0dfbd37b7eddbb09;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

diff --git a/rts/BlockAlloc.c b/rts/BlockAlloc.c
index 5e0e321..d2f08ee 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) {