Procházet zdrojové kódy

fixed 64K resource limit

Nicolas Cannasse před 17 roky
rodič
revize
b0d8d74e18
2 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 1 0
      doc/CHANGES.txt
  2. 1 1
      genswf8.ml

+ 1 - 0
doc/CHANGES.txt

@@ -43,6 +43,7 @@
 	fixed Type.createInstance and createEmptyInstance with Array for flash6-8
 	added "c".code for compiletime UTF8 charcodes
 	completed flash10 support
+	fixed ~64K resource limit for SWF8
 
 2008-07-28: 2.0
 	fixed current package bug in inherited constructor type

+ 1 - 1
genswf8.ml

@@ -1480,9 +1480,9 @@ let generate com =
 	List.iter (fun t -> gen_type_def ctx t) com.types;
 	gen_boot ctx;
 	List.iter (fun m -> gen_movieclip ctx m) ctx.movieclips;
-	let global_try = gen_try ctx in
 	ctx.static_init <- true;
 	List.iter (gen_expr ctx false) (List.rev ctx.inits);
+	let global_try = gen_try ctx in
 	List.iter (gen_class_static_init ctx) (List.rev ctx.statics);
 	ctx.static_init <- false;
 	let end_try = global_try() in