diff options
Diffstat (limited to 'cparser/Cutil.ml')
-rw-r--r-- | cparser/Cutil.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/cparser/Cutil.ml b/cparser/Cutil.ml index 19a32a7e..4d0cd735 100644 --- a/cparser/Cutil.ml +++ b/cparser/Cutil.ml @@ -683,6 +683,11 @@ let is_function_type env t = | TFun _ -> true | _ -> false +let is_anonymous_composite = function + | TStruct (id,_) + | TUnion (id,_) -> id.C.name = "" + | _ -> false + (* Find the info for a field access *) let field_of_dot_access env t m = |