diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:19 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:19 +0000 |
| commit | 5053ccc561dd1416a788b5e000049b7e51826a7e (patch) | |
| tree | cde13ab8805732e8a030525aa8c5cf2a402bd2ba | |
| parent | ed18331f31fe2da5215a2548527e2b877f0b722f (diff) | |
checker validation made a bit more verbose
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16690 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | checker/validate.ml | 2 | ||||
| -rw-r--r-- | checker/values.ml | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/checker/validate.ml b/checker/validate.ml index b0c1704ee..f1b3fbe42 100644 --- a/checker/validate.ml +++ b/checker/validate.ml @@ -69,7 +69,7 @@ let rec val_gen v ctx o = match v with (try val_tag Obj.string_tag ctx o with Failure _ -> fail ctx o "expected a string") | Any -> () - | Fail -> fail ctx o "unexpected object" + | Fail s -> fail ctx o ("unexpected object " ^ s) | Annot (s,v) -> val_gen v (ctx/s) o (* Check that an object is a tuple (or a record). vs is an array of diff --git a/checker/values.ml b/checker/values.ml index 0855263f7..eb18bf34b 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -33,7 +33,7 @@ MD5 1e607e046b15faeee5912eda83dbb1ba checker/cic.mli type value = | Any - | Fail + | Fail of string | Tuple of string * value array | Sum of string * int * value array array | Array of value @@ -113,9 +113,9 @@ let v_cast = v_enum "cast_kind" 3 let rec v_constr = Sum ("constr",0,[| [|Int|]; (* Rel *) - [|Fail|]; (* Var *) - [|Fail|]; (* Meta *) - [|Fail|]; (* Evar *) + [|Fail "Var"|]; (* Var *) + [|Fail "Meta"|]; (* Meta *) + [|Fail "Evar"|]; (* Evar *) [|v_sort|]; (* Sort *) [|v_constr;v_cast;v_constr|]; (* Cast *) [|v_name;v_constr;v_constr|]; (* Prod *) |