diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-09-28 13:47:24 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-09-28 13:47:24 +0200 |
| commit | e54e5bbee68de0e6b1dce4cd5a99e991fe3cf84e (patch) | |
| tree | b199d791dfc94a6edac7b3f431bff05973c77ab8 /src/versions | |
| parent | a1421e02870ce0c976de4014ddcc6545a7aa4e22 (diff) | |
| download | smtcoq-e54e5bbee68de0e6b1dce4cd5a99e991fe3cf84e.tar.gz smtcoq-e54e5bbee68de0e6b1dce4cd5a99e991fe3cf84e.zip | |
Improved performance with coq-8.5
Diffstat (limited to 'src/versions')
| -rw-r--r-- | src/versions/native/structures.ml | 2 | ||||
| -rw-r--r-- | src/versions/standard/structures.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index 60ea0e5..1eb43fb 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -80,7 +80,7 @@ let mkUConst c = const_entry_opaque = false; const_entry_inline_code = false} -let mkTConst c ty = +let mkTConst c _ ty = { const_entry_body = c; const_entry_type = Some ty; const_entry_secctx = None; diff --git a/src/versions/standard/structures.ml b/src/versions/standard/structures.ml index bf53f41..519103f 100644 --- a/src/versions/standard/structures.ml +++ b/src/versions/standard/structures.ml @@ -97,10 +97,10 @@ let mkUConst c = const_entry_opaque = false; const_entry_inline_code = false } -let mkTConst c ty = +let mkTConst c noc ty = let env = Global.env () in let evd = Evd.from_env env in - let evd, _ = Typing.type_of env evd c in + let evd, _ = Typing.type_of env evd noc in { const_entry_body = Future.from_val ((c, Univ.ContextSet.empty), Safe_typing.empty_private_constants); const_entry_secctx = None; |