Просмотр исходного кода

[analyzer] update local values while const propagating to save some calculations

Simon Krajewski 10 лет назад
Родитель
Сommit
7f368e5952
1 измененных файлов с 2 добавлено и 4 удалено
  1. 2 4
      analyzer.ml

+ 2 - 4
analyzer.ml

@@ -923,12 +923,10 @@ module ConstPropagation = struct
 			end;
 			end;
 			let e = Ssa.get_var_value v in
 			let e = Ssa.get_var_value v in
 			let old = v.v_extra in
 			let old = v.v_extra in
-			let reset() =
-				v.v_extra <- old;
-			in
 			v.v_extra <- None;
 			v.v_extra <- None;
 			let e = value ssa e in
 			let e = value ssa e in
-			reset();
+			v.v_extra <- old;
+			Ssa.set_var_value v e;
 			e
 			e
 		with Not_found ->
 		with Not_found ->
 			e
 			e