X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FStats.c;h=8366bf47b225fbce94bcdeca088fd96a2c5f9c62;hp=3036ed726548683ed40f8b3972b391ff7a5666d8;hb=af9e96991659185821632ff96383480c9dc9cbda;hpb=18a0ead12b605fd20c13f5255d78cfbf699fe0c4

diff --git a/rts/Stats.c b/rts/Stats.c
index 3036ed7..8366bf4 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -817,7 +817,7 @@ statDescribeGens(void)
           gen_blocks += gcThreadLiveBlocks(i,g);
       }
 
-      debugBelch("%5d %7d %9d", g, gen->max_blocks, mut);
+      debugBelch("%5d %7ld %9d", g, (lnat)gen->max_blocks, mut);
 
       gen_slop = gen_blocks * BLOCK_SIZE_W - gen_live;