diff options
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;*) |