X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCUtils.c;fp=rts%2Fsm%2FGCUtils.c;h=118d5d792a800693ebd0fa9708eb66d77b0b46f7;hb=a75a8790410ce3ffb439bfd0b7c3999e7df72eb1;hp=0e20c46bee8ed53f4c22641d928427548b95fdbb;hpb=96195367ad299bc3be251535bcff7fb75d097e07;p=ghc-hetmet.git

diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c
index 0e20c46..118d5d7 100644
--- a/rts/sm/GCUtils.c
+++ b/rts/sm/GCUtils.c
@@ -115,6 +115,7 @@ todo_block_full (nat size, step_workspace *ws)
     ASSERT(bd->link == NULL);
     ASSERT(bd->step == ws->step);
 
+    gct->copied += ws->todo_free - bd->free;
     bd->free = ws->todo_free;
 
     // If the global list is not empty, or there's not much work in