[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Qemu-devel] [PATCH 07/26] target/s390x: implement STORE PAIR TO QUADWOR
From: |
Aurelien Jarno |
Subject: |
[Qemu-devel] [PATCH 07/26] target/s390x: implement STORE PAIR TO QUADWORD |
Date: |
Thu, 25 May 2017 23:04:49 +0200 |
Signed-off-by: Aurelien Jarno <address@hidden>
---
target/s390x/insn-data.def | 2 ++
target/s390x/translate.c | 18 ++++++++++++++++++
2 files changed, 20 insertions(+)
diff --git a/target/s390x/insn-data.def b/target/s390x/insn-data.def
index 53c86d5832..751e3164dd 100644
--- a/target/s390x/insn-data.def
+++ b/target/s390x/insn-data.def
@@ -770,6 +770,8 @@
/* STORE ACCESS MULTIPLE */
C(0x9b00, STAM, RS_a, Z, 0, a2, 0, 0, stam, 0)
C(0xeb9b, STAMY, RSY_a, LD, 0, a2, 0, 0, stam, 0)
+/* STORE PAIR TO QUADWORD */
+ C(0xe38e, STPQ, RXY_a, Z, 0, a2, 0, 0, stpq, 0)
/* SUBTRACT */
C(0x1b00, SR, RR_a, Z, r1, r2, new, r1_32, sub, subs32)
diff --git a/target/s390x/translate.c b/target/s390x/translate.c
index 09052972f1..231b51c313 100644
--- a/target/s390x/translate.c
+++ b/target/s390x/translate.c
@@ -4025,6 +4025,24 @@ static ExitStatus op_stmh(DisasContext *s, DisasOps *o)
return NO_EXIT;
}
+static ExitStatus op_stpq(DisasContext *s, DisasOps *o)
+{
+ int r1 = get_field(s->fields, r1);
+
+ /* In a parallel context, stop the world and single step. */
+ if (parallel_cpus) {
+ potential_page_fault(s);
+ gen_exception(EXCP_ATOMIC);
+ return EXIT_NORETURN;
+ }
+
+ /* In a serial context, perform the two stores ... */
+ tcg_gen_qemu_st64(regs[r1], o->in2, get_mem_index(s));
+ tcg_gen_addi_i64(o->in2, o->in2, 8);
+ tcg_gen_qemu_st64(regs[r1 + 1], o->in2, get_mem_index(s));
+ return NO_EXIT;
+}
+
static ExitStatus op_srst(DisasContext *s, DisasOps *o)
{
gen_helper_srst(o->in1, cpu_env, regs[0], o->in1, o->in2);
--
2.11.0
- [Qemu-devel] [PATCH 26/26] target/s390x: update maximum TCG model to z800, (continued)
- [Qemu-devel] [PATCH 26/26] target/s390x: update maximum TCG model to z800, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 15/26] target/s390x: fix COMPARE LOGICAL LONG EXTENDED, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 16/26] target/s390x: implement COMPARE LOGICAL LONG, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 22/26] target/s390x: implement UNPACK ASCII, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 25/26] target/s390x: implement TRANSLATE ONE/TWO TO ONE/TWO, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 23/26] target/s390x: implement UNPACK UNICODE, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 02/26] target/s390x: make IPTE SMP aware, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 10/26] target/s390x: implement MOVE WITH OFFSET, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 07/26] target/s390x: implement STORE PAIR TO QUADWORD,
Aurelien Jarno <=
- [Qemu-devel] [PATCH 06/26] target/s390x: implement LOAD PAIR FROM QUADWORD, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 11/26] target/s390x: implement MOVE ZONES, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 04/26] target/s390x: implement TEST ADDRESSING MODE, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 13/26] target/s390x: improve 24-bit and 31-bit addresses write, Aurelien Jarno, 2017/05/25
- [Qemu-devel] [PATCH 17/26] target/s390x: improve MOVE LONG and MOVE LONG EXTENDED, Aurelien Jarno, 2017/05/25