diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-03-30 07:33:55 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-03-30 07:33:55 +0000 |
| commit | f45d0c79bc220fc5dbbf7a59b5d100d16726f1ec (patch) | |
| tree | 5a52f8f0743f49607ed5f11608b9042af272e636 /cparser | |
| parent | 39bc6e4f98dabf672798893df990576542ac1675 (diff) | |
"->" can also be applied to array types, not just pointer types.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2442 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser')
| -rw-r--r-- | cparser/Bitfields.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Bitfields.ml b/cparser/Bitfields.ml index d09c1fe..71404b2 100644 --- a/cparser/Bitfields.ml +++ b/cparser/Bitfields.ml @@ -237,7 +237,7 @@ let rec is_bitfield_access env e = end | EUnop(Oarrow fieldname, e1) -> begin match unroll env e1.etyp with - | TPtr(ty, _) -> + | TPtr(ty, _) | TArray(ty, _, _) -> is_bitfield_access env {edesc = EUnop(Odot fieldname, {edesc = EUnop(Oderef, e1); etyp = ty}); |