From ec553a83a01665b4f868a03b91f6fc9e5c69b642 Mon Sep 17 00:00:00 2001 From: xleroy Date: Mon, 23 Oct 2006 09:04:26 +0000 Subject: Location pour erreur sur le type de main() git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@127 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- caml/Cil2Csyntax.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'caml') diff --git a/caml/Cil2Csyntax.ml b/caml/Cil2Csyntax.ml index 126e88a5..5fc31820 100644 --- a/caml/Cil2Csyntax.ml +++ b/caml/Cil2Csyntax.ml @@ -708,7 +708,8 @@ let convertGFun fdec = if v.vname = "main" then begin match ret with | Tint(_, _) -> () - | _ -> unsupported "the return type of main() must be an integer type" + | _ -> updateLoc v.vdecl; + unsupported "the return type of main() must be an integer type" end; Datatypes.Coq_pair (intern_string v.vname, -- cgit