From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 31 May 2011 13:05:37 +0000 (+0100)
Subject: fix comment
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=32b0d9760133a6b97f1cd6ff81ed9d241072e997

fix comment
---

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