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

format

Browse source
This commit is contained in:
Simon Cruanes 2022-08-27 20:48:32 -04:00
parent df287e4ef7
commit 2a0feed32c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 35 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/smt/registry.ml
View file

@ -1,4 +1,3 @@
(* registry keys *) (* registry keys *)
module type KEY = sig module type KEY = sig
type elt type elt
@ -12,6 +11,8 @@
type t = { tbl: exn Util.Int_tbl.t } [@@unboxed] type t = { tbl: exn Util.Int_tbl.t } [@@unboxed]
let create () : t = { tbl = Util.Int_tbl.create 8 } let create () : t = { tbl = Util.Int_tbl.create 8 }
(* TODO: use atomic *)
let n_ = ref 0 let n_ = ref 0
let create_key (type a) () : a key = let create_key (type a) () : a key =

2
src/smt/registry.mli
View file

@ -1,5 +1,3 @@
(** Registry to extract values *) (** Registry to extract values *)
type t type t