Cope with ThreadRelocated when traversing the blocked_queue

Fixes "invalid what_next field" in ioref001 on Windows, and perhaps others

1 files changed, 5 insertions, 0 deletions

diff --git a/rts/posix/Select.c b/rts/posix/Select.c
index ae9c717a9a..bf4b7ae615 100644
--- a/rts/posix/Select.c
+++ b/rts/posix/Select.c
@@ -244,6 +244,11 @@ awaitEvent(rtsBool wait)
       if (select_succeeded || unblock_all) {
 	  for(tso = blocked_queue_hd; tso != END_TSO_QUEUE; tso = next) {
 	      next = tso->_link;
+
+              if (tso->what_next == ThreadRelocated) {
+                  continue;
+              }
+
 	      switch (tso->why_blocked) {
 	      case BlockedOnRead:
 		  ready = unblock_all || FD_ISSET(tso->block_info.fd, &rfd);