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(ccint): make sure hash is always positive

Browse source
This commit is contained in:
Simon Cruanes 2021-04-03 00:57:41 -04:00
parent cc7799f379
commit 7717cc13db
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/CCInt.ml
View file

@ -49,7 +49,7 @@ let hash (n:int) : int =
(* h := h xor (k-th bit of n) *) (* h := h xor (k-th bit of n) *)
h := Int64.(logxor !h (of_int ((n lsr (k * 8)) land 0xff))); h := Int64.(logxor !h (of_int ((n lsr (k * 8)) land 0xff)));
done; done;
Int64.to_int !h (* truncate back to int *) (Int64.to_int !h) land max_int (* truncate back to int and remove sign *)
let range i j yield = let range i j yield =
let rec up i j yield = let rec up i j yield =