diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-04-04 00:34:25 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-04-04 00:34:25 +0000 |
| commit | 85174045bbcc05adb28447d423794d1f087da59e (patch) | |
| tree | 1c6a9bbb0e836384d71b0841f8614c443903b513 /includes | |
| parent | dd605e295e2a7ee92dc0511d81ebef4984eacf1e (diff) | |
| download | haskell-85174045bbcc05adb28447d423794d1f087da59e.tar.gz | |
Fix C/Haskell type mismatches
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/RtsExternal.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index 3a3626b56b..6e23a9ce82 100644 --- a/includes/RtsExternal.h +++ b/includes/RtsExternal.h @@ -15,6 +15,10 @@ /* The standard FFI interface */ #include "HsFFI.h" +#ifdef HAVE_SYS_TYPES_H +#include <sys/types.h> +#endif + /* ----------------------------------------------------------------------------- Functions exported by the RTS for use in Stg code -------------------------------------------------------------------------- */ @@ -36,7 +40,7 @@ extern int genericRaise(int sig); 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 pid_t forkProcess(HsStablePtr *entry); extern HsBool rtsSupportsBoundThreads(void); extern StgInt newSpark (StgRegTable *reg, StgClosure *p); |