diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-03-13 15:56:19 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-03-13 15:56:19 +0000 |
| commit | 4adc53ff5eb66b6beef9b38e18f23d00de2d56b4 (patch) | |
| tree | e4f547c52e84a7df0bc878fe5d584092bb5f2e67 /rts/RaiseAsync.c | |
| parent | 54075ea5872c151573710d32876314e2005984ba (diff) | |
| download | haskell-4adc53ff5eb66b6beef9b38e18f23d00de2d56b4.tar.gz | |
eliminate some not-quite-duplicate code
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 2f072d551a..a31562224d 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -672,16 +672,7 @@ removeFromQueues(Capability *cap, StgTSO *tso) } done: - tso->_link = END_TSO_QUEUE; // no write barrier reqd - tso->why_blocked = NotBlocked; - tso->block_info.closure = NULL; - appendToRunQueue(cap,tso); - - // We might have just migrated this TSO to our Capability: - if (tso->bound) { - tso->bound->cap = cap; - } - tso->cap = cap; + unblockOne(cap, tso); } /* ----------------------------------------------------------------------------- |