mirror of
https://github.com/Motorhead1991/qemu.git
synced 2025-08-05 16:53:55 -06:00
tcg: Convert sar to TCGOutOpBinary
Reviewed-by: Pierrick Bouvier <pierrick.bouvier@linaro.org> Signed-off-by: Richard Henderson <richard.henderson@linaro.org>
This commit is contained in:
parent
74dbd36f1f
commit
b5aafbaa83
11 changed files with 230 additions and 164 deletions
|
@ -1347,13 +1347,6 @@ static inline void tcg_out_extr(TCGContext *s, TCGType ext, TCGReg rd,
|
|||
tcg_out_insn(s, 3403, EXTR, ext, rd, rn, rm, a);
|
||||
}
|
||||
|
||||
static inline void tcg_out_sar(TCGContext *s, TCGType ext,
|
||||
TCGReg rd, TCGReg rn, unsigned int m)
|
||||
{
|
||||
int max = ext ? 63 : 31;
|
||||
tcg_out_sbfm(s, ext, rd, rn, m & max, max);
|
||||
}
|
||||
|
||||
static inline void tcg_out_rotr(TCGContext *s, TCGType ext,
|
||||
TCGReg rd, TCGReg rn, unsigned int m)
|
||||
{
|
||||
|
@ -2284,6 +2277,25 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.out_rrr = tgen_remu,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
tcg_out_insn(s, 3508, ASRV, type, a0, a1, a2);
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
int max = type == TCG_TYPE_I32 ? 31 : 63;
|
||||
tcg_out_sbfm(s, type, a0, a1, a2 & max, max);
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, ri),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -2439,15 +2451,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType ext,
|
|||
tcg_out_ldst(s, I3312_STRX, a0, a1, a2, 3);
|
||||
break;
|
||||
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_sar_i32:
|
||||
if (c2) {
|
||||
tcg_out_sar(s, ext, a0, a1, a2);
|
||||
} else {
|
||||
tcg_out_insn(s, 3508, ASRV, ext, a0, a1, a2);
|
||||
}
|
||||
break;
|
||||
|
||||
case INDEX_op_rotr_i64:
|
||||
case INDEX_op_rotr_i32:
|
||||
if (c2) {
|
||||
|
@ -3096,10 +3099,8 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_negsetcond_i64:
|
||||
return C_O1_I2(r, r, rC);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotr_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_rotl_i64:
|
||||
case INDEX_op_rotr_i64:
|
||||
return C_O1_I2(r, r, ri);
|
||||
|
|
|
@ -1963,6 +1963,25 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.base.static_constraint = C_NotImplemented,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
tcg_out_dat_reg(s, COND_AL, ARITH_MOV, a0, 0, a1, SHIFT_REG_ASR(a2));
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
tcg_out_dat_reg(s, COND_AL, ARITH_MOV, a0, 0, a1,
|
||||
SHIFT_IMM_ASR(a2 & 0x1f));
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, ri),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -2152,15 +2171,9 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
case INDEX_op_muls2_i32:
|
||||
tcg_out_smull32(s, COND_AL, args[0], args[1], args[2], args[3]);
|
||||
break;
|
||||
case INDEX_op_sar_i32:
|
||||
c = const_args[2] ? (args[2] & 0x1f) ? SHIFT_IMM_ASR(args[2] & 0x1f) :
|
||||
SHIFT_IMM_LSL(0) : SHIFT_REG_ASR(args[2]);
|
||||
goto gen_shift32;
|
||||
case INDEX_op_rotr_i32:
|
||||
c = const_args[2] ? (args[2] & 0x1f) ? SHIFT_IMM_ROR(args[2] & 0x1f) :
|
||||
SHIFT_IMM_LSL(0) : SHIFT_REG_ROR(args[2]);
|
||||
/* Fall through. */
|
||||
gen_shift32:
|
||||
tcg_out_dat_reg(s, COND_AL, ARITH_MOV, args[0], 0, args[1], c);
|
||||
break;
|
||||
|
||||
|
@ -2329,7 +2342,6 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_muls2_i32:
|
||||
return C_O2_I2(r, r, r, r);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotr_i32:
|
||||
return C_O1_I2(r, r, ri);
|
||||
|
|
|
@ -2749,6 +2749,33 @@ static TCGConstraintSetIndex cset_shift(TCGType type, unsigned flags)
|
|||
return have_bmi2 ? C_O1_I2(r, r, ri) : C_O1_I2(r, 0, ci);
|
||||
}
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
int rexw = type == TCG_TYPE_I32 ? 0 : P_REXW;
|
||||
if (have_bmi2) {
|
||||
tcg_out_vex_modrm(s, OPC_SARX + rexw, a0, a2, a1);
|
||||
} else {
|
||||
tcg_out_modrm(s, OPC_SHIFT_cl + rexw, SHIFT_SAR, a0);
|
||||
}
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
int rexw = type == TCG_TYPE_I32 ? 0 : P_REXW;
|
||||
|
||||
tcg_out_mov(s, type, a0, a1);
|
||||
tcg_out_shifti(s, SHIFT_SAR + rexw, a0, a2);
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_Dynamic,
|
||||
.base.dynamic_constraint = cset_shift,
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -2874,7 +2901,7 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
const int const_args[TCG_MAX_OP_ARGS])
|
||||
{
|
||||
TCGArg a0, a1, a2;
|
||||
int c, const_a2, vexop, rexw;
|
||||
int c, const_a2, rexw;
|
||||
|
||||
#if TCG_TARGET_REG_BITS == 64
|
||||
# define OP_32_64(x) \
|
||||
|
@ -2949,25 +2976,12 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
}
|
||||
break;
|
||||
|
||||
OP_32_64(sar):
|
||||
c = SHIFT_SAR;
|
||||
vexop = OPC_SARX;
|
||||
goto gen_shift_maybe_vex;
|
||||
OP_32_64(rotl):
|
||||
c = SHIFT_ROL;
|
||||
goto gen_shift;
|
||||
OP_32_64(rotr):
|
||||
c = SHIFT_ROR;
|
||||
goto gen_shift;
|
||||
gen_shift_maybe_vex:
|
||||
if (have_bmi2) {
|
||||
if (!const_a2) {
|
||||
tcg_out_vex_modrm(s, vexop + rexw, a0, a2, a1);
|
||||
break;
|
||||
}
|
||||
tcg_out_mov(s, rexw ? TCG_TYPE_I64 : TCG_TYPE_I32, a0, a1);
|
||||
}
|
||||
/* FALLTHRU */
|
||||
gen_shift:
|
||||
if (const_a2) {
|
||||
tcg_out_shifti(s, c + rexw, a0, a2);
|
||||
|
@ -3810,10 +3824,6 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_st_i64:
|
||||
return C_O0_I2(re, r);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
return have_bmi2 ? C_O1_I2(r, r, ri) : C_O1_I2(r, 0, ci);
|
||||
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotl_i64:
|
||||
case INDEX_op_rotr_i32:
|
||||
|
|
|
@ -1489,6 +1489,32 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.out_rrr = tgen_remu,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
if (type == TCG_TYPE_I32) {
|
||||
tcg_out_opc_sra_w(s, a0, a1, a2);
|
||||
} else {
|
||||
tcg_out_opc_sra_d(s, a0, a1, a2);
|
||||
}
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
if (type == TCG_TYPE_I32) {
|
||||
tcg_out_opc_srai_w(s, a0, a1, a2 & 0x1f);
|
||||
} else {
|
||||
tcg_out_opc_srai_d(s, a0, a1, a2 & 0x3f);
|
||||
}
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, ri),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -1712,21 +1738,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out_clzctz(s, OPC_CTZ_D, a0, a1, a2, c2, false);
|
||||
break;
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
if (c2) {
|
||||
tcg_out_opc_srai_w(s, a0, a1, a2 & 0x1f);
|
||||
} else {
|
||||
tcg_out_opc_sra_w(s, a0, a1, a2);
|
||||
}
|
||||
break;
|
||||
case INDEX_op_sar_i64:
|
||||
if (c2) {
|
||||
tcg_out_opc_srai_d(s, a0, a1, a2 & 0x3f);
|
||||
} else {
|
||||
tcg_out_opc_sra_d(s, a0, a1, a2);
|
||||
}
|
||||
break;
|
||||
|
||||
case INDEX_op_rotl_i32:
|
||||
/* transform into equivalent rotr/rotri */
|
||||
if (c2) {
|
||||
|
@ -2391,8 +2402,6 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_qemu_ld_i64:
|
||||
return C_O1_I1(r, r);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotl_i64:
|
||||
case INDEX_op_rotr_i32:
|
||||
|
|
|
@ -1908,6 +1908,29 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.out_rrr = tgen_remu,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
MIPSInsn insn = type == TCG_TYPE_I32 ? OPC_SRAV : OPC_DSRAV;
|
||||
tcg_out_opc_reg(s, insn, a0, a1, a2);
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
if (type == TCG_TYPE_I32) {
|
||||
tcg_out_opc_sa(s, OPC_SRA, a0, a1, a2);
|
||||
} else {
|
||||
tcg_out_dsra(s, a0, a1, a2);
|
||||
}
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, ri),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -2111,12 +2134,8 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out_dsra(s, a0, a1, 32);
|
||||
break;
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
i1 = OPC_SRAV, i2 = OPC_SRA;
|
||||
goto do_shift;
|
||||
case INDEX_op_rotr_i32:
|
||||
i1 = OPC_ROTRV, i2 = OPC_ROTR;
|
||||
do_shift:
|
||||
if (c2) {
|
||||
tcg_out_opc_sa(s, i2, a0, a1, a2);
|
||||
break;
|
||||
|
@ -2132,13 +2151,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out_opc_reg(s, OPC_ROTRV, a0, TCG_TMP0, a1);
|
||||
}
|
||||
break;
|
||||
case INDEX_op_sar_i64:
|
||||
if (c2) {
|
||||
tcg_out_dsra(s, a0, a1, a2);
|
||||
break;
|
||||
}
|
||||
i1 = OPC_DSRAV;
|
||||
goto do_shiftv;
|
||||
case INDEX_op_rotr_i64:
|
||||
if (c2) {
|
||||
tcg_out_opc_sa64(s, OPC_DROTR, OPC_DROTR32, a0, a1, a2);
|
||||
|
@ -2319,10 +2331,8 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_muls2_i64:
|
||||
case INDEX_op_mulu2_i64:
|
||||
return C_O2_I2(r, r, r, r);
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_rotr_i32:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_rotr_i64:
|
||||
case INDEX_op_rotl_i64:
|
||||
return C_O1_I2(r, r, ri);
|
||||
|
|
|
@ -3122,6 +3122,30 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.out_rrr = tgen_remu,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
uint32_t insn = type == TCG_TYPE_I32 ? SRAW : SRAD;
|
||||
tcg_out32(s, insn | SAB(a1, a0, a2));
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
/* Limit immediate shift count lest we create an illegal insn. */
|
||||
if (type == TCG_TYPE_I32) {
|
||||
tcg_out_sari32(s, a0, a1, a2 & 31);
|
||||
} else {
|
||||
tcg_out_sari64(s, a0, a1, a2 & 63);
|
||||
}
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, ri),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -3320,13 +3344,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out32(s, CNTPOPD | SAB(args[1], args[0], 0));
|
||||
break;
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
if (const_args[2]) {
|
||||
tcg_out_sari32(s, args[0], args[1], args[2]);
|
||||
} else {
|
||||
tcg_out32(s, SRAW | SAB(args[1], args[0], args[2]));
|
||||
}
|
||||
break;
|
||||
case INDEX_op_rotl_i32:
|
||||
if (const_args[2]) {
|
||||
tcg_out_rlw(s, RLWINM, args[0], args[1], args[2], 0, 31);
|
||||
|
@ -3357,13 +3374,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out_brcond2(s, args, const_args);
|
||||
break;
|
||||
|
||||
case INDEX_op_sar_i64:
|
||||
if (const_args[2]) {
|
||||
tcg_out_sari64(s, args[0], args[1], args[2]);
|
||||
} else {
|
||||
tcg_out32(s, SRAD | SAB(args[1], args[0], args[2]));
|
||||
}
|
||||
break;
|
||||
case INDEX_op_rotl_i64:
|
||||
if (const_args[2]) {
|
||||
tcg_out_rld(s, RLDICL, args[0], args[1], args[2], 0);
|
||||
|
@ -4222,10 +4232,8 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_st_i64:
|
||||
return C_O0_I2(r, r);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotr_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_rotl_i64:
|
||||
case INDEX_op_rotr_i64:
|
||||
return C_O1_I2(r, r, ri);
|
||||
|
|
|
@ -2144,6 +2144,27 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.out_rrr = tgen_remu,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
RISCVInsn insn = type == TCG_TYPE_I32 ? OPC_SRAW : OPC_SRA;
|
||||
tcg_out_opc_reg(s, insn, a0, a1, a2);
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
RISCVInsn insn = type == TCG_TYPE_I32 ? OPC_SRAIW : OPC_SRAI;
|
||||
unsigned mask = type == TCG_TYPE_I32 ? 31 : 63;
|
||||
tcg_out_opc_imm(s, insn, a0, a1, a2 & mask);
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, ri),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -2299,21 +2320,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out_ldst(s, OPC_SD, a0, a1, a2);
|
||||
break;
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
if (c2) {
|
||||
tcg_out_opc_imm(s, OPC_SRAIW, a0, a1, a2 & 0x1f);
|
||||
} else {
|
||||
tcg_out_opc_reg(s, OPC_SRAW, a0, a1, a2);
|
||||
}
|
||||
break;
|
||||
case INDEX_op_sar_i64:
|
||||
if (c2) {
|
||||
tcg_out_opc_imm(s, OPC_SRAI, a0, a1, a2 & 0x3f);
|
||||
} else {
|
||||
tcg_out_opc_reg(s, OPC_SRA, a0, a1, a2);
|
||||
}
|
||||
break;
|
||||
|
||||
case INDEX_op_rotl_i32:
|
||||
if (c2) {
|
||||
tcg_out_opc_imm(s, OPC_RORIW, a0, a1, -a2 & 0x1f);
|
||||
|
@ -2770,10 +2776,8 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_negsetcond_i64:
|
||||
return C_O1_I2(r, r, rI);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotr_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_rotl_i64:
|
||||
case INDEX_op_rotr_i64:
|
||||
return C_O1_I2(r, r, ri);
|
||||
|
|
|
@ -2445,6 +2445,36 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.base.static_constraint = C_NotImplemented,
|
||||
};
|
||||
|
||||
static void tgen_sar_int(TCGContext *s, TCGType type, TCGReg dst,
|
||||
TCGReg src, TCGReg v, tcg_target_long i)
|
||||
{
|
||||
if (type != TCG_TYPE_I32) {
|
||||
tcg_out_sh64(s, RSY_SRAG, dst, src, v, i);
|
||||
} else if (dst == src) {
|
||||
tcg_out_sh32(s, RS_SRA, dst, v, i);
|
||||
} else {
|
||||
tcg_out_sh64(s, RSY_SRAK, dst, src, v, i);
|
||||
}
|
||||
}
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
tgen_sar_int(s, type, a0, a1, a2, 0);
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
tgen_sar_int(s, type, a0, a1, TCG_REG_NONE, a2);
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, ri),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl_int(TCGContext *s, TCGType type, TCGReg dst,
|
||||
TCGReg src, TCGReg v, tcg_target_long i)
|
||||
{
|
||||
|
@ -2586,7 +2616,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
const TCGArg args[TCG_MAX_OP_ARGS],
|
||||
const int const_args[TCG_MAX_OP_ARGS])
|
||||
{
|
||||
S390Opcode op, op2;
|
||||
TCGArg a0, a1, a2;
|
||||
|
||||
switch (opc) {
|
||||
|
@ -2634,28 +2663,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out_st(s, TCG_TYPE_I32, args[0], args[1], args[2]);
|
||||
break;
|
||||
|
||||
do_shift32:
|
||||
a0 = args[0], a1 = args[1], a2 = (int32_t)args[2];
|
||||
if (a0 == a1) {
|
||||
if (const_args[2]) {
|
||||
tcg_out_sh32(s, op, a0, TCG_REG_NONE, a2);
|
||||
} else {
|
||||
tcg_out_sh32(s, op, a0, a2, 0);
|
||||
}
|
||||
} else {
|
||||
/* Using tcg_out_sh64 here for the format; it is a 32-bit shift. */
|
||||
if (const_args[2]) {
|
||||
tcg_out_sh64(s, op2, a0, a1, TCG_REG_NONE, a2);
|
||||
} else {
|
||||
tcg_out_sh64(s, op2, a0, a1, a2, 0);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case INDEX_op_sar_i32:
|
||||
op = RS_SRA;
|
||||
op2 = RSY_SRAK;
|
||||
goto do_shift32;
|
||||
|
||||
case INDEX_op_rotl_i32:
|
||||
/* ??? Using tcg_out_sh64 here for the format; it is a 32-bit rol. */
|
||||
if (const_args[2]) {
|
||||
|
@ -2799,17 +2806,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
tcg_out_insn(s, RRFa, MGRK, args[1], args[2], args[3]);
|
||||
break;
|
||||
|
||||
do_shift64:
|
||||
if (const_args[2]) {
|
||||
tcg_out_sh64(s, op, args[0], args[1], TCG_REG_NONE, args[2]);
|
||||
} else {
|
||||
tcg_out_sh64(s, op, args[0], args[1], args[2], 0);
|
||||
}
|
||||
break;
|
||||
case INDEX_op_sar_i64:
|
||||
op = RSY_SRAG;
|
||||
goto do_shift64;
|
||||
|
||||
case INDEX_op_rotl_i64:
|
||||
if (const_args[2]) {
|
||||
tcg_out_sh64(s, RSY_RLLG, args[0], args[1],
|
||||
|
@ -3394,7 +3390,6 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_st_i64:
|
||||
return C_O0_I2(r, r);
|
||||
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotl_i64:
|
||||
case INDEX_op_rotr_i32:
|
||||
|
@ -3409,9 +3404,6 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_clz_i64:
|
||||
return C_O1_I2(r, r, rI);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
return C_O1_I2(r, r, ri);
|
||||
|
||||
case INDEX_op_brcond_i32:
|
||||
return C_O0_I2(r, ri);
|
||||
case INDEX_op_brcond_i64:
|
||||
|
|
|
@ -1484,6 +1484,27 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.base.static_constraint = C_NotImplemented,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
uint32_t insn = type == TCG_TYPE_I32 ? SHIFT_SRA : SHIFT_SRAX;
|
||||
tcg_out_arith(s, a0, a1, a2, insn);
|
||||
}
|
||||
|
||||
static void tgen_sari(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, tcg_target_long a2)
|
||||
{
|
||||
uint32_t insn = type == TCG_TYPE_I32 ? SHIFT_SRA : SHIFT_SRAX;
|
||||
uint32_t mask = type == TCG_TYPE_I32 ? 31 : 63;
|
||||
tcg_out_arithi(s, a0, a1, a2 & mask, insn);
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, rJ),
|
||||
.out_rrr = tgen_sar,
|
||||
.out_rri = tgen_sari,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
@ -1629,13 +1650,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
case INDEX_op_st32_i64:
|
||||
tcg_out_ldst(s, a0, a1, a2, STW);
|
||||
break;
|
||||
do_shift32:
|
||||
/* Limit immediate shift count lest we create an illegal insn. */
|
||||
tcg_out_arithc(s, a0, a1, a2 & 31, c2, c);
|
||||
break;
|
||||
case INDEX_op_sar_i32:
|
||||
c = SHIFT_SRA;
|
||||
goto do_shift32;
|
||||
|
||||
case INDEX_op_brcond_i32:
|
||||
tcg_out_brcond_i32(s, a2, a0, a1, const_args[1], arg_label(args[3]));
|
||||
|
@ -1693,13 +1707,6 @@ static void tcg_out_op(TCGContext *s, TCGOpcode opc, TCGType type,
|
|||
case INDEX_op_st_i64:
|
||||
tcg_out_ldst(s, a0, a1, a2, STX);
|
||||
break;
|
||||
do_shift64:
|
||||
/* Limit immediate shift count lest we create an illegal insn. */
|
||||
tcg_out_arithc(s, a0, a1, a2 & 63, c2, c);
|
||||
break;
|
||||
case INDEX_op_sar_i64:
|
||||
c = SHIFT_SRAX;
|
||||
goto do_shift64;
|
||||
|
||||
case INDEX_op_brcond_i64:
|
||||
tcg_out_brcond_i64(s, a2, a0, a1, const_args[1], arg_label(args[3]));
|
||||
|
@ -1783,8 +1790,6 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_qemu_st_i64:
|
||||
return C_O0_I2(rz, r);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_setcond_i32:
|
||||
case INDEX_op_setcond_i64:
|
||||
case INDEX_op_negsetcond_i32:
|
||||
|
|
|
@ -1042,6 +1042,8 @@ static const TCGOutOp * const all_outop[NB_OPS] = {
|
|||
OUTOP(INDEX_op_orc, TCGOutOpBinary, outop_orc),
|
||||
OUTOP(INDEX_op_rems, TCGOutOpBinary, outop_rems),
|
||||
OUTOP(INDEX_op_remu, TCGOutOpBinary, outop_remu),
|
||||
OUTOP(INDEX_op_sar_i32, TCGOutOpBinary, outop_sar),
|
||||
OUTOP(INDEX_op_sar_i64, TCGOutOpBinary, outop_sar),
|
||||
OUTOP(INDEX_op_shl, TCGOutOpBinary, outop_shl),
|
||||
OUTOP(INDEX_op_shr, TCGOutOpBinary, outop_shr),
|
||||
OUTOP(INDEX_op_sub, TCGOutOpSubtract, outop_sub),
|
||||
|
@ -2264,7 +2266,6 @@ bool tcg_op_supported(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_st8_i32:
|
||||
case INDEX_op_st16_i32:
|
||||
case INDEX_op_st_i32:
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_extract_i32:
|
||||
case INDEX_op_sextract_i32:
|
||||
case INDEX_op_deposit_i32:
|
||||
|
@ -2314,7 +2315,6 @@ bool tcg_op_supported(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_st16_i64:
|
||||
case INDEX_op_st32_i64:
|
||||
case INDEX_op_st_i64:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_ext_i32_i64:
|
||||
case INDEX_op_extu_i32_i64:
|
||||
case INDEX_op_extract_i64:
|
||||
|
@ -5421,6 +5421,8 @@ static void tcg_reg_alloc_op(TCGContext *s, const TCGOp *op)
|
|||
case INDEX_op_orc:
|
||||
case INDEX_op_rems:
|
||||
case INDEX_op_remu:
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_shl:
|
||||
case INDEX_op_shr:
|
||||
case INDEX_op_xor:
|
||||
|
|
|
@ -79,8 +79,6 @@ tcg_target_op_def(TCGOpcode op, TCGType type, unsigned flags)
|
|||
case INDEX_op_st_i64:
|
||||
return C_O0_I2(r, r);
|
||||
|
||||
case INDEX_op_sar_i32:
|
||||
case INDEX_op_sar_i64:
|
||||
case INDEX_op_rotl_i32:
|
||||
case INDEX_op_rotl_i64:
|
||||
case INDEX_op_rotr_i32:
|
||||
|
@ -774,6 +772,21 @@ static const TCGOutOpBinary outop_remu = {
|
|||
.out_rrr = tgen_remu,
|
||||
};
|
||||
|
||||
static void tgen_sar(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
if (type < TCG_TYPE_REG) {
|
||||
tcg_out_ext32s(s, TCG_REG_TMP, a1);
|
||||
a1 = TCG_REG_TMP;
|
||||
}
|
||||
tcg_out_op_rrr(s, glue(INDEX_op_sar_i,TCG_TARGET_REG_BITS), a0, a1, a2);
|
||||
}
|
||||
|
||||
static const TCGOutOpBinary outop_sar = {
|
||||
.base.static_constraint = C_O1_I2(r, r, r),
|
||||
.out_rrr = tgen_sar,
|
||||
};
|
||||
|
||||
static void tgen_shl(TCGContext *s, TCGType type,
|
||||
TCGReg a0, TCGReg a1, TCGReg a2)
|
||||
{
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue