From 536942c5b15e2cd06bb274022c670b9ecbbef465 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 17 Feb 2009 13:27:57 +0000 Subject: cope with ThreadRelocated on the sleeping_queue --- rts/posix/Select.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'rts/posix/Select.c') diff --git a/rts/posix/Select.c b/rts/posix/Select.c index bf4b7ae615..32dca96cd8 100644 --- a/rts/posix/Select.c +++ b/rts/posix/Select.c @@ -60,9 +60,15 @@ wakeUpSleepingThreads(lnat ticks) StgTSO *tso; rtsBool flag = rtsFalse; - while (sleeping_queue != END_TSO_QUEUE && - (int)(ticks - sleeping_queue->block_info.target) >= 0) { + while (sleeping_queue != END_TSO_QUEUE) { tso = sleeping_queue; + if (tso->what_next == ThreadRelocated) { + sleeping_queue = tso->_link; + continue; + } + if (((long)ticks - (long)tso->block_info.target) < 0) { + break; + } sleeping_queue = tso->_link; tso->why_blocked = NotBlocked; tso->_link = END_TSO_QUEUE; -- cgit v1.2.1