diff options
| author |  stolz <unknown> | 2003-03-03 01:52:00 +0000 |
|---|---|---|
| committer | stolz <unknown> | 2003-03-03 01:52:00 +0000 |
| commit | e809ba310b60fd0788cae80c1cfe5f41eb1bfb17 (patch) | |
| tree | 896e2bb3b3afa57a9667e0be91ad2b6ff0025cb2 /include | |
| parent | 76d5f451e3ed5bd645fd1ee228ef7dbbc5e50435 (diff) | |
[project @ 2003-03-03 01:51:58 by stolz]
Import System/DL*
Diffstat (limited to 'include')
| -rw-r--r-- | include/HsUnix.h | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/include/HsUnix.h b/include/HsUnix.h index cccbd7b..4701b7b 100644 --- a/include/HsUnix.h +++ b/include/HsUnix.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: HsUnix.h,v 1.5 2003/02/28 16:09:16 stolz Exp $ + * $Id: HsUnix.h,v 1.6 2003/03/03 01:52:00 stolz Exp $ * * (c) The University of Glasgow 2002 * @@ -61,6 +61,12 @@ #include <sys/sendfile.h> #endif +#ifdef HAVE_FRAMEWORK_HASKELLSUPPORT +#include <HaskellSupport/dlfcn.h> +#else +#include <dlfcn.h> +#endif + extern int execvpe(char *name, char **argv, char **envp); extern void pPrPr_disableITimers (void); extern char **environ; @@ -77,6 +83,10 @@ INLINE int __hsunix_wifstopped (int stat) { return WIFSTOPPED(stat); } INLINE int __hsunix_wstopsig (int stat) { return WSTOPSIG(stat); } INLINE char ** __hsunix_environ () { return environ; } +#ifdef HAVE_RTLDNEXT +INLINE void *__hsunix_rtldNext (void) {return RTLD_NEXT;} +#endif + /* O_SYNC doesn't exist on Mac OS X and (at least some versions of) FreeBSD, fall back to O_FSYNC, which should be the same */ #ifndef O_SYNC |