diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-01-23 13:33:33 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-01-23 13:33:33 +0100 |
commit | b5b681b7b55abb18165eaa907b04aefb9b0fddde (patch) | |
tree | 9c0a7df4b20ede85b54fe5c4e5d326fbf30a0013 /cparser/Ceval.ml | |
parent | 12803784f2753863985d1030999469c18e01e0f1 (diff) | |
parent | f00b70b6a17fdfb4e8606df891f6becc8102ef12 (diff) | |
download | compcert-kvx-b5b681b7b55abb18165eaa907b04aefb9b0fddde.tar.gz compcert-kvx-b5b681b7b55abb18165eaa907b04aefb9b0fddde.zip |
Merge branch 'master' into dwarf
Diffstat (limited to 'cparser/Ceval.ml')
-rw-r--r-- | cparser/Ceval.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Ceval.ml b/cparser/Ceval.ml index 39cda58c..ba7cdabc 100644 --- a/cparser/Ceval.ml +++ b/cparser/Ceval.ml @@ -102,7 +102,7 @@ let cast env ty_to ty_from v = then v else raise Notconst | TPtr(ty, _), I n -> - I (normalize_int n ptr_t_ikind) + I (normalize_int n (ptr_t_ikind ())) | TPtr(ty, _), (S _ | WS _) -> v | TEnum(_, _), I n -> |