small print debugging tweaks.

This commit is contained in:
Léonard Gérard 2010-09-01 14:42:44 +02:00
parent 5c09abeb18
commit aad7b29c30
2 changed files with 3 additions and 2 deletions

View file

@ -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 "@]"
*)

View file

@ -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"