2-3 petites modifs pour la compilation sous Windows...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11062 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 6 insertions, 3 deletions

diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index d09a87dc6..0c9b12bb4 100644
--- a/toplevel/coqtop.ml
+++ b/toplevel/coqtop.ml
@@ -131,9 +131,12 @@ let set_opt () = re_exec_version := "opt"
 let re_exec is_ide =
   let s = !re_exec_version in
   let is_native = (Mltop.get()) = Mltop.Native in
-  let prog =
-    try Unix.readlink "/proc/self/exe"
-    with Unix.Unix_error _ -> Sys.argv.(0) in
+  (* Unix.readlink is not implemented on Windows architectures :-(
+     let prog =
+       try Unix.readlink "/proc/self/exe"
+       with Unix.Unix_error _ -> Sys.argv.(0) in
+  *)
+  let prog = Sys.argv.(0) in
   if (is_native && s = "byte") || ((not is_native) && s = "opt")
   then begin
     let s = if s = "" then if is_native then "opt" else "byte" else s in