diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-06 16:53:46 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-06 16:53:46 +0100 |
commit | acb41b1af6e5e4c933e3be1b17f6e5012eca794d (patch) | |
tree | db57a6b2543871312a952ffa2e462e35aef674e0 /scheduling/RTLpathScheduleraux.ml | |
parent | 29ba37cc21cedc09b20bbd8adfa0ec52c48365c0 (diff) | |
download | compcert-kvx-acb41b1af6e5e4c933e3be1b17f6e5012eca794d.tar.gz compcert-kvx-acb41b1af6e5e4c933e3be1b17f6e5012eca794d.zip |
cond and branches expanded
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 |