This commit is contained in:
parent
d974f7b486
commit
74145a7c18
1 changed files with 2 additions and 6 deletions
|
|
@ -89,17 +89,13 @@ module Cstring = struct
|
||||||
module H32 = struct
|
module H32 = struct
|
||||||
include H32
|
include H32
|
||||||
|
|
||||||
let hash s =
|
let hash s = hash (s ^ "\x00")
|
||||||
let s = s ^ "\x00" in
|
|
||||||
hash s
|
|
||||||
end
|
end
|
||||||
|
|
||||||
module H64 = struct
|
module H64 = struct
|
||||||
include H64
|
include H64
|
||||||
|
|
||||||
let hash s =
|
let hash s = hash (s ^ "\x00")
|
||||||
let s = s ^ "\x00" in
|
|
||||||
hash s
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue