On 05.08.2018 20:28, Pavel Zbitskiy wrote:
> Convert to Binary - counterparts of the already implemented Convert
> to Decimal (CVD*) instructions.
> Example from the Principles of Operation: 25594C becomes 63FA.
>
> Signed-off-by: Pavel Zbitskiy <pavel.zbits...@gmail.com>
> ---
> target/s390x/helper.h | 2 ++
> target/s390x/insn-data.def | 4 ++++
> target/s390x/int_helper.c | 58
> ++++++++++++++++++++++++++++++++++++++++++++++
> target/s390x/translate.c | 12 ++++++++++
> 4 files changed, 76 insertions(+)
>
> diff --git a/target/s390x/helper.h b/target/s390x/helper.h
> index 97c60ca7bc..20e0c424f9 100644
> --- a/target/s390x/helper.h
> +++ b/target/s390x/helper.h
> @@ -88,6 +88,8 @@ DEF_HELPER_FLAGS_4(tcxb, TCG_CALL_NO_RWG_SE, i32, env, i64,
> i64, i64)
> 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_2(cvb, TCG_CALL_NO_WG, i64, env, i64)
> +DEF_HELPER_FLAGS_2(cvbg, TCG_CALL_NO_WG, i64, env, 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(pka, TCG_CALL_NO_WG, void, env, i64, i64, i32)
> diff --git a/target/s390x/insn-data.def b/target/s390x/insn-data.def
> index 9c7b434fca..f0b1cbc4b2 100644
> --- a/target/s390x/insn-data.def
> +++ b/target/s390x/insn-data.def
> @@ -284,6 +284,10 @@
> D(0xec73, CLFIT, RIE_a, GIE, r1_32u, i2_32u, 0, 0, ct, 0, 1)
> D(0xec71, CLGIT, RIE_a, GIE, r1_o, i2_32u, 0, 0, ct, 0, 1)
>
> +/* CONVERT TO BINARY */
> + C(0x4f00, CVB, RX_a, Z, 0, a2, new, r1_32, cvb, 0)
> + C(0xe306, CVBY, RXY_a, LD, 0, a2, new, r1_32, cvb, 0)
> + C(0xe30e, CVBG, RXY_a, Z, 0, a2, r1, 0, cvbg, 0)
Instead, use the "D" variant and pass e.g. 1/2 (or 4/8) as data ("length").
OR (better) access and test "s->fields->op" in op_cvb to detect the length.
You can then forward (e.g. the length) to the helper and avoid
op/cvbg/cvbg and inline do_cvb.
> /* CONVERT TO DECIMAL */
> C(0x4e00, CVD, RX_a, Z, r1_o, a2, 0, 0, cvd, 0)
> C(0xe326, CVDY, RXY_a, LD, r1_o, a2, 0, 0, cvd, 0)
Time to also implement CVDG in a similar fashion ? :)
> diff --git a/target/s390x/int_helper.c b/target/s390x/int_helper.c
> index abf77a94e6..2d67347d08 100644
> --- a/target/s390x/int_helper.c
> +++ b/target/s390x/int_helper.c
> @@ -24,6 +24,7 @@
> #include "exec/exec-all.h"
> #include "qemu/host-utils.h"
> #include "exec/helper-proto.h"
> +#include "exec/cpu_ldst.h"
>
> /* #define DEBUG_HELPER */
> #ifdef DEBUG_HELPER
> @@ -118,6 +119,63 @@ uint64_t HELPER(divu64)(CPUS390XState *env, uint64_t ah,
> uint64_t al,
> return ret;
> }
>
> +static void general_operand_exception(CPUS390XState *env, uintptr_t ra)
> +{
> + LowCore *lowcore;
> +
> + lowcore = cpu_map_lowcore(env);
> + lowcore->data_exc_code = 0;
> + cpu_unmap_lowcore(lowcore);
> + s390_program_interrupt(env, PGM_DATA, ILEN_AUTO, ra);
> +}
> +
> +static int64_t do_cvb(CPUS390XState *env, uint64_t src, int n)
> +{
> + int i, j;
> + uintptr_t ra = GETPC();
> + int64_t dec, sign, digit, val, pow10;
> +
> + for (i = 0; i < n; i++) {
> + dec = cpu_ldq_data_ra(env, src + (n - i - 1) * 8, ra);
> + for (j = 0; j < 16; j++, dec >>= 4) {
> + if (i == 0 && j == 0) {
> + sign = dec & 0xf;
> + if (sign < 0xa) {
> + general_operand_exception(env, ra);
> + }
> + continue;
> + }
> + digit = dec & 0xf;
> + if (digit > 0x9) {
> + general_operand_exception(env, ra);
> + }
> + if (i == 0 && j == 1) {
> + if (sign == 0xb || sign == 0xd) {
> + val = -digit;
> + pow10 = -10;
> + } else {
> + val = digit;
> + pow10 = 10;
> + }
> + } else {
> + val += digit * pow10;
> + pow10 *= 10;
> + }
> + }
> + }
> + return val;
> +}
> +
> +uint64_t HELPER(cvb)(CPUS390XState *env, uint64_t src)
> +{
> + return do_cvb(env, src, 1);
> +}
> +
> +uint64_t HELPER(cvbg)(CPUS390XState *env, uint64_t src)
> +{
> + return do_cvb(env, src, 2);
> +}
> +
> uint64_t HELPER(cvd)(int32_t reg)
> {
> /* positive 0 */
> diff --git a/target/s390x/translate.c b/target/s390x/translate.c
> index 05442dff36..83d71815d4 100644
> --- a/target/s390x/translate.c
> +++ b/target/s390x/translate.c
> @@ -2106,6 +2106,18 @@ static DisasJumpType op_csp(DisasContext *s, DisasOps
> *o)
> }
> #endif
>
> +static DisasJumpType op_cvb(DisasContext *s, DisasOps *o)
> +{
> + gen_helper_cvb(o->out, cpu_env, o->in2);
> + return DISAS_NEXT;
> +}
> +
> +static DisasJumpType op_cvbg(DisasContext *s, DisasOps *o)
> +{
> + gen_helper_cvbg(o->out, cpu_env, o->in2);
> + return DISAS_NEXT;
> +}
> +
> static DisasJumpType op_cvd(DisasContext *s, DisasOps *o)
> {
> TCGv_i64 t1 = tcg_temp_new_i64();
>
--
Thanks,
David / dhildenb
