瀏覽代碼

[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