13d672205SThomas Huth /*
23d672205SThomas Huth * S390x DIAG instruction helper functions
33d672205SThomas Huth *
43d672205SThomas Huth * This program is free software; you can redistribute it and/or modify
53d672205SThomas Huth * it under the terms of the GNU General Public License as published by
63d672205SThomas Huth * the Free Software Foundation; either version 2 of the License, or
73d672205SThomas Huth * (at your option) any later version.
83d672205SThomas Huth *
93d672205SThomas Huth * This program is distributed in the hope that it will be useful,
103d672205SThomas Huth * but WITHOUT ANY WARRANTY; without even the implied warranty of
113d672205SThomas Huth * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
123d672205SThomas Huth * GNU General Public License for more details.
133d672205SThomas Huth */
143d672205SThomas Huth
153d672205SThomas Huth #include "qemu/osdep.h"
163d672205SThomas Huth #include "cpu.h"
17b6b47223SCho, Yu-Chen #include "s390x-internal.h"
183d672205SThomas Huth #include "hw/watchdog/wdt_diag288.h"
193d672205SThomas Huth #include "sysemu/cpus.h"
203d672205SThomas Huth #include "hw/s390x/ipl.h"
2119c69829SDavid Hildenbrand #include "hw/s390x/s390-virtio-ccw.h"
221fc66ac1SCho, Yu-Chen #include "sysemu/kvm.h"
2367043607SCho, Yu-Chen #include "kvm/kvm_s390x.h"
24f5f9c6eaSPhilippe Mathieu-Daudé #include "target/s390x/kvm/pv.h"
25cc37d98bSRichard Henderson #include "qemu/error-report.h"
26cc37d98bSRichard Henderson
273d672205SThomas Huth
handle_diag_288(CPUS390XState * env,uint64_t r1,uint64_t r3)283d672205SThomas Huth int handle_diag_288(CPUS390XState *env, uint64_t r1, uint64_t r3)
293d672205SThomas Huth {
303d672205SThomas Huth uint64_t func = env->regs[r1];
313d672205SThomas Huth uint64_t timeout = env->regs[r1 + 1];
323d672205SThomas Huth uint64_t action = env->regs[r3];
333d672205SThomas Huth Object *obj;
343d672205SThomas Huth DIAG288State *diag288;
353d672205SThomas Huth DIAG288Class *diag288_class;
363d672205SThomas Huth
373d672205SThomas Huth if (r1 % 2 || action != 0) {
383d672205SThomas Huth return -1;
393d672205SThomas Huth }
403d672205SThomas Huth
413d672205SThomas Huth /* Timeout must be more than 15 seconds except for timer deletion */
423d672205SThomas Huth if (func != WDT_DIAG288_CANCEL && timeout < 15) {
433d672205SThomas Huth return -1;
443d672205SThomas Huth }
453d672205SThomas Huth
463d672205SThomas Huth obj = object_resolve_path_type("", TYPE_WDT_DIAG288, NULL);
473d672205SThomas Huth if (!obj) {
483d672205SThomas Huth return -1;
493d672205SThomas Huth }
503d672205SThomas Huth
513d672205SThomas Huth diag288 = DIAG288(obj);
523d672205SThomas Huth diag288_class = DIAG288_GET_CLASS(diag288);
533d672205SThomas Huth return diag288_class->handle_timer(diag288, func, timeout);
543d672205SThomas Huth }
553d672205SThomas Huth
diag308_parm_check(CPUS390XState * env,uint64_t r1,uint64_t addr,uintptr_t ra,bool write)560b7fd817SJanosch Frank static int diag308_parm_check(CPUS390XState *env, uint64_t r1, uint64_t addr,
570b7fd817SJanosch Frank uintptr_t ra, bool write)
580b7fd817SJanosch Frank {
59c3347ed0SJanosch Frank /* Handled by the Ultravisor */
60c3347ed0SJanosch Frank if (s390_is_pv()) {
61c3347ed0SJanosch Frank return 0;
62c3347ed0SJanosch Frank }
630b7fd817SJanosch Frank if ((r1 & 1) || (addr & ~TARGET_PAGE_MASK)) {
640b7fd817SJanosch Frank s390_program_interrupt(env, PGM_SPECIFICATION, ra);
650b7fd817SJanosch Frank return -1;
660b7fd817SJanosch Frank }
670b7fd817SJanosch Frank if (!address_space_access_valid(&address_space_memory, addr,
680b7fd817SJanosch Frank sizeof(IplParameterBlock), write,
690b7fd817SJanosch Frank MEMTXATTRS_UNSPECIFIED)) {
700b7fd817SJanosch Frank s390_program_interrupt(env, PGM_ADDRESSING, ra);
710b7fd817SJanosch Frank return -1;
720b7fd817SJanosch Frank }
730b7fd817SJanosch Frank return 0;
740b7fd817SJanosch Frank }
750b7fd817SJanosch Frank
handle_diag_308(CPUS390XState * env,uint64_t r1,uint64_t r3,uintptr_t ra)76968db419SDavid Hildenbrand void handle_diag_308(CPUS390XState *env, uint64_t r1, uint64_t r3, uintptr_t ra)
773d672205SThomas Huth {
78c3347ed0SJanosch Frank bool valid;
79dc79e928SRichard Henderson CPUState *cs = env_cpu(env);
80*2c6822cdSPhilippe Mathieu-Daudé S390CPU *cpu = env_archcpu(env);
813d672205SThomas Huth uint64_t addr = env->regs[r1];
823d672205SThomas Huth uint64_t subcode = env->regs[r3];
833d672205SThomas Huth IplParameterBlock *iplb;
843d672205SThomas Huth
853d672205SThomas Huth if (env->psw.mask & PSW_MASK_PSTATE) {
8677b703f8SRichard Henderson s390_program_interrupt(env, PGM_PRIVILEGED, ra);
873d672205SThomas Huth return;
883d672205SThomas Huth }
893d672205SThomas Huth
900b7fd817SJanosch Frank if (subcode & ~0x0ffffULL) {
9177b703f8SRichard Henderson s390_program_interrupt(env, PGM_SPECIFICATION, ra);
923d672205SThomas Huth return;
933d672205SThomas Huth }
943d672205SThomas Huth
95c3347ed0SJanosch Frank if (subcode >= DIAG308_PV_SET && !s390_has_feat(S390_FEAT_UNPACK)) {
96c3347ed0SJanosch Frank s390_program_interrupt(env, PGM_SPECIFICATION, ra);
97c3347ed0SJanosch Frank return;
98c3347ed0SJanosch Frank }
99c3347ed0SJanosch Frank
1003d672205SThomas Huth switch (subcode) {
1010b7fd817SJanosch Frank case DIAG308_RESET_MOD_CLR:
102a30fb811SDavid Hildenbrand s390_ipl_reset_request(cs, S390_RESET_MODIFIED_CLEAR);
1033d672205SThomas Huth break;
1040b7fd817SJanosch Frank case DIAG308_RESET_LOAD_NORM:
105a30fb811SDavid Hildenbrand s390_ipl_reset_request(cs, S390_RESET_LOAD_NORMAL);
1063d672205SThomas Huth break;
1070b7fd817SJanosch Frank case DIAG308_LOAD_CLEAR:
1080b7fd817SJanosch Frank /* Well we still lack the clearing bit... */
109a30fb811SDavid Hildenbrand s390_ipl_reset_request(cs, S390_RESET_REIPL);
1103d672205SThomas Huth break;
1110b7fd817SJanosch Frank case DIAG308_SET:
112c3347ed0SJanosch Frank case DIAG308_PV_SET:
1130b7fd817SJanosch Frank if (diag308_parm_check(env, r1, addr, ra, false)) {
1143d672205SThomas Huth return;
1153d672205SThomas Huth }
11696f64aa8SMarc-André Lureau iplb = g_new0(IplParameterBlock, 1);
1179c61e112SJanosch Frank if (!s390_is_pv()) {
1183d672205SThomas Huth cpu_physical_memory_read(addr, iplb, sizeof(iplb->len));
1199c61e112SJanosch Frank } else {
1209c61e112SJanosch Frank s390_cpu_pv_mem_read(cpu, 0, iplb, sizeof(iplb->len));
1219c61e112SJanosch Frank }
1229c61e112SJanosch Frank
1233d672205SThomas Huth if (!iplb_valid_len(iplb)) {
1243d672205SThomas Huth env->regs[r1 + 1] = DIAG_308_RC_INVALID;
1253d672205SThomas Huth goto out;
1263d672205SThomas Huth }
1273d672205SThomas Huth
1289c61e112SJanosch Frank if (!s390_is_pv()) {
1293d672205SThomas Huth cpu_physical_memory_read(addr, iplb, be32_to_cpu(iplb->len));
1309c61e112SJanosch Frank } else {
1319c61e112SJanosch Frank s390_cpu_pv_mem_read(cpu, 0, iplb, be32_to_cpu(iplb->len));
1329c61e112SJanosch Frank }
1333d672205SThomas Huth
134c3347ed0SJanosch Frank valid = subcode == DIAG308_PV_SET ? iplb_valid_pv(iplb) : iplb_valid(iplb);
135c3347ed0SJanosch Frank if (!valid) {
1363d672205SThomas Huth env->regs[r1 + 1] = DIAG_308_RC_INVALID;
1373d672205SThomas Huth goto out;
1383d672205SThomas Huth }
1393d672205SThomas Huth
1403d672205SThomas Huth s390_ipl_update_diag308(iplb);
1413d672205SThomas Huth env->regs[r1 + 1] = DIAG_308_RC_OK;
1423d672205SThomas Huth out:
1433d672205SThomas Huth g_free(iplb);
1443d672205SThomas Huth return;
1450b7fd817SJanosch Frank case DIAG308_STORE:
146c3347ed0SJanosch Frank case DIAG308_PV_STORE:
1470b7fd817SJanosch Frank if (diag308_parm_check(env, r1, addr, ra, true)) {
1483d672205SThomas Huth return;
1493d672205SThomas Huth }
150c3347ed0SJanosch Frank if (subcode == DIAG308_PV_STORE) {
151c3347ed0SJanosch Frank iplb = s390_ipl_get_iplb_pv();
152c3347ed0SJanosch Frank } else {
1533d672205SThomas Huth iplb = s390_ipl_get_iplb();
154c3347ed0SJanosch Frank }
1559c61e112SJanosch Frank if (!iplb) {
1563d672205SThomas Huth env->regs[r1 + 1] = DIAG_308_RC_NO_CONF;
1579c61e112SJanosch Frank return;
1583d672205SThomas Huth }
1599c61e112SJanosch Frank
1609c61e112SJanosch Frank if (!s390_is_pv()) {
1619c61e112SJanosch Frank cpu_physical_memory_write(addr, iplb, be32_to_cpu(iplb->len));
1629c61e112SJanosch Frank } else {
1639c61e112SJanosch Frank s390_cpu_pv_mem_write(cpu, 0, iplb, be32_to_cpu(iplb->len));
1649c61e112SJanosch Frank }
1659c61e112SJanosch Frank env->regs[r1 + 1] = DIAG_308_RC_OK;
1663d672205SThomas Huth return;
167c3347ed0SJanosch Frank case DIAG308_PV_START:
168c3347ed0SJanosch Frank iplb = s390_ipl_get_iplb_pv();
169c3347ed0SJanosch Frank if (!iplb) {
170c3347ed0SJanosch Frank env->regs[r1 + 1] = DIAG_308_RC_NO_PV_CONF;
171c3347ed0SJanosch Frank return;
172c3347ed0SJanosch Frank }
173c3347ed0SJanosch Frank
1741fc66ac1SCho, Yu-Chen if (kvm_enabled() && kvm_s390_get_hpage_1m()) {
175c3347ed0SJanosch Frank error_report("Protected VMs can currently not be backed with "
176c3347ed0SJanosch Frank "huge pages");
177c3347ed0SJanosch Frank env->regs[r1 + 1] = DIAG_308_RC_INVAL_FOR_PV;
178c3347ed0SJanosch Frank return;
179c3347ed0SJanosch Frank }
180c3347ed0SJanosch Frank
181c3347ed0SJanosch Frank s390_ipl_reset_request(cs, S390_RESET_PV);
182c3347ed0SJanosch Frank break;
1833d672205SThomas Huth default:
18477b703f8SRichard Henderson s390_program_interrupt(env, PGM_SPECIFICATION, ra);
1853d672205SThomas Huth break;
1863d672205SThomas Huth }
1873d672205SThomas Huth }
188