From 32b0d9760133a6b97f1cd6ff81ed9d241072e997 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 31 May 2011 14:05:37 +0100 Subject: fix comment --- rts/ThreadPaused.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'rts') diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index 02b4f58eab..a35a96232b 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 -- cgit v1.2.1