diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-05-31 14:05:37 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-06-01 10:56:05 +0100 |
| commit | 32b0d9760133a6b97f1cd6ff81ed9d241072e997 (patch) | |
| tree | 20532f6a2668bca52a2d8a2eca60095ef4b7021b /rts/ThreadPaused.c | |
| parent | e97f29804abdbf9b374aeb3661af340714ea1b60 (diff) | |
| download | haskell-32b0d9760133a6b97f1cd6ff81ed9d241072e997.tar.gz | |
fix comment
Diffstat (limited to 'rts/ThreadPaused.c')
| -rw-r--r-- | rts/ThreadPaused.c | 10 |
1 files changed, 6 insertions, 4 deletions
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 |