diff options
author | Simon Marlow <marlowsd@gmail.com> | 2011-02-02 11:26:46 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2011-02-02 11:26:46 +0000 |
commit | 329077220af83860d5dd6891649cb1058b5bbaa6 (patch) | |
tree | eda939c0cd1f6f20ed6d214d72e8ddef23936492 /rts/Stats.c | |
parent | 0b22a78248bd06da23c220c842d2a850475d39de (diff) | |
download | haskell-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.c | 6 |
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]; |