Jelajahi Sumber

bugfix : "return" is considered a branch

Nicolas Cannasse 16 tahun lalu
induk
melakukan
0c5ab42b9a
1 mengubah file dengan 2 tambahan dan 0 penghapusan
  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 _