fix order of anonymous objects init

doc/CHANGES.txt

@@ -2,6 +2,7 @@
 	use _sans font for default flash traces (better Linux support)
 	fixed haxe.remoting.Connection compilation for Flash<8
 	added fix to prevent 64K identifiers limit on Flash<9
+	ensure order of anonymous fields initialization
 
 2007-08-29: 1.15
 	fixed bug with Enum.construct when Enum have type parameters

typer.ml

@@ -1718,7 +1718,7 @@ and type_expr ctx ?(need_val=true) (e,p) =
 		let fields , types = List.fold_left loop ([],PMap.empty) fl in
 		let x = ref Const in
 		ctx.opened <- x :: ctx.opened;
-		mk (TObjectDecl fields) (TAnon { a_fields = types; a_status = x }) p
+		mk (TObjectDecl (List.rev fields)) (TAnon { a_fields = types; a_status = x }) p
 	| EArrayDecl el ->
 		let t = ref (mk_mono()) in
 		let el = List.map (fun e ->