diff options
Diffstat (limited to 'cparser/Bitfields.ml')
-rw-r--r-- | cparser/Bitfields.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/cparser/Bitfields.ml b/cparser/Bitfields.ml index 14c9314a..99b93c25 100644 --- a/cparser/Bitfields.ml +++ b/cparser/Bitfields.ml @@ -315,6 +315,8 @@ let transf_expr env ctx e = etyp = e.etyp} | ECast(ty, e1) -> {edesc = ECast(ty, texp Val e1); etyp = e.etyp} + | ECompound _ -> + assert false (* does not occur in unblocked code *) | ECall(e1, el) -> {edesc = ECall(texp Val e1, List.map (texp Val) el); etyp = e.etyp} |