diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-03 11:30:39 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-03 11:30:39 +0200 |
commit | d9ac009e14007e7b7e45e82f6187ae31d14aee94 (patch) | |
tree | 5f0e12eccd40bcc688408cb5d07dc8d850832384 /mppa_k1c/PostpassSchedulingOracle.ml | |
parent | cba53c98b999eea7984e4ffd24a9449abea3e0e2 (diff) | |
parent | fb77ce264f957a1ee3f87e537b55afbb10785ecf (diff) | |
download | compcert-kvx-d9ac009e14007e7b7e45e82f6187ae31d14aee94.tar.gz compcert-kvx-d9ac009e14007e7b7e45e82f6187ae31d14aee94.zip |
Merge remote-tracking branch 'origin/mppa-work' into mppa-peephole
Diffstat (limited to 'mppa_k1c/PostpassSchedulingOracle.ml')
-rw-r--r-- | mppa_k1c/PostpassSchedulingOracle.ml | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/mppa_k1c/PostpassSchedulingOracle.ml b/mppa_k1c/PostpassSchedulingOracle.ml index f88acb44..a4dc3614 100644 --- a/mppa_k1c/PostpassSchedulingOracle.ml +++ b/mppa_k1c/PostpassSchedulingOracle.ml @@ -779,13 +779,8 @@ let do_schedule bb = 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 ("Invalid scheduler:" ^ !Clflags.option_fpostpass_sched)) problem - (* in let solution = validated_scheduler - (if !Clflags.option_fpostpass_ilp - then cascaded_scheduler - else dumb_scheduler) problem *) - (* in let solution = dumb_scheduler problem *) + else if !Clflags.option_fpostpass_sched = "greedy" then + greedy_scheduler else failwith ("Invalid scheduler:" ^ !Clflags.option_fpostpass_sched)) problem in match solution with | None -> failwith "Could not find a valid schedule" | Some sol -> let bundles = bundlize_solution bb sol in |