diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-07-20 20:01:12 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-07-20 20:01:12 +0200 |
commit | 23c01485970efa11a7207ac2124f5922a011b0d4 (patch) | |
tree | 2f3acbfe77a4b0b0cc3f0b58b71939459b0797ee /scheduling/BTLScheduleraux.ml | |
parent | 871e6642968f03f381e50ded05a687afb829e63a (diff) | |
download | compcert-kvx-23c01485970efa11a7207ac2124f5922a011b0d4.tar.gz compcert-kvx-23c01485970efa11a7207ac2124f5922a011b0d4.zip |
new expansion oracle for BTL
Diffstat (limited to 'scheduling/BTLScheduleraux.ml')
-rw-r--r-- | scheduling/BTLScheduleraux.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scheduling/BTLScheduleraux.ml b/scheduling/BTLScheduleraux.ml index 98bc4590..6a114b74 100644 --- a/scheduling/BTLScheduleraux.ml +++ b/scheduling/BTLScheduleraux.ml @@ -60,7 +60,9 @@ let rec do_schedule btl = function let btl_scheduler f = let btl = f.fn_code in (*debug_flag := true;*) - let btl' = do_schedule btl (PTree.elements btl) in + let elts = PTree.elements btl in + find_last_reg elts; + let btl' = do_schedule btl elts in debug "Scheduled BTL Code:\n"; print_btl_code stderr btl'; (*debug_flag := false;*) |