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/Transform.mli | |
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 'cparser/Transform.mli')
-rw-r--r-- | cparser/Transform.mli | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/cparser/Transform.mli b/cparser/Transform.mli index 960d890b..8f2c5f87 100644 --- a/cparser/Transform.mli +++ b/cparser/Transform.mli @@ -23,8 +23,12 @@ val get_temps : unit -> C.decl list val program : ?decl:(Env.t -> C.decl -> C.decl) -> ?fundef:(Env.t -> C.fundef -> C.fundef) -> - ?composite:(Env.t -> - C.struct_or_union -> C.ident -> C.field list -> C.field list) -> + ?composite:(Env.t -> C.struct_or_union -> + C.ident -> C.attributes -> C.field list -> + C.attributes * C.field list) -> ?typedef:(Env.t -> C.ident -> Env.typedef_info -> Env.typedef_info) -> + ?enum:(Env.t -> C.ident -> (C.ident * C.exp option) list -> + (C.ident * C.exp option) list) -> + ?pragma:(Env.t -> string -> string) -> C.program -> C.program |