diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-05-31 23:51:31 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-05-31 23:51:31 +0200 |
commit | 78fbb0e6f4c2065460a0ddb7e2e3ec94da21169f (patch) | |
tree | 5d3a17f888b9e782eb4a822780dfe80ebab022fd /scheduling/BTLtoRTLaux.ml | |
parent | c4344192eca7711e5b781fd0cac9780c9691a881 (diff) | |
download | compcert-kvx-78fbb0e6f4c2065460a0ddb7e2e3ec94da21169f.tar.gz compcert-kvx-78fbb0e6f4c2065460a0ddb7e2e3ec94da21169f.zip |
Dupmap bugfix and some advance in Livegen
Diffstat (limited to 'scheduling/BTLtoRTLaux.ml')
-rw-r--r-- | scheduling/BTLtoRTLaux.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/scheduling/BTLtoRTLaux.ml b/scheduling/BTLtoRTLaux.ml index 8e728bd2..ddec991d 100644 --- a/scheduling/BTLtoRTLaux.ml +++ b/scheduling/BTLtoRTLaux.ml @@ -73,14 +73,16 @@ let btl2rtl (f : BTL.coq_function) = (*debug_flag := true;*) let btl = f.fn_code in let entry = f.fn_entrypoint in - let ordered_btl, new_entry = renumber btl entry in + let obne, dm = renumber btl entry in + let ordered_btl, new_entry = obne in let rtl = translate_function ordered_btl new_entry in - let dm = PTree.map (fun n i -> n) btl in - debug "Entry %d\n" (p2i entry); + debug "Entry %d\n" (p2i new_entry); + debug "BTL Code:\n"; + print_btl_code stderr ordered_btl; debug "RTL Code: "; print_code rtl; debug "Dupmap:\n"; print_ptree print_pint dm; debug "\n"; (*debug_flag := false;*) - ((rtl, entry), dm) + ((rtl, new_entry), dm) |