From d76e84a2f1ddce9afef6d39f1f3aa7bef1fb8a1e Mon Sep 17 00:00:00 2001 From: Hugo Heuzard Date: Wed, 22 Mar 2023 22:27:27 +0100 Subject: [PATCH] Fix primitives used for bytes --- src/digestif_by.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/digestif_by.ml b/src/digestif_by.ml index 5a1a462..26eb450 100644 --- a/src/digestif_by.ml +++ b/src/digestif_by.ml @@ -1,7 +1,7 @@ include Bytes -external unsafe_get_32 : t -> int -> int32 = "%caml_string_get32u" -external unsafe_get_64 : t -> int -> int64 = "%caml_string_get64u" +external unsafe_get_32 : t -> int -> int32 = "%caml_bytes_get32u" +external unsafe_get_64 : t -> int -> int64 = "%caml_bytes_get64u" let unsafe_get_nat : t -> int -> nativeint = fun s i -> @@ -9,8 +9,8 @@ let unsafe_get_nat : t -> int -> nativeint = then Nativeint.of_int32 @@ unsafe_get_32 s i else Int64.to_nativeint @@ unsafe_get_64 s i -external unsafe_set_32 : t -> int -> int32 -> unit = "%caml_string_set32u" -external unsafe_set_64 : t -> int -> int64 -> unit = "%caml_string_set64u" +external unsafe_set_32 : t -> int -> int32 -> unit = "%caml_bytes_set32u" +external unsafe_set_64 : t -> int -> int64 -> unit = "%caml_bytes_set64u" let unsafe_set_nat : t -> int -> nativeint -> unit = fun s i v ->