Commit f180da83 authored by David Hildenbrand's avatar David Hildenbrand Committed by Cornelia Huck
Browse files

s390x/tcg: Implement VECTOR LOAD LOGICAL ELEMENT AND ZERO 



Fairly easy, zero out the vector before we load the desired element.
Load the element before touching the vector.

Reviewed-by: default avatarRichard Henderson <richard.henderson@linaro.org>
Signed-off-by: default avatarDavid Hildenbrand <david@redhat.com>
Message-Id: <20190307121539.12842-13-david@redhat.com>
Signed-off-by: default avatarCornelia Huck <cohuck@redhat.com>
parent 5d203bea

target/s390x/insn-data.def

+2 −0
Original line number Diff line number Diff line
@@ -998,6 +998,8 @@ 
    E(0xe742, VLEIG,   VRI_a, V,   0, 0, 0, 0, vlei, 0, ES_64, IF_VEC)

/* VECTOR LOAD GR FROM VR ELEMENT */

    F(0xe721, VLGV,    VRS_c, V,   la2, 0, r1, 0, vlgv, 0, IF_VEC)

/* VECTOR LOAD LOGICAL ELEMENT AND ZERO */

    F(0xe704, VLLEZ,   VRX,   V,   la2, 0, 0, 0, vllez, 0, IF_VEC)



#ifndef CONFIG_USER_ONLY

/* COMPARE AND SWAP AND PURGE */

target/s390x/translate_vx.inc.c

+46 −0
Original line number Diff line number Diff line
@@ -163,6 +163,11 @@ static void gen_gvec_dupi(uint8_t es, uint8_t reg, uint64_t c) 
    }

}



static void zero_vec(uint8_t reg)

{

    tcg_gen_gvec_dup8i(vec_full_reg_offset(reg), 16, 16, 0);

}



static DisasJumpType op_vge(DisasContext *s, DisasOps *o)

{

    const uint8_t es = s->insn->data;
@@ -360,3 +365,44 @@ static DisasJumpType op_vlgv(DisasContext *s, DisasOps *o) 


    return DISAS_NEXT;

}



static DisasJumpType op_vllez(DisasContext *s, DisasOps *o)

{

    uint8_t es = get_field(s->fields, m3);

    uint8_t enr;

    TCGv_i64 t;



    switch (es) {

    /* rightmost sub-element of leftmost doubleword */

    case ES_8:

        enr = 7;

        break;

    case ES_16:

        enr = 3;

        break;

    case ES_32:

        enr = 1;

        break;

    case ES_64:

        enr = 0;

        break;

    /* leftmost sub-element of leftmost doubleword */

    case 6:

        if (s390_has_feat(S390_FEAT_VECTOR_ENH)) {

            es = ES_32;

            enr = 0;

            break;

        }

    default:

        /* fallthrough */

        gen_program_exception(s, PGM_SPECIFICATION);

        return DISAS_NORETURN;

    }



    t = tcg_temp_new_i64();

    tcg_gen_qemu_ld_i64(t, o->addr1, get_mem_index(s), MO_TE | es);

    zero_vec(get_field(s->fields, v1));

    write_vec_element_i64(t, get_field(s->fields, v1), enr, es);

    tcg_temp_free_i64(t);

    return DISAS_NEXT;

}