2 * S390x DIAG instruction helper functions
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2 of the License, or
7 * (at your option) any later version.
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
15 #include "qemu/osdep.h"
18 #include "hw/watchdog/wdt_diag288.h"
19 #include "sysemu/cpus.h"
20 #include "hw/s390x/ipl.h"
21 #include "hw/s390x/s390-virtio-ccw.h"
22 #include "hw/s390x/pv.h"
23 #include "kvm_s390x.h"
25 int handle_diag_288(CPUS390XState
*env
, uint64_t r1
, uint64_t r3
)
27 uint64_t func
= env
->regs
[r1
];
28 uint64_t timeout
= env
->regs
[r1
+ 1];
29 uint64_t action
= env
->regs
[r3
];
31 DIAG288State
*diag288
;
32 DIAG288Class
*diag288_class
;
34 if (r1
% 2 || action
!= 0) {
38 /* Timeout must be more than 15 seconds except for timer deletion */
39 if (func
!= WDT_DIAG288_CANCEL
&& timeout
< 15) {
43 obj
= object_resolve_path_type("", TYPE_WDT_DIAG288
, NULL
);
48 diag288
= DIAG288(obj
);
49 diag288_class
= DIAG288_GET_CLASS(diag288
);
50 return diag288_class
->handle_timer(diag288
, func
, timeout
);
53 static int diag308_parm_check(CPUS390XState
*env
, uint64_t r1
, uint64_t addr
,
54 uintptr_t ra
, bool write
)
56 /* Handled by the Ultravisor */
60 if ((r1
& 1) || (addr
& ~TARGET_PAGE_MASK
)) {
61 s390_program_interrupt(env
, PGM_SPECIFICATION
, ra
);
64 if (!address_space_access_valid(&address_space_memory
, addr
,
65 sizeof(IplParameterBlock
), write
,
66 MEMTXATTRS_UNSPECIFIED
)) {
67 s390_program_interrupt(env
, PGM_ADDRESSING
, ra
);
73 void handle_diag_308(CPUS390XState
*env
, uint64_t r1
, uint64_t r3
, uintptr_t ra
)
76 CPUState
*cs
= env_cpu(env
);
77 S390CPU
*cpu
= S390_CPU(cs
);
78 uint64_t addr
= env
->regs
[r1
];
79 uint64_t subcode
= env
->regs
[r3
];
80 IplParameterBlock
*iplb
;
82 if (env
->psw
.mask
& PSW_MASK_PSTATE
) {
83 s390_program_interrupt(env
, PGM_PRIVILEGED
, ra
);
87 if (subcode
& ~0x0ffffULL
) {
88 s390_program_interrupt(env
, PGM_SPECIFICATION
, ra
);
92 if (subcode
>= DIAG308_PV_SET
&& !s390_has_feat(S390_FEAT_UNPACK
)) {
93 s390_program_interrupt(env
, PGM_SPECIFICATION
, ra
);
98 case DIAG308_RESET_MOD_CLR
:
99 s390_ipl_reset_request(cs
, S390_RESET_MODIFIED_CLEAR
);
101 case DIAG308_RESET_LOAD_NORM
:
102 s390_ipl_reset_request(cs
, S390_RESET_LOAD_NORMAL
);
104 case DIAG308_LOAD_CLEAR
:
105 /* Well we still lack the clearing bit... */
106 s390_ipl_reset_request(cs
, S390_RESET_REIPL
);
110 if (diag308_parm_check(env
, r1
, addr
, ra
, false)) {
113 iplb
= g_new0(IplParameterBlock
, 1);
115 cpu_physical_memory_read(addr
, iplb
, sizeof(iplb
->len
));
117 s390_cpu_pv_mem_read(cpu
, 0, iplb
, sizeof(iplb
->len
));
120 if (!iplb_valid_len(iplb
)) {
121 env
->regs
[r1
+ 1] = DIAG_308_RC_INVALID
;
126 cpu_physical_memory_read(addr
, iplb
, be32_to_cpu(iplb
->len
));
128 s390_cpu_pv_mem_read(cpu
, 0, iplb
, be32_to_cpu(iplb
->len
));
131 valid
= subcode
== DIAG308_PV_SET
? iplb_valid_pv(iplb
) : iplb_valid(iplb
);
133 env
->regs
[r1
+ 1] = DIAG_308_RC_INVALID
;
137 s390_ipl_update_diag308(iplb
);
138 env
->regs
[r1
+ 1] = DIAG_308_RC_OK
;
143 case DIAG308_PV_STORE
:
144 if (diag308_parm_check(env
, r1
, addr
, ra
, true)) {
147 if (subcode
== DIAG308_PV_STORE
) {
148 iplb
= s390_ipl_get_iplb_pv();
150 iplb
= s390_ipl_get_iplb();
153 env
->regs
[r1
+ 1] = DIAG_308_RC_NO_CONF
;
158 cpu_physical_memory_write(addr
, iplb
, be32_to_cpu(iplb
->len
));
160 s390_cpu_pv_mem_write(cpu
, 0, iplb
, be32_to_cpu(iplb
->len
));
162 env
->regs
[r1
+ 1] = DIAG_308_RC_OK
;
164 case DIAG308_PV_START
:
165 iplb
= s390_ipl_get_iplb_pv();
167 env
->regs
[r1
+ 1] = DIAG_308_RC_NO_PV_CONF
;
171 if (kvm_s390_get_hpage_1m()) {
172 error_report("Protected VMs can currently not be backed with "
174 env
->regs
[r1
+ 1] = DIAG_308_RC_INVAL_FOR_PV
;
178 s390_ipl_reset_request(cs
, S390_RESET_PV
);
181 s390_program_interrupt(env
, PGM_SPECIFICATION
, ra
);