diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-12 09:41:09 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-12 09:41:09 +0000 |
commit | fe8baff11737d3785ff51d20ace9ab31665cd295 (patch) | |
tree | edbab0f933283d5ecf455a5f94150c4f09379c51 /cfrontend/C2C.ml | |
parent | 239cbd2ebab8814b11d7ef43c35a17ce56a7ba0b (diff) | |
download | compcert-fe8baff11737d3785ff51d20ace9ab31665cd295.tar.gz compcert-fe8baff11737d3785ff51d20ace9ab31665cd295.zip |
cparser: support for attributes over struct and union.
cparser: added experimental emulation of packed structs (PackedStruct.ml)
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1650 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/C2C.ml')
-rw-r--r-- | cfrontend/C2C.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index 1ee63b85..98384fa8 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -887,10 +887,10 @@ let rec translEnv env = function | g :: gl -> let env' = match g.gdesc with - | C.Gcompositedecl(su, id) -> - Env.add_composite env id (Cutil.composite_info_decl env su) - | C.Gcompositedef(su, id, fld) -> - Env.add_composite env id (Cutil.composite_info_def env su fld) + | C.Gcompositedecl(su, id, attr) -> + Env.add_composite env id (Cutil.composite_info_decl env su attr) + | C.Gcompositedef(su, id, attr, fld) -> + Env.add_composite env id (Cutil.composite_info_def env su attr fld) | C.Gtypedef(id, ty) -> Env.add_typedef env id ty | _ -> |