diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-04-26 23:04:05 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-04-26 23:04:05 +0100 |
| commit | 0ff6dbc805c422e262784b49fd983780137e31cd (patch) | |
| tree | 27ca25421298d20a3d0b5c969a343afa3d4072bb /rts/Stats.c | |
| parent | 42760bd990661a199782c61f9d97123848c13b0e (diff) | |
| download | haskell-0ff6dbc805c422e262784b49fd983780137e31cd.tar.gz | |
Win32 build fix
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index 3b709bc9e8..5605810ba2 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"); |