Permalink
Browse files

add -D swf_use_doabc

  • Loading branch information...
1 parent cc9ab37 commit 0a745131d1da93943b04a50b3d04375742435773 @Simn Simn committed Feb 16, 2014
Showing with 3 additions and 1 deletion.
  1. +2 −0 common.ml
  2. +1 −1 genswf.ml
View
@@ -220,6 +220,7 @@ module Define = struct
| SwfPreloaderFrame
| SwfProtected
| SwfScriptTimeout
+ | SwfUseDoAbc
| Sys
| Unsafe
| UseNekoc
@@ -289,6 +290,7 @@ module Define = struct
| SwfPreloaderFrame -> ("swf_preloader_frame", "Insert empty first frame in swf")
| SwfProtected -> ("swf_protected","Compile Haxe private as protected in the SWF instead of public")
| SwfScriptTimeout -> ("swf_script_timeout", "Maximum ActionScript processing time before script stuck dialog box displays (in seconds)")
+ | SwfUseDoAbc -> ("swf_use_doabc", "Use DoAbc swf-tag instead of DoAbcDefine")
| Sys -> ("sys","Defined for all system platforms")
| Unsafe -> ("unsafe","Allow unsafe code when targeting C#")
| UseNekoc -> ("use_nekoc","Use nekoc compiler instead of internal one")
View
@@ -803,7 +803,7 @@ let build_swf9 com file swc =
hls_fields = [|f|];
}
) code in
- [tag (TActionScript3 (None,As3hlparse.flatten inits))]
+ [tag (TActionScript3 ((if Common.defined com Define.SwfUseDoAbc then Some(1,boot_name) else None), As3hlparse.flatten inits))]
) in
let cid = ref 0 in
let classes = ref [{ f9_cid = None; f9_classname = boot_name }] in

0 comments on commit 0a74513

Please sign in to comment.