diff --git a/cbits/execvpe.c b/cbits/execvpe.c index 9599836706b0a77c4c07c4a62483814ef686acaf..c27bca9162d1cd033f0184eca2e34a449a069b2e 100644 --- a/cbits/execvpe.c +++ b/cbits/execvpe.c @@ -9,12 +9,10 @@ -------------------------------------------------------------------------- */ -#include "execvpe.h" +#include "HsUnixConfig.h" #if HAVE_EXECVPE # define _GNU_SOURCE -#else -# undef execvpe #endif #include <errno.h> @@ -28,6 +26,9 @@ #include <string.h> #include <errno.h> +#define HSUNIX_EXECVPE_H_NO_COMPAT +#include "execvpe.h" + /* * We want the search semantics of execvp, but we want to provide our * own environment, like execve. The following copyright applies to diff --git a/cbits/ghcrts.c b/cbits/ghcrts.c index 1e0dc1c48a55013f614a2d8858deda530ee89e59..90036757ea6ae4f528e18b0e97dd760ed2940807 100644 --- a/cbits/ghcrts.c +++ b/cbits/ghcrts.c @@ -1,10 +1,11 @@ -#include "execvpe.h" - #ifdef __GLASGOW_HASKELL__ // for 'void StopTimer(void)' prototype # include "Rts.h" #endif +#define HSUNIX_EXECVPE_H_NO_COMPAT +#include "execvpe.h" + /* Copied verbatim from ghc/lib/std/cbits/system.c. */ void pPrPr_disableITimers (void) { diff --git a/include/execvpe.h b/include/execvpe.h index 7faa0df5c3a02b68be1040b677041796ad63770e..1fd2fbb02d2165eaefcfd6d1585022496f2adc26 100644 --- a/include/execvpe.h +++ b/include/execvpe.h @@ -7,12 +7,12 @@ #ifndef HSUNIX_EXECVPE_H #define HSUNIX_EXECVPE_H -#include "HsUnixConfig.h" - extern int __hsunix_execvpe(const char *name, char *const argv[], char *const envp[]); // this hack is needed for `process`; to be removed in unix-2.8 +#ifndef HSUNIX_EXECVPE_H_NO_COMPAT +#include "HsUnixConfig.h" #if HAVE_EXECVPE # define _GNU_SOURCE # include <unistd.h> @@ -21,6 +21,7 @@ execvpe(const char *name, char *const argv[], char *const envp[]); #else # define execvpe(name,argv,envp) __hsunix_execvpe(name,argv,envp) #endif +#endif // implemented in cbits/ghcrts.c extern void pPrPr_disableITimers (void);