Browse Source

[jvm] fix main return

Simon Krajewski 5 years ago
parent
commit
cc16406875
1 changed files with 3 additions and 2 deletions
  1. 3 2
      src/generators/genjvm.ml

+ 3 - 2
src/generators/genjvm.ml

@@ -2519,8 +2519,9 @@ class tclass_to_jvm gctx c = object(self)
 		| Some e ->
 		| Some e ->
 			self#generate_expr gctx jc jm e true SCNone MStatic
 			self#generate_expr gctx jc jm e true SCNone MStatic
 		| None ->
 		| None ->
-			jm#return
-		end
+			()
+		end;
+		if not jm#is_terminated then jm#return
 
 
 	method private generate_fields =
 	method private generate_fields =
 		let field mtype cf = match cf.cf_kind with
 		let field mtype cf = match cf.cf_kind with