diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-10-23 09:04:26 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-10-23 09:04:26 +0000 |
commit | ec553a83a01665b4f868a03b91f6fc9e5c69b642 (patch) | |
tree | 7f03a3797f9fdb66e48e95b499da360489411253 /caml/Cil2Csyntax.ml | |
parent | 571a9c7bad15bc8f99a20499287921f2e3b8ad87 (diff) | |
download | compcert-ec553a83a01665b4f868a03b91f6fc9e5c69b642.tar.gz compcert-ec553a83a01665b4f868a03b91f6fc9e5c69b642.zip |
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
Diffstat (limited to 'caml/Cil2Csyntax.ml')
-rw-r--r-- | caml/Cil2Csyntax.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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, |