diff options
| author | Christopher Rodrigues <cirodrig@illinois.edu> | 2013-11-30 13:06:43 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-12-04 18:23:27 -0600 |
| commit | d9ad369d89be9b0c541eb9a311caf89392c64379 (patch) | |
| tree | 6f4c917ec09b7eac8e8f1b304d92422a200a4e04 /rts/Stats.c | |
| parent | 415f0d6cb716b68318dad1af4e9ab6ec13844136 (diff) | |
| download | haskell-d9ad369d89be9b0c541eb9a311caf89392c64379.tar.gz | |
Fix compiler warnings due to integer size mismatch
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index 7db4563377..48c320c8f7 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"); |