diff options
author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2016-12-27 19:50:01 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-12-27 19:50:01 +0100 |
commit | 9b022d749dc5b1fdb091ff8a74647c03fc1f84bb (patch) | |
tree | 24218347dd375ebdf36789659a5fd092cc8aa575 /cparser/Bitfields.ml | |
parent | 647cc8dc9699277cb1e77ae3b07c007186720d59 (diff) | |
parent | 860f28734063628f5582be91c7429b14f0922917 (diff) | |
download | compcert-9b022d749dc5b1fdb091ff8a74647c03fc1f84bb.tar.gz compcert-9b022d749dc5b1fdb091ff8a74647c03fc1f84bb.zip |
Merge pull request #153 from AbsInt/anonymous_struct2
Next try for support of anonymous structs.
Diffstat (limited to 'cparser/Bitfields.ml')
-rw-r--r-- | cparser/Bitfields.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cparser/Bitfields.ml b/cparser/Bitfields.ml index 9f38abc6..dc630ad3 100644 --- a/cparser/Bitfields.ml +++ b/cparser/Bitfields.ml @@ -137,7 +137,7 @@ let rec transf_struct_members env id count = function bf_bool = is_bool} end) bitfields; - { fld_name = carrier; fld_typ = carrier_typ; fld_bitfield = None} + { fld_name = carrier; fld_typ = carrier_typ; fld_bitfield = None; fld_anonymous = false;} :: transf_struct_members env id (count + 1) ml' end end @@ -174,7 +174,7 @@ let rec transf_union_members env id count = function bf_pos = pos'; bf_size = nbits; bf_signed = signed; bf_signed_res = signed2; bf_bool = is_bool}; - { fld_name = carrier; fld_typ = carrier_typ; fld_bitfield = None} + { fld_name = carrier; fld_typ = carrier_typ; fld_bitfield = None; fld_anonymous = false;} :: transf_struct_members env id (count + 1) ms) let transf_composite env su id attr ml = @@ -334,7 +334,7 @@ let rec transf_struct_init id fld_init_list = let (el, rem') = pack_bitfield_init id bf.bf_carrier fld_init_list in ({fld_name = bf.bf_carrier; fld_typ = bf.bf_carrier_typ; - fld_bitfield = None}, + fld_bitfield = None; fld_anonymous = false}, Init_single {edesc = ECast(bf.bf_carrier_typ, or_expr_list el); etyp = bf.bf_carrier_typ}) :: transf_struct_init id rem' |