diff options
author | Christoph Cullmann <cullmann@kde.org> | 2020-07-30 10:59:25 +0200 |
---|---|---|
committer | Christoph Cullmann <cullmann@kde.org> | 2020-07-30 10:59:25 +0200 |
commit | 970c5aa11a629d81abc893e7f0428b53e556ab30 (patch) | |
tree | 54764f097b748180d245b5766ac94265737e9728 /cparser | |
parent | 6903cff15e6a66982513f5fe1511ed70eb781cbd (diff) | |
download | compcert-kvx-970c5aa11a629d81abc893e7f0428b53e556ab30.tar.gz compcert-kvx-970c5aa11a629d81abc893e7f0428b53e556ab30.zip |
Add comments we missed to sync to GitHub
Diffstat (limited to 'cparser')
-rw-r--r-- | cparser/Elab.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 940c6f14..5c03410f 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -985,6 +985,7 @@ and elab_field_group env = function elab_name_group loc env (spec, List.map fst fieldlist) in if sto <> Storage_default then + (* This should actually never be triggered, catched by pre-parser *) error loc "non-default storage in struct or union"; if fieldlist = [] then (* This should actually never be triggered, empty structs are captured earlier *) @@ -2853,6 +2854,7 @@ let elab_definition (for_loop: bool) (local: bool) (nonstatic_inline: bool) (* "int f(int x) { ... }" *) (* "int f(x, y) double y; { ... }" *) | FUNDEF(spec, name, defs, body, loc) -> + (* This should actually never be triggered, catched by pre-parser *) if local then error loc "function definition is not allowed here"; let env1 = elab_fundef env spec name defs body loc in ([], env1) |