diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-21 13:12:03 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-21 13:12:03 +0200 |
| commit | f5db7098fae39f584550ed5dd03cac34dc24be67 (patch) | |
| tree | df0cef1808bf096049622faa9e2509756d7b4c2c /src/trace/smtBtype.ml | |
| parent | 13d2c8be2ffb84bc8d40064b223562832e5a5a7e (diff) | |
| parent | 9dbc62938011b07ae28795cdc7e2f8ddea01ef2a (diff) | |
| download | smtcoq-f5db7098fae39f584550ed5dd03cac34dc24be67.tar.gz smtcoq-f5db7098fae39f584550ed5dd03cac34dc24be67.zip | |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
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 |