diff options
| -rw-r--r-- | cparser/Parse.ml | 2 | ||||
| -rw-r--r-- | lib/Readconfig.mll | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/cparser/Parse.ml b/cparser/Parse.ml index 1d92d5a5..c125e653 100644 --- a/cparser/Parse.ml +++ b/cparser/Parse.ml @@ -39,7 +39,7 @@ let parse_transformations s = !t let read_file sourcefile = - let ic = open_in sourcefile in + let ic = open_in_bin sourcefile in let n = in_channel_length ic in let text = really_input_string ic n in close_in ic; diff --git a/lib/Readconfig.mll b/lib/Readconfig.mll index ec2f6bb0..6cb3409d 100644 --- a/lib/Readconfig.mll +++ b/lib/Readconfig.mll @@ -82,7 +82,7 @@ and doublequote = parse (* The entry point *) let read_config_file filename = - let ic = open_in filename in + let ic = open_in_bin filename in let lexbuf = Lexing.from_channel ic in Lexing.(lexbuf.lex_start_p <- {lexbuf.lex_start_p with pos_fname = filename}); try @@ -108,4 +108,3 @@ let _ = *) } - |