From 536942c5b15e2cd06bb274022c670b9ecbbef465 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 17 Feb 2009 13:27:57 +0000 Subject: [PATCH] cope with ThreadRelocated on the sleeping_queue --- rts/posix/Select.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/rts/posix/Select.c b/rts/posix/Select.c index bf4b7ae..32dca96 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; -- 1.7.10.4