simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor(ty): use Hashcons with weak table for types

Browse source
This commit is contained in:
Simon Cruanes 2019-02-16 15:23:57 -06:00
parent 3b671aa7a4
commit ac030641db
1 changed files with 12 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/smt/Ty.ml
View file

@ -18,35 +18,33 @@ let equal_def d1 d2 = match d1, d2 with
| Ty_uninterpreted _, _ | Ty_def _, _
-> false
module Tbl_cell = CCHashtbl.Make(struct
type t = ty_view
let equal a b = match a, b with
module H = Hashcons.Make(struct
type t = ty
let equal a b = match a.ty_view, b.ty_view with
| Ty_prop, Ty_prop -> true
| Ty_atomic a1, Ty_atomic a2 ->
equal_def a1.def a2.def && CCList.equal equal a1.args a2.args
| Ty_prop, _ | Ty_atomic _, _
-> false
let hash t = match t with
let hash t = match t.ty_view with
| Ty_prop -> 1
| Ty_atomic {def=Ty_uninterpreted id; args; _} ->
Hash.combine3 10 (ID.hash id) (Hash.list hash args)
| Ty_atomic {def=Ty_def d; args; _} ->
Hash.combine3 20 (ID.hash d.id) (Hash.list hash args)
let set_id ty id =
assert (ty.ty_id < 0);
ty.ty_id <- id
end)
(* build a type *)
let make_ : ty_view -> t =
let tbl : t Tbl_cell.t = Tbl_cell.create 128 in
let n = ref 0 in
fun c ->
try Tbl_cell.find tbl c
with Not_found ->
let ty_id = !n in
incr n;
let ty = {ty_id; ty_view=c; } in
Tbl_cell.add tbl c ty;
ty
let tbl : H.t = H.create ~size:128 () in
fun[@inline] c ->
let ty = {ty_id= -1; ty_view=c; } in
H.hashcons tbl ty
let card t = match view t with
| Ty_prop -> Finite