浏览代码

[java/cs] Make sure the main expression is always a block

Cauê Waneck 9 年之前
父节点
当前提交
9ab880c6ba
共有 2 个文件被更改,包括 3 次插入3 次删除
  1. 2 2
      src/generators/gencs.ml
  2. 1 1
      src/generators/genjava.ml

+ 2 - 2
src/generators/gencs.ml

@@ -2416,7 +2416,7 @@ let configure gen =
 							expr_s w { eexpr = TTypeExpr(TClassDecl cl); etype = t_dynamic; epos = null_pos };
 							write w ".main();"
 						| Some expr ->
-							expr_s w expr);
+							expr_s w (mk_block expr));
 					end_block w;
 					end_block w;
 					newline w;
@@ -2460,7 +2460,7 @@ let configure gen =
 				| None ->
 					write w "main();";
 				| Some expr ->
-						expr_s w expr);
+						expr_s w (mk_block expr));
 			end_block w
 		end;
 

+ 1 - 1
src/generators/genjava.ml

@@ -1955,7 +1955,7 @@ let configure gen =
 				);
 				(match gen.gcon.main with
 					| Some(expr) ->
-						expr_s w expr
+						expr_s w (mk_block expr)
 					| None ->
 						write w "main();");
 				end_block w;