diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-05-05 11:39:29 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-05-05 11:39:29 +0000 |
commit | f126a1c0f2bc6434b6478c863ad910bf996ffbe1 (patch) | |
tree | e71af654ed23bf6a7f2087dfc5991f9f7292c49f /cparser/Elab.ml | |
parent | 8c1f9086014cd20cf9347c014f3e991d312bbd98 (diff) | |
download | compcert-f126a1c0f2bc6434b6478c863ad910bf996ffbe1.tar.gz compcert-f126a1c0f2bc6434b6478c863ad910bf996ffbe1.zip |
Stern warning on non-prototype function definitions.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2480 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Elab.ml')
-rw-r--r-- | cparser/Elab.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index d19b9883..871d5455 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1875,6 +1875,7 @@ let elab_fundef env spec name body loc = env1 let elab_kr_fundef env spec name params defs body loc = + warning loc "Non-prototype, pre-standard function definition.@ Converting to prototype form."; (* Check that the declarations only declare parameters *) let check_one_decl (Init_name(Name(s, dty, attrs, loc'), ie)) = if not (List.mem s params) then |