Commit 4adc53ff authored by Simon Marlow's avatar Simon Marlow
Browse files

eliminate some not-quite-duplicate code

parent 54075ea5
......@@ -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);
}
/* -----------------------------------------------------------------------------
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment