Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Transformation foo -> foo.exe sous Windows 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2226 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1998-12-04 09:38:03 +00:00
parent 0b12cb347a
commit fe6053233e
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bytecomp/bytelink.ml
View File

@ -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;