diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-07-08 09:15:23 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-07-08 09:15:23 +0000 |
| commit | c838d3368f840ca35a638f8e8f6379fbf9606783 (patch) | |
| tree | d91127ddfd4adf4fe08f4efb977dad52b7ae9dbc /cparser/Transform.ml | |
| parent | 118c148ec89dc0b53bb377cf637cfdcd800f06e5 (diff) | |
Preliminary support for gcc-style __attribute__ over types
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1377 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Transform.ml')
| -rw-r--r-- | cparser/Transform.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/cparser/Transform.ml b/cparser/Transform.ml index b7f57f3..911d613 100644 --- a/cparser/Transform.ml +++ b/cparser/Transform.ml @@ -49,10 +49,6 @@ let program ?(typedef = fun env id ty -> ty) p = -(* In all transformations of interest so far, the environment is used only - for its type definitions and struct/union definitions, - so we do not update it for other definitions. *) - let rec transf_globdecls env accu = function | [] -> List.rev accu | g :: gl -> |