diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 16:24:28 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 16:24:28 +0100 |
| commit | e51ffb6c1d9411515facc5e97a4e8dba5d8b55ab (patch) | |
| tree | 80a7fc8212d28712365082e1a2a2d0fa28cedad3 /cparser/Ceval.ml | |
| parent | c130f4936bad11fd6dab3a5d142b870d2a5f650c (diff) | |
| parent | b0eb1dfc9fd7b15c556c49101390d882b0f00f8a (diff) | |
| download | compcert-e51ffb6c1d9411515facc5e97a4e8dba5d8b55ab.tar.gz compcert-e51ffb6c1d9411515facc5e97a4e8dba5d8b55ab.zip | |
Merge branch 'master' into no-shell
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 -> |