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