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

1 files changed, 14 insertions, 2 deletions

diff --git a/cparser/Elab.ml b/cparser/Elab.ml
index 7204508..9a4639f 100644
--- a/cparser/Elab.ml
+++ b/cparser/Elab.ml
@@ -255,13 +255,25 @@ let elab_constant loc = function
 
 (* Elaboration of attributes *)
 
+exception Wrong_attr_arg
+
+let elab_attr_arg loc = function
+  | VARIABLE v -> AIdent v
+  | CONSTANT(CONST_STRING s) -> AString s
+  | CONSTANT(CONST_INT s) ->
+      let (v, _) = elab_int_constant loc s in AInt v
+  | _ -> raise Wrong_attr_arg
+
 let elab_attribute loc = function
   | ("const", []) -> Some AConst
   | ("restrict", []) -> Some ARestrict
   | ("volatile", []) -> Some AVolatile
   | (name, args) -> 
-      (* warning loc "ignoring '%s' attribute" name; *)
-      None
+      try
+        Some (Attr(name, List.map (elab_attr_arg loc) args))
+      with Wrong_attr_arg ->
+        warning loc "cannot parse '%s' attribute, ignored" name;
+        None
 
 let rec elab_attributes loc = function
   | [] -> []