diff options
Diffstat (limited to 'scheduling/RTLpathScheduleraux.ml')
-rw-r--r-- | scheduling/RTLpathScheduleraux.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/scheduling/RTLpathScheduleraux.ml b/scheduling/RTLpathScheduleraux.ml index c5f7415f..cbd13588 100644 --- a/scheduling/RTLpathScheduleraux.ml +++ b/scheduling/RTLpathScheduleraux.ml @@ -301,8 +301,8 @@ let rec do_schedule code pm = function if code != code_exp then ( debug "Old Code: "; print_code code; debug "Exp Code: "; print_code code_exp); - (*debug "\nSchedule to apply: "; print_arrayp schedule;*) - (*debug "\nNew Code: "; print_code new_code;*) + debug "\nSchedule to apply: "; print_arrayp schedule; + debug "\nNew Code: "; print_code new_code; debug "\n"; do_schedule new_code pm lsb end @@ -321,12 +321,10 @@ let scheduler f = debug "Pathmap:\n"; debug "\n"; print_path_map pm; debug "Superblocks:\n"; - (*debug_flag := true; *) (*print_code code; flush stdout; flush stderr;*) (*debug_flag := false;*) (*print_superblocks lsb code; debug "\n";*) find_last_node_reg (PTree.elements code); - (*node := !node - 1;*) let (tc, pm) = do_schedule code pm lsb in (((tc, entry), pm), id_ptree) end |