diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-06-18 09:47:00 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-18 09:47:00 +0000 |
| commit | 052ad75a87e7f84d9dcf3115c3ec87bd119cc90d (patch) | |
| tree | 549453be50ae8317357fa58da083b8e95aba528d /rts/win32 | |
| parent | 392834a3ef2e08e253fa3f76302564d63dc48a1e (diff) | |
| download | haskell-052ad75a87e7f84d9dcf3115c3ec87bd119cc90d.tar.gz | |
FIX BUILD on Windows
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/AsyncIO.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/win32/AsyncIO.c b/rts/win32/AsyncIO.c index 54fc5cb526..6fb9a2b22d 100644 --- a/rts/win32/AsyncIO.c +++ b/rts/win32/AsyncIO.c @@ -275,7 +275,7 @@ start: 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: @@ -290,16 +290,16 @@ start: /* Drop the matched TSO from blocked_queue */ if (prev) { - prev->link = tso->link; + setTSOLink(&MainCapability, prev, tso->_link); } 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. */ - tso->link = END_TSO_QUEUE; + tso->_link = END_TSO_QUEUE; tso->why_blocked = NotBlocked; pushOnRunQueue(&MainCapability, tso); break; |