Correctly set the name of generated nodes
This commit is contained in:
parent
0d9a35a8b6
commit
73bd2d080e
|
@ -55,7 +55,7 @@ let generate_target p s =
|
||||||
let p_list = Callgraph_mapfold.program p in
|
let p_list = Callgraph_mapfold.program p in
|
||||||
List.iter convert_fun p_list
|
List.iter convert_fun p_list
|
||||||
| Obc_no_params, Obc_fun convert_fun ->
|
| 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
|
let o_list = List.map Mls2obc.program p_list in
|
||||||
List.iter convert_fun o_list
|
List.iter convert_fun o_list
|
||||||
|
|
||||||
|
|
|
@ -178,7 +178,7 @@ struct
|
||||||
let node_sig, _ = Global_mapfold.node_it global_funs m node_sig in
|
let node_sig, _ = Global_mapfold.node_it global_funs m node_sig in
|
||||||
let ln = node_for_params_call ln params in
|
let ln = node_for_params_call ln params in
|
||||||
Modules.add_value_by_longname ln node_sig;
|
Modules.add_value_by_longname ln node_sig;
|
||||||
n
|
{ n with n_name = shortname ln }
|
||||||
|
|
||||||
let node_dec modname n =
|
let node_dec modname n =
|
||||||
let ln = Modname { qual = modname; id = n.n_name } in
|
let ln = Modname { qual = modname; id = n.n_name } in
|
||||||
|
|
Loading…
Reference in a new issue