From c3d719b7ecd4bf2e1cfaee6e619f3ec8e3fe7e10 Mon Sep 17 00:00:00 2001 From: Cyril SIX Date: Fri, 10 May 2019 14:22:40 +0200 Subject: Asmblockgen prologue is now 1 basicblock (instead of 3) --- mppa_k1c/Asmblockgen.v | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'mppa_k1c/Asmblockgen.v') diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index f2292f9a..a4364051 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -1113,10 +1113,11 @@ Fixpoint transl_blocks (f: Machblock.function) (lmb: list Machblock.bblock) (ep: end . -Definition make_prologue (f: Machblock.function) lb := - (Pallocframe f.(fn_stacksize) f.(fn_link_ofs) ::b - Pget GPRA RA ::b - storeind_ptr GPRA SP f.(fn_retaddr_ofs) ::b lb). +Program Definition make_prologue (f: Machblock.function) lb := + ({| header := nil; body := Pallocframe f.(fn_stacksize) f.(fn_link_ofs) ::i + Pget GPRA RA ::i + storeind_ptr GPRA SP f.(fn_retaddr_ofs) ::i nil; + exit := None |} :: lb). Definition transl_function (f: Machblock.function) := do lb <- transl_blocks f f.(Machblock.fn_code) true; -- cgit