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 /cparser/StructByValue.ml | |
| parent | 239cbd2ebab8814b11d7ef43c35a17ce56a7ba0b (diff) | |
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 'cparser/StructByValue.ml')
| -rw-r--r-- | cparser/StructByValue.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cparser/StructByValue.ml b/cparser/StructByValue.ml index c66af32..60c1154 100644 --- a/cparser/StructByValue.ml +++ b/cparser/StructByValue.ml @@ -22,7 +22,7 @@ open C open Cutil open Transform -(* In function argument types, struct s -> struct s * +(* In function argument types, struct s -> const struct s * In function result types, struct s -> void + add 1st parameter struct s * Try to preserve original typedef names when no change. *) @@ -286,8 +286,8 @@ let transf_fundef env f = (* Composites *) -let transf_composite env su id fl = - List.map (fun f -> {f with fld_typ = transf_type env f.fld_typ}) fl +let transf_composite env su id attr fl = + (attr, List.map (fun f -> {f with fld_typ = transf_type env f.fld_typ}) fl) (* Entry point *) |