Prechádzať zdrojové kódy

promote complex right-hand exprs for OpAssignOp as well

Dan Korostelev 11 rokov pred
rodič
commit
7b4e0b3ab9
1 zmenil súbory, kde vykonal 1 pridanie a 1 odobranie
  1. 1 1
      filters.ml

+ 1 - 1
filters.ml

@@ -203,7 +203,7 @@ let promote_complex_rhs ctx e =
 		List.rev !r
 	and find e = match e.eexpr with
 		| TReturn (Some e1) -> loop (fun e -> {e with eexpr = TReturn (Some e)}) e1
-		| TBinop(OpAssign, ({eexpr = TLocal _ | TField _ | TArray _} as e1), e2) -> loop (fun er -> {e with eexpr = TBinop(OpAssign, e1, er)}) e2
+		| TBinop(OpAssign | OpAssignOp _ as op, ({eexpr = TLocal _ | TField _ | TArray _} as e1), e2) -> loop (fun er -> {e with eexpr = TBinop(op, e1, er)}) e2
 		| TBlock(el) -> {e with eexpr = TBlock (block el)}
 		| _ -> Type.map_expr find e
 	in