diff options
Diffstat (limited to 'scheduling')
-rw-r--r-- | scheduling/RTLpathCommon.ml | 2 | ||||
-rw-r--r-- | scheduling/RTLpathScheduleraux.ml | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/scheduling/RTLpathCommon.ml b/scheduling/RTLpathCommon.ml index 748a02f1..3d123ba8 100644 --- a/scheduling/RTLpathCommon.ml +++ b/scheduling/RTLpathCommon.ml @@ -6,7 +6,7 @@ type superblock = { mutable instructions: P.t array; (* pointers to code instructions *) (* each predicted Pcb has its attached liveins *) (* This is indexed by the pc value *) - liveins: Regset.t PTree.t; + mutable liveins: Regset.t PTree.t; (* Union of the input_regs of the last successors *) s_output_regs: Regset.t; typing: RTLtyping.regenv 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 |