diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 17:24:01 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-19 17:24:01 +0100 |
| commit | 959542e4cf126c4f46f00c764b5365804de637c6 (patch) | |
| tree | 58eb44d941b65d15537a5c53bccd8257030aadf2 /cparser/PackedStructs.ml | |
| parent | b0c09b32f3e559ca22afc4dc40fdd60964cb3292 (diff) | |
| parent | b0eb1dfc9fd7b15c556c49101390d882b0f00f8a (diff) | |
| download | compcert-959542e4cf126c4f46f00c764b5365804de637c6.tar.gz compcert-959542e4cf126c4f46f00c764b5365804de637c6.zip | |
Merge github.com:AbsInt/CompCert into compcert_windows
Diffstat (limited to 'cparser/PackedStructs.ml')
| -rw-r--r-- | cparser/PackedStructs.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/PackedStructs.ml b/cparser/PackedStructs.ml index 686a7d39..1f602fc1 100644 --- a/cparser/PackedStructs.ml +++ b/cparser/PackedStructs.ml @@ -138,7 +138,7 @@ let accessor_type loc env ty = match unroll env ty with | TInt(ik,_) -> (8 * sizeof_ikind ik, TInt(unsigned_ikind_of ik,[])) | TEnum(_,_) -> (8 * sizeof_ikind enum_ikind, TInt(unsigned_ikind_of enum_ikind,[])) - | TPtr _ -> (8 * !config.sizeof_ptr, TInt(ptr_t_ikind,[])) + | TPtr _ -> (8 * !config.sizeof_ptr, TInt(ptr_t_ikind(),[])) | _ -> error "%a: unsupported type for byte-swapped field access" formatloc loc; (32, TVoid []) |