diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-11-30 17:58:22 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-11-30 17:58:22 +0100 |
| commit | 05f604d7f6e5ca3a0b005ae7ae1073f2b9e83207 (patch) | |
| tree | de315f996fc09dfb0e21d2737afff9abb7a09981 /lib/Readconfig.mll | |
| parent | 730966facd095f87620aa8d0798ccac7e36aa589 (diff) | |
| download | compcert-kvx-05f604d7f6e5ca3a0b005ae7ae1073f2b9e83207.tar.gz compcert-kvx-05f604d7f6e5ca3a0b005ae7ae1073f2b9e83207.zip | |
Open files in binary mode.
On windows opening files in text mode can result in errors due to
non-windows compatible input. Thus open files only in binary mode.
Bug 17664
Diffstat (limited to 'lib/Readconfig.mll')
| -rw-r--r-- | lib/Readconfig.mll | 3 |
1 files changed, 1 insertions, 2 deletions
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 _ = *) } - |