Ouvrir l'executable en mode binaire, bien sur

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

1 files changed, 5 insertions, 1 deletions

diff --git a/stdlib/header.c b/stdlib/header.c
index 1fb0bfbf3..b43e84d9a 100644
--- a/stdlib/header.c
+++ b/stdlib/header.c
@@ -165,13 +165,17 @@ static void errwrite(char * msg)
   write(2, msg, strlen(msg));
 }
 
+#ifndef O_BINARY
+#define O_BINARY 0
+#endif
+
 int main(int argc, char ** argv)
 {
   char * truename, * runtime_path;
   int fd;
 
   truename = searchpath(argv[0]);
-  fd = open(truename, O_RDONLY);
+  fd = open(truename, O_RDONLY | O_BINARY);
   if (fd == -1 || (runtime_path = read_runtime_path(fd)) == NULL) {
     errwrite(truename);
     errwrite(" not found or is not a bytecode executable file\n");