[project @ 2005-10-26 14:53:30 by simonpj]

[ghc-hetmet.git] / ghc / rts / win32 / AsyncIO.c

diff --git a/ghc/rts/win32/AsyncIO.c b/ghc/rts/win32/AsyncIO.c
index 6881275..b8cbf28 100644 (file)
--- a/ghc/rts/win32/AsyncIO.c
+++ b/ghc/rts/win32/AsyncIO.c
@@ -280,7 +280,7 @@ start:
                            blocked_queue_hd = tso->link;
                        }
                        if (blocked_queue_tl == tso) {
-                           blocked_queue_tl = prev;
+                           blocked_queue_tl = prev ? prev : END_TSO_QUEUE;
                        }
                    
                        /* Terminates the run queue + this inner for-loop. */