Explorar el Código

define haxe_(cur version) and the two last other one of the same major build

Nicolas Cannasse hace 13 años
padre
commit
64126a20b6
Se han modificado 1 ficheros con 4 adiciones y 1 borrados
  1. 4 1
      main.ml

+ 4 - 1
main.ml

@@ -640,7 +640,10 @@ try
 	let force_typing = ref false in
 	let pre_compilation = ref [] in
 	let interp = ref false in
-	Common.define com ("haxe_" ^ string_of_int version);
+	for i = 0 to 2 do
+		let v = version - i in
+		if v / 100 = version / 100 then Common.define com ("haxe_" ^ string_of_int version);
+	done;
 	com.warning <- (fun msg p -> message ctx ("Warning : " ^ msg) p);
 	com.error <- error ctx;
 	Parser.display_error := (fun e p -> com.error (Parser.error_msg e) p);