]> git.proxmox.com Git - mirror_qemu.git/blame - target/s390x/helper.c
target/loongarch: Fix qtest test-hmp error when KVM-only build
[mirror_qemu.git] / target / s390x / helper.c
CommitLineData
10ec5117 1/*
da944885 2 * S/390 helpers - sysemu only
10ec5117
AG
3 *
4 * Copyright (c) 2009 Ulrich Hecht
d5a43964 5 * Copyright (c) 2011 Alexander Graf
10ec5117
AG
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
41c6a6dd 10 * version 2.1 of the License, or (at your option) any later version.
10ec5117
AG
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
70539e18 18 * License along with this library; if not, see <http://www.gnu.org/licenses/>.
10ec5117
AG
19 */
20
9615495a 21#include "qemu/osdep.h"
10ec5117 22#include "cpu.h"
b6b47223 23#include "s390x-internal.h"
4ea5fe99 24#include "gdbstub/helpers.h"
1de7afc9 25#include "qemu/timer.h"
bd3f16ac 26#include "hw/s390x/ioinst.h"
f5f9c6ea 27#include "target/s390x/kvm/pv.h"
83f7f329 28#include "sysemu/hw_accel.h"
54d31236 29#include "sysemu/runstate.h"
10ec5117 30
8f22e0df 31void s390x_tod_timer(void *opaque)
d5a43964 32{
6482b0ff 33 cpu_inject_clock_comparator((S390CPU *) opaque);
d5a43964
AG
34}
35
8f22e0df 36void s390x_cpu_timer(void *opaque)
d5a43964 37{
6482b0ff 38 cpu_inject_cpu_timer((S390CPU *) opaque);
d5a43964 39}
d5a43964 40
00b941e5 41hwaddr s390_cpu_get_phys_page_debug(CPUState *cs, vaddr vaddr)
d5a43964 42{
00b941e5
AF
43 S390CPU *cpu = S390_CPU(cs);
44 CPUS390XState *env = &cpu->env;
d5a43964 45 target_ulong raddr;
e3e09d87 46 int prot;
d5a43964 47 uint64_t asc = env->psw.mask & PSW_MASK_ASC;
ce7ac79d 48 uint64_t tec;
d5a43964
AG
49
50 /* 31-Bit mode */
51 if (!(env->psw.mask & PSW_MASK_64)) {
52 vaddr &= 0x7fffffff;
53 }
54
c36709e4
DH
55 /* We want to read the code (e.g., see what we are single-stepping).*/
56 if (asc != PSW_ASC_HOME) {
57 asc = PSW_ASC_PRIMARY;
58 }
59
3a06f981
DH
60 /*
61 * We want to read code even if IEP is active. Use MMU_DATA_LOAD instead
62 * of MMU_INST_FETCH.
63 */
ce7ac79d 64 if (mmu_translate(env, vaddr, MMU_DATA_LOAD, asc, &raddr, &prot, &tec)) {
234779a2
DH
65 return -1;
66 }
d5a43964
AG
67 return raddr;
68}
69
770a6379
DH
70hwaddr s390_cpu_get_phys_addr_debug(CPUState *cs, vaddr vaddr)
71{
72 hwaddr phys_addr;
73 target_ulong page;
74
75 page = vaddr & TARGET_PAGE_MASK;
76 phys_addr = cpu_get_phys_page_debug(cs, page);
77 phys_addr += (vaddr & ~TARGET_PAGE_MASK);
78
79 return phys_addr;
80}
81
83f7f329
DH
82static inline bool is_special_wait_psw(uint64_t psw_addr)
83{
84 /* signal quiesce */
8b51c096 85 return (psw_addr & 0xfffUL) == 0xfffUL;
83f7f329
DH
86}
87
88void s390_handle_wait(S390CPU *cpu)
89{
4ada99ad
CB
90 CPUState *cs = CPU(cpu);
91
83f7f329 92 if (s390_cpu_halt(cpu) == 0) {
83f7f329
DH
93 if (is_special_wait_psw(cpu->env.psw.addr)) {
94 qemu_system_shutdown_request(SHUTDOWN_CAUSE_GUEST_SHUTDOWN);
95 } else {
4ada99ad
CB
96 cpu->env.crash_reason = S390_CRASH_REASON_DISABLED_WAIT;
97 qemu_system_guest_panicked(cpu_get_crash_info(cs));
83f7f329 98 }
83f7f329
DH
99 }
100}
101
cded4014 102LowCore *cpu_map_lowcore(CPUS390XState *env)
4782a23b
CH
103{
104 LowCore *lowcore;
105 hwaddr len = sizeof(LowCore);
106
85eb7c18 107 lowcore = cpu_physical_memory_map(env->psa, &len, true);
4782a23b
CH
108
109 if (len < sizeof(LowCore)) {
dc79e928 110 cpu_abort(env_cpu(env), "Could not map lowcore\n");
4782a23b
CH
111 }
112
113 return lowcore;
114}
115
cded4014 116void cpu_unmap_lowcore(LowCore *lowcore)
4782a23b
CH
117{
118 cpu_physical_memory_unmap(lowcore, sizeof(LowCore), 1, sizeof(LowCore));
119}
120
3f10341f
DH
121void do_restart_interrupt(CPUS390XState *env)
122{
123 uint64_t mask, addr;
124 LowCore *lowcore;
125
126 lowcore = cpu_map_lowcore(env);
127
e2b2a864 128 lowcore->restart_old_psw.mask = cpu_to_be64(s390_cpu_get_psw_mask(env));
3f10341f
DH
129 lowcore->restart_old_psw.addr = cpu_to_be64(env->psw.addr);
130 mask = be64_to_cpu(lowcore->restart_new_psw.mask);
131 addr = be64_to_cpu(lowcore->restart_new_psw.addr);
132
133 cpu_unmap_lowcore(lowcore);
b1ab5f60 134 env->pending_int &= ~INTERRUPT_RESTART;
3f10341f 135
e2b2a864 136 s390_cpu_set_psw(env, mask, addr);
3f10341f
DH
137}
138
311918b9
AJ
139void s390_cpu_recompute_watchpoints(CPUState *cs)
140{
141 const int wp_flags = BP_CPU | BP_MEM_WRITE | BP_STOP_BEFORE_ACCESS;
142 S390CPU *cpu = S390_CPU(cs);
143 CPUS390XState *env = &cpu->env;
144
145 /* We are called when the watchpoints have changed. First
146 remove them all. */
147 cpu_watchpoint_remove_all(cs, BP_CPU);
148
149 /* Return if PER is not enabled */
150 if (!(env->psw.mask & PSW_MASK_PER)) {
151 return;
152 }
153
154 /* Return if storage-alteration event is not enabled. */
155 if (!(env->cregs[9] & PER_CR9_EVENT_STORE)) {
156 return;
157 }
158
159 if (env->cregs[10] == 0 && env->cregs[11] == -1LL) {
160 /* We can't create a watchoint spanning the whole memory range, so
161 split it in two parts. */
162 cpu_watchpoint_insert(cs, 0, 1ULL << 63, wp_flags, NULL);
163 cpu_watchpoint_insert(cs, 1ULL << 63, 1ULL << 63, wp_flags, NULL);
164 } else if (env->cregs[10] > env->cregs[11]) {
165 /* The address range loops, create two watchpoints. */
166 cpu_watchpoint_insert(cs, env->cregs[10], -env->cregs[10],
167 wp_flags, NULL);
168 cpu_watchpoint_insert(cs, 0, env->cregs[11] + 1, wp_flags, NULL);
169
170 } else {
171 /* Default case, create a single watchpoint. */
172 cpu_watchpoint_insert(cs, env->cregs[10],
173 env->cregs[11] - env->cregs[10] + 1,
174 wp_flags, NULL);
175 }
176}
177
257619be 178typedef struct SigpSaveArea {
cf729baa
DH
179 uint64_t fprs[16]; /* 0x0000 */
180 uint64_t grs[16]; /* 0x0080 */
181 PSW psw; /* 0x0100 */
182 uint8_t pad_0x0110[0x0118 - 0x0110]; /* 0x0110 */
183 uint32_t prefix; /* 0x0118 */
184 uint32_t fpc; /* 0x011c */
185 uint8_t pad_0x0120[0x0124 - 0x0120]; /* 0x0120 */
186 uint32_t todpr; /* 0x0124 */
187 uint64_t cputm; /* 0x0128 */
188 uint64_t ckc; /* 0x0130 */
189 uint8_t pad_0x0138[0x0140 - 0x0138]; /* 0x0138 */
190 uint32_t ars[16]; /* 0x0140 */
191 uint64_t crs[16]; /* 0x0384 */
257619be
DH
192} SigpSaveArea;
193QEMU_BUILD_BUG_ON(sizeof(SigpSaveArea) != 512);
cf729baa
DH
194
195int s390_store_status(S390CPU *cpu, hwaddr addr, bool store_arch)
196{
197 static const uint8_t ar_id = 1;
257619be 198 SigpSaveArea *sa;
cf729baa
DH
199 hwaddr len = sizeof(*sa);
200 int i;
201
f2a2d9a2
JF
202 /* For PVMs storing will occur when this cpu enters SIE again */
203 if (s390_is_pv()) {
204 return 0;
205 }
206
85eb7c18 207 sa = cpu_physical_memory_map(addr, &len, true);
cf729baa
DH
208 if (!sa) {
209 return -EFAULT;
210 }
211 if (len != sizeof(*sa)) {
212 cpu_physical_memory_unmap(sa, len, 1, 0);
213 return -EFAULT;
214 }
215
216 if (store_arch) {
217 cpu_physical_memory_write(offsetof(LowCore, ar_access_id), &ar_id, 1);
218 }
219 for (i = 0; i < 16; ++i) {
4f83d7d2 220 sa->fprs[i] = cpu_to_be64(*get_freg(&cpu->env, i));
cf729baa
DH
221 }
222 for (i = 0; i < 16; ++i) {
223 sa->grs[i] = cpu_to_be64(cpu->env.regs[i]);
224 }
225 sa->psw.addr = cpu_to_be64(cpu->env.psw.addr);
e2b2a864 226 sa->psw.mask = cpu_to_be64(s390_cpu_get_psw_mask(&cpu->env));
cf729baa
DH
227 sa->prefix = cpu_to_be32(cpu->env.psa);
228 sa->fpc = cpu_to_be32(cpu->env.fpc);
229 sa->todpr = cpu_to_be32(cpu->env.todpr);
230 sa->cputm = cpu_to_be64(cpu->env.cputm);
231 sa->ckc = cpu_to_be64(cpu->env.ckc >> 8);
232 for (i = 0; i < 16; ++i) {
233 sa->ars[i] = cpu_to_be32(cpu->env.aregs[i]);
234 }
235 for (i = 0; i < 16; ++i) {
dc0bbef5 236 sa->crs[i] = cpu_to_be64(cpu->env.cregs[i]);
cf729baa
DH
237 }
238
239 cpu_physical_memory_unmap(sa, len, 1, len);
240
241 return 0;
242}
f875cb0c 243
2cca53fd
DH
244typedef struct SigpAdtlSaveArea {
245 uint64_t vregs[32][2]; /* 0x0000 */
246 uint8_t pad_0x0200[0x0400 - 0x0200]; /* 0x0200 */
247 uint64_t gscb[4]; /* 0x0400 */
248 uint8_t pad_0x0420[0x1000 - 0x0420]; /* 0x0420 */
249} SigpAdtlSaveArea;
250QEMU_BUILD_BUG_ON(sizeof(SigpAdtlSaveArea) != 4096);
251
f875cb0c
DH
252#define ADTL_GS_MIN_SIZE 2048 /* minimal size of adtl save area for GS */
253int s390_store_adtl_status(S390CPU *cpu, hwaddr addr, hwaddr len)
254{
2cca53fd 255 SigpAdtlSaveArea *sa;
f875cb0c 256 hwaddr save = len;
2cca53fd 257 int i;
f875cb0c 258
85eb7c18 259 sa = cpu_physical_memory_map(addr, &save, true);
2cca53fd 260 if (!sa) {
f875cb0c
DH
261 return -EFAULT;
262 }
263 if (save != len) {
2cca53fd 264 cpu_physical_memory_unmap(sa, len, 1, 0);
f875cb0c
DH
265 return -EFAULT;
266 }
267
f875cb0c 268 if (s390_has_feat(S390_FEAT_VECTOR)) {
2cca53fd 269 for (i = 0; i < 32; i++) {
4f83d7d2
DH
270 sa->vregs[i][0] = cpu_to_be64(cpu->env.vregs[i][0]);
271 sa->vregs[i][1] = cpu_to_be64(cpu->env.vregs[i][1]);
2cca53fd 272 }
f875cb0c
DH
273 }
274 if (s390_has_feat(S390_FEAT_GUARDED_STORAGE) && len >= ADTL_GS_MIN_SIZE) {
2cca53fd
DH
275 for (i = 0; i < 4; i++) {
276 sa->gscb[i] = cpu_to_be64(cpu->env.gscb[i]);
277 }
f875cb0c
DH
278 }
279
2cca53fd 280 cpu_physical_memory_unmap(sa, len, 1, len);
f875cb0c
DH
281 return 0;
282}