diff options
author | Ian Lynagh <igloo@earth.li> | 2007-04-03 19:53:24 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2007-04-03 19:53:24 +0000 |
commit | 150cc9e2e4657cc58bd7ec4c15e5cb72f2e1c0f6 (patch) | |
tree | 617f13ae77fa27d366c3fad92965583dcdf42896 /rts/win32 | |
parent | f2b02ce821f793bd1ccc23f2bcbef8efc82dd38e (diff) | |
download | haskell-150cc9e2e4657cc58bd7ec4c15e5cb72f2e1c0f6.tar.gz |
Fix C/Haskell type mismatches
Diffstat (limited to 'rts/win32')
-rw-r--r-- | rts/win32/ThrIOManager.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c index b0da0deee9..76747c2376 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);
|