Переглянути джерело

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 _