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

[Mac] Changement de technique pour creer les fichiers bytecode. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1200 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 1996-11-25 15:52:23 +00:00
parent 608f72f66a
commit 10436b0fca
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
bytecomp/bytelink.ml
View File

@ -176,16 +176,15 @@ let link_file output_fun = function
(* Create a bytecode executable file *)
let openflags =
match Sys.os_type with
| "MacOS" -> [Open_wronly; Open_trunc; Open_creat]
| _ -> [Open_wronly; Open_trunc; Open_creat; Open_binary]
;;
let link_bytecode objfiles exec_name copy_header =
let tolink =
List.fold_right scan_file objfiles [] in
let outchan = open_out_gen openflags 0o777 exec_name in
let tolink = List.fold_right scan_file objfiles [] in
if Sys.os_type = "MacOS" then begin
(* Create it as a text file for bytecode scripts *)
let c = open_out_gen [Open_wronly; Open_creat] 0o777 exec_name in
close_out c
end;
let outchan = open_out_gen [Open_wronly; Open_trunc; Open_creat; Open_binary]
0o777 exec_name in
try
(* Copy the header *)
if copy_header then begin