浏览代码

minor "throw" bugfix

Nicolas Cannasse 17 年之前
父节点
当前提交
fdfe97c701
共有 1 个文件被更改,包括 1 次插入0 次删除
  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);