summaryrefslogtreecommitdiff
path: root/rts/Stats.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2011-02-02 11:26:46 +0000
committerSimon Marlow <marlowsd@gmail.com>2011-02-02 11:26:46 +0000
commit329077220af83860d5dd6891649cb1058b5bbaa6 (patch)
treeeda939c0cd1f6f20ed6d214d72e8ddef23936492 /rts/Stats.c
parent0b22a78248bd06da23c220c842d2a850475d39de (diff)
downloadhaskell-329077220af83860d5dd6891649cb1058b5bbaa6.tar.gz
Remove the per-generation mutable lists
Now that we use the per-capability mutable lists exclusively.
Diffstat (limited to 'rts/Stats.c')
-rw-r--r--rts/Stats.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Stats.c b/rts/Stats.c
index 97661a9d95..cbd02cd688 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -771,7 +771,7 @@ stat_exit(int alloc)
void
statDescribeGens(void)
{
- nat g, mut, lge;
+ nat g, mut, lge, i;
lnat live, slop;
lnat tot_live, tot_slop;
bdescr *bd;
@@ -787,8 +787,8 @@ statDescribeGens(void)
tot_slop = 0;
for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
mut = 0;
- for (bd = generations[g].mut_list; bd != NULL; bd = bd->link) {
- mut += (bd->free - bd->start) * sizeof(W_);
+ for (i = 0; i < n_capabilities; i++) {
+ mut += countOccupied(capabilities[i].mut_lists[g]);
}
gen = &generations[g];