From 906d9a5356fe7b90fc14a9c0d6a0d65abb7e80a8 Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Sat, 4 Jan 2014 13:09:05 +0100 Subject: Document programs ; better time support in monitor. --- sched/simplify.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'sched/simplify.ml') diff --git a/sched/simplify.ml b/sched/simplify.ml index 86c4790..ef2f0dc 100644 --- a/sched/simplify.ml +++ b/sched/simplify.ml @@ -328,9 +328,8 @@ let topo_sort p = let rec simplify_with steps p = let pp, use = List.fold_left (fun (x, u) (f, n) -> - print_string n; let xx, uu = f x in - print_string (if uu then " *\n" else "\n"); + print_endline (if uu then n ^ " *" else n); (xx, u || uu)) (p, false) steps in if use then simplify_with steps pp else pp @@ -338,6 +337,8 @@ let rec simplify_with steps p = let simplify p = let p = simplify_with [ topo_sort, "topo_sort"; + ] p in + let p = simplify_with [ cascade_slices, "cascade_slices"; pass_concat, "pass_concat"; select_to_id, "select_to_id"; -- cgit v1.2.3