diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 16:05:27 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 16:05:27 +0000 |
commit | d3097cd34ffffda5dbe332ee88fd33d54180fad9 (patch) | |
tree | b634215effd11bfa01b25750522c441013a2ced2 /checker/values.ml | |
parent | 4bd2e928e3b8d463bb793ad814ff42abdabf9611 (diff) |
Checker: vo validation checks the absence of Var/Evar/Meta
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16405 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/values.ml')
-rw-r--r-- | checker/values.ml | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/checker/values.ml b/checker/values.ml index 5b3343991..b05085ae4 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -13,7 +13,7 @@ To ensure this file is up-to-date, 'make' now compares the md5 of cic.mli with a copy we maintain here: -MD5 9a9abd32a97761c8de8902f314cb0649 checker/cic.mli +MD5 1e607e046b15faeee5912eda83dbb1ba checker/cic.mli *) @@ -22,6 +22,7 @@ MD5 9a9abd32a97761c8de8902f314cb0649 checker/cic.mli could become automatically generated someday ? - [Any] stands for a value that we won't check, + - [Fail] means a value that shouldn't be there at all, - [Tuple] provides a name and sub-values in this block - [Sum] provides a name, a number of constant constructors, and sub-values at each position of each possible constructed @@ -32,6 +33,7 @@ MD5 9a9abd32a97761c8de8902f314cb0649 checker/cic.mli type value = | Any + | Fail | Tuple of string * value array | Sum of string * int * value array array | Array of value @@ -111,9 +113,9 @@ let v_cast = v_enum "cast_kind" 3 let rec v_constr = Sum ("constr",0,[| [|Int|]; (* Rel *) - [|v_id|]; (* Var *) - [|Int|]; (* Meta *) - [|v_evar|]; (* Evar *) + [|Fail|]; (* Var *) + [|Fail|]; (* Meta *) + [|Fail|]; (* Evar *) [|v_sort|]; (* Sort *) [|v_constr;v_cast;v_constr|]; (* Cast *) [|v_name;v_constr;v_constr|]; (* Prod *) @@ -128,7 +130,6 @@ let rec v_constr = [|v_cofix|] (* CoFix *) |]) -and v_evar = Tuple ("pexistential",[|Int;Array v_constr|]) and v_prec = Tuple ("prec_declaration", [|Array v_name; Array v_constr; Array v_constr|]) and v_fix = Tuple ("pfixpoint", [|Tuple ("fix2",[|Array Int;Int|]);v_prec|]) |