plans for 11.3 and 11.4

common.ml

@@ -194,7 +194,7 @@ let flash_versions = List.map (fun v ->
 	let maj = int_of_float v in
 	let min = int_of_float (mod_float (v *. 10.) 10.) in
 	v, string_of_int maj ^ (if min = 0 then "" else "_" ^ string_of_int min)
-) [9.;10.;10.1;10.2;10.3;11.;11.1;11.2]
+) [9.;10.;10.1;10.2;10.3;11.;11.1;11.2;11.3;11.4]
 
 let defined ctx v = PMap.mem v ctx.defines
 

genswf.ml

@@ -545,6 +545,8 @@ let swf_ver = function
 	| 11. -> 13
 	| 11.1 -> 14
 	| 11.2 -> 15
+	| 11.3 -> 16
+	| 11.4 -> 17
 	| _ -> assert false
 
 let convert_header com (w,h,fps,bg) =