diff options
-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 |