diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-06 12:05:53 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-06 12:05:53 +0100 |
| commit | 86d2b0555ee09d648c8d7373b0a9a4acdcb344e0 (patch) | |
| tree | 429f3d8c0f667305901312ec821ab70659908110 /aarch64/PostpassSchedulingOracle.ml | |
| parent | 2f3706e8a063575e2aaf37cf49d6cb20a9c4bb24 (diff) | |
| download | compcert-kvx-86d2b0555ee09d648c8d7373b0a9a4acdcb344e0.tar.gz compcert-kvx-86d2b0555ee09d648c8d7373b0a9a4acdcb344e0.zip | |
Preparing the repo for debugging postpass and executing tests
Diffstat (limited to 'aarch64/PostpassSchedulingOracle.ml')
| -rw-r--r-- | aarch64/PostpassSchedulingOracle.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/aarch64/PostpassSchedulingOracle.ml b/aarch64/PostpassSchedulingOracle.ml index a2e15139..831080d5 100644 --- a/aarch64/PostpassSchedulingOracle.ml +++ b/aarch64/PostpassSchedulingOracle.ml @@ -17,7 +17,7 @@ open Asmblock open OpWeightsAsm open InstructionScheduler -let debug = false +let debug = true (** * Extracting infos from Asm instructions @@ -890,11 +890,11 @@ let smart_schedule bb = pack_result bb' let bblock_schedule bb = - if debug then ( + let identity_mode = not !Clflags.option_fpostpass in + if (debug && not identity_mode) then ( Printf.eprintf "###############################\n"; Printf.eprintf "SCHEDULING\n" ); - (*if Compopts.optim_postpass () then smart_schedule bb else dumb_schedule bb*) - smart_schedule bb + if identity_mode then pack_result bb else smart_schedule bb (** Called schedule function from Coq *) |