X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRetainerProfile.c;fp=rts%2FRetainerProfile.c;h=d125c9c92865de56727c037f2f9a2626e4194cf4;hp=48473d24809ca529e643dd75850d3d87be3e8612;hb=7cc184af587cdc8f29608cd98b738fa0322cfec4;hpb=470d52df0101a2f3c528b35e046ef9814ae6e5a5

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 48473d2..d125c9c 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -1684,6 +1684,23 @@ inner_loop:
                     ((StgStack *)c)->stack + ((StgStack *)c)->stack_size);
 	goto loop;
 
+    case TSO:
+    {
+        StgTSO *tso = (StgTSO *)c;
+
+        retainClosure(tso->stackobj,           c, c_child_r);
+        retainClosure(tso->blocked_exceptions, c, c_child_r);
+        retainClosure(tso->bq,                 c, c_child_r);
+        retainClosure(tso->trec,               c, c_child_r);
+        if (   tso->why_blocked == BlockedOnMVar
+               || tso->why_blocked == BlockedOnBlackHole
+               || tso->why_blocked == BlockedOnMsgThrowTo
+            ) {
+            retainClosure(tso->block_info.closure, c, c_child_r);
+        }
+        goto loop;
+    }
+
     case PAP:
     {
 	StgPAP *pap = (StgPAP *)c;