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 /includes | |
| parent | f2b02ce821f793bd1ccc23f2bcbef8efc82dd38e (diff) | |
| download | haskell-150cc9e2e4657cc58bd7ec4c15e5cb72f2e1c0f6.tar.gz | |
Fix C/Haskell type mismatches
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/RtsExternal.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index 37a9bd485c..3a3626b56b 100644 --- a/includes/RtsExternal.h +++ b/includes/RtsExternal.h @@ -26,8 +26,8 @@ extern void newCAF(StgClosure*); #endif /* ToDo: remove? */ -extern I_ genSymZh(void); -extern I_ resetGenSymZh(void); +extern HsInt genSymZh(void); +extern HsInt resetGenSymZh(void); /* Alternate to raise(3) for threaded rts, for OpenBSD */ extern int genericRaise(int sig); @@ -37,7 +37,7 @@ extern int cmp_thread(StgPtr tso1, StgPtr tso2); extern int rts_getThreadId(StgPtr tso); extern int forkOS_createThread ( HsStablePtr entry ); extern StgInt forkProcess(HsStablePtr *entry); -extern StgBool rtsSupportsBoundThreads(void); +extern HsBool rtsSupportsBoundThreads(void); extern StgInt newSpark (StgRegTable *reg, StgClosure *p); /* grimy low-level support functions defined in StgPrimFloat.c */ @@ -86,9 +86,9 @@ extern StgInt *signal_handlers; #endif #if defined(mingw32_HOST_OS) -void *getIOManagerEvent (void); -StgWord32 readIOManagerEvent (void); -void sendIOManagerEvent (StgWord32 event); +HANDLE getIOManagerEvent (void); +HsWord32 readIOManagerEvent (void); +void sendIOManagerEvent (HsWord32 event); #else extern void setIOManagerPipe (int fd); #endif |