Commit 91e9333c authored by Julien Signoles's avatar Julien Signoles
Browse files

[Logic_functions] better hash function

parent 463e0e0a
...@@ -327,7 +327,10 @@ module Memo = Hashtbl.Make(struct ...@@ -327,7 +327,10 @@ module Memo = Hashtbl.Make(struct
Cil_datatype.Logic_type.equal Cil_datatype.Logic_type.equal
lfs1.lfs_args_lty lfs1.lfs_args_lty
lfs2.lfs_args_lty lfs2.lfs_args_lty
let hash = Hashtbl.hash let hash lfs =
Cil_datatype.Logic_info.hash lfs.lfs_li
+ 257 * let module L = Datatype.List(Cil_datatype.Logic_type) in
L.hash (lfs.lfs_lty :: lfs.lfs_args_lty)
end) end)
let tbl = Memo.create 7 let tbl = Memo.create 7
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment