jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Java fix, initialization order

Browse source
This commit is contained in:
Léonard Gérard 2011-03-23 18:24:25 +01:00
parent 46ed02416b
commit 9714cf0be9
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
compiler/obc/java/obc2java.ml
View file

@ -313,13 +313,13 @@ let class_def_list classes cd_l =
(* init actions [acts] in reverse order : *) (* init actions [acts] in reverse order : *)
(* init member variables *) (* init member variables *)
let acts = [Ablock reset_mems] in 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 *) (* allocate member arrays *)
let acts = List.fold_left allocate acts cd.cd_mems in 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 *) (* init static params *)
let acts = (copy_to_this vds_params)@acts in 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 mk_methode ~args:vds_params body (shortname class_name), obj_env
in in
let fields = let fields =