|
@@ -2797,7 +2797,7 @@ module Cleanup = struct
|
|
|
| _,TConst (TBool false) -> {e with eexpr = TBinop(OpBoolAnd,e1,e2)}
|
|
|
| _,TBlock [] -> {e with eexpr = TIf(e1,e2,None)}
|
|
|
| _ -> match (skip e2).eexpr with
|
|
|
- | TBlock [] ->
|
|
|
+ | TBlock [] when com.platform <> Cs ->
|
|
|
let e1' = mk (TUnop(Not,Prefix,e1)) e1.etype e1.epos in
|
|
|
let e1' = Optimizer.optimize_unop e1' Not Prefix e1 in
|
|
|
{e with eexpr = TIf(e1',e3,None)}
|