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

details

Browse source
This commit is contained in:
Simon Cruanes 2015-09-02 19:37:10 +02:00
parent e51fb2e44e
commit 8f59e8e193
2 changed files with 1 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
_tags
View file

@ -3,6 +3,6 @@
<tests/*.ml{,i}>: thread <tests/*.ml{,i}>: thread
<src/threads/*.ml{,i}>: thread <src/threads/*.ml{,i}>: thread
<src/core/CCVector.cmx>: inline(25) <src/core/CCVector.cmx>: inline(25)
<src/data/CCFlatHashtbl.cm*>: inline(15) <src/data/CCFlatHashtbl.cm*> or <src/data/CCHashTrie.cm*>: inline(15)
<src/**/*.ml> and not <src/misc/*.ml>: warn_A, warn(-4), warn(-44) <src/**/*.ml> and not <src/misc/*.ml>: warn_A, warn(-4), warn(-44)
true: no_alias_deps, safe_string true: no_alias_deps, safe_string

12
src/data/CCHashTrie.ml
View file

@ -145,23 +145,11 @@ module Hash : sig
val make_unsafe : int -> t val make_unsafe : int -> t
val rem : t -> int (* 3 last bits *) val rem : t -> int (* 3 last bits *)
val quotient : t -> t (* remove 3 last bits *) val quotient : t -> t (* remove 3 last bits *)
val combine : t -> int -> t (* add 3 last bits *)
end = struct end = struct
type t = int type t = int
let make_unsafe i = i let make_unsafe i = i
let rem h = h land 7 let rem h = h land 7
let quotient h = h lsr 3 let quotient h = h lsr 3
let combine h r = h lsl 3 lor r
(* safety checks *)
let () =
assert (
List.for_all
(fun n ->
let q = quotient n and r = rem n in
n = combine q r
) [1;2;3;4;10;205;295;4262;1515;67;8;99;224;]
)
end end
module Make(Key : KEY) module Make(Key : KEY)