From fe6053233eafd985a4dd81c85662db2786cf436b Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Fri, 4 Dec 1998 09:38:03 +0000
Subject: [PATCH] Transformation foo -> foo.exe sous Windows

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2226 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 bytecomp/bytelink.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/bytecomp/bytelink.ml b/bytecomp/bytelink.ml
index 2d399131a..4926f3f6c 100644
--- a/bytecomp/bytelink.ml
+++ b/bytecomp/bytelink.ml
@@ -458,8 +458,7 @@ let append_bytecode_and_cleanup bytecode_name exec_name prim_name =
           bytecode_name prim_name prim_name prim_name)
   | _ ->
       let oc =
-        open_out_gen [Open_wronly; Open_append; Open_binary] 0
-                                 !Clflags.exec_name in
+        open_out_gen [Open_wronly; Open_append; Open_binary] 0 exec_name in
       let ic = open_in_bin bytecode_name in
       copy_file ic oc;
       close_in ic;