[commit: ghc] master: Fix compiler warnings due to integer size mismatch (d9ad369)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d9ad369d89be9b0c541eb9a311caf89392c64379/ghc

>---------------------------------------------------------------

commit d9ad369d89be9b0c541eb9a311caf89392c64379
Author: Christopher Rodrigues <cirodrig at illinois.edu>
Date:   Sat Nov 30 13:06:43 2013 -0600

    Fix compiler warnings due to integer size mismatch
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

d9ad369d89be9b0c541eb9a311caf89392c64379
 rts/Stats.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rts/Stats.c b/rts/Stats.c
index 7db4563..48c320c 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -691,8 +691,8 @@ stat_exit (void)
 	    statsPrintf("%16s bytes maximum slop\n", temp);
 
 	    statsPrintf("%16" FMT_SizeT " MB total memory in use (%" FMT_SizeT " MB lost due to fragmentation)\n\n", 
-                        (W_)(peak_mblocks_allocated * MBLOCK_SIZE_W / (1024 * 1024 / sizeof(W_))),
-                        (W_)(peak_mblocks_allocated * BLOCKS_PER_MBLOCK * BLOCK_SIZE_W - hw_alloc_blocks * BLOCK_SIZE_W) / (1024 * 1024 / sizeof(W_)));
+                        (size_t)(peak_mblocks_allocated * MBLOCK_SIZE_W) / (1024 * 1024 / sizeof(W_)),
+                        (size_t)(peak_mblocks_allocated * BLOCKS_PER_MBLOCK * BLOCK_SIZE_W - hw_alloc_blocks * BLOCK_SIZE_W) / (1024 * 1024 / sizeof(W_)));
 
 	    /* Print garbage collections in each gen */
             statsPrintf("                                    Tot time (elapsed)  Avg pause  Max pause\n");