Răsfoiți Sursa

minor "throw" bugfix

Nicolas Cannasse 17 ani în urmă
părinte
comite
fdfe97c701
1 a modificat fișierele cu 1 adăugiri și 0 ștergeri
  1. 1 0
      genswf9.ml

+ 1 - 0
genswf9.ml

@@ -737,6 +737,7 @@ let rec gen_expr_content ctx retval e =
 	| TConst c ->
 		gen_constant ctx c e.etype e.epos
 	| TThrow e ->
+		ctx.infos.icond <- true;
 		getvar ctx (VGlobal (type_path ctx ([],ctx.boot)));
 		let id = type_path ctx (["flash"],"Error") in
 		write ctx (HFindPropStrict id);