#4719: use GetModuleFileName to get an absolute path to the current executable under Windows.

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

1 files changed, 13 insertions, 0 deletions

diff --git a/byterun/win32.c b/byterun/win32.c
index d807f69003..5bb4fc1532 100644
--- a/byterun/win32.c
+++ b/byterun/win32.c
@@ -502,3 +502,16 @@ void caml_install_invalid_parameter_handler()
 }
 
 #endif
+
+
+/* Recover executable name  */
+
+int caml_executable_name(char * name, int name_len)
+{
+  int retcode;
+
+  int ret = GetModuleFileName(NULL, name, name_len);
+  printf("ret = %d, name = %s\n", ret, name); fflush(stdout);
+  if (0 == ret || ret >= name_len) return -1;
+  return 0;
+}