From fe8baff11737d3785ff51d20ace9ab31665cd295 Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 12 May 2011 09:41:09 +0000 Subject: 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 --- cparser/Rename.ml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'cparser/Rename.ml') diff --git a/cparser/Rename.ml b/cparser/Rename.ml index 4b2f350..d58c8ad 100644 --- a/cparser/Rename.ml +++ b/cparser/Rename.ml @@ -197,11 +197,12 @@ and globdecl_desc env = function | Gfundef fd -> let (fd', env') = fundef env fd in (Gfundef fd', env') - | Gcompositedecl(kind, id) -> + | Gcompositedecl(kind, id, attr) -> let (id', env') = rename env id in - (Gcompositedecl(kind, id'), env') - | Gcompositedef(kind, id, members) -> - (Gcompositedef(kind, ident env id, List.map (field env) members), env) + (Gcompositedecl(kind, id', attr), env') + | Gcompositedef(kind, id, attr, members) -> + (Gcompositedef(kind, ident env id, attr, List.map (field env) members), + env) | Gtypedef(id, ty) -> let (id', env') = rename env id in (Gtypedef(id', typ env' ty), env') -- cgit v1.2.3