Преглед изворни кода

[analyzer] make sure variable initializations are in `need_val` mode

Simon Krajewski пре 10 година
родитељ
комит
4addbafab3
1 измењених фајлова са 3 додато и 0 уклоњено
  1. 3 0
      analyzer.ml

+ 3 - 0
analyzer.ml

@@ -1485,6 +1485,9 @@ module LocalDce = struct
 			| TVar(v,Some e1) when not (is_used v) ->
 				let e1 = if has_side_effect e1 then loop true e1 else e1 in
 				e1
+			| TVar(v,Some e1) ->
+				let e1 = loop true e1 in
+				{e with eexpr = TVar(v,Some e1)}
 			| TWhile(e1,e2,flag) ->
 				collect e2;
 				let e2 = loop false e2 in