From 3ac44c8d14881320bff9d22ee83df11c294699df Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Tue, 28 Nov 2000 16:21:26 +0000
Subject: Ouvrir l'executable en mode binaire, bien sur

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3347 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 stdlib/header.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'stdlib/header.c')

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");
-- 
cgit v1.2.3-70-g09d2