mirror of https://github.com/xemu-project/xemu.git
target/s390x: implement PACK
Reviewed-by: Richard Henderson <rth@twiddle.net> Signed-off-by: Aurelien Jarno <aurelien@aurel32.net> Message-Id: <20170531220129.27724-7-aurelien@aurel32.net> Signed-off-by: Richard Henderson <rth@twiddle.net>
This commit is contained in:
parent
0c0974d785
commit
76c574906e
|
@ -75,6 +75,7 @@ DEF_HELPER_FLAGS_2(sqeb, TCG_CALL_NO_WG, i64, env, i64)
|
|||
DEF_HELPER_FLAGS_2(sqdb, TCG_CALL_NO_WG, i64, env, i64)
|
||||
DEF_HELPER_FLAGS_3(sqxb, TCG_CALL_NO_WG, i64, env, i64, i64)
|
||||
DEF_HELPER_FLAGS_1(cvd, TCG_CALL_NO_RWG_SE, i64, s32)
|
||||
DEF_HELPER_FLAGS_4(pack, TCG_CALL_NO_WG, void, env, i32, i64, i64)
|
||||
DEF_HELPER_FLAGS_4(unpk, TCG_CALL_NO_WG, void, env, i32, i64, i64)
|
||||
DEF_HELPER_FLAGS_4(tr, TCG_CALL_NO_WG, void, env, i32, i64, i64)
|
||||
DEF_HELPER_4(tre, i64, env, i64, i64, i64)
|
||||
|
|
|
@ -639,6 +639,11 @@
|
|||
C(0x9600, OI, SI, Z, m1_8u, i2_8u, new, m1_8, or, nz64)
|
||||
C(0xeb56, OIY, SIY, LD, m1_8u, i2_8u, new, m1_8, or, nz64)
|
||||
|
||||
/* PACK */
|
||||
/* Really format SS_b, but we pack both lengths into one argument
|
||||
for the helper call, so we might as well leave one 8-bit field. */
|
||||
C(0xf200, PACK, SS_a, Z, la1, a2, 0, 0, pack, 0)
|
||||
|
||||
/* PREFETCH */
|
||||
/* Implemented as nops of course. */
|
||||
C(0xe336, PFD, RXY_b, GIE, 0, 0, 0, 0, 0, 0)
|
||||
|
|
|
@ -644,6 +644,43 @@ uint64_t HELPER(cksm)(CPUS390XState *env, uint64_t r1,
|
|||
return len;
|
||||
}
|
||||
|
||||
void HELPER(pack)(CPUS390XState *env, uint32_t len, uint64_t dest, uint64_t src)
|
||||
{
|
||||
uintptr_t ra = GETPC();
|
||||
int len_dest = len >> 4;
|
||||
int len_src = len & 0xf;
|
||||
uint8_t b;
|
||||
|
||||
dest += len_dest;
|
||||
src += len_src;
|
||||
|
||||
/* last byte is special, it only flips the nibbles */
|
||||
b = cpu_ldub_data_ra(env, src, ra);
|
||||
cpu_stb_data_ra(env, dest, (b << 4) | (b >> 4), ra);
|
||||
src--;
|
||||
len_src--;
|
||||
|
||||
/* now pack every value */
|
||||
while (len_dest >= 0) {
|
||||
b = 0;
|
||||
|
||||
if (len_src > 0) {
|
||||
b = cpu_ldub_data_ra(env, src, ra) & 0x0f;
|
||||
src--;
|
||||
len_src--;
|
||||
}
|
||||
if (len_src > 0) {
|
||||
b |= cpu_ldub_data_ra(env, src, ra) << 4;
|
||||
src--;
|
||||
len_src--;
|
||||
}
|
||||
|
||||
len_dest--;
|
||||
dest--;
|
||||
cpu_stb_data_ra(env, dest, b, ra);
|
||||
}
|
||||
}
|
||||
|
||||
void HELPER(unpk)(CPUS390XState *env, uint32_t len, uint64_t dest,
|
||||
uint64_t src)
|
||||
{
|
||||
|
|
|
@ -3144,6 +3144,14 @@ static ExitStatus op_ori(DisasContext *s, DisasOps *o)
|
|||
return NO_EXIT;
|
||||
}
|
||||
|
||||
static ExitStatus op_pack(DisasContext *s, DisasOps *o)
|
||||
{
|
||||
TCGv_i32 l = tcg_const_i32(get_field(s->fields, l1));
|
||||
gen_helper_pack(cpu_env, l, o->addr1, o->in2);
|
||||
tcg_temp_free_i32(l);
|
||||
return NO_EXIT;
|
||||
}
|
||||
|
||||
static ExitStatus op_popcnt(DisasContext *s, DisasOps *o)
|
||||
{
|
||||
gen_helper_popcnt(o->out, o->in2);
|
||||
|
|
Loading…
Reference in New Issue