[r2006-03-22 12:22:49 by afrisch] open_out => open_out_gen

Original author: afrisch
Date: 2006-03-22 12:22:49+00:00

driver/librarian.ml

@@ -125,7 +125,7 @@ let compile_save verbose name src out =
   set_hash c;
   let pools = Value.extract_all () in
 
-  let oc = open_out out in
+  let oc = open_out_bin out in
   output_string oc magic;
   
   Marshal.to_channel oc (pools,c) [];
@@ -149,7 +149,7 @@ let reg_types = ref true
 
 let rec real_load src =
   let ic = 
-    try open_in src
+    try open_in_bin src
     with Sys_error _ -> raise (CannotOpen src) in
   try
     let s = String.copy magic in