yuzu/unicorn
1
0
Fork 0
mirror of https://github.com/yuzu-emu/unicorn.git synced 2025-02-25 03:36:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

tcg/s390: Use slbgr for setcond le and leu

Browse source 
Backports commit 4609190b5f7f68a5e2a8738029594f45a062d4c9 from qemu
This commit is contained in:
Richard Henderson 2018-03-04 13:48:41 -05:00 committed by Lioncash
parent 83e703d2bd
commit 1642f7d404
No known key found for this signature in database
GPG key ID: 4E3C3CC1031BA9C7
1 changed files with 44 additions and 77 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

121
qemu/tcg/s390/tcg-target.inc.c
View file

@ -1090,11 +1090,20 @@ static void tgen_setcond(TCGContext *s, TCGType type, TCGCond cond,
have_loc = (s390_facilities & FACILITY_LOAD_ON_COND) != 0; have_loc = (s390_facilities & FACILITY_LOAD_ON_COND) != 0;
/* For HAVE_LOC, only the path through do_greater is smaller. */ /* For HAVE_LOC, only the paths through GTU/GT/LEU/LE are smaller. */
restart:
switch (cond) { switch (cond) {
case TCG_COND_NE:
/* X != 0 is X > 0. */
if (c2const && c2 == 0) {
cond = TCG_COND_GTU;
} else {
break;
}
/* fallthru */
case TCG_COND_GTU: case TCG_COND_GTU:
case TCG_COND_GT: case TCG_COND_GT:
do_greater:
/* The result of a compare has CC=2 for GT and CC=3 unused. /* The result of a compare has CC=2 for GT and CC=3 unused.
ADD LOGICAL WITH CARRY considers (CC & 2) the carry bit. */ ADD LOGICAL WITH CARRY considers (CC & 2) the carry bit. */
tgen_cmp(s, type, cond, c1, c2, c2const, true); tgen_cmp(s, type, cond, c1, c2, c2const, true);
@ -1102,49 +1111,33 @@ static void tgen_setcond(TCGContext *s, TCGType type, TCGCond cond,
tcg_out_insn(s, RRE, ALCGR, dest, dest); tcg_out_insn(s, RRE, ALCGR, dest, dest);
return; return;
case TCG_COND_GEU: case TCG_COND_EQ:
if (have_loc) { /* X == 0 is X <= 0. */
goto do_loc; if (c2const && c2 == 0) {
} cond = TCG_COND_LEU;
do_geu:
/* We need "real" carry semantics, so use SUBTRACT LOGICAL
instead of COMPARE LOGICAL. This may need an extra move. */
if (c2const) {
tcg_out_mov(s, type, TCG_TMP0, c1);
if (type == TCG_TYPE_I32) {
tcg_out_insn(s, RIL, SLFI, TCG_TMP0, c2);
} else {
tcg_out_insn(s, RIL, SLGFI, TCG_TMP0, c2);
}
} else if (s390_facilities & FACILITY_DISTINCT_OPS) {
if (type == TCG_TYPE_I32) {
tcg_out_insn(s, RRF, SLRK, TCG_TMP0, c1, c2);
} else {
tcg_out_insn(s, RRF, SLGRK, TCG_TMP0, c1, c2);
}
} else { } else {
tcg_out_mov(s, type, TCG_TMP0, c1); break;
if (type == TCG_TYPE_I32) {
tcg_out_insn(s, RR, SLR, TCG_TMP0, c2);
} else {
tcg_out_insn(s, RRE, SLGR, TCG_TMP0, c2);
}
}
tcg_out_movi(s, TCG_TYPE_I64, dest, 0);
tcg_out_insn(s, RRE, ALCGR, dest, dest);
return;
case TCG_COND_LEU:
if (have_loc) {
goto do_loc;
} }
/* fallthru */ /* fallthru */
case TCG_COND_LEU:
case TCG_COND_LE:
/* As above, but we're looking for borrow, or !carry.
The second insn computes d - d - borrow, or -1 for true
and 0 for false. So we must mask to 1 bit afterward. */
tgen_cmp(s, type, cond, c1, c2, c2const, true);
tcg_out_insn(s, RRE, SLBGR, dest, dest);
tgen_andi(s, type, dest, 1);
return;
case TCG_COND_GEU:
case TCG_COND_LTU: case TCG_COND_LTU:
case TCG_COND_LT: case TCG_COND_LT:
/* Swap operands so that we can use GEU/GTU/GT. */ case TCG_COND_GE:
/* Swap operands so that we can use LEU/GTU/GT/LE. */
if (c2const) { if (c2const) {
if (have_loc) { if (have_loc) {
goto do_loc; break;
} }
tcg_out_movi(s, type, TCG_TMP0, c2); tcg_out_movi(s, type, TCG_TMP0, c2);
c2 = c1; c2 = c1;
@ -1155,51 +1148,25 @@ static void tgen_setcond(TCGContext *s, TCGType type, TCGCond cond,
c1 = c2; c1 = c2;
c2 = t; c2 = t;
} }
if (cond == TCG_COND_LEU) {
goto do_geu;
}
cond = tcg_swap_cond(cond); cond = tcg_swap_cond(cond);
goto do_greater; goto restart;
case TCG_COND_NE:
/* X != 0 is X > 0. */
if (c2const && c2 == 0) {
cond = TCG_COND_GTU;
goto do_greater;
}
break;
case TCG_COND_EQ:
if (have_loc) {
goto do_loc;
}
/* X == 0 is X <= 0 is 0 >= X. */
if (c2const && c2 == 0) {
tcg_out_movi(s, TCG_TYPE_I64, TCG_TMP0, 0);
c2 = c1;
c2const = 0;
c1 = TCG_TMP0;
goto do_geu;
}
break;
default: default:
break; g_assert_not_reached();
} }
cc = tgen_cmp(s, type, cond, c1, c2, c2const, false); cc = tgen_cmp(s, type, cond, c1, c2, c2const, false);
/* Emit: d = 1; if (cc) goto over; d = 0; over: */ if (have_loc) {
tcg_out_movi(s, type, dest, 1); /* Emit: d = 0, t = 1, d = (cc ? t : d). */
tcg_out_insn(s, RI, BRC, cc, (4 + 4) >> 1); tcg_out_movi(s, TCG_TYPE_I64, dest, 0);
tcg_out_movi(s, type, dest, 0); tcg_out_movi(s, TCG_TYPE_I64, TCG_TMP0, 1);
return; tcg_out_insn(s, RRF, LOCGR, dest, TCG_TMP0, cc);
} else {
do_loc: /* Emit: d = 1; if (cc) goto over; d = 0; over: */
cc = tgen_cmp(s, type, cond, c1, c2, c2const, false); tcg_out_movi(s, type, dest, 1);
/* Emit: d = 0, t = 1, d = (cc ? t : d). */ tcg_out_insn(s, RI, BRC, cc, (4 + 4) >> 1);
tcg_out_movi(s, TCG_TYPE_I64, dest, 0); tcg_out_movi(s, type, dest, 0);
tcg_out_movi(s, TCG_TYPE_I64, TCG_TMP0, 1); }
tcg_out_insn(s, RRF, LOCGR, dest, TCG_TMP0, cc);
} }
static void tgen_movcond(TCGContext *s, TCGType type, TCGCond c, TCGReg dest, static void tgen_movcond(TCGContext *s, TCGType type, TCGCond c, TCGReg dest,