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 00ef31fb..cdee5a5b 100644 --- a/scheduling/RTLpathScheduleraux.ml +++ b/scheduling/RTLpathScheduleraux.ml @@ -283,7 +283,9 @@ let turn_all_loads_nontrap sb code = let rec do_schedule code = function | [] -> code | sb :: lsb -> + (*debug_flag := true;*) let code_exp = expanse sb code in + (*debug_flag := false;*) (* Trick: instead of turning loads into non trap as needed.. * First, we turn them all into non-trap. * Then, we turn back those who didn't need to be turned, into TRAP again @@ -293,12 +295,11 @@ let rec do_schedule code = function let schedule = schedule_superblock sb code' in let new_code = apply_schedule code' sb schedule in begin - (*debug_flag := true; *) + (*debug_flag := true;*) 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_flag := false;*) debug "\n"; (* debug_flag := false; *) do_schedule new_code lsb |