The scheduler selection works, but the argument is not optional yet (-fpostpass nameofscheduler)

1 files changed, 7 insertions, 1 deletions

diff --git a/mppa_k1c/PostpassSchedulingOracle.ml b/mppa_k1c/PostpassSchedulingOracle.ml
index bd804fd6..25bf99e0 100644
--- a/mppa_k1c/PostpassSchedulingOracle.ml
+++ b/mppa_k1c/PostpassSchedulingOracle.ml
@@ -756,11 +756,17 @@ let print_bb oc bb =
 
 let do_schedule bb =
   let problem = build_problem bb
+  in let solution = (if !Clflags.option_fpostpass_sched = "ilp" then
+                      validated_scheduler cascaded_scheduler
+                    else if !Clflags.option_fpostpass_sched = "list" then
+                      validated_scheduler list_scheduler
+                    else if !Clflags.option_fpostpass_sched = "dumb" then
+                      dumb_scheduler else failwith "No scheduler provided") problem
   (* in let solution = validated_scheduler
                       (if !Clflags.option_fpostpass_ilp
                        then cascaded_scheduler
                        else dumb_scheduler) problem *)
-  in let solution = dumb_scheduler problem
+  (* in let solution = dumb_scheduler problem *)
   in match solution with
   | None -> failwith "Could not find a valid schedule"
   | Some sol -> let bundles = bundlize_solution bb sol in