diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-07-07 08:41:55 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-07-07 08:41:55 +0000 |
commit | 39027a6ea0446b45d2c8aee1eb0c256a6f0f7417 (patch) | |
tree | 93523618b9674f8070170d1ffb4e40a639ee6608 /cparser/PackedStructs.ml | |
parent | a0aaa3552d53b20a99566ac7116063fbb31b9964 (diff) | |
download | compcert-39027a6ea0446b45d2c8aee1eb0c256a6f0f7417.tar.gz compcert-39027a6ea0446b45d2c8aee1eb0c256a6f0f7417.zip |
Bad printing of alignment on 'comm' symbols.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2291 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/PackedStructs.ml')
-rw-r--r-- | cparser/PackedStructs.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cparser/PackedStructs.ml b/cparser/PackedStructs.ml index ebf210b5..13a00ce4 100644 --- a/cparser/PackedStructs.ml +++ b/cparser/PackedStructs.ml @@ -525,9 +525,9 @@ let rec transf_globdecls env accu = function (Env.add_typedef env id ty) (g :: accu) gl - | Genumdef _ -> + | Genumdef(id, attr, el) -> transf_globdecls - env + (Env.add_enum env id {ei_members = el; ei_attr = attr}) (g :: accu) gl | Gpragma p -> |