projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
further fix for floating point primitives
[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. */