Browse Source

add version string to the "Generated by Haxe" comment

Dan Korostelev 9 years ago
parent
commit
8f3308b556
2 changed files with 4 additions and 4 deletions
  1. 1 1
      src/main.ml
  2. 3 3
      src/typing/common.ml

+ 1 - 1
src/main.ml

@@ -621,7 +621,7 @@ let default_flush ctx =
 
 let create_context params =
 	let ctx = {
-		com = Common.create version params;
+		com = Common.create version s_version params;
 		flush = (fun()->());
 		setup = (fun()->());
 		messages = [];

+ 3 - 3
src/typing/common.ml

@@ -653,15 +653,15 @@ let get_config com =
 
 let memory_marker = [|Unix.time()|]
 
-let create v args =
+let create version s_version args =
 	let m = Type.mk_mono() in
 	let defines =
 		PMap.add "true" "1" (
-		PMap.add "source-header" "Generated by Haxe" (
+		PMap.add "source-header" ("Generated by Haxe " ^ s_version) (
 		if !display_default <> DMNone then PMap.add "display" "1" PMap.empty else PMap.empty))
 	in
 	{
-		version = v;
+		version = version;
 		args = args;
 		sys_args = args;
 		debug = false;