diff options
Diffstat (limited to 'rts/sm/Sanity.c')
-rw-r--r-- | rts/sm/Sanity.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index dd50ded063..c4a699e59a 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -765,8 +765,11 @@ findMemoryLeak (void) markBlocks(generations[g].large_objects); } - for (i = 0; i < n_capabilities; i++) { + for (i = 0; i < n_nurseries; i++) { markBlocks(nurseries[i].blocks); + } + + for (i = 0; i < n_capabilities; i++) { markBlocks(capabilities[i]->pinned_object_block); } @@ -856,9 +859,11 @@ memInventory (rtsBool show) } nursery_blocks = 0; - for (i = 0; i < n_capabilities; i++) { + for (i = 0; i < n_nurseries; i++) { ASSERT(countBlocks(nurseries[i].blocks) == nurseries[i].n_blocks); nursery_blocks += nurseries[i].n_blocks; + } + for (i = 0; i < n_capabilities; i++) { if (capabilities[i]->pinned_object_block != NULL) { nursery_blocks += capabilities[i]->pinned_object_block->blocks; } |