mirror of https://github.com/xemu-project/xemu.git
target-s390: Implement STORE ON CONDITION
Signed-off-by: Richard Henderson <rth@twiddle.net>
This commit is contained in:
parent
632086da28
commit
b92fa33486
|
@ -601,6 +601,9 @@
|
|||
C(0xe370, STHY, RXY_a, LD, r1_o, a2, 0, 0, st16, 0)
|
||||
/* STORE HALFWORD RELATIVE LONG */
|
||||
C(0xc407, STHRL, RIL_b, GIE, r1_o, ri2, 0, 0, st16, 0)
|
||||
/* STORE ON CONDITION */
|
||||
D(0xebf3, STOC, RSY_b, LOC, 0, 0, 0, 0, soc, 0, 0)
|
||||
D(0xebe3, STOCG, RSY_b, LOC, 0, 0, 0, 0, soc, 0, 1)
|
||||
/* STORE REVERSED */
|
||||
C(0xe33f, STRVH, RXY_a, Z, la2, r1_16u, new, m1_16, rev16, 0)
|
||||
C(0xe33e, STRV, RXY_a, Z, la2, r1_32u, new, m1_32, rev32, 0)
|
||||
|
|
|
@ -2747,6 +2747,35 @@ static ExitStatus op_sigp(DisasContext *s, DisasOps *o)
|
|||
}
|
||||
#endif
|
||||
|
||||
static ExitStatus op_soc(DisasContext *s, DisasOps *o)
|
||||
{
|
||||
DisasCompare c;
|
||||
TCGv_i64 a;
|
||||
int lab, r1;
|
||||
|
||||
disas_jcc(s, &c, get_field(s->fields, m3));
|
||||
|
||||
lab = gen_new_label();
|
||||
if (c.is_64) {
|
||||
tcg_gen_brcond_i64(c.cond, c.u.s64.a, c.u.s64.b, lab);
|
||||
} else {
|
||||
tcg_gen_brcond_i32(c.cond, c.u.s32.a, c.u.s32.b, lab);
|
||||
}
|
||||
free_compare(&c);
|
||||
|
||||
r1 = get_field(s->fields, r1);
|
||||
a = get_address(s, 0, get_field(s->fields, b2), get_field(s->fields, d2));
|
||||
if (s->insn->data) {
|
||||
tcg_gen_qemu_st64(regs[r1], a, get_mem_index(s));
|
||||
} else {
|
||||
tcg_gen_qemu_st32(regs[r1], a, get_mem_index(s));
|
||||
}
|
||||
tcg_temp_free_i64(a);
|
||||
|
||||
gen_set_label(lab);
|
||||
return NO_EXIT;
|
||||
}
|
||||
|
||||
static ExitStatus op_sla(DisasContext *s, DisasOps *o)
|
||||
{
|
||||
uint64_t sign = 1ull << s->insn->data;
|
||||
|
|
Loading…
Reference in New Issue