浏览代码

bugfix : "return" is considered a branch

Nicolas Cannasse 16 年之前
父节点
当前提交
0c5ab42b9a
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      genswf9.ml

+ 2 - 0
genswf9.ml

@@ -876,10 +876,12 @@ let rec gen_expr_content ctx retval e =
 		) vl
 	| TReturn None ->
 		write ctx HRetVoid;
+		ctx.infos.icond <- true;
 		no_value ctx retval
 	| TReturn (Some e) ->
 		gen_expr ctx true e;
 		write ctx HRet;
+		ctx.infos.icond <- true;
 		no_value ctx retval
 	| TField _
 	| TLocal _