Commits

Anonymous committed aed48c8

#5639: Write cmt files with open_out_bin.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12589f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Comments (0)

Files changed (1)

typing/cmt_format.ml

 let save_cmt filename modname binary_annots sourcefile initial_env sg =
   if !Clflags.binary_annotations && not !Clflags.print_types then begin
     let imports = Env.imported_units () in
-    let oc = open_out filename in
+    let oc = open_out_bin filename in
     let this_crc =
       match sg with
           None -> None