diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-07-08 12:04:28 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-07-08 12:04:28 +0200 |
| commit | 52c6be30048bf9b77b9dd6bc66f052ee5386f16e (patch) | |
| tree | 87ab50782e40116d4b23b6f61d90030d304993dd /cparser/Cutil.ml | |
| parent | ab1ddcd0d579d7e5760c6cfa84adbd55212c47e7 (diff) | |
| parent | f869da75c970aec78975f7154c806f29e3012b7a (diff) | |
| download | compcert-kvx-52c6be30048bf9b77b9dd6bc66f052ee5386f16e.tar.gz compcert-kvx-52c6be30048bf9b77b9dd6bc66f052ee5386f16e.zip | |
Merge branch 'master' of https://github.com/AbsInt/CompCert
Diffstat (limited to 'cparser/Cutil.ml')
| -rw-r--r-- | cparser/Cutil.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cparser/Cutil.ml b/cparser/Cutil.ml index 221bd7cc..a3c05c34 100644 --- a/cparser/Cutil.ml +++ b/cparser/Cutil.ml @@ -721,7 +721,8 @@ let type_of_member env fld = let find_matching_unsigned_ikind sz = assert (sz > 0); - if sz = !config.sizeof_int then IUInt + if sz = !config.sizeof_short then IUShort + else if sz = !config.sizeof_int then IUInt else if sz = !config.sizeof_long then IULong else if sz = !config.sizeof_longlong then IULongLong else assert false |