diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-12 12:22:43 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-12 12:22:43 +0000 |
| commit | 6507802928d50f97511c2cb8bca5c9bb389385e1 (patch) | |
| tree | b02fca08950ebe54af40efa32dbaf20874e1c351 /cparser/Elab.ml | |
| parent | 404403dee55b0d8cb24f6af7615284a016f1bc72 (diff) | |
Silence a warning that happens all too often in MacOS X
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1654 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Elab.ml')
| -rw-r--r-- | cparser/Elab.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index eaba8d8..98d9d8b 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -289,8 +289,8 @@ let elab_attribute loc env = function | ("volatile", []) -> [AVolatile] | (("__attribute" | "__attribute__"), l) -> List.flatten (List.map (elab_gcc_attr loc env) l) - | (name, _) -> - warning loc "`%s' annotation ignored" name; [] + | ("__asm__", _) -> [] (* MacOS X noise *) + | (name, _) -> warning loc "`%s' annotation ignored" name; [] let elab_attributes loc env al = List.fold_left add_attributes [] (List.map (elab_attribute loc env) al) |