diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1996-11-02 18:06:24 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1996-11-02 18:06:24 +0000 |
| commit | 569c0f5e7c170687da9da6c39e875836d29c6bf8 (patch) | |
| tree | 266bae4f6a1a2cfd85db5934136bceca71baebea /toplevel/expunge.ml | |
| parent | 5972c5ab37e6507cadb05037da8f43cbb0bbdac7 (diff) | |
| download | ocaml-569c0f5e7c170687da9da6c39e875836d29c6bf8.tar.gz | |
Portage Mac/MPW
expunge.ml: version Mac (flags d'ouverture d'un script executable)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1142 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'toplevel/expunge.ml')
| -rw-r--r-- | toplevel/expunge.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/toplevel/expunge.ml b/toplevel/expunge.ml index c6864b6e66..7ae7afbe0a 100644 --- a/toplevel/expunge.ml +++ b/toplevel/expunge.ml @@ -30,6 +30,12 @@ let expunge_map tbl = (fun id -> StringSet.mem (Ident.name id) !to_keep) tbl +let openflags = + match (Sys.get_config ()).Sys.os_type with + | "MacOS" -> [Open_wronly; Open_trunc; Open_creat] + | _ -> [Open_wronly; Open_trunc; Open_creat; Open_binary] +;; + let main () = let input_name = Sys.argv.(1) in let output_name = Sys.argv.(2) in @@ -53,7 +59,7 @@ let main () = prerr_endline "Wrong magic number"; exit 2 end; let oc = - open_out_gen [Open_wronly; Open_creat; Open_trunc; Open_binary] 0o777 output_name in + open_out_gen openflags 0o777 output_name in (* Copy the file up to the symbol section as is *) seek_in ic 0; copy_file_chunk ic oc (pos_trailer - symbol_size - debug_size); |