target-s390: Convert STFL
Signed-off-by: Richard Henderson <rth@twiddle.net>
This commit is contained in:
parent
d14b3e09b2
commit
fc778b55a5
|
@ -678,6 +678,8 @@
|
||||||
C(0xb202, STIDP, S, Z, la2, 0, new, m1_64, stidp, 0)
|
C(0xb202, STIDP, S, Z, la2, 0, new, m1_64, stidp, 0)
|
||||||
/* STORE CPU TIMER */
|
/* STORE CPU TIMER */
|
||||||
C(0xb209, STPT, S, Z, la2, 0, new, m1_64, stpt, 0)
|
C(0xb209, STPT, S, Z, la2, 0, new, m1_64, stpt, 0)
|
||||||
|
/* STORE FACILITY LIST */
|
||||||
|
C(0xb2b1, STFL, S, Z, 0, 0, 0, 0, stfl, 0)
|
||||||
/* STORE PREFIX */
|
/* STORE PREFIX */
|
||||||
C(0xb211, STPX, S, Z, la2, 0, new, m1_32, stpx, 0)
|
C(0xb211, STPX, S, Z, la2, 0, new, m1_32, stpx, 0)
|
||||||
/* STORE SYSTEM INFORMATION */
|
/* STORE SYSTEM INFORMATION */
|
||||||
|
|
|
@ -1033,15 +1033,6 @@ static void disas_b2(CPUS390XState *env, DisasContext *s, int op,
|
||||||
LOG_DISAS("disas_b2: op 0x%x r1 %d r2 %d\n", op, r1, r2);
|
LOG_DISAS("disas_b2: op 0x%x r1 %d r2 %d\n", op, r1, r2);
|
||||||
|
|
||||||
switch (op) {
|
switch (op) {
|
||||||
case 0xb1: /* STFL D2(B2) [S] */
|
|
||||||
/* Store Facility List (CPU features) at 200 */
|
|
||||||
check_privileged(s);
|
|
||||||
tmp2 = tcg_const_i64(0xc0000000);
|
|
||||||
tmp = tcg_const_i64(200);
|
|
||||||
tcg_gen_qemu_st32(tmp2, tmp, get_mem_index(s));
|
|
||||||
tcg_temp_free_i64(tmp2);
|
|
||||||
tcg_temp_free_i64(tmp);
|
|
||||||
break;
|
|
||||||
case 0xb2: /* LPSWE D2(B2) [S] */
|
case 0xb2: /* LPSWE D2(B2) [S] */
|
||||||
/* Load PSW Extended */
|
/* Load PSW Extended */
|
||||||
check_privileged(s);
|
check_privileged(s);
|
||||||
|
@ -2875,6 +2866,20 @@ static ExitStatus op_spt(DisasContext *s, DisasOps *o)
|
||||||
return NO_EXIT;
|
return NO_EXIT;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static ExitStatus op_stfl(DisasContext *s, DisasOps *o)
|
||||||
|
{
|
||||||
|
TCGv_i64 f, a;
|
||||||
|
/* We really ought to have more complete indication of facilities
|
||||||
|
that we implement. Address this when STFLE is implemented. */
|
||||||
|
check_privileged(s);
|
||||||
|
f = tcg_const_i64(0xc0000000);
|
||||||
|
a = tcg_const_i64(200);
|
||||||
|
tcg_gen_qemu_st32(f, a, get_mem_index(s));
|
||||||
|
tcg_temp_free_i64(f);
|
||||||
|
tcg_temp_free_i64(a);
|
||||||
|
return NO_EXIT;
|
||||||
|
}
|
||||||
|
|
||||||
static ExitStatus op_stpt(DisasContext *s, DisasOps *o)
|
static ExitStatus op_stpt(DisasContext *s, DisasOps *o)
|
||||||
{
|
{
|
||||||
check_privileged(s);
|
check_privileged(s);
|
||||||
|
|
Loading…
Reference in a new issue