Explorar el Código

bugfix : "return" is considered a branch

Nicolas Cannasse hace 16 años
padre
commit
0c5ab42b9a
Se han modificado 1 ficheros con 2 adiciones y 0 borrados
  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 _