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

Do not generate for loops

Browse source 
These loops are already present in the Obc code.
This commit is contained in:
Cédric Pasteur 2011-07-05 18:08:21 +02:00
parent 83b0182874
commit 34b65c1234
1 changed files with 2 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
compiler/obc/c/cgen.ml
View file

@ -556,17 +556,8 @@ let rec cstm_of_act out_env var_env obj_env act =
let on = obj_ref_name o in
let obj = assoc_obj on obj_env in
let classn = cname_of_qn obj.o_class in
(match obj.o_size with
| None ->
[Csexpr (Cfun_call (classn ^ "_reset",
[Caddrof (Cfield (Cderef (Cvar "self"), local_qn (name on)))]))]
| Some size ->
let x = gen_symbol () in
let field = Cfield (Cderef (Cvar "self"), local_qn (name on)) in
let elt = [Caddrof( Carray(field, Cvar x) )] in
[Cfor(x, Cconst (Ccint 0), cexpr_of_static_exp size,
[Csexpr (Cfun_call (classn ^ "_reset", elt ))] )]
)
[Csexpr (Cfun_call (classn ^ "_reset",
[Caddrof (Cfield (Cderef (Cvar "self"), local_qn (name on)))]))]
(** Step functions applications can return multiple values, so we use a
local structure to hold the results, before allocating to our