diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-06-21 07:41:32 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-06-21 07:41:32 +0000 |
commit | 001222523a8d3ed758761916d85432b8dde2b2c2 (patch) | |
tree | 8206e5b30d9b4ee86093d576a833e93615cb060e /cparser/Cutil.mli | |
parent | 794b0530851265d08e369ff2eaf791b47b48c829 (diff) |
Recognize attribute((packed)) after a "struct {...}" and not just between "struct" and "{", for compatibility with GCC.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2285 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Cutil.mli')
-rw-r--r-- | cparser/Cutil.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/cparser/Cutil.mli b/cparser/Cutil.mli index 54b6304..7e23a72 100644 --- a/cparser/Cutil.mli +++ b/cparser/Cutil.mli @@ -44,6 +44,8 @@ val remove_attributes_type : Env.t -> attributes -> typ -> typ (* Remove the given set of attributes to those of the given type. *) val erase_attributes_type : Env.t -> typ -> typ (* Erase the attributes of the given type. *) +val attr_is_type_related: attribute -> bool +(* Is an attribute type-related (true) or variable-related (false)? *) (* Type compatibility *) val compatible_types : ?noattrs: bool -> Env.t -> typ -> typ -> bool |