diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-12-07 19:05:34 +0100 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-12-07 19:05:34 +0100 |
commit | 6941dd2ec8349b78c8622ac136d4617f6c26b9c6 (patch) | |
tree | 24b2f0a25f5c887f1aa13c9b205c26428a1d17ab /src | |
parent | eee17f377679c7bdcee82807e720a6e5cabfe408 (diff) | |
parent | 50e3798575aa7ff0a13a483af23a384dee3d8bb7 (diff) | |
download | smtcoq-6941dd2ec8349b78c8622ac136d4617f6c26b9c6.tar.gz smtcoq-6941dd2ec8349b78c8622ac136d4617f6c26b9c6.zip |
Merge remote-tracking branch 'origin/coq-8.12' into coq-8.13
Diffstat (limited to 'src')
-rw-r--r-- | src/trace/smtBtype.ml | 5 | ||||
-rw-r--r-- | src/trace/smtMisc.ml | 2 | ||||
-rw-r--r-- | src/trace/smtMisc.mli | 2 |
3 files changed, 4 insertions, 5 deletions
diff --git a/src/trace/smtBtype.ml b/src/trace/smtBtype.ml index d091758..c610129 100644 --- a/src/trace/smtBtype.ml +++ b/src/trace/smtBtype.ml @@ -304,10 +304,9 @@ let of_coq_compdec reify t compdec = (match i.hval with | CompDec _ -> ty | Delayed _ -> - Hashtbl.remove reify.tbl t; let ce = mklApp cTyp_compdec [|t; compdec|] in - let res = Tindex {index = i.index; hval = CompDec ce} in - Hashtbl.add reify.tbl t res; + i.hval <- CompDec ce; + let res = Tindex i in res ) | _ -> ty diff --git a/src/trace/smtMisc.ml b/src/trace/smtMisc.ml index 67c705f..f08ea41 100644 --- a/src/trace/smtMisc.ml +++ b/src/trace/smtMisc.ml @@ -21,7 +21,7 @@ let mkInt i = ci (** Generic representation of shared object *) -type 'a gen_hashed = { index : int; hval : 'a } +type 'a gen_hashed = { index : int; mutable hval : 'a } (** Functions over constr *) diff --git a/src/trace/smtMisc.mli b/src/trace/smtMisc.mli index b153730..6b1ca90 100644 --- a/src/trace/smtMisc.mli +++ b/src/trace/smtMisc.mli @@ -12,7 +12,7 @@ val cInt_tbl : (int, CoqInterface.constr) Hashtbl.t val mkInt : int -> CoqInterface.constr -type 'a gen_hashed = { index : int; hval : 'a; } +type 'a gen_hashed = { index : int; mutable hval : 'a; } val mklApp : CoqInterface.constr Lazy.t -> CoqInterface.constr array -> CoqInterface.constr val string_of_name_def : string -> CoqInterface.name -> string val string_coq_constr : CoqInterface.constr -> string |