Pārlūkot izejas kodu

fixed bug with AssignOp

Nicolas Cannasse 20 gadi atpakaļ
vecāks
revīzija
83b4b935b9
1 mainītis faili ar 1 papildinājumiem un 6 dzēšanām
  1. 1 6
      typer.ml

+ 1 - 6
typer.ml

@@ -529,12 +529,7 @@ let rec type_binop ctx op e1 e2 p =
 		check_assign ctx e1;
 		mk_op e1.etype
 	| OpAssignOp op ->
-		let e = loop op in
-		match e.eexpr with
-		| TBinop (op,e1,e2) -> 
-			mk (TBinop (OpAssignOp op,e1,e2)) e.etype p
-		| _ ->
-			assert false
+		loop op
 	in
 	loop op