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

Do not forget iterators at instantiation time either

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-16 12:33:08 +02:00
parent 7f4a0954bf
commit 27d5790a20
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
compiler/minils/transformations/callgraph_mapfold.ml
View file

@ -190,6 +190,20 @@ struct
let params = List.map (simplify m) params in
Eapp ({ app with a_op = Enode (node_for_params_call ln params);
a_params = [] }, e_list, r)
| Eiterator(it, ({ a_op = Efun ln; a_params = params } as app),
n, e_list, r) ->
let params = List.map (simplify m) params in
Eiterator(it,
{ app with a_op = Efun
(node_for_params_call ln params);
a_params = [] }, n, e_list, r)
| Eiterator(it, ({ a_op = Enode ln; a_params = params } as app),
n, e_list, r) ->
let params = List.map (simplify m) params in
Eiterator(it,
{ app with a_op = Enode
(node_for_params_call ln params);
a_params = [] }, n, e_list, r)
| _ -> ed
in ed, m