simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-09 12:45:34 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

use Bytes.extend (praise modernity!)

Browse source
This commit is contained in:
Simon Cruanes 2014-12-16 22:50:47 +01:00
parent 059528257a
commit f229973ee3
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
core/CCIO.ml
View file

@ -49,7 +49,7 @@ let gen_of_array arr =
if !r = Array.length arr then None
else (
let x = arr.(!r) in
incr r;
incr r;
Some x
)
@ -123,9 +123,7 @@ let read_all ic =
while true do
(* resize *)
if !len = Bytes.length !buf then (
let buf' = Bytes.create (2* !len) in
Bytes.blit !buf 0 buf' 0 !len;
buf := buf'
buf := Bytes.extend !buf 0 !len;
);
assert (Bytes.length !buf > !len);
let n = input ic !buf !len (Bytes.length !buf - !len) in