Browse Source

[cli] add --jvm

Simon Krajewski 5 years ago
parent
commit
f822f3fa95
2 changed files with 6 additions and 2 deletions
  1. 5 0
      src/compiler/haxe.ml
  2. 1 2
      tests/unit/compile-jvm.hxml

+ 5 - 0
src/compiler/haxe.ml

@@ -736,6 +736,11 @@ try
 			cp_libs := "hxjava" :: !cp_libs;
 			cp_libs := "hxjava" :: !cp_libs;
 			Initialize.set_platform com Java dir;
 			Initialize.set_platform com Java dir;
 		),"<directory>","generate Java code into target directory");
 		),"<directory>","generate Java code into target directory");
+		("Target",["--jvm"],["-jvm"],Arg.String (fun dir ->
+			cp_libs := "hxjava" :: !cp_libs;
+			Common.define com Define.Jvm;
+			Initialize.set_platform com Java dir;
+		),"<directory>","generate JVM bytecode into target directory");
 		("Target",["--python"],["-python"],Arg.String (fun dir ->
 		("Target",["--python"],["-python"],Arg.String (fun dir ->
 			Initialize.set_platform com Python dir;
 			Initialize.set_platform com Python dir;
 		),"<file>","generate Python code as target file");
 		),"<file>","generate Python code as target file");

+ 1 - 2
tests/unit/compile-jvm.hxml

@@ -6,5 +6,4 @@
 compile-each.hxml
 compile-each.hxml
 --main unit.TestMain
 --main unit.TestMain
 --java-lib native_java/native.jar
 --java-lib native_java/native.jar
--java bin/jvm
--D jvm
+-jvm bin/jvm