Fix C/Haskell type mismatches

[ghc-hetmet.git] / rts / win32 / ThrIOManager.c

diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index b0da0de..76747c2 100644 (file)
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -59,20 +59,20 @@ nat next_event;
 \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
@@ -92,7 +92,7 @@ readIOManagerEvent (void)
 }\r
 \r
 void\r
-sendIOManagerEvent (StgWord32 event)\r
+sendIOManagerEvent (HsWord32 event)\r
 {\r
 #if defined(THREADED_RTS)\r
     // debugBelch("sendIOManagerEvent: %d\n", event);\r
@@ -105,7 +105,7 @@ sendIOManagerEvent (StgWord32 event)
                 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