Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0ff6dbc805c422e262784b49fd983780137e31cd >--------------------------------------------------------------- commit 0ff6dbc805c422e262784b49fd983780137e31cd Author: Ian Lynagh <[email protected]> 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"); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
