diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-05-31 16:55:18 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-05-31 16:55:18 +0200 |
commit | 271f87ba08f42340900378c0797511d4071fc1b8 (patch) | |
tree | 8b861fa3221b179bb8e3ad339864cdb7c541d46a /scheduling/RTLtoBTLaux.ml | |
parent | e6a1df51a2a3d29c58d72453355e50a979e86297 (diff) | |
download | compcert-kvx-271f87ba08f42340900378c0797511d4071fc1b8.tar.gz compcert-kvx-271f87ba08f42340900378c0797511d4071fc1b8.zip |
BTL Scheduler oracle and some drafts
Diffstat (limited to 'scheduling/RTLtoBTLaux.ml')
-rw-r--r-- | scheduling/RTLtoBTLaux.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/scheduling/RTLtoBTLaux.ml b/scheduling/RTLtoBTLaux.ml index d04326ea..e709d846 100644 --- a/scheduling/RTLtoBTLaux.ml +++ b/scheduling/RTLtoBTLaux.ml @@ -6,7 +6,6 @@ open RTLcommonaux open DebugPrint open BTLtypes open BTLcommonaux -open BTLScheduleraux let encaps_final inst osucc = match inst with @@ -102,19 +101,16 @@ let rtl2btl (f : RTL.coq_function) = let btl = translate_function code entry join_points liveness in let dm = PTree.map (fun n i -> n) btl in (* TODO gourdinl move elsewhere *) - let btl' = btl_scheduler btl in debug "Entry %d\n" (p2i entry); (*debug_flag := true;*) debug "RTL Code: "; print_code code; debug "BTL Code:\n"; print_btl_code stderr btl; - debug "Scheduled BTL Code:\n"; - print_btl_code stderr btl'; (*debug_flag := false;*) debug "Dupmap:\n"; print_ptree print_pint dm; debug "Join points: "; print_true_nodes join_points; debug "\n"; - ((btl', entry), dm) + ((btl, entry), dm) |