From a2cc41ebb00e45792fc2d0ef3e25f77994cf826f Mon Sep 17 00:00:00 2001 From: Cyril SIX Date: Thu, 26 Apr 2018 16:36:59 +0200 Subject: MPPA - FIX GPR10 is now the Frame Pointer in Asmexpand.ml (instead of GPR32) --- mppa_k1c/Asmexpand.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mppa_k1c/Asmexpand.ml b/mppa_k1c/Asmexpand.ml index 51d63da5..301e1624 100644 --- a/mppa_k1c/Asmexpand.ml +++ b/mppa_k1c/Asmexpand.ml @@ -495,20 +495,20 @@ let expand_instruction instr = match instr with | Pallocframe (sz, ofs) -> let sg = get_current_function_sig() in - emit (Pmv (GPR32, GPR12)); + emit (Pmv (GPR10, GPR12)); if sg.sig_cc.cc_vararg then begin let n = arguments_size sg in let extra_sz = if n >= 8 then 0 else align 16 ((8 - n) * wordsize) in let full_sz = Z.add sz (Z.of_uint extra_sz) in expand_addptrofs GPR12 GPR12 (Ptrofs.repr (Z.neg full_sz)); - expand_storeind_ptr GPR32 GPR12 ofs; + expand_storeind_ptr GPR10 GPR12 ofs; let va_ofs = Z.add full_sz (Z.of_sint ((n - 8) * wordsize)) in vararg_start_ofs := Some va_ofs; save_arguments n va_ofs end else begin expand_addptrofs GPR12 GPR12 (Ptrofs.repr (Z.neg sz)); - expand_storeind_ptr GPR32 GPR12 ofs; + expand_storeind_ptr GPR10 GPR12 ofs; vararg_start_ofs := None end | Pfreeframe (sz, ofs) -> -- cgit