proxmox-mirrors/qemu
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu synced 2025-08-08 13:07:01 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

tcg-ppc: fix qemu_ld/qemu_st for AIX ABI

Browse Source 
For the AIX ABI, the function pointer and small area pointer need
to be loaded in the trampoline.  The trampoline instead is called
with a normal BL instruction.

Signed-off-by: Paolo Bonzini <pbonzini@redhat.com>
Signed-off-by: Richard Henderson <rth@twiddle.net>
This commit is contained in:
Paolo Bonzini 2013-09-05 10:22:08 +02:00 committed by Richard Henderson
parent e3608d66ce
commit 6a11557988
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tcg/ppc/tcg-target.c
View File

@ -490,7 +490,8 @@ static void tcg_out_b (TCGContext *s, int mask, tcg_target_long target)
} }
} }
static void tcg_out_call (TCGContext *s, tcg_target_long arg, int const_arg) static void tcg_out_call (TCGContext *s, tcg_target_long arg, int const_arg,
int lk)
{ {
#ifdef _CALL_AIX #ifdef _CALL_AIX
int reg; int reg;
@ -504,14 +505,14 @@ static void tcg_out_call (TCGContext *s, tcg_target_long arg, int const_arg)
tcg_out32 (s, LWZ | RT (0) | RA (reg)); tcg_out32 (s, LWZ | RT (0) | RA (reg));
tcg_out32 (s, MTSPR | RA (0) | CTR); tcg_out32 (s, MTSPR | RA (0) | CTR);
tcg_out32 (s, LWZ | RT (2) | RA (reg) | 4); tcg_out32 (s, LWZ | RT (2) | RA (reg) | 4);
tcg_out32 (s, BCCTR | BO_ALWAYS | LK); tcg_out32 (s, BCCTR | BO_ALWAYS | lk);
#else #else
if (const_arg) { if (const_arg) {
tcg_out_b (s, LK, arg); tcg_out_b (s, lk, arg);
} }
else { else {
tcg_out32 (s, MTSPR | RS (arg) | LR); tcg_out32 (s, MTSPR | RS (arg) | LR);
tcg_out32 (s, BCLR | BO_ALWAYS | LK); tcg_out32 (s, BCLR | BO_ALWAYS | lk);
} }
#endif #endif
} }
@ -860,7 +861,7 @@ static void tcg_out_qemu_ld_slow_path (TCGContext *s, TCGLabelQemuLdst *label)
tcg_out_mov (s, TCG_TYPE_I32, ir++, addr_reg); tcg_out_mov (s, TCG_TYPE_I32, ir++, addr_reg);
#endif #endif
tcg_out_movi (s, TCG_TYPE_I32, ir, mem_index); tcg_out_movi (s, TCG_TYPE_I32, ir, mem_index);
tcg_out_call (s, (tcg_target_long) ld_trampolines[s_bits], 1); tcg_out_b (s, LK, (tcg_target_long) ld_trampolines[s_bits]);
tcg_out32 (s, (tcg_target_long) raddr); tcg_out32 (s, (tcg_target_long) raddr);
switch (opc) { switch (opc) {
case 0|4: case 0|4:
@ -954,7 +955,7 @@ static void tcg_out_qemu_st_slow_path (TCGContext *s, TCGLabelQemuLdst *label)
ir++; ir++;
tcg_out_movi (s, TCG_TYPE_I32, ir, mem_index); tcg_out_movi (s, TCG_TYPE_I32, ir, mem_index);
tcg_out_call (s, (tcg_target_long) st_trampolines[opc], 1); tcg_out_b (s, LK, (tcg_target_long) st_trampolines[opc]);
tcg_out32 (s, (tcg_target_long) raddr); tcg_out32 (s, (tcg_target_long) raddr);
tcg_out_b (s, 0, (tcg_target_long) raddr); tcg_out_b (s, 0, (tcg_target_long) raddr);
} }
@ -984,7 +985,7 @@ static void emit_ldst_trampoline (TCGContext *s, const void *ptr)
tcg_out32 (s, ADDI | RT (3) | RA (3) | 4); tcg_out32 (s, ADDI | RT (3) | RA (3) | 4);
tcg_out32 (s, MTSPR | RS (3) | LR); tcg_out32 (s, MTSPR | RS (3) | LR);
tcg_out_mov (s, TCG_TYPE_I32, 3, TCG_AREG0); tcg_out_mov (s, TCG_TYPE_I32, 3, TCG_AREG0);
tcg_out_b (s, 0, (tcg_target_long) ptr); tcg_out_call (s, (tcg_target_long) ptr, 1, 0);
} }
#endif #endif
@ -1493,7 +1494,7 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, const TCGArg *args,
} }
break; break;
case INDEX_op_call: case INDEX_op_call:
tcg_out_call (s, args[0], const_args[0]); tcg_out_call (s, args[0], const_args[0], LK);
break; break;
case INDEX_op_movi_i32: case INDEX_op_movi_i32:
tcg_out_movi(s, TCG_TYPE_I32, args[0], args[1]); tcg_out_movi(s, TCG_TYPE_I32, args[0], args[1]);