diff options
Diffstat (limited to 'cfrontend')
-rw-r--r-- | cfrontend/C2C.ml | 2 | ||||
-rw-r--r-- | cfrontend/Cparser.mlpack | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index bdddd14a..9340cc50 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -491,7 +491,7 @@ let rec convertExpr env e = if is_volatile_access env e1 then Ecall(volatile_write_fun (typeof e1'), Econs(Eaddrof(e1', Tpointer(typeof e1')), Econs(e2', Enil)), - Tvoid) (* typing issue here *) + Tvoid) (* SimplVolatile guarantees that ret. value is unused *) else Eassign(e1', e2', ty) | C.EBinop((C.Oadd_assign|C.Osub_assign|C.Omul_assign|C.Odiv_assign| diff --git a/cfrontend/Cparser.mlpack b/cfrontend/Cparser.mlpack index 291b551a..e6bbdc61 100644 --- a/cfrontend/Cparser.mlpack +++ b/cfrontend/Cparser.mlpack @@ -22,5 +22,6 @@ cparser/StructByValue cparser/StructAssign cparser/Bitfields cparser/PackedStructs +cparser/SimplVolatile cparser/Parse |