diff options
| author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2013-10-26 11:11:54 +1100 |
|---|---|---|
| committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2013-10-28 14:30:18 +1100 |
| commit | 7cb10ba40e619a0a368571ea8c7a85c1dd34628b (patch) | |
| tree | 0ad23b1f3560e02ba538ac025c12a83f258d16bd /rts | |
| parent | f275522e74e79353adf9cf9b5cffc7409977c298 (diff) | |
| download | haskell-7cb10ba40e619a0a368571ea8c7a85c1dd34628b.tar.gz | |
rts: Add casts to prevent compiler warnings in printfs.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Stats.c | 2 | ||||
| -rw-r--r-- | rts/sm/Sanity.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index c19f23c59d..7db4563377 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -691,7 +691,7 @@ 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", - peak_mblocks_allocated * MBLOCK_SIZE_W / (1024 * 1024 / sizeof(W_)), + (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_))); /* Print garbage collections in each gen */ diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index 0d48ba2724..c653331164 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -917,7 +917,7 @@ memInventory (rtsBool show) live_blocks + free_blocks, MB(live_blocks+free_blocks)); if (leak) { debugBelch("\n in system : %5" FMT_Word " blocks (%" FMT_Word " MB)\n", - mblocks_allocated * BLOCKS_PER_MBLOCK, mblocks_allocated); + (W_)(mblocks_allocated * BLOCKS_PER_MBLOCK), mblocks_allocated); } } |