From 2fb3d02aea564febbc0bc3e49fa2d34698c21a22 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 30 Jan 2008 10:15:04 +0000 Subject: [PATCH] update a comment --- rts/sm/Storage.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 2305996..a14fe05 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -956,6 +956,8 @@ countOccupied(bdescr *bd) return words; } +// Return an accurate count of the live data in the heap, excluding +// generation 0. lnat calcLiveWords(void) { @@ -970,9 +972,6 @@ calcLiveWords(void) live = 0; for (g = 0; g < RtsFlags.GcFlags.generations; g++) { for (s = 0; s < generations[g].n_steps; s++) { - /* approximate amount of live data (doesn't take into account slop - * at end of each block). - */ if (g == 0 && s == 0) continue; stp = &generations[g].steps[s]; live += countOccupied(stp->blocks) + -- 1.7.10.4