diff options
Diffstat (limited to 'src/trace/smtBtype.ml')
-rw-r--r-- | src/trace/smtBtype.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/trace/smtBtype.ml b/src/trace/smtBtype.ml index 3c4cd53..94339f6 100644 --- a/src/trace/smtBtype.ml +++ b/src/trace/smtBtype.ml @@ -121,6 +121,12 @@ let create () = unsup_tbl = Hashtbl.create 17; } +let copy t = + { count = t.count; + tbl = Hashtbl.copy t.tbl; + cuts = t.cuts; + unsup_tbl = Hashtbl.copy t.unsup_tbl } + (* Should we give a way to clear it? *) let op_coq_types = Hashtbl.create 17 |