diff options
| -rw-r--r-- | cparser/Cutil.ml | 2 | ||||
| -rw-r--r-- | cparser/Cutil.mli | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/cparser/Cutil.ml b/cparser/Cutil.ml index 53142598..f7405098 100644 --- a/cparser/Cutil.ml +++ b/cparser/Cutil.ml @@ -946,7 +946,7 @@ let valid_cast env tfrom tto = | TUnion(s1, _), TUnion(s2, _) -> s1 = s2 | _, _ -> false -(* Check that a cast from the first type to the second is an integer conversion *) +(* Check that the cast from tfrom to tto is an integer to pointer conversion *) let int_pointer_conversion env tfrom tto = match unroll env tfrom, unroll env tto with diff --git a/cparser/Cutil.mli b/cparser/Cutil.mli index 7fc6aedd..3f988f7c 100644 --- a/cparser/Cutil.mli +++ b/cparser/Cutil.mli @@ -198,8 +198,8 @@ val valid_assignment : Env.t -> exp -> typ -> bool the given type is allowed. *) val valid_cast : Env.t -> typ -> typ -> bool (* Check that a cast from the first type to the second is allowed. *) -val int_pointer_conversion: Env.t -> typ -> typ -> bool - (* Check that a cast from the first type to the second is an integer +val int_pointer_conversion : Env.t -> typ -> typ -> bool + (* Check that the cast from tfrom to tto is an integer to pointer conversion *) val fundef_typ: fundef -> typ (* Return the function type for the given function definition. *) |