Fix bytes module

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-08-22 16:35:19 +03:00
parent c4d460e51a
commit c22ed40261
2 changed files with 10 additions and 2 deletions

View File

@ -1,7 +1,9 @@
(* [blit_string] was forgotten from the labeled version in OCaml
4.024.04. *)
[@@@ocaml.warning "-32"]
include StdLabels.Bytes
let blit_string ~src ~src_pos ~dst ~dst_pos ~len =
Caml.Bytes.blit_string src src_pos dst dst_pos len
include StdLabels.Bytes
let sub_string dst ~pos ~len =
Caml.Bytes.sub_string dst pos len

View File

@ -7,3 +7,9 @@ val blit_string
-> dst_pos:int
-> len:int
-> unit
val sub_string
: t
-> pos:int
-> len:int
-> string