diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-12 16:58:23 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-12 17:18:07 +0200 |
commit | 906873ee165cbaabf36ca51792eb5a498a12bd72 (patch) | |
tree | f32bcee6d0fc0d3039c57267b8b4d8db847ad9d9 /cparser/Cutil.mli | |
parent | a68c024bd8421cda0d21802669cb01730d109378 (diff) | |
download | compcert-906873ee165cbaabf36ca51792eb5a498a12bd72.tar.gz compcert-906873ee165cbaabf36ca51792eb5a498a12bd72.zip |
Move strip functions to Cutil.
Since the strip functions might be useful in other context and is
more general then the debug information.
Bug 17392.
Diffstat (limited to 'cparser/Cutil.mli')
-rw-r--r-- | cparser/Cutil.mli | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/cparser/Cutil.mli b/cparser/Cutil.mli index a322bfb1..a09316ad 100644 --- a/cparser/Cutil.mli +++ b/cparser/Cutil.mli @@ -56,6 +56,10 @@ val attr_is_type_related: attribute -> bool (* Is an attribute type-related (true) or variable-related (false)? *) val attr_inherited_by_members: attribute -> bool (* Is an attribute of a composite inherited by members of the composite? *) +val strip_attributes_type: typ -> attribute list -> typ + (* Remove all attributes from the given type that are not contained in the list *) +val strip_last_attribute: typ -> attribute option * typ + (* Remove the last top level attribute and return it *) (* Type compatibility *) |