aboutsummaryrefslogtreecommitdiffstats
path: root/cparser/Elab.ml
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2016-08-31 16:36:39 +0200
committerBernhard Schommer <bernhardschommer@gmail.com>2016-08-31 16:36:39 +0200
commit8763a45b8a5c6d51d53795573179ba66e479f288 (patch)
treea110a9e65ab1361ac605b127c9479397e5df918c /cparser/Elab.ml
parentc7ea6ababa7e57a3b9c529cfc0617072eaed0701 (diff)
downloadcompcert-8763a45b8a5c6d51d53795573179ba66e479f288.tar.gz
compcert-8763a45b8a5c6d51d53795573179ba66e479f288.zip
Added conformance warning.
This warning should be triggered if a feature is used that is not part of the code CompCert C language. Bug 18004
Diffstat (limited to 'cparser/Elab.ml')
-rw-r--r--cparser/Elab.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml
index 29bce36e..621417ed 100644
--- a/cparser/Elab.ml
+++ b/cparser/Elab.ml
@@ -2186,6 +2186,7 @@ let elab_fundef env spec name defs body loc =
| ty, None ->
(ty, [],env1)
| TFun(ty_ret, None, false, attr), Some params ->
+ warning loc Cerrors.CompCert_conformance "non-prototype, pre-standard function definition, converting to prototype form";
let (params', extra_decls,env) =
elab_KR_function_parameters env params defs loc in
(TFun(ty_ret, Some params', inherit_vararg env s sto ty, attr), extra_decls,env)