diff options
| -rw-r--r-- | cparser/Cutil.ml | 5 | ||||
| -rw-r--r-- | cparser/Cutil.mli | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/cparser/Cutil.ml b/cparser/Cutil.ml index 7329767a..5ff58780 100644 --- a/cparser/Cutil.ml +++ b/cparser/Cutil.ml @@ -821,6 +821,11 @@ let is_composite_type env t = | TStruct _ | TUnion _ -> true | _ -> false +let is_array_type env t = + match unroll env t with + | TArray _ -> true + | _ -> false + let is_function_type env t = match unroll env t with | TFun _ -> true diff --git a/cparser/Cutil.mli b/cparser/Cutil.mli index 5a1e9af3..3777c321 100644 --- a/cparser/Cutil.mli +++ b/cparser/Cutil.mli @@ -166,6 +166,8 @@ val is_scalar_type : Env.t -> typ -> bool (* Is type integer, float or pointer? *) val is_composite_type : Env.t -> typ -> bool (* Is type a struct or union? *) +val is_array_type : Env.t -> typ -> bool + (* Is type a array type? *) val is_function_type : Env.t -> typ -> bool (* Is type a function type? (not pointer to function) *) val is_function_pointer_type : Env.t -> typ -> bool |