From f126a1c0f2bc6434b6478c863ad910bf996ffbe1 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Mon, 5 May 2014 11:39:29 +0000
Subject: Stern warning on non-prototype function definitions.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2480 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 cparser/Elab.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cparser/Elab.ml b/cparser/Elab.ml
index d19b988..871d545 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
-- 
cgit v1.2.3