aboutsummaryrefslogtreecommitdiffstats
path: root/mppa_k1c/Asmgen.v
diff options
context:
space:
mode:
Diffstat (limited to 'mppa_k1c/Asmgen.v')
-rw-r--r--mppa_k1c/Asmgen.v7
1 files changed, 4 insertions, 3 deletions
diff --git a/mppa_k1c/Asmgen.v b/mppa_k1c/Asmgen.v
index 1edb209d..ba9e6fe8 100644
--- a/mppa_k1c/Asmgen.v
+++ b/mppa_k1c/Asmgen.v
@@ -843,8 +843,8 @@ Definition make_epilogue (f: Mach.function) (k: code) :=
*)
Definition make_epilogue (f: Mach.function) (k: code) :=
- Pset RA GPR8 :: loadind_ptr SP f.(fn_retaddr_ofs) GPR8
- (Pfreeframe f.(fn_stacksize) f.(fn_link_ofs) :: k).
+ loadind_ptr SP f.(fn_retaddr_ofs) GPR8
+ (Pset RA GPR8 :: Pfreeframe f.(fn_stacksize) f.(fn_link_ofs) :: k).
(*
Definition make_epilogue (f: Mach.function) (k: code) :=
@@ -942,7 +942,8 @@ Definition transl_function (f: Mach.function) :=
do c <- transl_code' f f.(Mach.fn_code) true;
OK (mkfunction f.(Mach.fn_sig)
(Pallocframe f.(fn_stacksize) f.(fn_link_ofs) ::
- storeind_ptr GPR8 SP f.(fn_retaddr_ofs) (Pget GPR8 RA :: c))).
+ Pget GPR8 RA ::
+ storeind_ptr GPR8 SP f.(fn_retaddr_ofs) c)).
(*
Definition transl_function (f: Mach.function) :=