X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FSweep.c;h=9251290c90544eaa9b546aeb993edf94641dac3b;hp=873944ce24e1a4e399664aad2a92c8cde1b90078;hb=7e09fadd0a587f7555db5b966af594419800b534;hpb=052ad75a87e7f84d9dcf3115c3ec87bd119cc90d

diff --git a/rts/sm/Sweep.c b/rts/sm/Sweep.c
index 873944c..9251290 100644
--- a/rts/sm/Sweep.c
+++ b/rts/sm/Sweep.c
@@ -76,7 +76,7 @@ sweep(step *step)
           freed,
           blocks == 0 ? 0 : (freed * 100) / blocks,
           fragd, 
-          (blocks - freed) == 0 ? 0 : ((live / BLOCK_SIZE_W) * 100) / (blocks - freed));
+          (unsigned long)((blocks - freed) == 0 ? 0 : ((live / BLOCK_SIZE_W) * 100) / (blocks - freed)));
 
     ASSERT(countBlocks(step->old_blocks) == step->n_old_blocks);
 }