Commit ba416232 authored by simonmar's avatar simonmar

[project @ 2006-01-17 13:50:06 by simonmar]

statDescribeGens: count large blocks in the "live" figure
parent 14ba76f4
......@@ -543,7 +543,8 @@ stat_exit(int alloc)
void
statDescribeGens(void)
{
nat g, s, mut, lge, live;
nat g, s, mut, lge;
lnat live;
bdescr *bd;
step *step;
......@@ -562,10 +563,15 @@ statDescribeGens(void)
for (s = 0; s < generations[g].n_steps; s++) {
step = &generations[g].steps[s];
for (bd = step->large_objects, lge = 0; bd; bd = bd->link)
lge++;
live = 0;
for (bd = step->large_objects, lge = 0; bd; bd = bd->link) {
lge++;
}
live = step->n_large_blocks * BLOCK_SIZE;
bd = step->blocks;
// This live figure will be slightly less that the "live" figure
// given by +RTS -Sstderr, because we take don't count the
// slop at the end of each block.
for (; bd; bd = bd->link) {
live += (bd->free - bd->start) * sizeof(W_);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment