projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6c56378
)
fix +RTS -S output: use peak_mblocks_allocated, now that mblocks can be freed
author
Simon Marlow
<marlowsd@gmail.com>
Tue, 14 Sep 2010 13:50:30 +0000
(13:50 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Tue, 14 Sep 2010 13:50:30 +0000
(13:50 +0000)
rts/Stats.c
patch
|
blob
|
history
diff --git
a/rts/Stats.c
b/rts/Stats.c
index
5ffdcb9
..
d7d45a4
100644
(file)
--- a/
rts/Stats.c
+++ b/
rts/Stats.c
@@
-589,8
+589,8
@@
stat_exit(int alloc)
statsPrintf("%16s bytes maximum slop\n", temp);
statsPrintf("%16ld MB total memory in use (%ld MB lost due to fragmentation)\n\n",
statsPrintf("%16s bytes maximum slop\n", temp);
statsPrintf("%16ld MB total memory in use (%ld MB lost due to fragmentation)\n\n",
- mblocks_allocated * MBLOCK_SIZE_W / (1024 * 1024 / sizeof(W_)),
- (mblocks_allocated * MBLOCK_SIZE_W - hw_alloc_blocks * BLOCK_SIZE_W) / (1024 * 1024 / sizeof(W_)));
+ peak_mblocks_allocated * MBLOCK_SIZE_W / (1024 * 1024 / sizeof(W_)),
+ (peak_mblocks_allocated * MBLOCK_SIZE_W - hw_alloc_blocks * BLOCK_SIZE_W) / (1024 * 1024 / sizeof(W_)));
/* Print garbage collections in each gen */
for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
/* Print garbage collections in each gen */
for (g = 0; g < RtsFlags.GcFlags.generations; g++) {