small print debugging tweaks.

14 years ago · aad7b29c30
parent 5c09abeb18
commit aad7b29c30
2 changed files with 3 additions and 2 deletions
--- a/compiler/utilities/graph.ml
+++ b/compiler/utilities/graph.ml
@ -127,6 +127,7 @@ let accessible useful_nodes g_list =
 let exists_path nodes n1 n2 =
  List.mem n2 (accessible [n1] nodes)

+(*
 open Format

 let print_node print g =
@ -142,5 +143,5 @@ let print_node print g =
       printf "@]@ ")
    g.g_depends_on;
  printf "@]"
-
+*)

--- a/tools/debugger_script
+++ b/tools/debugger_script
@ -44,7 +44,7 @@ load_printer "_build/obc/obc.d.cmo"
 load_printer "_build/obc/control.d.cmo"
 load_printer "_build/obc/obc_mapfold.d.cmo"
 load_printer "_build/main/mls2obc.d.cmo"
-load_printer "_build/minils/transformations/callgraph_mapfold.d.cmo"
+load_printer "_build/minils/transformations/callgraph.d.cmo"
 load_printer "_build/obc/c/c.d.cmo"
 load_printer "_build/obc/c/csubst.d.cmo"
 load_printer "_build/obc/obc_utils.d.cmo"