diff options
Diffstat (limited to 'scheduling/RTLpathScheduleraux.ml')
-rw-r--r-- | scheduling/RTLpathScheduleraux.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scheduling/RTLpathScheduleraux.ml b/scheduling/RTLpathScheduleraux.ml index 19b05741..5e4999db 100644 --- a/scheduling/RTLpathScheduleraux.ml +++ b/scheduling/RTLpathScheduleraux.ml @@ -319,10 +319,11 @@ let scheduler f = debug "Pathmap:\n"; debug "\n"; print_path_map pm; debug "Superblocks:\n"; - print_superblocks lsb code; debug "\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); - (*print_code code;*) let (tc, pm) = do_schedule code pm lsb in (((tc, entry), pm), id_ptree) end |