|
@@ -96,7 +96,7 @@ let is_debug_run() =
|
|
|
try Sys.getenv "HAXEDEBUG" = "1" with _ -> false
|
|
|
|
|
|
let s_version =
|
|
|
- Printf.sprintf "%d.%d.%d" version_major version_minor version_revision
|
|
|
+ Printf.sprintf "%d.%d.%d%s" version_major version_minor version_revision (match Version.version_extra with None -> "" | Some v -> " " ^ v)
|
|
|
|
|
|
let format msg p =
|
|
|
if p = Ast.null_pos then
|
|
@@ -978,8 +978,8 @@ and do_connect host port args =
|
|
|
|
|
|
and init ctx =
|
|
|
let usage = Printf.sprintf
|
|
|
- "Haxe Compiler %s %s- (C)2005-2015 Haxe Foundation\n Usage : haxe%s -main <class> [-swf|-js|-neko|-php|-cpp|-as3] <output> [options]\n Options :"
|
|
|
- s_version (match Version.version_extra with None -> "" | Some v -> v) (if Sys.os_type = "Win32" then ".exe" else "")
|
|
|
+ "Haxe Compiler %s - (C)2005-2015 Haxe Foundation\n Usage : haxe%s -main <class> [-swf|-js|-neko|-php|-cpp|-as3] <output> [options]\n Options :"
|
|
|
+ s_version (if Sys.os_type = "Win32" then ".exe" else "")
|
|
|
in
|
|
|
let com = ctx.com in
|
|
|
let classes = ref [([],"Std")] in
|