diff options
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | rts/win32/AsyncWinIO.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/rts/win32/AsyncWinIO.c b/rts/win32/AsyncWinIO.c index 1122f2760c..1a4c6414ce 100644 --- a/rts/win32/AsyncWinIO.c +++ b/rts/win32/AsyncWinIO.c @@ -134,8 +134,14 @@ uint64_t outstanding_requests = 0; /* Boolean controlling if the I/O manager is/should still be running. */ bool running = false; /* Boolean to indicate whether we have outstanding I/O requests that still need - to be processed by the I/O manager on the Haskell side. */ -bool outstanding_service_requests = false; + to be processed by the I/O manager on the Haskell side. + Set by: + notifyRtsOfFinishedCall (true) + servicedIOEntries (false) + Read by: + runner + */ +volatile bool outstanding_service_requests = false; /* Indicates wether we have hit one case where we serviced as much requests as we could because the buffer got full. In such cases for the next requests we expand the buffers so we have room to process requests in bigger |