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 /cparser/Cutil.ml | |
parent | 13f5abe2a0d38e726249b66be574c82a96fec6e4 (diff) | |
download | compcert-a0924753089854930e77b0d4c26944a66250d42c.tar.gz compcert-a0924753089854930e77b0d4c26944a66250d42c.zip |
Updated comment string. Bug 18004.
Diffstat (limited to 'cparser/Cutil.ml')
-rw-r--r-- | cparser/Cutil.ml | 2 |
1 files changed, 1 insertions, 1 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 |