From b55147379939553eccd4289fd18e7f161619be4d Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 5 Oct 2013 07:54:23 +0000 Subject: Follow-up to commit 2339: don't complain about parameter redefinition for unnamed parameters. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2340 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- cparser/Elab.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'cparser') diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 4cbda39..fa9fd24 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -510,7 +510,7 @@ and elab_parameter env (spec, name) = if sto <> Storage_default && sto <> Storage_register then error (loc_of_name name) "'extern' or 'static' storage not supported for function parameter"; - if redef Env.lookup_ident env id <> None then + if id <> "" && redef Env.lookup_ident env id <> None then error (loc_of_name name) "redefinition of parameter '%s'" id; (* replace array and function types by pointer types *) let ty1 = argument_conversion env1 ty in -- cgit v1.2.3