\r
#endif\r
\r
-StgWord32\r
+HsWord32\r
readIOManagerEvent (void)\r
{\r
// This function must exist even in non-THREADED_RTS, \r
// see getIOManagerEvent() above.\r
#if defined(THREADED_RTS)\r
- StgWord32 res;\r
+ HsWord32 res;\r
\r
ACQUIRE_LOCK(&event_buf_mutex);\r
if (io_manager_event != INVALID_HANDLE_VALUE) {\r
if (next_event == 0) {\r
res = 0; // no event to return\r
} else {\r
- res = event_buf[--next_event];\r
+ res = (HsWord32)(event_buf[--next_event]);\r
if (next_event == 0) {\r
if (!ResetEvent(io_manager_event)) {\r
sysErrorBelch("readIOManagerEvent");\r
}\r
\r
void\r
-sendIOManagerEvent (StgWord32 event)\r
+sendIOManagerEvent (HsWord32 event)\r
{\r
#if defined(THREADED_RTS)\r
// debugBelch("sendIOManagerEvent: %d\n", event);\r
sysErrorBelch("sendIOManagerEvent");\r
stg_exit(EXIT_FAILURE);\r
} \r
- event_buf[next_event++] = event;\r
+ event_buf[next_event++] = (StgWord32)event;\r
}\r
}\r
RELEASE_LOCK(&event_buf_mutex);\r