simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: oob(!!) in CCHash.bytes
Some checks are pending
Build and Test / build (push) Waiting to run
Details
Build and Test / format (push) Waiting to run
Details

Browse source
This commit is contained in:
Simon Cruanes 2025-05-06 10:01:16 -04:00
parent b55d3cfe6a
commit ab7d0fcc09
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCHash.ml
View file

@ -101,7 +101,7 @@ let max_len_b_ = 128
let bytes (x : bytes) = let bytes (x : bytes) =
let h = ref fnv_offset_basis in let h = ref fnv_offset_basis in
for i = 0 to min max_len_b_ (Bytes.length x) do for i = 0 to min max_len_b_ (Bytes.length x-1) do
(h := Int64.(mul !h fnv_prime)); (h := Int64.(mul !h fnv_prime));
let byte = Char.code (Bytes.unsafe_get x i) in let byte = Char.code (Bytes.unsafe_get x i) in
h := Int64.(logxor !h (of_int byte)) h := Int64.(logxor !h (of_int byte))