diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-04-16 09:16:26 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-04-16 09:16:26 +0000 |
| commit | 507e6c242ced3c7f083edc1657092c9ff7a9c8f2 (patch) | |
| tree | 9f0a60c471493d25dd930dde79f0a15348d57dc7 /cparser/Elab.ml | |
| parent | abb6fbfe333173acfeeb9304f9c529778e58ff1c (diff) | |
cparser/Elab: __attribute, not attribute
ia32/PrintAsm: wrong section name
regression: added test attribs1
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1636 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Elab.ml')
| -rw-r--r-- | cparser/Elab.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 6c14836..f6731e4 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -280,7 +280,7 @@ let elab_attribute loc = function | ("const", []) -> [AConst] | ("restrict", []) -> [ARestrict] | ("volatile", []) -> [AVolatile] - | (("attribute" | "__attribute__"), l) -> + | (("__attribute" | "__attribute__"), l) -> List.flatten (List.map (elab_gcc_attr loc) l) | (name, _) -> warning loc "`%s' annotation ignored" name; [] |