X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStats.c;h=9fc702a2a3a789934d60d760a3a6d21e29499926;hb=7d9eb2e45b4a9ff4cb053b1ec37602be88528b62;hp=3036ed726548683ed40f8b3972b391ff7a5666d8;hpb=8ae1fd33175b70e46c233d22195e7fc8e16997bf;p=ghc-hetmet.git

diff --git a/rts/Stats.c b/rts/Stats.c
index 3036ed7..9fc702a 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -813,11 +813,10 @@ statDescribeGens(void)
           }
 
           gen_live   += gcThreadLiveWords(i,g);
-          gen_live   += gcThreadLiveWords(i,g);
           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;