Fix #7704: get_toplevel_path needs normalised argv.(0)

When launched through PATH argv.(0) is just the command name.

eg "coqtop -compile foo.v" -> argv.(0) = "coqtop"

Using executable_name also follows symlinks but this isn't tested to
avoid messing with windows. Running Coq through a symlink is not as
important as PATH anyways.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/system.ml b/lib/system.ml
index f109c7192..eef65a4e3 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -302,7 +302,7 @@ let with_time ~batch f x =
     raise e
 
 let get_toplevel_path top =
-  let dir = Filename.dirname Sys.argv.(0) in
+  let dir = Filename.dirname Sys.executable_name in
   let exe = if Sys.(os_type = "Win32" || os_type = "Cygwin") then ".exe" else "" in
   let eff = if Dynlink.is_native then ".opt" else ".byte" in
   dir ^ Filename.dir_sep ^ top ^ eff ^ exe