X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FThrIOManager.c;h=76747c2376dc44b2caa8e980741f6ca3b92a90bf;hb=8604da0136707cc14845d14a88c2272fe576b6d0;hp=b0da0deee9427273c32bee587d4f5f76f9d79747;hpb=80a766fdb6864eae613962e43ad9eb371e0ce80c;p=ghc-hetmet.git

diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index b0da0de..76747c2 100644
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -59,20 +59,20 @@ nat next_event;
 
 #endif
 
-StgWord32
+HsWord32
 readIOManagerEvent (void)
 {
     // This function must exist even in non-THREADED_RTS, 
     // see getIOManagerEvent() above.
 #if defined(THREADED_RTS)
-    StgWord32 res;
+    HsWord32 res;
 
     ACQUIRE_LOCK(&event_buf_mutex);
     if (io_manager_event != INVALID_HANDLE_VALUE) {
         if (next_event == 0) {
             res = 0; // no event to return
         } else {
-            res = event_buf[--next_event];
+            res = (HsWord32)(event_buf[--next_event]);
             if (next_event == 0) {
                 if (!ResetEvent(io_manager_event)) {
                     sysErrorBelch("readIOManagerEvent");
@@ -92,7 +92,7 @@ readIOManagerEvent (void)
 }
 
 void
-sendIOManagerEvent (StgWord32 event)
+sendIOManagerEvent (HsWord32 event)
 {
 #if defined(THREADED_RTS)
     // debugBelch("sendIOManagerEvent: %d\n", event);
@@ -105,7 +105,7 @@ sendIOManagerEvent (StgWord32 event)
                 sysErrorBelch("sendIOManagerEvent");
                 stg_exit(EXIT_FAILURE);
             }        
-            event_buf[next_event++] = event;
+            event_buf[next_event++] = (StgWord32)event;
         }
     }
     RELEASE_LOCK(&event_buf_mutex);