浏览代码

added support for -D advanced-telemetry

Nicolas Cannasse 13 年之前
父节点
当前提交
696d226f24
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      genswf.ml

+ 1 - 0
genswf.ml

@@ -1073,6 +1073,7 @@ let generate com swf_header =
 			fa_direct_blt = false;
 		})]
 	) in
+	let fattr = if Common.defined com "advanced-telemetry" then fattr @ [tag (TUnknown (0x5D,"\x00\x00"))] else fattr in
 	let swf = header, fattr @ bg :: debug @ tags @ [tag TShowFrame] in
   (* merge swf libraries *)
 	let priority = ref (swf_header = None) in