X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FStats.c;h=3e7b5d822f43777e86313b68c9bb53cf98369c0e;hp=159a909fcec23a26f57079d817142adfb9c973c2;hb=cc2ea98ac4a15e40a15e89de9e47f33e191ba393;hpb=25297a13bd6be722a74ee87237498a5626b298ef

diff --git a/rts/Stats.c b/rts/Stats.c
index 159a909..3e7b5d8 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -798,6 +798,15 @@ statDescribeGens(void)
       mut = 0;
       for (i = 0; i < n_capabilities; i++) {
           mut += countOccupied(capabilities[i].mut_lists[g]);
+
+          // Add the pinned object block.
+          bd = capabilities[i].pinned_object_block;
+          if (bd != NULL) {
+              gen_live   += bd->free - bd->start;
+              gen_blocks += bd->blocks;
+          }
+
+          gen_live   += gcThreadLiveWords(i,g);
           gen_live   += gcThreadLiveWords(i,g);
           gen_blocks += gcThreadLiveBlocks(i,g);
       }