diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2014-04-29 11:56:17 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2014-04-29 11:56:17 +0000 |
| commit | 5b8df637d2b722aa397ab53200a733bae238e9fe (patch) | |
| tree | 522cd6e4b131d3e0a7b4ddeac46bc4e1efdb2fad /bytecomp/bytelibrarian.ml | |
| parent | 3ce32fba4fe8be1c77096ca1f70dd14233d67b49 (diff) | |
| download | ocaml-5b8df637d2b722aa397ab53200a733bae238e9fe.tar.gz | |
merge branch "safe-string"
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14705 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/bytelibrarian.ml')
| -rw-r--r-- | bytecomp/bytelibrarian.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bytecomp/bytelibrarian.ml b/bytecomp/bytelibrarian.ml index c63cf80ec2..3b88981e1c 100644 --- a/bytecomp/bytelibrarian.ml +++ b/bytecomp/bytelibrarian.ml @@ -60,7 +60,7 @@ let copy_object_file ppf oc name = raise(Error(File_not_found name)) in let ic = open_in_bin file_name in try - let buffer = input_bytes ic (String.length cmo_magic_number) in + let buffer = really_input_string ic (String.length cmo_magic_number) in if buffer = cmo_magic_number then begin let compunit_pos = input_binary_int ic in seek_in ic compunit_pos; |