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

Correctly set the name of generated nodes

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-13 16:01:42 +02:00
parent 0d9a35a8b6
commit 73bd2d080e
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/minils/main/mls2seq.ml
View file

@ -55,7 +55,7 @@ let generate_target p s =
let p_list = Callgraph_mapfold.program p in
List.iter convert_fun p_list
| Obc_no_params, Obc_fun convert_fun ->
let p_list = Callgraph_mapfold.program p in
let p_list = Callgraph_mapfold.program p in
let o_list = List.map Mls2obc.program p_list in
List.iter convert_fun o_list

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

@ -178,7 +178,7 @@ struct
let node_sig, _ = Global_mapfold.node_it global_funs m node_sig in
let ln = node_for_params_call ln params in
Modules.add_value_by_longname ln node_sig;
n
{ n with n_name = shortname ln }
let node_dec modname n =
let ln = Modname { qual = modname; id = n.n_name } in