From e563ed5bf7681b910e36d2dc4ea99406da940cec Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 31 May 2000 13:12:16 +0000 Subject: Afficahge des locations git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@483 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/pretype_errors.ml | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'pretyping/pretype_errors.ml') diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index 4067d0064c..74f4c57486 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -14,7 +14,17 @@ let error_var_not_found_loc loc k s = raise_pretype_error (loc,k, Global.context() (*bidon*), VarNotFound s) let error_cant_find_case_type_loc loc env expr = - raise_pretype_error (loc,CCI,context env,CantFindCaseType expr) + raise_pretype_error (loc, CCI, context env, CantFindCaseType expr) + +let error_actual_type_loc loc env c actty expty = + raise_pretype_error (loc, CCI, context env, ActualType (c,actty,expty)) + +let error_cant_apply_not_functional_loc loc env rator randl = + raise_pretype_error + (loc,CCI,context env, CantApplyNonFunctional (rator,randl)) + +let error_cant_apply_bad_type_loc loc env t rator randl = + raise_pretype_error (loc, CCI, context env, CantApplyBadType (t,rator,randl)) let error_ill_formed_branch k env c i actty expty = raise (TypeError (k, context env, IllFormedBranch (c,i,actty,expty))) -- cgit v1.2.3