mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
perf: direct alias in CCHash.int
This commit is contained in:
parent
93c0a9af0d
commit
77e3e97dd0
1 changed files with 1 additions and 1 deletions
|
|
@ -79,7 +79,7 @@ let combine6 a b c d e f =
|
||||||
let const h _ = h
|
let const h _ = h
|
||||||
let const0 _ = 0
|
let const0 _ = 0
|
||||||
|
|
||||||
let int i = hash_int_ i
|
let int = hash_int_
|
||||||
let bool b = hash_int_ (if b then 1 else 2)
|
let bool b = hash_int_ (if b then 1 else 2)
|
||||||
let char x = hash_int_ (Char.code x)
|
let char x = hash_int_ (Char.code x)
|
||||||
let int32 (x:int32) = Hashtbl.hash x (* TODO: FNV *)
|
let int32 (x:int32) = Hashtbl.hash x (* TODO: FNV *)
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue