aboutsummaryrefslogtreecommitdiffstats
path: root/cparser/Cutil.ml
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2016-08-31 11:13:20 +0200
committerBernhard Schommer <bernhardschommer@gmail.com>2016-08-31 11:13:20 +0200
commita0924753089854930e77b0d4c26944a66250d42c (patch)
tree0218a58095bc5b8f184ed016ed3443c795c4d54c /cparser/Cutil.ml
parent13f5abe2a0d38e726249b66be574c82a96fec6e4 (diff)
downloadcompcert-kvx-a0924753089854930e77b0d4c26944a66250d42c.tar.gz
compcert-kvx-a0924753089854930e77b0d4c26944a66250d42c.zip
Updated comment string. Bug 18004.
Diffstat (limited to 'cparser/Cutil.ml')
-rw-r--r--cparser/Cutil.ml2
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