Răsfoiți Sursa

add timer around HL's interpreter

Simon Krajewski 8 ani în urmă
părinte
comite
2ca1c06d0e
1 a modificat fișierele cu 3 adăugiri și 1 ștergeri
  1. 3 1
      src/generators/genhl.ml

+ 3 - 1
src/generators/genhl.ml

@@ -3748,7 +3748,9 @@ let generate com =
 	end;
 	end;
 	if Common.defined com Define.Interp then
 	if Common.defined com Define.Interp then
 		try
 		try
-			let ctx = Hlinterp.create true in
+			let t = Common.timer ["generate";"hl";"interp"] in
+			let ctx = Hlinterp.create false in
 			Hlinterp.add_code ctx code;
 			Hlinterp.add_code ctx code;
+			t();
 		with
 		with
 			Failure msg -> abort msg null_pos
 			Failure msg -> abort msg null_pos