diff options
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 472b6a4e..5ab4eb4d 100644 --- a/cparser/Bitfields.ml +++ b/cparser/Bitfields.ml @@ -116,10 +116,10 @@ let rec transf_members env id count = function end end -let transf_composite env su id ml = +let transf_composite env su id attr ml = match su with - | Struct -> transf_members env id 1 ml - | Union -> ml + | Struct -> (attr, transf_members env id 1 ml) + | Union -> (attr, ml) (* Bitfield manipulation expressions *) |