s390x/tcg: Implement VECTOR ISOLATE STRING
Logic mostly courtesy of Richard H. Reviewed-by: Richard Henderson <richard.henderson@linaro.org> Signed-off-by: David Hildenbrand <david@redhat.com>
This commit is contained in:
parent
074e99b3b5
commit
be6324c6b7
|
@ -230,6 +230,12 @@ DEF_HELPER_FLAGS_4(gvec_vfene32, TCG_CALL_NO_RWG, void, ptr, cptr, cptr, i32)
|
||||||
DEF_HELPER_5(gvec_vfene_cc8, void, ptr, cptr, cptr, env, i32)
|
DEF_HELPER_5(gvec_vfene_cc8, void, ptr, cptr, cptr, env, i32)
|
||||||
DEF_HELPER_5(gvec_vfene_cc16, void, ptr, cptr, cptr, env, i32)
|
DEF_HELPER_5(gvec_vfene_cc16, void, ptr, cptr, cptr, env, i32)
|
||||||
DEF_HELPER_5(gvec_vfene_cc32, void, ptr, cptr, cptr, env, i32)
|
DEF_HELPER_5(gvec_vfene_cc32, void, ptr, cptr, cptr, env, i32)
|
||||||
|
DEF_HELPER_FLAGS_3(gvec_vistr8, TCG_CALL_NO_RWG, void, ptr, cptr, i32)
|
||||||
|
DEF_HELPER_FLAGS_3(gvec_vistr16, TCG_CALL_NO_RWG, void, ptr, cptr, i32)
|
||||||
|
DEF_HELPER_FLAGS_3(gvec_vistr32, TCG_CALL_NO_RWG, void, ptr, cptr, i32)
|
||||||
|
DEF_HELPER_4(gvec_vistr_cc8, void, ptr, cptr, env, i32)
|
||||||
|
DEF_HELPER_4(gvec_vistr_cc16, void, ptr, cptr, env, i32)
|
||||||
|
DEF_HELPER_4(gvec_vistr_cc32, void, ptr, cptr, env, i32)
|
||||||
|
|
||||||
#ifndef CONFIG_USER_ONLY
|
#ifndef CONFIG_USER_ONLY
|
||||||
DEF_HELPER_3(servc, i32, env, i64, i64)
|
DEF_HELPER_3(servc, i32, env, i64, i64)
|
||||||
|
|
|
@ -1199,6 +1199,8 @@
|
||||||
F(0xe780, VFEE, VRR_b, V, 0, 0, 0, 0, vfee, 0, IF_VEC)
|
F(0xe780, VFEE, VRR_b, V, 0, 0, 0, 0, vfee, 0, IF_VEC)
|
||||||
/* VECTOR FIND ELEMENT NOT EQUAL */
|
/* VECTOR FIND ELEMENT NOT EQUAL */
|
||||||
F(0xe781, VFENE, VRR_b, V, 0, 0, 0, 0, vfene, 0, IF_VEC)
|
F(0xe781, VFENE, VRR_b, V, 0, 0, 0, 0, vfene, 0, IF_VEC)
|
||||||
|
/* VECTOR ISOLATE STRING */
|
||||||
|
F(0xe75c, VISTR, VRR_a, V, 0, 0, 0, 0, vistr, 0, IF_VEC)
|
||||||
|
|
||||||
#ifndef CONFIG_USER_ONLY
|
#ifndef CONFIG_USER_ONLY
|
||||||
/* COMPARE AND SWAP AND PURGE */
|
/* COMPARE AND SWAP AND PURGE */
|
||||||
|
|
|
@ -188,6 +188,9 @@ static void get_vec_element_ptr_i64(TCGv_ptr ptr, uint8_t reg, TCGv_i64 enr,
|
||||||
#define gen_gvec_2s(v1, v2, c, gen) \
|
#define gen_gvec_2s(v1, v2, c, gen) \
|
||||||
tcg_gen_gvec_2s(vec_full_reg_offset(v1), vec_full_reg_offset(v2), \
|
tcg_gen_gvec_2s(vec_full_reg_offset(v1), vec_full_reg_offset(v2), \
|
||||||
16, 16, c, gen)
|
16, 16, c, gen)
|
||||||
|
#define gen_gvec_2_ool(v1, v2, data, fn) \
|
||||||
|
tcg_gen_gvec_2_ool(vec_full_reg_offset(v1), vec_full_reg_offset(v2), \
|
||||||
|
16, 16, data, fn)
|
||||||
#define gen_gvec_2i_ool(v1, v2, c, data, fn) \
|
#define gen_gvec_2i_ool(v1, v2, c, data, fn) \
|
||||||
tcg_gen_gvec_2i_ool(vec_full_reg_offset(v1), vec_full_reg_offset(v2), \
|
tcg_gen_gvec_2i_ool(vec_full_reg_offset(v1), vec_full_reg_offset(v2), \
|
||||||
c, 16, 16, data, fn)
|
c, 16, 16, data, fn)
|
||||||
|
@ -2445,3 +2448,34 @@ static DisasJumpType op_vfene(DisasContext *s, DisasOps *o)
|
||||||
}
|
}
|
||||||
return DISAS_NEXT;
|
return DISAS_NEXT;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static DisasJumpType op_vistr(DisasContext *s, DisasOps *o)
|
||||||
|
{
|
||||||
|
const uint8_t es = get_field(s->fields, m4);
|
||||||
|
const uint8_t m5 = get_field(s->fields, m5);
|
||||||
|
static gen_helper_gvec_2 * const g[3] = {
|
||||||
|
gen_helper_gvec_vistr8,
|
||||||
|
gen_helper_gvec_vistr16,
|
||||||
|
gen_helper_gvec_vistr32,
|
||||||
|
};
|
||||||
|
static gen_helper_gvec_2_ptr * const g_cc[3] = {
|
||||||
|
gen_helper_gvec_vistr_cc8,
|
||||||
|
gen_helper_gvec_vistr_cc16,
|
||||||
|
gen_helper_gvec_vistr_cc32,
|
||||||
|
};
|
||||||
|
|
||||||
|
if (es > ES_32 || m5 & ~0x1) {
|
||||||
|
gen_program_exception(s, PGM_SPECIFICATION);
|
||||||
|
return DISAS_NORETURN;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (extract32(m5, 0, 1)) {
|
||||||
|
gen_gvec_2_ptr(get_field(s->fields, v1), get_field(s->fields, v2),
|
||||||
|
cpu_env, 0, g_cc[es]);
|
||||||
|
set_cc_static(s);
|
||||||
|
} else {
|
||||||
|
gen_gvec_2_ool(get_field(s->fields, v1), get_field(s->fields, v2), 0,
|
||||||
|
g[es]);
|
||||||
|
}
|
||||||
|
return DISAS_NEXT;
|
||||||
|
}
|
||||||
|
|
|
@ -283,3 +283,48 @@ void HELPER(gvec_vfene_cc##BITS)(void *v1, const void *v2, const void *v3, \
|
||||||
DEF_VFENE_CC_HELPER(8)
|
DEF_VFENE_CC_HELPER(8)
|
||||||
DEF_VFENE_CC_HELPER(16)
|
DEF_VFENE_CC_HELPER(16)
|
||||||
DEF_VFENE_CC_HELPER(32)
|
DEF_VFENE_CC_HELPER(32)
|
||||||
|
|
||||||
|
static int vistr(void *v1, const void *v2, uint8_t es)
|
||||||
|
{
|
||||||
|
const uint64_t mask = get_element_lsbs_mask(es);
|
||||||
|
uint64_t a0 = s390_vec_read_element64(v2, 0);
|
||||||
|
uint64_t a1 = s390_vec_read_element64(v2, 1);
|
||||||
|
uint64_t z;
|
||||||
|
int cc = 3;
|
||||||
|
|
||||||
|
z = zero_search(a0, mask);
|
||||||
|
if (z) {
|
||||||
|
a0 &= ~(-1ull >> clz64(z));
|
||||||
|
a1 = 0;
|
||||||
|
cc = 0;
|
||||||
|
} else {
|
||||||
|
z = zero_search(a1, mask);
|
||||||
|
if (z) {
|
||||||
|
a1 &= ~(-1ull >> clz64(z));
|
||||||
|
cc = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
s390_vec_write_element64(v1, 0, a0);
|
||||||
|
s390_vec_write_element64(v1, 1, a1);
|
||||||
|
return cc;
|
||||||
|
}
|
||||||
|
|
||||||
|
#define DEF_VISTR_HELPER(BITS) \
|
||||||
|
void HELPER(gvec_vistr##BITS)(void *v1, const void *v2, uint32_t desc) \
|
||||||
|
{ \
|
||||||
|
vistr(v1, v2, MO_##BITS); \
|
||||||
|
}
|
||||||
|
DEF_VISTR_HELPER(8)
|
||||||
|
DEF_VISTR_HELPER(16)
|
||||||
|
DEF_VISTR_HELPER(32)
|
||||||
|
|
||||||
|
#define DEF_VISTR_CC_HELPER(BITS) \
|
||||||
|
void HELPER(gvec_vistr_cc##BITS)(void *v1, const void *v2, CPUS390XState *env, \
|
||||||
|
uint32_t desc) \
|
||||||
|
{ \
|
||||||
|
env->cc_op = vistr(v1, v2, MO_##BITS); \
|
||||||
|
}
|
||||||
|
DEF_VISTR_CC_HELPER(8)
|
||||||
|
DEF_VISTR_CC_HELPER(16)
|
||||||
|
DEF_VISTR_CC_HELPER(32)
|
||||||
|
|
Loading…
Reference in New Issue