Fixed bug in Callgraph

Only add new nodes to the environment.
2010-09-13 09:12:10 +02:00 · 2010-09-13 09:12:10 +02:00 · b6561c4a9f
commit b6561c4a9f
parent 36addab3cc
1 changed files with 2 additions and 1 deletions
--- a/compiler/minils/transformations/callgraph.ml
+++ b/compiler/minils/transformations/callgraph.ml
@ -182,7 +182,8 @@ struct
                                     node_params_constraints = [] } in
      (* Find the name that was associated to this instance *)
      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 = []; }

    let node_dec modname n =