X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreadPaused.c;fp=rts%2FThreadPaused.c;h=a35a96232b34c3b6e287eae945eb0e2d6bb338d5;hb=32b0d9760133a6b97f1cd6ff81ed9d241072e997;hp=02b4f58eab65696b2fe385a816c61d87b2ae02d7;hpb=e97f29804abdbf9b374aeb3661af340714ea1b60;p=ghc-hetmet.git

diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c
index 02b4f58..a35a962 100644
--- a/rts/ThreadPaused.c
+++ b/rts/ThreadPaused.c
@@ -245,13 +245,15 @@ threadPaused(Capability *cap, StgTSO *tso)
             //    --------------------------------------------------------
             //                                  c->indirectee = other_tso;
             //                                  c->header.info = EAGER_BH
-            //                                  threadPaused()
-            //    c->indirectee = other_tso;
+            //                                  threadPaused():
+            //                                    c->header.info = WHITEHOLE
+            //                                    c->indirectee = other_tso
+            //    c->indirectee = this_tso;
             //    c->header.info = EAGER_BH
-            //                                  c->header.info = BLACKHOLE
+            //                                    c->header.info = BLACKHOLE
             //    threadPaused()
             //    *** c->header.info is now BLACKHOLE,
-            //        c->indirectee  points to this TSO
+            //        c->indirectee  points to this_tso
             //
             // So in this case do *not* suspend the work of the
             // current thread, because the current thread will become