diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-31 11:13:20 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-31 11:13:20 +0200 |
commit | a0924753089854930e77b0d4c26944a66250d42c (patch) | |
tree | 0218a58095bc5b8f184ed016ed3443c795c4d54c | |
parent | 13f5abe2a0d38e726249b66be574c82a96fec6e4 (diff) | |
download | compcert-a0924753089854930e77b0d4c26944a66250d42c.tar.gz compcert-a0924753089854930e77b0d4c26944a66250d42c.zip |
Updated comment string. Bug 18004.
-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. *) |