浏览代码

[jvm] fix main return

Simon Krajewski 5 年之前
父节点
当前提交
cc16406875
共有 1 个文件被更改,包括 3 次插入2 次删除
  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 ->
 			self#generate_expr gctx jc jm e true SCNone MStatic
 		| None ->
-			jm#return
-		end
+			()
+		end;
+		if not jm#is_terminated then jm#return
 
 	method private generate_fields =
 		let field mtype cf = match cf.cf_kind with