diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-12 09:26:02 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-12 09:26:02 +0200 |
commit | 41cac0e437d63399f46ac3c4b5c7ad2c23f88c5e (patch) | |
tree | 2c01f5a7caa7e48d0b6256fed2f876f89a3dff33 /mppa_k1c/Asmblockgen.v | |
parent | 005093b87250b6b27b320eb789574da4bda616c0 (diff) | |
parent | 28b4c273e3ec4d7022dd2994bfeed0a046c0727f (diff) | |
download | compcert-kvx-41cac0e437d63399f46ac3c4b5c7ad2c23f88c5e.tar.gz compcert-kvx-41cac0e437d63399f46ac3c4b5c7ad2c23f88c5e.zip |
Merge remote-tracking branch 'origin/mppa-work' into mppa-msub
Diffstat (limited to 'mppa_k1c/Asmblockgen.v')
-rw-r--r-- | mppa_k1c/Asmblockgen.v | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/mppa_k1c/Asmblockgen.v b/mppa_k1c/Asmblockgen.v index 71af4798..941796cd 100644 --- a/mppa_k1c/Asmblockgen.v +++ b/mppa_k1c/Asmblockgen.v @@ -1155,10 +1155,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; |