diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-10-05 07:54:23 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-10-05 07:54:23 +0000 |
commit | b55147379939553eccd4289fd18e7f161619be4d (patch) | |
tree | 296c45845dc3df4ddb1a71c542e450da9e25d434 /cparser/Elab.ml | |
parent | 5ed9453be66703578f260450e4dde0b5a7125113 (diff) | |
download | compcert-b55147379939553eccd4289fd18e7f161619be4d.tar.gz compcert-b55147379939553eccd4289fd18e7f161619be4d.zip |
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
Diffstat (limited to 'cparser/Elab.ml')
-rw-r--r-- | cparser/Elab.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 4cbda399..fa9fd241 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 |