Added cascaded_scheduler but the flag does not work

1 files changed, 3 insertions, 2 deletions

diff --git a/driver/Driver.ml b/driver/Driver.ml
index 36d55913..94f89e99 100644
--- a/driver/Driver.ml
+++ b/driver/Driver.ml
@@ -194,7 +194,8 @@ Processing options:
   -fcse          Perform common subexpression elimination [on]
   -fredundancy   Perform redundancy elimination [on]
   -fpostpass     Perform postpass scheduling (only for K1 architecture) [on]
-  -pp-optimizer  Select the postpass optimizer to use if -fpostpass is active [list_scheduler]
+  -pp-optimizer <optimizer>  Select the postpass optimizer to use if -fpostpass is active
+                   (possible values: list_scheduler, cascaded_scheduler) [list_scheduler]
   -finline       Perform inlining of functions [on]
   -finline-functions-called-once Integrate functions only required by their
                  single caller [on]
@@ -296,7 +297,7 @@ let cmdline_actions =
   Exact "-O", Unit (set_all optimization_options);
   _Regexp "-O[123]$", Unit (set_all optimization_options);
   Exact "-Os", Set option_Osize;
-  Exact "-pp-optimizer", String(fun s -> option_pp_optimizer := if (s == "list_scheduler") then 1 else 0);
+  Exact "-pp-optimizer", String(fun s -> option_pp_optimizer := if (s == "list_scheduler") then 1 else if (s == "cascaded_scheduler") then 2 else 0);
   Exact "-fsmall-data", Integer(fun n -> option_small_data := n);
   Exact "-fsmall-const", Integer(fun n -> option_small_const := n);
   Exact "-ffloat-const-prop", Integer(fun n -> option_ffloatconstprop := n);