Java fix, initialization order

master
Léonard Gérard 13 years ago
parent 46ed02416b
commit 9714cf0be9

@ -313,13 +313,13 @@ let class_def_list classes cd_l =
(* init actions [acts] in reverse order : *)
(* init member variables *)
let acts = [Ablock reset_mems] in
(* init member objects *)
let acts = List.fold_left obj_init_act acts cd.cd_objs in
(* allocate member arrays *)
let acts = List.fold_left allocate acts cd.cd_mems in
(* init member objects *)
let acts = List.fold_left obj_init_act acts cd.cd_objs in
(* init static params *)
let acts = (copy_to_this vds_params)@acts in
{ b_locals = []; b_body = List.rev acts }
{ b_locals = []; b_body = acts }
in mk_methode ~args:vds_params body (shortname class_name), obj_env
in
let fields =

Loading…
Cancel
Save