X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=cbits%2Fexecvpe.c;h=eb24bd378ac159dcdd664967eea2d26a8d5a3810;hb=7c0b04fd273621130062418bb764809c79488dd2;hp=f19f9d784b6a5c07699d7f7698b1b0e629bcc9e8;hpb=edad1f42b5dfea7aaf640aaae808c14e6138551a;p=haskell-directory.git

diff --git a/cbits/execvpe.c b/cbits/execvpe.c
index f19f9d7..eb24bd3 100644
--- a/cbits/execvpe.c
+++ b/cbits/execvpe.c
@@ -1,8 +1,11 @@
 /* -----------------------------------------------------------------------------
    (c) The University of Glasgow 1995-2004
-   
+
    Our low-level exec() variant.
    -------------------------------------------------------------------------- */
+#include "HsBase.h"
+
+#if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)) /* to the end */
 
 /* Evidently non-Posix. */
 /* #include "PosixSource.h" */
@@ -13,7 +16,7 @@
 #include <string.h>
 #include <errno.h>
 
-/* 
+/*
  * We want the search semantics of execvp, but we want to provide our
  * own environment, like execve.  The following copyright applies to
  * this code, as it is a derivative of execvp:
@@ -51,7 +54,7 @@
  */
 
 int
-execvpe(char *name, char **argv, char **envp)
+execvpe(char *name, char *const argv[], char **envp)
 {
     register int lp, ln;
     register char *p;
@@ -168,3 +171,5 @@ void pPrPr_disableITimers (void)
    setitimer(ITIMER_PROF, &itv, NULL);
 #  endif
 }
+
+#endif