Mise a jour pour Win32

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1217 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 3 insertions, 3 deletions

diff --git a/byterun/sys.c b/byterun/sys.c
index 313912706..c3bd5a9c4 100644
--- a/byterun/sys.c
+++ b/byterun/sys.c
@@ -249,9 +249,6 @@ char * searchpath(name)
   char * q;
   struct stat st;
 
-  for (p = name; *p != 0; p++) {
-    if (*p == '/' || *p == '\\' || *p == ':') return name;
-  }
   if (stat(name, &st) == 0) return name;
   path = getenv("PATH");
   if (path == NULL) return 0;
@@ -259,6 +256,9 @@ char * searchpath(name)
   strcpy(fullname, name);
   strcat(fullname, ".exe");
   if (stat(fullname, &st) == 0) return fullname;
+  for (p = name; *p != 0; p++) {
+    if (*p == '/' || *p == '\\' || *p == ':') return name;
+  }
   while(1) {
     for (p = fullname; *path != 0 && *path != ';'; p++, path++) *p = *path;
     if (p != fullname && p[-1] != '\\') *p++ = '\\';