Commit 5a36a562 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-08-02 14:59:39 by simonmar]

small tidyup for memInventory
parent 5a044ccd
...@@ -950,6 +950,7 @@ stepBlocks (step *stp) ...@@ -950,6 +950,7 @@ stepBlocks (step *stp)
bdescr *bd; bdescr *bd;
total_blocks = stp->n_blocks; total_blocks = stp->n_blocks;
total_blocks += stp->n_old_blocks;
for (bd = stp->large_objects; bd; bd = bd->link) { for (bd = stp->large_objects; bd; bd = bd->link) {
total_blocks += bd->blocks; total_blocks += bd->blocks;
/* hack for megablock groups: they have an extra block or two in /* hack for megablock groups: they have an extra block or two in
...@@ -989,11 +990,6 @@ memInventory(void) ...@@ -989,11 +990,6 @@ memInventory(void)
total_blocks += stepBlocks(&nurseries[i]); total_blocks += stepBlocks(&nurseries[i]);
} }
if (RtsFlags.GcFlags.generations == 1) {
/* two-space collector has a to-space too :-) */
total_blocks += g0s0->n_old_blocks;
}
/* any blocks held by allocate() */ /* any blocks held by allocate() */
for (bd = small_alloc_list; bd; bd = bd->link) { for (bd = small_alloc_list; bd; bd = bd->link) {
total_blocks += bd->blocks; total_blocks += bd->blocks;
......
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