diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-06-24 16:11:21 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-06-24 16:11:21 +0200 |
| commit | cb15f6b0c32328f4da74af872f9d54ebcab0d654 (patch) | |
| tree | c531284a110c69257b436b1f41146fa3354f4dba | |
| parent | ff62587774f6ca437c887cc3ff5d079895c5e214 (diff) | |
| download | compcert-cb15f6b0c32328f4da74af872f9d54ebcab0d654.tar.gz compcert-cb15f6b0c32328f4da74af872f9d54ebcab0d654.zip | |
Simple fix for problem with local extern.
| -rw-r--r-- | cparser/Elab.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index aa015b83..d6b79780 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1817,6 +1817,7 @@ let enter_or_refine_ident local loc env s sto ty = error loc "static redefinition of '%s' after non-static definition" s; sto | Storage_static,_ -> Storage_static (* Static stays static *) | Storage_extern,_ -> sto + | Storage_default,Storage_extern -> Storage_extern | _,Storage_extern -> old_sto | _,Storage_register | Storage_register,_ -> Storage_register |