diff options
author | whitequark <whitequark@whitequark.org> | 2018-06-16 12:31:22 +0000 |
---|---|---|
committer | whitequark <whitequark@whitequark.org> | 2018-06-18 10:36:22 +0000 |
commit | 6483605e9bea9dfb823934f4f8c8e89bd7977d4c (patch) | |
tree | 2140c67e9a0a1418985a5d1cda14593e55636d90 /checker | |
parent | f08153148b3ca0de01e5d7c68d5b318a2cae6d0d (diff) |
Remove Canary.
This eliminates 3 uses of Obj from TCB.
Diffstat (limited to 'checker')
-rw-r--r-- | checker/check.mllib | 1 | ||||
-rw-r--r-- | checker/values.ml | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/checker/check.mllib b/checker/check.mllib index f79ba66e3..139fa765b 100644 --- a/checker/check.mllib +++ b/checker/check.mllib @@ -3,7 +3,6 @@ Coq_config Analyze Hook Terminal -Canary Hashset Hashcons CSet diff --git a/checker/values.ml b/checker/values.ml index 67032bd1b..38032a6ca 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -91,7 +91,7 @@ let rec v_mp = Sum("module_path",0, [|[|v_dp|]; [|v_uid|]; [|v_mp;v_id|]|]) -let v_kn = v_tuple "kernel_name" [|Any;v_mp;v_dp;v_id;Int|] +let v_kn = v_tuple "kernel_name" [|v_mp;v_dp;v_id;Int|] let v_cst = v_sum "cst|mind" 0 [|[|v_kn|];[|v_kn;v_kn|]|] let v_ind = v_tuple "inductive" [|v_cst;Int|] let v_cons = v_tuple "constructor" [|v_ind;Int|] |