Fixed bug in Callgraph
Only add new nodes to the environment.
This commit is contained in:
parent
36addab3cc
commit
b6561c4a9f
|
@ -182,7 +182,8 @@ struct
|
||||||
node_params_constraints = [] } in
|
node_params_constraints = [] } in
|
||||||
(* Find the name that was associated to this instance *)
|
(* Find the name that was associated to this instance *)
|
||||||
let ln = node_for_params_call n.n_name params in
|
let ln = node_for_params_call n.n_name params in
|
||||||
Modules.add_value ln node_sig; (*TODO Bug with array1.ept*)
|
if not (check_value ln) then
|
||||||
|
Modules.add_value ln node_sig;
|
||||||
{ n with n_name = ln; n_params = []; n_params_constraints = []; }
|
{ n with n_name = ln; n_params = []; n_params_constraints = []; }
|
||||||
|
|
||||||
let node_dec modname n =
|
let node_dec modname n =
|
||||||
|
|
Loading…
Reference in a new issue