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 /cparser/Parse.ml | |
parent | 730966facd095f87620aa8d0798ccac7e36aa589 (diff) | |
download | compcert-05f604d7f6e5ca3a0b005ae7ae1073f2b9e83207.tar.gz compcert-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 'cparser/Parse.ml')
-rw-r--r-- | cparser/Parse.ml | 2 |
1 files changed, 1 insertions, 1 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; |