[commit: ghc] master: Win32 build fix (0ff6dbc)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0ff6dbc805c422e262784b49fd983780137e31cd

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

commit 0ff6dbc805c422e262784b49fd983780137e31cd
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu Apr 26 23:04:05 2012 +0100

    Win32 build fix

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

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

diff --git a/rts/Stats.c b/rts/Stats.c
index 3b709bc..5605810 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -675,7 +675,7 @@ stat_exit(int alloc)
 
 	    statsPrintf("%16" FMT_SizeT " MB total memory in use (%" FMT_SizeT " MB lost due to fragmentation)\n\n", 
                         peak_mblocks_allocated * MBLOCK_SIZE_W / (1024 * 1024 / sizeof(W_)),
-                        (peak_mblocks_allocated * BLOCKS_PER_MBLOCK * BLOCK_SIZE_W - hw_alloc_blocks * BLOCK_SIZE_W) / (1024 * 1024 / sizeof(W_)));
+                        (lnat)(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");