Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/32b0d9760133a6b97f1cd6ff81ed9d241072e997 >--------------------------------------------------------------- commit 32b0d9760133a6b97f1cd6ff81ed9d241072e997 Author: Simon Marlow <[email protected]> Date: Tue May 31 14:05:37 2011 +0100 fix comment >--------------------------------------------------------------- rts/ThreadPaused.c | 10 ++++++---- 1 files changed, 6 insertions(+), 4 deletions(-) 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
