projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
392834a
)
FIX BUILD on Windows
author
Simon Marlow
<marlowsd@gmail.com>
Wed, 18 Jun 2008 09:47:00 +0000
(09:47 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Wed, 18 Jun 2008 09:47:00 +0000
(09:47 +0000)
rts/win32/AsyncIO.c
patch
|
blob
|
history
diff --git
a/rts/win32/AsyncIO.c
b/rts/win32/AsyncIO.c
index
54fc5cb
..
6fb9a2b
100644
(file)
--- a/
rts/win32/AsyncIO.c
+++ b/
rts/win32/AsyncIO.c
@@
-275,7
+275,7
@@
start:
unsigned int rID = completedTable[i].reqID;
prev = NULL;
unsigned int rID = completedTable[i].reqID;
prev = NULL;
- for(tso = blocked_queue_hd ; tso != END_TSO_QUEUE; prev = tso, tso = tso->link) {
+ for(tso = blocked_queue_hd ; tso != END_TSO_QUEUE; prev = tso, tso = tso->_link) {
switch(tso->why_blocked) {
case BlockedOnRead:
switch(tso->why_blocked) {
case BlockedOnRead:
@@
-290,16
+290,16
@@
start:
/* Drop the matched TSO from blocked_queue */
if (prev) {
/* Drop the matched TSO from blocked_queue */
if (prev) {
- prev->link = tso->link;
+ setTSOLink(&MainCapability, prev, tso->_link);
} else {
} else {
- blocked_queue_hd = tso->link;
+ blocked_queue_hd = tso->_link;
}
if (blocked_queue_tl == tso) {
blocked_queue_tl = prev ? prev : END_TSO_QUEUE;
}
/* Terminates the run queue + this inner for-loop. */
}
if (blocked_queue_tl == tso) {
blocked_queue_tl = prev ? prev : END_TSO_QUEUE;
}
/* Terminates the run queue + this inner for-loop. */
- tso->link = END_TSO_QUEUE;
+ tso->_link = END_TSO_QUEUE;
tso->why_blocked = NotBlocked;
pushOnRunQueue(&MainCapability, tso);
break;
tso->why_blocked = NotBlocked;
pushOnRunQueue(&MainCapability, tso);
break;