From 78fbb0e6f4c2065460a0ddb7e2e3ec94da21169f Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Mon, 31 May 2021 23:51:31 +0200 Subject: Dupmap bugfix and some advance in Livegen --- scheduling/BTLtoRTLaux.ml | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'scheduling/BTLtoRTLaux.ml') 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) -- cgit