Ver código fonte

[analyzer] detect more `need_val` places

Simon Krajewski 10 anos atrás
pai
commit
278421620b
1 arquivos alterados com 6 adições e 0 exclusões
  1. 6 0
      analyzer.ml

+ 6 - 0
analyzer.ml

@@ -1351,6 +1351,12 @@ module LocalDce = struct
 				let e2 = loop need_val e2 in
 				let e1 = loop false e1 in
 				{e with eexpr = TIf(e1,e2,e3)}
+			| TArrayDecl el ->
+				let el = List.map (loop true) el in
+				{e with eexpr = TArrayDecl el}
+			| TObjectDecl fl ->
+				let fl = List.map (fun (s,e) -> s,loop true e) fl in
+				{e with eexpr = TObjectDecl fl}
 			| _ ->
 				Type.map_expr (loop false) e
 		in