소스 검색

[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