From 4adc53ff5eb66b6beef9b38e18f23d00de2d56b4 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 13 Mar 2009 15:56:19 +0000 Subject: [PATCH] eliminate some not-quite-duplicate code --- rts/RaiseAsync.c | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 2f072d5..a315622 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); } /* ----------------------------------------------------------------------------- -- 1.7.10.4