]>
Commit | Line | Data |
---|---|---|
10ec5117 AG |
1 | /* |
2 | * S/390 virtual CPU header | |
3 | * | |
4 | * Copyright (c) 2009 Ulrich Hecht | |
5 | * | |
6 | * This library is free software; you can redistribute it and/or | |
7 | * modify it under the terms of the GNU Lesser General Public | |
8 | * License as published by the Free Software Foundation; either | |
9 | * version 2 of the License, or (at your option) any later version. | |
10 | * | |
11 | * This library is distributed in the hope that it will be useful, | |
12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
14 | * Lesser General Public License for more details. | |
15 | * | |
ccb084d3 CB |
16 | * Contributions after 2012-10-29 are licensed under the terms of the |
17 | * GNU GPL, version 2 or (at your option) any later version. | |
18 | * | |
19 | * You should have received a copy of the GNU (Lesser) General Public | |
70539e18 | 20 | * License along with this library; if not, see <http://www.gnu.org/licenses/>. |
10ec5117 AG |
21 | */ |
22 | #ifndef CPU_S390X_H | |
23 | #define CPU_S390X_H | |
45133b74 SW |
24 | |
25 | #include "config.h" | |
26 | #include "qemu-common.h" | |
10ec5117 AG |
27 | |
28 | #define TARGET_LONG_BITS 64 | |
29 | ||
30 | #define ELF_MACHINE EM_S390 | |
4ab23a91 | 31 | #define ELF_MACHINE_UNAME "S390X" |
10ec5117 | 32 | |
9349b4f9 | 33 | #define CPUArchState struct CPUS390XState |
10ec5117 | 34 | |
022c62cb | 35 | #include "exec/cpu-defs.h" |
bcec36ea AG |
36 | #define TARGET_PAGE_BITS 12 |
37 | ||
5b23fd03 | 38 | #define TARGET_PHYS_ADDR_SPACE_BITS 64 |
bcec36ea AG |
39 | #define TARGET_VIRT_ADDR_SPACE_BITS 64 |
40 | ||
022c62cb | 41 | #include "exec/cpu-all.h" |
10ec5117 | 42 | |
6b4c305c | 43 | #include "fpu/softfloat.h" |
10ec5117 | 44 | |
bcec36ea | 45 | #define NB_MMU_MODES 3 |
10ec5117 | 46 | |
bcec36ea AG |
47 | #define MMU_MODE0_SUFFIX _primary |
48 | #define MMU_MODE1_SUFFIX _secondary | |
49 | #define MMU_MODE2_SUFFIX _home | |
50 | ||
1f65958d | 51 | #define MMU_USER_IDX 0 |
bcec36ea AG |
52 | |
53 | #define MAX_EXT_QUEUE 16 | |
5d69c547 CH |
54 | #define MAX_IO_QUEUE 16 |
55 | #define MAX_MCHK_QUEUE 16 | |
56 | ||
57 | #define PSW_MCHK_MASK 0x0004000000000000 | |
58 | #define PSW_IO_MASK 0x0200000000000000 | |
bcec36ea AG |
59 | |
60 | typedef struct PSW { | |
61 | uint64_t mask; | |
62 | uint64_t addr; | |
63 | } PSW; | |
64 | ||
65 | typedef struct ExtQueue { | |
66 | uint32_t code; | |
67 | uint32_t param; | |
68 | uint32_t param64; | |
69 | } ExtQueue; | |
10ec5117 | 70 | |
5d69c547 CH |
71 | typedef struct IOIntQueue { |
72 | uint16_t id; | |
73 | uint16_t nr; | |
74 | uint32_t parm; | |
75 | uint32_t word; | |
76 | } IOIntQueue; | |
77 | ||
78 | typedef struct MchkQueue { | |
79 | uint16_t type; | |
80 | } MchkQueue; | |
81 | ||
10ec5117 | 82 | typedef struct CPUS390XState { |
1ac5889f | 83 | uint64_t regs[16]; /* GP registers */ |
fcb79802 EF |
84 | /* |
85 | * The floating point registers are part of the vector registers. | |
86 | * vregs[0][0] -> vregs[15][0] are 16 floating point registers | |
87 | */ | |
88 | CPU_DoubleU vregs[32][2]; /* vector registers */ | |
1ac5889f | 89 | uint32_t aregs[16]; /* access registers */ |
10ec5117 | 90 | |
1ac5889f RH |
91 | uint32_t fpc; /* floating-point control register */ |
92 | uint32_t cc_op; | |
10ec5117 | 93 | |
10ec5117 AG |
94 | float_status fpu_status; /* passed to softfloat lib */ |
95 | ||
1ac5889f RH |
96 | /* The low part of a 128-bit return, or remainder of a divide. */ |
97 | uint64_t retxl; | |
98 | ||
bcec36ea | 99 | PSW psw; |
10ec5117 | 100 | |
bcec36ea AG |
101 | uint64_t cc_src; |
102 | uint64_t cc_dst; | |
103 | uint64_t cc_vr; | |
10ec5117 AG |
104 | |
105 | uint64_t __excp_addr; | |
bcec36ea AG |
106 | uint64_t psa; |
107 | ||
108 | uint32_t int_pgm_code; | |
d5a103cd | 109 | uint32_t int_pgm_ilen; |
bcec36ea AG |
110 | |
111 | uint32_t int_svc_code; | |
d5a103cd | 112 | uint32_t int_svc_ilen; |
bcec36ea AG |
113 | |
114 | uint64_t cregs[16]; /* control registers */ | |
115 | ||
bcec36ea | 116 | ExtQueue ext_queue[MAX_EXT_QUEUE]; |
5d69c547 CH |
117 | IOIntQueue io_queue[MAX_IO_QUEUE][8]; |
118 | MchkQueue mchk_queue[MAX_MCHK_QUEUE]; | |
bcec36ea | 119 | |
5d69c547 | 120 | int pending_int; |
4e836781 | 121 | int ext_index; |
5d69c547 CH |
122 | int io_index[8]; |
123 | int mchk_index; | |
124 | ||
125 | uint64_t ckc; | |
126 | uint64_t cputm; | |
127 | uint32_t todpr; | |
4e836781 | 128 | |
819bd309 DD |
129 | uint64_t pfault_token; |
130 | uint64_t pfault_compare; | |
131 | uint64_t pfault_select; | |
132 | ||
44b0c0bb CB |
133 | uint64_t gbea; |
134 | uint64_t pp; | |
135 | ||
4e836781 AG |
136 | CPU_COMMON |
137 | ||
bcec36ea AG |
138 | /* reset does memset(0) up to here */ |
139 | ||
7f745b31 RH |
140 | uint32_t cpu_num; |
141 | uint32_t machine_type; | |
142 | ||
bcec36ea AG |
143 | uint8_t *storage_keys; |
144 | ||
145 | uint64_t tod_offset; | |
146 | uint64_t tod_basetime; | |
147 | QEMUTimer *tod_timer; | |
148 | ||
149 | QEMUTimer *cpu_timer; | |
75973bfe DH |
150 | |
151 | /* | |
152 | * The cpu state represents the logical state of a cpu. In contrast to other | |
153 | * architectures, there is a difference between a halt and a stop on s390. | |
154 | * If all cpus are either stopped (including check stop) or in the disabled | |
155 | * wait state, the vm can be shut down. | |
156 | */ | |
157 | #define CPU_STATE_UNINITIALIZED 0x00 | |
158 | #define CPU_STATE_STOPPED 0x01 | |
159 | #define CPU_STATE_CHECK_STOP 0x02 | |
160 | #define CPU_STATE_OPERATING 0x03 | |
161 | #define CPU_STATE_LOAD 0x04 | |
162 | uint8_t cpu_state; | |
163 | ||
18ff9494 DH |
164 | /* currently processed sigp order */ |
165 | uint8_t sigp_order; | |
166 | ||
10ec5117 AG |
167 | } CPUS390XState; |
168 | ||
c498d8e3 EF |
169 | static inline CPU_DoubleU *get_freg(CPUS390XState *cs, int nr) |
170 | { | |
fcb79802 | 171 | return &cs->vregs[nr][0]; |
c498d8e3 EF |
172 | } |
173 | ||
564b863d | 174 | #include "cpu-qom.h" |
3d0a615f | 175 | #include <sysemu/kvm.h> |
564b863d | 176 | |
7b18aad5 CH |
177 | /* distinguish between 24 bit and 31 bit addressing */ |
178 | #define HIGH_ORDER_BIT 0x80000000 | |
179 | ||
bcec36ea AG |
180 | /* Interrupt Codes */ |
181 | /* Program Interrupts */ | |
182 | #define PGM_OPERATION 0x0001 | |
183 | #define PGM_PRIVILEGED 0x0002 | |
184 | #define PGM_EXECUTE 0x0003 | |
185 | #define PGM_PROTECTION 0x0004 | |
186 | #define PGM_ADDRESSING 0x0005 | |
187 | #define PGM_SPECIFICATION 0x0006 | |
188 | #define PGM_DATA 0x0007 | |
189 | #define PGM_FIXPT_OVERFLOW 0x0008 | |
190 | #define PGM_FIXPT_DIVIDE 0x0009 | |
191 | #define PGM_DEC_OVERFLOW 0x000a | |
192 | #define PGM_DEC_DIVIDE 0x000b | |
193 | #define PGM_HFP_EXP_OVERFLOW 0x000c | |
194 | #define PGM_HFP_EXP_UNDERFLOW 0x000d | |
195 | #define PGM_HFP_SIGNIFICANCE 0x000e | |
196 | #define PGM_HFP_DIVIDE 0x000f | |
197 | #define PGM_SEGMENT_TRANS 0x0010 | |
198 | #define PGM_PAGE_TRANS 0x0011 | |
199 | #define PGM_TRANS_SPEC 0x0012 | |
200 | #define PGM_SPECIAL_OP 0x0013 | |
201 | #define PGM_OPERAND 0x0015 | |
202 | #define PGM_TRACE_TABLE 0x0016 | |
203 | #define PGM_SPACE_SWITCH 0x001c | |
204 | #define PGM_HFP_SQRT 0x001d | |
205 | #define PGM_PC_TRANS_SPEC 0x001f | |
206 | #define PGM_AFX_TRANS 0x0020 | |
207 | #define PGM_ASX_TRANS 0x0021 | |
208 | #define PGM_LX_TRANS 0x0022 | |
209 | #define PGM_EX_TRANS 0x0023 | |
210 | #define PGM_PRIM_AUTH 0x0024 | |
211 | #define PGM_SEC_AUTH 0x0025 | |
212 | #define PGM_ALET_SPEC 0x0028 | |
213 | #define PGM_ALEN_SPEC 0x0029 | |
214 | #define PGM_ALE_SEQ 0x002a | |
215 | #define PGM_ASTE_VALID 0x002b | |
216 | #define PGM_ASTE_SEQ 0x002c | |
217 | #define PGM_EXT_AUTH 0x002d | |
218 | #define PGM_STACK_FULL 0x0030 | |
219 | #define PGM_STACK_EMPTY 0x0031 | |
220 | #define PGM_STACK_SPEC 0x0032 | |
221 | #define PGM_STACK_TYPE 0x0033 | |
222 | #define PGM_STACK_OP 0x0034 | |
223 | #define PGM_ASCE_TYPE 0x0038 | |
224 | #define PGM_REG_FIRST_TRANS 0x0039 | |
225 | #define PGM_REG_SEC_TRANS 0x003a | |
226 | #define PGM_REG_THIRD_TRANS 0x003b | |
227 | #define PGM_MONITOR 0x0040 | |
228 | #define PGM_PER 0x0080 | |
229 | #define PGM_CRYPTO 0x0119 | |
230 | ||
231 | /* External Interrupts */ | |
232 | #define EXT_INTERRUPT_KEY 0x0040 | |
233 | #define EXT_CLOCK_COMP 0x1004 | |
234 | #define EXT_CPU_TIMER 0x1005 | |
235 | #define EXT_MALFUNCTION 0x1200 | |
236 | #define EXT_EMERGENCY 0x1201 | |
237 | #define EXT_EXTERNAL_CALL 0x1202 | |
238 | #define EXT_ETR 0x1406 | |
239 | #define EXT_SERVICE 0x2401 | |
240 | #define EXT_VIRTIO 0x2603 | |
241 | ||
242 | /* PSW defines */ | |
243 | #undef PSW_MASK_PER | |
244 | #undef PSW_MASK_DAT | |
245 | #undef PSW_MASK_IO | |
246 | #undef PSW_MASK_EXT | |
247 | #undef PSW_MASK_KEY | |
248 | #undef PSW_SHIFT_KEY | |
249 | #undef PSW_MASK_MCHECK | |
250 | #undef PSW_MASK_WAIT | |
251 | #undef PSW_MASK_PSTATE | |
252 | #undef PSW_MASK_ASC | |
253 | #undef PSW_MASK_CC | |
254 | #undef PSW_MASK_PM | |
255 | #undef PSW_MASK_64 | |
29c6157c CB |
256 | #undef PSW_MASK_32 |
257 | #undef PSW_MASK_ESA_ADDR | |
bcec36ea AG |
258 | |
259 | #define PSW_MASK_PER 0x4000000000000000ULL | |
260 | #define PSW_MASK_DAT 0x0400000000000000ULL | |
261 | #define PSW_MASK_IO 0x0200000000000000ULL | |
262 | #define PSW_MASK_EXT 0x0100000000000000ULL | |
263 | #define PSW_MASK_KEY 0x00F0000000000000ULL | |
264 | #define PSW_SHIFT_KEY 56 | |
265 | #define PSW_MASK_MCHECK 0x0004000000000000ULL | |
266 | #define PSW_MASK_WAIT 0x0002000000000000ULL | |
267 | #define PSW_MASK_PSTATE 0x0001000000000000ULL | |
268 | #define PSW_MASK_ASC 0x0000C00000000000ULL | |
269 | #define PSW_MASK_CC 0x0000300000000000ULL | |
270 | #define PSW_MASK_PM 0x00000F0000000000ULL | |
271 | #define PSW_MASK_64 0x0000000100000000ULL | |
272 | #define PSW_MASK_32 0x0000000080000000ULL | |
29c6157c | 273 | #define PSW_MASK_ESA_ADDR 0x000000007fffffffULL |
bcec36ea AG |
274 | |
275 | #undef PSW_ASC_PRIMARY | |
276 | #undef PSW_ASC_ACCREG | |
277 | #undef PSW_ASC_SECONDARY | |
278 | #undef PSW_ASC_HOME | |
279 | ||
280 | #define PSW_ASC_PRIMARY 0x0000000000000000ULL | |
281 | #define PSW_ASC_ACCREG 0x0000400000000000ULL | |
282 | #define PSW_ASC_SECONDARY 0x0000800000000000ULL | |
283 | #define PSW_ASC_HOME 0x0000C00000000000ULL | |
284 | ||
285 | /* tb flags */ | |
286 | ||
287 | #define FLAG_MASK_PER (PSW_MASK_PER >> 32) | |
288 | #define FLAG_MASK_DAT (PSW_MASK_DAT >> 32) | |
289 | #define FLAG_MASK_IO (PSW_MASK_IO >> 32) | |
290 | #define FLAG_MASK_EXT (PSW_MASK_EXT >> 32) | |
291 | #define FLAG_MASK_KEY (PSW_MASK_KEY >> 32) | |
292 | #define FLAG_MASK_MCHECK (PSW_MASK_MCHECK >> 32) | |
293 | #define FLAG_MASK_WAIT (PSW_MASK_WAIT >> 32) | |
294 | #define FLAG_MASK_PSTATE (PSW_MASK_PSTATE >> 32) | |
295 | #define FLAG_MASK_ASC (PSW_MASK_ASC >> 32) | |
296 | #define FLAG_MASK_CC (PSW_MASK_CC >> 32) | |
297 | #define FLAG_MASK_PM (PSW_MASK_PM >> 32) | |
298 | #define FLAG_MASK_64 (PSW_MASK_64 >> 32) | |
299 | #define FLAG_MASK_32 0x00001000 | |
300 | ||
c4400206 | 301 | /* Control register 0 bits */ |
c3edd628 | 302 | #define CR0_LOWPROT 0x0000000010000000ULL |
c4400206 TH |
303 | #define CR0_EDAT 0x0000000000800000ULL |
304 | ||
4decd76d AJ |
305 | /* MMU */ |
306 | #define MMU_PRIMARY_IDX 0 | |
307 | #define MMU_SECONDARY_IDX 1 | |
308 | #define MMU_HOME_IDX 2 | |
309 | ||
a4e3ad19 | 310 | static inline int cpu_mmu_index (CPUS390XState *env) |
10c339a0 | 311 | { |
1f65958d AJ |
312 | switch (env->psw.mask & PSW_MASK_ASC) { |
313 | case PSW_ASC_PRIMARY: | |
4decd76d | 314 | return MMU_PRIMARY_IDX; |
1f65958d | 315 | case PSW_ASC_SECONDARY: |
4decd76d | 316 | return MMU_SECONDARY_IDX; |
1f65958d | 317 | case PSW_ASC_HOME: |
4decd76d | 318 | return MMU_HOME_IDX; |
1f65958d AJ |
319 | case PSW_ASC_ACCREG: |
320 | /* Fallthrough: access register mode is not yet supported */ | |
321 | default: | |
322 | abort(); | |
bcec36ea | 323 | } |
10c339a0 AG |
324 | } |
325 | ||
4decd76d AJ |
326 | static inline uint64_t cpu_mmu_idx_to_asc(int mmu_idx) |
327 | { | |
328 | switch (mmu_idx) { | |
329 | case MMU_PRIMARY_IDX: | |
330 | return PSW_ASC_PRIMARY; | |
331 | case MMU_SECONDARY_IDX: | |
332 | return PSW_ASC_SECONDARY; | |
333 | case MMU_HOME_IDX: | |
334 | return PSW_ASC_HOME; | |
335 | default: | |
336 | abort(); | |
337 | } | |
338 | } | |
339 | ||
a4e3ad19 | 340 | static inline void cpu_get_tb_cpu_state(CPUS390XState* env, target_ulong *pc, |
bcec36ea AG |
341 | target_ulong *cs_base, int *flags) |
342 | { | |
343 | *pc = env->psw.addr; | |
344 | *cs_base = 0; | |
345 | *flags = ((env->psw.mask >> 32) & ~FLAG_MASK_CC) | | |
346 | ((env->psw.mask & PSW_MASK_32) ? FLAG_MASK_32 : 0); | |
347 | } | |
348 | ||
d5a103cd RH |
349 | /* While the PoO talks about ILC (a number between 1-3) what is actually |
350 | stored in LowCore is shifted left one bit (an even between 2-6). As | |
351 | this is the actual length of the insn and therefore more useful, that | |
352 | is what we want to pass around and manipulate. To make sure that we | |
353 | have applied this distinction universally, rename the "ILC" to "ILEN". */ | |
354 | static inline int get_ilen(uint8_t opc) | |
bcec36ea AG |
355 | { |
356 | switch (opc >> 6) { | |
357 | case 0: | |
d5a103cd | 358 | return 2; |
bcec36ea AG |
359 | case 1: |
360 | case 2: | |
d5a103cd RH |
361 | return 4; |
362 | default: | |
363 | return 6; | |
bcec36ea | 364 | } |
bcec36ea AG |
365 | } |
366 | ||
fb01bf4c AJ |
367 | /* PER bits from control register 9 */ |
368 | #define PER_CR9_EVENT_BRANCH 0x80000000 | |
369 | #define PER_CR9_EVENT_IFETCH 0x40000000 | |
370 | #define PER_CR9_EVENT_STORE 0x20000000 | |
371 | #define PER_CR9_EVENT_STORE_REAL 0x08000000 | |
372 | #define PER_CR9_EVENT_NULLIFICATION 0x01000000 | |
373 | #define PER_CR9_CONTROL_BRANCH_ADDRESS 0x00800000 | |
374 | #define PER_CR9_CONTROL_ALTERATION 0x00200000 | |
375 | ||
376 | /* PER bits from the PER CODE/ATMID/AI in lowcore */ | |
377 | #define PER_CODE_EVENT_BRANCH 0x8000 | |
378 | #define PER_CODE_EVENT_IFETCH 0x4000 | |
379 | #define PER_CODE_EVENT_STORE 0x2000 | |
380 | #define PER_CODE_EVENT_STORE_REAL 0x0800 | |
381 | #define PER_CODE_EVENT_NULLIFICATION 0x0100 | |
382 | ||
a8f931a9 AJ |
383 | /* Compute the ATMID field that is stored in the per_perc_atmid lowcore |
384 | entry when a PER exception is triggered. */ | |
385 | static inline uint8_t get_per_atmid(CPUS390XState *env) | |
386 | { | |
387 | return ((env->psw.mask & PSW_MASK_64) ? (1 << 7) : 0) | | |
388 | ( (1 << 6) ) | | |
389 | ((env->psw.mask & PSW_MASK_32) ? (1 << 5) : 0) | | |
390 | ((env->psw.mask & PSW_MASK_DAT)? (1 << 4) : 0) | | |
391 | ((env->psw.mask & PSW_ASC_SECONDARY)? (1 << 3) : 0) | | |
392 | ((env->psw.mask & PSW_ASC_ACCREG)? (1 << 2) : 0); | |
393 | } | |
394 | ||
d5a103cd RH |
395 | #ifndef CONFIG_USER_ONLY |
396 | /* In several cases of runtime exceptions, we havn't recorded the true | |
397 | instruction length. Use these codes when raising exceptions in order | |
398 | to re-compute the length by examining the insn in memory. */ | |
399 | #define ILEN_LATER 0x20 | |
400 | #define ILEN_LATER_INC 0x21 | |
dfebd7a7 | 401 | void trigger_pgm_exception(CPUS390XState *env, uint32_t code, uint32_t ilen); |
d5a103cd | 402 | #endif |
bcec36ea | 403 | |
564b863d | 404 | S390CPU *cpu_s390x_init(const char *cpu_model); |
bcec36ea | 405 | void s390x_translate_init(void); |
10ec5117 | 406 | int cpu_s390x_exec(CPUS390XState *s); |
10ec5117 AG |
407 | |
408 | /* you can call this signal handler from your SIGBUS and SIGSEGV | |
409 | signal handlers to inform the virtual CPU of exceptions. non zero | |
410 | is returned if the signal was handled by the virtual CPU. */ | |
411 | int cpu_s390x_signal_handler(int host_signum, void *pinfo, | |
412 | void *puc); | |
7510454e AF |
413 | int s390_cpu_handle_mmu_fault(CPUState *cpu, vaddr address, int rw, |
414 | int mmu_idx); | |
10ec5117 | 415 | |
db1c8f53 | 416 | #include "ioinst.h" |
52705890 | 417 | |
3f10341f | 418 | |
10c339a0 | 419 | #ifndef CONFIG_USER_ONLY |
3f10341f DH |
420 | void do_restart_interrupt(CPUS390XState *env); |
421 | ||
6cb1e49d AY |
422 | static inline hwaddr decode_basedisp_s(CPUS390XState *env, uint32_t ipb, |
423 | uint8_t *ar) | |
7b18aad5 CH |
424 | { |
425 | hwaddr addr = 0; | |
426 | uint8_t reg; | |
427 | ||
428 | reg = ipb >> 28; | |
429 | if (reg > 0) { | |
430 | addr = env->regs[reg]; | |
431 | } | |
432 | addr += (ipb >> 16) & 0xfff; | |
6cb1e49d AY |
433 | if (ar) { |
434 | *ar = reg; | |
435 | } | |
7b18aad5 CH |
436 | |
437 | return addr; | |
438 | } | |
439 | ||
638129ff CH |
440 | /* Base/displacement are at the same locations. */ |
441 | #define decode_basedisp_rs decode_basedisp_s | |
442 | ||
85ca3371 DH |
443 | /* helper functions for run_on_cpu() */ |
444 | static inline void s390_do_cpu_reset(void *arg) | |
445 | { | |
446 | CPUState *cs = arg; | |
447 | S390CPUClass *scc = S390_CPU_GET_CLASS(cs); | |
448 | ||
449 | scc->cpu_reset(cs); | |
450 | } | |
451 | static inline void s390_do_cpu_full_reset(void *arg) | |
452 | { | |
453 | CPUState *cs = arg; | |
454 | ||
455 | cpu_reset(cs); | |
456 | } | |
457 | ||
8f22e0df AF |
458 | void s390x_tod_timer(void *opaque); |
459 | void s390x_cpu_timer(void *opaque); | |
460 | ||
28e942f8 | 461 | int s390_virtio_hypercall(CPUS390XState *env); |
de13d216 | 462 | void s390_virtio_irq(int config_change, uint64_t token); |
bcec36ea | 463 | |
1f206266 | 464 | #ifdef CONFIG_KVM |
de13d216 CH |
465 | void kvm_s390_virtio_irq(int config_change, uint64_t token); |
466 | void kvm_s390_service_interrupt(uint32_t parm); | |
66ad0893 CH |
467 | void kvm_s390_vcpu_interrupt(S390CPU *cpu, struct kvm_s390_irq *irq); |
468 | void kvm_s390_floating_interrupt(struct kvm_s390_irq *irq); | |
bbd8bb8e | 469 | int kvm_s390_inject_flic(struct kvm_s390_irq *irq); |
801cdd35 | 470 | void kvm_s390_access_exception(S390CPU *cpu, uint16_t code, uint64_t te_code); |
6cb1e49d AY |
471 | int kvm_s390_mem_op(S390CPU *cpu, vaddr addr, uint8_t ar, void *hostbuf, |
472 | int len, bool is_write); | |
3f9e59bb JH |
473 | int kvm_s390_get_clock(uint8_t *tod_high, uint64_t *tod_clock); |
474 | int kvm_s390_set_clock(uint8_t *tod_high, uint64_t *tod_clock); | |
1f206266 | 475 | #else |
de13d216 | 476 | static inline void kvm_s390_virtio_irq(int config_change, uint64_t token) |
1f206266 AG |
477 | { |
478 | } | |
de13d216 | 479 | static inline void kvm_s390_service_interrupt(uint32_t parm) |
79afc36d CH |
480 | { |
481 | } | |
3f9e59bb JH |
482 | static inline int kvm_s390_get_clock(uint8_t *tod_high, uint64_t *tod_low) |
483 | { | |
484 | return -ENOSYS; | |
485 | } | |
486 | static inline int kvm_s390_set_clock(uint8_t *tod_high, uint64_t *tod_low) | |
487 | { | |
488 | return -ENOSYS; | |
489 | } | |
6cb1e49d AY |
490 | static inline int kvm_s390_mem_op(S390CPU *cpu, vaddr addr, uint8_t ar, |
491 | void *hostbuf, int len, bool is_write) | |
a9bcd1b8 TH |
492 | { |
493 | return -ENOSYS; | |
494 | } | |
801cdd35 TH |
495 | static inline void kvm_s390_access_exception(S390CPU *cpu, uint16_t code, |
496 | uint64_t te_code) | |
497 | { | |
498 | } | |
1f206266 | 499 | #endif |
3f9e59bb JH |
500 | |
501 | static inline int s390_get_clock(uint8_t *tod_high, uint64_t *tod_low) | |
502 | { | |
503 | if (kvm_enabled()) { | |
504 | return kvm_s390_get_clock(tod_high, tod_low); | |
505 | } | |
506 | /* Fixme TCG */ | |
507 | *tod_high = 0; | |
508 | *tod_low = 0; | |
509 | return 0; | |
510 | } | |
511 | ||
512 | static inline int s390_set_clock(uint8_t *tod_high, uint64_t *tod_low) | |
513 | { | |
514 | if (kvm_enabled()) { | |
515 | return kvm_s390_set_clock(tod_high, tod_low); | |
516 | } | |
517 | /* Fixme TCG */ | |
518 | return 0; | |
519 | } | |
520 | ||
45fa769b | 521 | S390CPU *s390_cpu_addr2state(uint16_t cpu_addr); |
eb24f7c6 DH |
522 | unsigned int s390_cpu_halt(S390CPU *cpu); |
523 | void s390_cpu_unhalt(S390CPU *cpu); | |
524 | unsigned int s390_cpu_set_state(uint8_t cpu_state, S390CPU *cpu); | |
18ff9494 DH |
525 | static inline uint8_t s390_cpu_get_state(S390CPU *cpu) |
526 | { | |
527 | return cpu->env.cpu_state; | |
528 | } | |
bcec36ea | 529 | |
3f9e59bb JH |
530 | void gtod_save(QEMUFile *f, void *opaque); |
531 | int gtod_load(QEMUFile *f, void *opaque, int version_id); | |
532 | ||
000a1a38 CB |
533 | /* service interrupts are floating therefore we must not pass an cpustate */ |
534 | void s390_sclp_extint(uint32_t parm); | |
535 | ||
d1ff903c | 536 | /* from s390-virtio-bus */ |
a8170e5e | 537 | extern const hwaddr virtio_size; |
d1ff903c | 538 | |
ef81522b | 539 | #else |
eb24f7c6 DH |
540 | static inline unsigned int s390_cpu_halt(S390CPU *cpu) |
541 | { | |
542 | return 0; | |
543 | } | |
544 | ||
545 | static inline void s390_cpu_unhalt(S390CPU *cpu) | |
ef81522b AG |
546 | { |
547 | } | |
548 | ||
eb24f7c6 | 549 | static inline unsigned int s390_cpu_set_state(uint8_t cpu_state, S390CPU *cpu) |
ef81522b AG |
550 | { |
551 | return 0; | |
552 | } | |
10c339a0 | 553 | #endif |
bcec36ea AG |
554 | void cpu_lock(void); |
555 | void cpu_unlock(void); | |
10c339a0 | 556 | |
7b18aad5 CH |
557 | typedef struct SubchDev SubchDev; |
558 | ||
df1fe5bb | 559 | #ifndef CONFIG_USER_ONLY |
4e872a3f | 560 | extern void io_subsystem_reset(void); |
df1fe5bb CH |
561 | SubchDev *css_find_subch(uint8_t m, uint8_t cssid, uint8_t ssid, |
562 | uint16_t schid); | |
563 | bool css_subch_visible(SubchDev *sch); | |
564 | void css_conditional_io_interrupt(SubchDev *sch); | |
565 | int css_do_stsch(SubchDev *sch, SCHIB *schib); | |
38dd7cc7 | 566 | bool css_schid_final(int m, uint8_t cssid, uint8_t ssid, uint16_t schid); |
bffd09cd | 567 | int css_do_msch(SubchDev *sch, const SCHIB *schib); |
df1fe5bb CH |
568 | int css_do_xsch(SubchDev *sch); |
569 | int css_do_csch(SubchDev *sch); | |
570 | int css_do_hsch(SubchDev *sch); | |
571 | int css_do_ssch(SubchDev *sch, ORB *orb); | |
b7b6348a TH |
572 | int css_do_tsch_get_irb(SubchDev *sch, IRB *irb, int *irb_len); |
573 | void css_do_tsch_update_subch(SubchDev *sch); | |
df1fe5bb | 574 | int css_do_stcrw(CRW *crw); |
7f74f0aa | 575 | void css_undo_stcrw(CRW *crw); |
50c8d9bf | 576 | int css_do_tpi(IOIntCode *int_code, int lowcore); |
df1fe5bb CH |
577 | int css_collect_chp_desc(int m, uint8_t cssid, uint8_t f_chpid, uint8_t l_chpid, |
578 | int rfmt, void *buf); | |
579 | void css_do_schm(uint8_t mbk, int update, int dct, uint64_t mbo); | |
580 | int css_enable_mcsse(void); | |
581 | int css_enable_mss(void); | |
582 | int css_do_rsch(SubchDev *sch); | |
583 | int css_do_rchp(uint8_t cssid, uint8_t chpid); | |
584 | bool css_present(uint8_t cssid); | |
df1fe5bb | 585 | #endif |
7b18aad5 | 586 | |
2994fd96 | 587 | #define cpu_init(model) CPU(cpu_s390x_init(model)) |
10ec5117 AG |
588 | #define cpu_exec cpu_s390x_exec |
589 | #define cpu_gen_code cpu_s390x_gen_code | |
bcec36ea | 590 | #define cpu_signal_handler cpu_s390x_signal_handler |
10ec5117 | 591 | |
904e5fd5 VM |
592 | void s390_cpu_list(FILE *f, fprintf_function cpu_fprintf); |
593 | #define cpu_list s390_cpu_list | |
594 | ||
022c62cb | 595 | #include "exec/exec-all.h" |
bcec36ea | 596 | |
bcec36ea AG |
597 | #define EXCP_EXT 1 /* external interrupt */ |
598 | #define EXCP_SVC 2 /* supervisor call (syscall) */ | |
599 | #define EXCP_PGM 3 /* program interruption */ | |
5d69c547 CH |
600 | #define EXCP_IO 7 /* I/O interrupt */ |
601 | #define EXCP_MCHK 8 /* machine check */ | |
bcec36ea | 602 | |
bcec36ea AG |
603 | #define INTERRUPT_EXT (1 << 0) |
604 | #define INTERRUPT_TOD (1 << 1) | |
605 | #define INTERRUPT_CPUTIMER (1 << 2) | |
5d69c547 CH |
606 | #define INTERRUPT_IO (1 << 3) |
607 | #define INTERRUPT_MCHK (1 << 4) | |
10c339a0 AG |
608 | |
609 | /* Program Status Word. */ | |
610 | #define S390_PSWM_REGNUM 0 | |
611 | #define S390_PSWA_REGNUM 1 | |
612 | /* General Purpose Registers. */ | |
613 | #define S390_R0_REGNUM 2 | |
614 | #define S390_R1_REGNUM 3 | |
615 | #define S390_R2_REGNUM 4 | |
616 | #define S390_R3_REGNUM 5 | |
617 | #define S390_R4_REGNUM 6 | |
618 | #define S390_R5_REGNUM 7 | |
619 | #define S390_R6_REGNUM 8 | |
620 | #define S390_R7_REGNUM 9 | |
621 | #define S390_R8_REGNUM 10 | |
622 | #define S390_R9_REGNUM 11 | |
623 | #define S390_R10_REGNUM 12 | |
624 | #define S390_R11_REGNUM 13 | |
625 | #define S390_R12_REGNUM 14 | |
626 | #define S390_R13_REGNUM 15 | |
627 | #define S390_R14_REGNUM 16 | |
628 | #define S390_R15_REGNUM 17 | |
73d510c9 DH |
629 | /* Total Core Registers. */ |
630 | #define S390_NUM_CORE_REGS 18 | |
10c339a0 | 631 | |
bcec36ea AG |
632 | /* CC optimization */ |
633 | ||
634 | enum cc_op { | |
635 | CC_OP_CONST0 = 0, /* CC is 0 */ | |
636 | CC_OP_CONST1, /* CC is 1 */ | |
637 | CC_OP_CONST2, /* CC is 2 */ | |
638 | CC_OP_CONST3, /* CC is 3 */ | |
639 | ||
640 | CC_OP_DYNAMIC, /* CC calculation defined by env->cc_op */ | |
641 | CC_OP_STATIC, /* CC value is env->cc_op */ | |
642 | ||
643 | CC_OP_NZ, /* env->cc_dst != 0 */ | |
644 | CC_OP_LTGT_32, /* signed less/greater than (32bit) */ | |
645 | CC_OP_LTGT_64, /* signed less/greater than (64bit) */ | |
646 | CC_OP_LTUGTU_32, /* unsigned less/greater than (32bit) */ | |
647 | CC_OP_LTUGTU_64, /* unsigned less/greater than (64bit) */ | |
648 | CC_OP_LTGT0_32, /* signed less/greater than 0 (32bit) */ | |
649 | CC_OP_LTGT0_64, /* signed less/greater than 0 (64bit) */ | |
650 | ||
651 | CC_OP_ADD_64, /* overflow on add (64bit) */ | |
652 | CC_OP_ADDU_64, /* overflow on unsigned add (64bit) */ | |
4e4bb438 | 653 | CC_OP_ADDC_64, /* overflow on unsigned add-carry (64bit) */ |
e7d81004 SW |
654 | CC_OP_SUB_64, /* overflow on subtraction (64bit) */ |
655 | CC_OP_SUBU_64, /* overflow on unsigned subtraction (64bit) */ | |
4e4bb438 | 656 | CC_OP_SUBB_64, /* overflow on unsigned sub-borrow (64bit) */ |
bcec36ea AG |
657 | CC_OP_ABS_64, /* sign eval on abs (64bit) */ |
658 | CC_OP_NABS_64, /* sign eval on nabs (64bit) */ | |
659 | ||
660 | CC_OP_ADD_32, /* overflow on add (32bit) */ | |
661 | CC_OP_ADDU_32, /* overflow on unsigned add (32bit) */ | |
4e4bb438 | 662 | CC_OP_ADDC_32, /* overflow on unsigned add-carry (32bit) */ |
e7d81004 SW |
663 | CC_OP_SUB_32, /* overflow on subtraction (32bit) */ |
664 | CC_OP_SUBU_32, /* overflow on unsigned subtraction (32bit) */ | |
4e4bb438 | 665 | CC_OP_SUBB_32, /* overflow on unsigned sub-borrow (32bit) */ |
bcec36ea AG |
666 | CC_OP_ABS_32, /* sign eval on abs (64bit) */ |
667 | CC_OP_NABS_32, /* sign eval on nabs (64bit) */ | |
668 | ||
669 | CC_OP_COMP_32, /* complement */ | |
670 | CC_OP_COMP_64, /* complement */ | |
671 | ||
672 | CC_OP_TM_32, /* test under mask (32bit) */ | |
673 | CC_OP_TM_64, /* test under mask (64bit) */ | |
674 | ||
bcec36ea AG |
675 | CC_OP_NZ_F32, /* FP dst != 0 (32bit) */ |
676 | CC_OP_NZ_F64, /* FP dst != 0 (64bit) */ | |
587626f8 | 677 | CC_OP_NZ_F128, /* FP dst != 0 (128bit) */ |
bcec36ea AG |
678 | |
679 | CC_OP_ICM, /* insert characters under mask */ | |
cbe24bfa RH |
680 | CC_OP_SLA_32, /* Calculate shift left signed (32bit) */ |
681 | CC_OP_SLA_64, /* Calculate shift left signed (64bit) */ | |
102bf2c6 | 682 | CC_OP_FLOGR, /* find leftmost one */ |
bcec36ea AG |
683 | CC_OP_MAX |
684 | }; | |
685 | ||
686 | static const char *cc_names[] = { | |
687 | [CC_OP_CONST0] = "CC_OP_CONST0", | |
688 | [CC_OP_CONST1] = "CC_OP_CONST1", | |
689 | [CC_OP_CONST2] = "CC_OP_CONST2", | |
690 | [CC_OP_CONST3] = "CC_OP_CONST3", | |
691 | [CC_OP_DYNAMIC] = "CC_OP_DYNAMIC", | |
692 | [CC_OP_STATIC] = "CC_OP_STATIC", | |
693 | [CC_OP_NZ] = "CC_OP_NZ", | |
694 | [CC_OP_LTGT_32] = "CC_OP_LTGT_32", | |
695 | [CC_OP_LTGT_64] = "CC_OP_LTGT_64", | |
696 | [CC_OP_LTUGTU_32] = "CC_OP_LTUGTU_32", | |
697 | [CC_OP_LTUGTU_64] = "CC_OP_LTUGTU_64", | |
698 | [CC_OP_LTGT0_32] = "CC_OP_LTGT0_32", | |
699 | [CC_OP_LTGT0_64] = "CC_OP_LTGT0_64", | |
700 | [CC_OP_ADD_64] = "CC_OP_ADD_64", | |
701 | [CC_OP_ADDU_64] = "CC_OP_ADDU_64", | |
4e4bb438 | 702 | [CC_OP_ADDC_64] = "CC_OP_ADDC_64", |
bcec36ea AG |
703 | [CC_OP_SUB_64] = "CC_OP_SUB_64", |
704 | [CC_OP_SUBU_64] = "CC_OP_SUBU_64", | |
4e4bb438 | 705 | [CC_OP_SUBB_64] = "CC_OP_SUBB_64", |
bcec36ea AG |
706 | [CC_OP_ABS_64] = "CC_OP_ABS_64", |
707 | [CC_OP_NABS_64] = "CC_OP_NABS_64", | |
708 | [CC_OP_ADD_32] = "CC_OP_ADD_32", | |
709 | [CC_OP_ADDU_32] = "CC_OP_ADDU_32", | |
4e4bb438 | 710 | [CC_OP_ADDC_32] = "CC_OP_ADDC_32", |
bcec36ea AG |
711 | [CC_OP_SUB_32] = "CC_OP_SUB_32", |
712 | [CC_OP_SUBU_32] = "CC_OP_SUBU_32", | |
4e4bb438 | 713 | [CC_OP_SUBB_32] = "CC_OP_SUBB_32", |
bcec36ea AG |
714 | [CC_OP_ABS_32] = "CC_OP_ABS_32", |
715 | [CC_OP_NABS_32] = "CC_OP_NABS_32", | |
716 | [CC_OP_COMP_32] = "CC_OP_COMP_32", | |
717 | [CC_OP_COMP_64] = "CC_OP_COMP_64", | |
718 | [CC_OP_TM_32] = "CC_OP_TM_32", | |
719 | [CC_OP_TM_64] = "CC_OP_TM_64", | |
bcec36ea AG |
720 | [CC_OP_NZ_F32] = "CC_OP_NZ_F32", |
721 | [CC_OP_NZ_F64] = "CC_OP_NZ_F64", | |
587626f8 | 722 | [CC_OP_NZ_F128] = "CC_OP_NZ_F128", |
bcec36ea | 723 | [CC_OP_ICM] = "CC_OP_ICM", |
cbe24bfa RH |
724 | [CC_OP_SLA_32] = "CC_OP_SLA_32", |
725 | [CC_OP_SLA_64] = "CC_OP_SLA_64", | |
102bf2c6 | 726 | [CC_OP_FLOGR] = "CC_OP_FLOGR", |
bcec36ea AG |
727 | }; |
728 | ||
729 | static inline const char *cc_name(int cc_op) | |
730 | { | |
731 | return cc_names[cc_op]; | |
732 | } | |
733 | ||
3d0a615f TH |
734 | static inline void setcc(S390CPU *cpu, uint64_t cc) |
735 | { | |
736 | CPUS390XState *env = &cpu->env; | |
737 | ||
738 | env->psw.mask &= ~(3ull << 44); | |
739 | env->psw.mask |= (cc & 3) << 44; | |
06e3c077 | 740 | env->cc_op = cc; |
3d0a615f TH |
741 | } |
742 | ||
bcec36ea AG |
743 | typedef struct LowCore |
744 | { | |
745 | /* prefix area: defined by architecture */ | |
746 | uint32_t ccw1[2]; /* 0x000 */ | |
747 | uint32_t ccw2[4]; /* 0x008 */ | |
748 | uint8_t pad1[0x80-0x18]; /* 0x018 */ | |
749 | uint32_t ext_params; /* 0x080 */ | |
750 | uint16_t cpu_addr; /* 0x084 */ | |
751 | uint16_t ext_int_code; /* 0x086 */ | |
d5a103cd | 752 | uint16_t svc_ilen; /* 0x088 */ |
bcec36ea | 753 | uint16_t svc_code; /* 0x08a */ |
d5a103cd | 754 | uint16_t pgm_ilen; /* 0x08c */ |
bcec36ea AG |
755 | uint16_t pgm_code; /* 0x08e */ |
756 | uint32_t data_exc_code; /* 0x090 */ | |
757 | uint16_t mon_class_num; /* 0x094 */ | |
758 | uint16_t per_perc_atmid; /* 0x096 */ | |
759 | uint64_t per_address; /* 0x098 */ | |
760 | uint8_t exc_access_id; /* 0x0a0 */ | |
761 | uint8_t per_access_id; /* 0x0a1 */ | |
762 | uint8_t op_access_id; /* 0x0a2 */ | |
763 | uint8_t ar_access_id; /* 0x0a3 */ | |
764 | uint8_t pad2[0xA8-0xA4]; /* 0x0a4 */ | |
765 | uint64_t trans_exc_code; /* 0x0a8 */ | |
766 | uint64_t monitor_code; /* 0x0b0 */ | |
767 | uint16_t subchannel_id; /* 0x0b8 */ | |
768 | uint16_t subchannel_nr; /* 0x0ba */ | |
769 | uint32_t io_int_parm; /* 0x0bc */ | |
770 | uint32_t io_int_word; /* 0x0c0 */ | |
771 | uint8_t pad3[0xc8-0xc4]; /* 0x0c4 */ | |
772 | uint32_t stfl_fac_list; /* 0x0c8 */ | |
773 | uint8_t pad4[0xe8-0xcc]; /* 0x0cc */ | |
774 | uint32_t mcck_interruption_code[2]; /* 0x0e8 */ | |
775 | uint8_t pad5[0xf4-0xf0]; /* 0x0f0 */ | |
776 | uint32_t external_damage_code; /* 0x0f4 */ | |
777 | uint64_t failing_storage_address; /* 0x0f8 */ | |
778 | uint8_t pad6[0x120-0x100]; /* 0x100 */ | |
779 | PSW restart_old_psw; /* 0x120 */ | |
780 | PSW external_old_psw; /* 0x130 */ | |
781 | PSW svc_old_psw; /* 0x140 */ | |
782 | PSW program_old_psw; /* 0x150 */ | |
783 | PSW mcck_old_psw; /* 0x160 */ | |
784 | PSW io_old_psw; /* 0x170 */ | |
785 | uint8_t pad7[0x1a0-0x180]; /* 0x180 */ | |
3f10341f | 786 | PSW restart_new_psw; /* 0x1a0 */ |
bcec36ea AG |
787 | PSW external_new_psw; /* 0x1b0 */ |
788 | PSW svc_new_psw; /* 0x1c0 */ | |
789 | PSW program_new_psw; /* 0x1d0 */ | |
790 | PSW mcck_new_psw; /* 0x1e0 */ | |
791 | PSW io_new_psw; /* 0x1f0 */ | |
792 | PSW return_psw; /* 0x200 */ | |
793 | uint8_t irb[64]; /* 0x210 */ | |
794 | uint64_t sync_enter_timer; /* 0x250 */ | |
795 | uint64_t async_enter_timer; /* 0x258 */ | |
796 | uint64_t exit_timer; /* 0x260 */ | |
797 | uint64_t last_update_timer; /* 0x268 */ | |
798 | uint64_t user_timer; /* 0x270 */ | |
799 | uint64_t system_timer; /* 0x278 */ | |
800 | uint64_t last_update_clock; /* 0x280 */ | |
801 | uint64_t steal_clock; /* 0x288 */ | |
802 | PSW return_mcck_psw; /* 0x290 */ | |
803 | uint8_t pad8[0xc00-0x2a0]; /* 0x2a0 */ | |
804 | /* System info area */ | |
805 | uint64_t save_area[16]; /* 0xc00 */ | |
806 | uint8_t pad9[0xd40-0xc80]; /* 0xc80 */ | |
807 | uint64_t kernel_stack; /* 0xd40 */ | |
808 | uint64_t thread_info; /* 0xd48 */ | |
809 | uint64_t async_stack; /* 0xd50 */ | |
810 | uint64_t kernel_asce; /* 0xd58 */ | |
811 | uint64_t user_asce; /* 0xd60 */ | |
812 | uint64_t panic_stack; /* 0xd68 */ | |
813 | uint64_t user_exec_asce; /* 0xd70 */ | |
814 | uint8_t pad10[0xdc0-0xd78]; /* 0xd78 */ | |
815 | ||
816 | /* SMP info area: defined by DJB */ | |
817 | uint64_t clock_comparator; /* 0xdc0 */ | |
818 | uint64_t ext_call_fast; /* 0xdc8 */ | |
819 | uint64_t percpu_offset; /* 0xdd0 */ | |
820 | uint64_t current_task; /* 0xdd8 */ | |
821 | uint32_t softirq_pending; /* 0xde0 */ | |
822 | uint32_t pad_0x0de4; /* 0xde4 */ | |
823 | uint64_t int_clock; /* 0xde8 */ | |
824 | uint8_t pad12[0xe00-0xdf0]; /* 0xdf0 */ | |
825 | ||
826 | /* 0xe00 is used as indicator for dump tools */ | |
827 | /* whether the kernel died with panic() or not */ | |
828 | uint32_t panic_magic; /* 0xe00 */ | |
829 | ||
830 | uint8_t pad13[0x11b8-0xe04]; /* 0xe04 */ | |
831 | ||
832 | /* 64 bit extparam used for pfault, diag 250 etc */ | |
833 | uint64_t ext_params2; /* 0x11B8 */ | |
834 | ||
835 | uint8_t pad14[0x1200-0x11C0]; /* 0x11C0 */ | |
836 | ||
837 | /* System info area */ | |
838 | ||
839 | uint64_t floating_pt_save_area[16]; /* 0x1200 */ | |
840 | uint64_t gpregs_save_area[16]; /* 0x1280 */ | |
841 | uint32_t st_status_fixed_logout[4]; /* 0x1300 */ | |
842 | uint8_t pad15[0x1318-0x1310]; /* 0x1310 */ | |
843 | uint32_t prefixreg_save_area; /* 0x1318 */ | |
844 | uint32_t fpt_creg_save_area; /* 0x131c */ | |
845 | uint8_t pad16[0x1324-0x1320]; /* 0x1320 */ | |
846 | uint32_t tod_progreg_save_area; /* 0x1324 */ | |
847 | uint32_t cpu_timer_save_area[2]; /* 0x1328 */ | |
848 | uint32_t clock_comp_save_area[2]; /* 0x1330 */ | |
849 | uint8_t pad17[0x1340-0x1338]; /* 0x1338 */ | |
850 | uint32_t access_regs_save_area[16]; /* 0x1340 */ | |
851 | uint64_t cregs_save_area[16]; /* 0x1380 */ | |
852 | ||
853 | /* align to the top of the prefix area */ | |
854 | ||
855 | uint8_t pad18[0x2000-0x1400]; /* 0x1400 */ | |
541dc0d4 | 856 | } QEMU_PACKED LowCore; |
bcec36ea AG |
857 | |
858 | /* STSI */ | |
859 | #define STSI_LEVEL_MASK 0x00000000f0000000ULL | |
860 | #define STSI_LEVEL_CURRENT 0x0000000000000000ULL | |
861 | #define STSI_LEVEL_1 0x0000000010000000ULL | |
862 | #define STSI_LEVEL_2 0x0000000020000000ULL | |
863 | #define STSI_LEVEL_3 0x0000000030000000ULL | |
864 | #define STSI_R0_RESERVED_MASK 0x000000000fffff00ULL | |
865 | #define STSI_R0_SEL1_MASK 0x00000000000000ffULL | |
866 | #define STSI_R1_RESERVED_MASK 0x00000000ffff0000ULL | |
867 | #define STSI_R1_SEL2_MASK 0x000000000000ffffULL | |
868 | ||
869 | /* Basic Machine Configuration */ | |
870 | struct sysib_111 { | |
871 | uint32_t res1[8]; | |
872 | uint8_t manuf[16]; | |
873 | uint8_t type[4]; | |
874 | uint8_t res2[12]; | |
875 | uint8_t model[16]; | |
876 | uint8_t sequence[16]; | |
877 | uint8_t plant[4]; | |
878 | uint8_t res3[156]; | |
879 | }; | |
880 | ||
881 | /* Basic Machine CPU */ | |
882 | struct sysib_121 { | |
883 | uint32_t res1[80]; | |
884 | uint8_t sequence[16]; | |
885 | uint8_t plant[4]; | |
886 | uint8_t res2[2]; | |
887 | uint16_t cpu_addr; | |
888 | uint8_t res3[152]; | |
889 | }; | |
890 | ||
891 | /* Basic Machine CPUs */ | |
892 | struct sysib_122 { | |
893 | uint8_t res1[32]; | |
894 | uint32_t capability; | |
895 | uint16_t total_cpus; | |
896 | uint16_t active_cpus; | |
897 | uint16_t standby_cpus; | |
898 | uint16_t reserved_cpus; | |
899 | uint16_t adjustments[2026]; | |
900 | }; | |
901 | ||
902 | /* LPAR CPU */ | |
903 | struct sysib_221 { | |
904 | uint32_t res1[80]; | |
905 | uint8_t sequence[16]; | |
906 | uint8_t plant[4]; | |
907 | uint16_t cpu_id; | |
908 | uint16_t cpu_addr; | |
909 | uint8_t res3[152]; | |
910 | }; | |
911 | ||
912 | /* LPAR CPUs */ | |
913 | struct sysib_222 { | |
914 | uint32_t res1[32]; | |
915 | uint16_t lpar_num; | |
916 | uint8_t res2; | |
917 | uint8_t lcpuc; | |
918 | uint16_t total_cpus; | |
919 | uint16_t conf_cpus; | |
920 | uint16_t standby_cpus; | |
921 | uint16_t reserved_cpus; | |
922 | uint8_t name[8]; | |
923 | uint32_t caf; | |
924 | uint8_t res3[16]; | |
925 | uint16_t dedicated_cpus; | |
926 | uint16_t shared_cpus; | |
927 | uint8_t res4[180]; | |
928 | }; | |
929 | ||
930 | /* VM CPUs */ | |
931 | struct sysib_322 { | |
932 | uint8_t res1[31]; | |
933 | uint8_t count; | |
934 | struct { | |
935 | uint8_t res2[4]; | |
936 | uint16_t total_cpus; | |
937 | uint16_t conf_cpus; | |
938 | uint16_t standby_cpus; | |
939 | uint16_t reserved_cpus; | |
940 | uint8_t name[8]; | |
941 | uint32_t caf; | |
942 | uint8_t cpi[16]; | |
f07177a5 ET |
943 | uint8_t res5[3]; |
944 | uint8_t ext_name_encoding; | |
945 | uint32_t res3; | |
946 | uint8_t uuid[16]; | |
bcec36ea | 947 | } vm[8]; |
f07177a5 ET |
948 | uint8_t res4[1504]; |
949 | uint8_t ext_names[8][256]; | |
bcec36ea AG |
950 | }; |
951 | ||
952 | /* MMU defines */ | |
953 | #define _ASCE_ORIGIN ~0xfffULL /* segment table origin */ | |
954 | #define _ASCE_SUBSPACE 0x200 /* subspace group control */ | |
955 | #define _ASCE_PRIVATE_SPACE 0x100 /* private space control */ | |
956 | #define _ASCE_ALT_EVENT 0x80 /* storage alteration event control */ | |
957 | #define _ASCE_SPACE_SWITCH 0x40 /* space switch event */ | |
958 | #define _ASCE_REAL_SPACE 0x20 /* real space control */ | |
959 | #define _ASCE_TYPE_MASK 0x0c /* asce table type mask */ | |
960 | #define _ASCE_TYPE_REGION1 0x0c /* region first table type */ | |
961 | #define _ASCE_TYPE_REGION2 0x08 /* region second table type */ | |
962 | #define _ASCE_TYPE_REGION3 0x04 /* region third table type */ | |
963 | #define _ASCE_TYPE_SEGMENT 0x00 /* segment table type */ | |
964 | #define _ASCE_TABLE_LENGTH 0x03 /* region table length */ | |
965 | ||
966 | #define _REGION_ENTRY_ORIGIN ~0xfffULL /* region/segment table origin */ | |
43d49b01 | 967 | #define _REGION_ENTRY_RO 0x200 /* region/segment protection bit */ |
5d180439 | 968 | #define _REGION_ENTRY_TF 0xc0 /* region/segment table offset */ |
bcec36ea AG |
969 | #define _REGION_ENTRY_INV 0x20 /* invalid region table entry */ |
970 | #define _REGION_ENTRY_TYPE_MASK 0x0c /* region/segment table type mask */ | |
971 | #define _REGION_ENTRY_TYPE_R1 0x0c /* region first table type */ | |
972 | #define _REGION_ENTRY_TYPE_R2 0x08 /* region second table type */ | |
973 | #define _REGION_ENTRY_TYPE_R3 0x04 /* region third table type */ | |
974 | #define _REGION_ENTRY_LENGTH 0x03 /* region third length */ | |
975 | ||
976 | #define _SEGMENT_ENTRY_ORIGIN ~0x7ffULL /* segment table origin */ | |
c4400206 | 977 | #define _SEGMENT_ENTRY_FC 0x400 /* format control */ |
bcec36ea AG |
978 | #define _SEGMENT_ENTRY_RO 0x200 /* page protection bit */ |
979 | #define _SEGMENT_ENTRY_INV 0x20 /* invalid segment table entry */ | |
980 | ||
981 | #define _PAGE_RO 0x200 /* HW read-only bit */ | |
982 | #define _PAGE_INVALID 0x400 /* HW invalid bit */ | |
b4ecbf80 | 983 | #define _PAGE_RES0 0x800 /* bit must be zero */ |
bcec36ea | 984 | |
b9959138 AG |
985 | #define SK_C (0x1 << 1) |
986 | #define SK_R (0x1 << 2) | |
987 | #define SK_F (0x1 << 3) | |
988 | #define SK_ACC_MASK (0xf << 4) | |
bcec36ea | 989 | |
5172b780 | 990 | /* SIGP order codes */ |
bcec36ea AG |
991 | #define SIGP_SENSE 0x01 |
992 | #define SIGP_EXTERNAL_CALL 0x02 | |
993 | #define SIGP_EMERGENCY 0x03 | |
994 | #define SIGP_START 0x04 | |
995 | #define SIGP_STOP 0x05 | |
996 | #define SIGP_RESTART 0x06 | |
997 | #define SIGP_STOP_STORE_STATUS 0x09 | |
998 | #define SIGP_INITIAL_CPU_RESET 0x0b | |
999 | #define SIGP_CPU_RESET 0x0c | |
1000 | #define SIGP_SET_PREFIX 0x0d | |
1001 | #define SIGP_STORE_STATUS_ADDR 0x0e | |
1002 | #define SIGP_SET_ARCH 0x12 | |
abec5356 | 1003 | #define SIGP_STORE_ADTL_STATUS 0x17 |
bcec36ea | 1004 | |
5172b780 DH |
1005 | /* SIGP condition codes */ |
1006 | #define SIGP_CC_ORDER_CODE_ACCEPTED 0 | |
1007 | #define SIGP_CC_STATUS_STORED 1 | |
1008 | #define SIGP_CC_BUSY 2 | |
1009 | #define SIGP_CC_NOT_OPERATIONAL 3 | |
1010 | ||
1011 | /* SIGP status bits */ | |
bcec36ea AG |
1012 | #define SIGP_STAT_EQUIPMENT_CHECK 0x80000000UL |
1013 | #define SIGP_STAT_INCORRECT_STATE 0x00000200UL | |
1014 | #define SIGP_STAT_INVALID_PARAMETER 0x00000100UL | |
1015 | #define SIGP_STAT_EXT_CALL_PENDING 0x00000080UL | |
1016 | #define SIGP_STAT_STOPPED 0x00000040UL | |
1017 | #define SIGP_STAT_OPERATOR_INTERV 0x00000020UL | |
1018 | #define SIGP_STAT_CHECK_STOP 0x00000010UL | |
1019 | #define SIGP_STAT_INOPERATIVE 0x00000004UL | |
1020 | #define SIGP_STAT_INVALID_ORDER 0x00000002UL | |
1021 | #define SIGP_STAT_RECEIVER_CHECK 0x00000001UL | |
1022 | ||
18ff9494 DH |
1023 | /* SIGP SET ARCHITECTURE modes */ |
1024 | #define SIGP_MODE_ESA_S390 0 | |
1025 | #define SIGP_MODE_Z_ARCH_TRANS_ALL_PSW 1 | |
1026 | #define SIGP_MODE_Z_ARCH_TRANS_CUR_PSW 2 | |
1027 | ||
a4e3ad19 AF |
1028 | void load_psw(CPUS390XState *env, uint64_t mask, uint64_t addr); |
1029 | int mmu_translate(CPUS390XState *env, target_ulong vaddr, int rw, uint64_t asc, | |
e3e09d87 | 1030 | target_ulong *raddr, int *flags, bool exc); |
6e252802 | 1031 | int sclp_service_call(CPUS390XState *env, uint64_t sccb, uint32_t code); |
a4e3ad19 | 1032 | uint32_t calc_cc(CPUS390XState *env, uint32_t cc_op, uint64_t src, uint64_t dst, |
bcec36ea AG |
1033 | uint64_t vr); |
1034 | ||
6cb1e49d AY |
1035 | int s390_cpu_virt_mem_rw(S390CPU *cpu, vaddr laddr, uint8_t ar, void *hostbuf, |
1036 | int len, bool is_write); | |
c3edd628 | 1037 | |
6cb1e49d AY |
1038 | #define s390_cpu_virt_mem_read(cpu, laddr, ar, dest, len) \ |
1039 | s390_cpu_virt_mem_rw(cpu, laddr, ar, dest, len, false) | |
1040 | #define s390_cpu_virt_mem_write(cpu, laddr, ar, dest, len) \ | |
1041 | s390_cpu_virt_mem_rw(cpu, laddr, ar, dest, len, true) | |
1042 | #define s390_cpu_virt_mem_check_write(cpu, laddr, ar, len) \ | |
1043 | s390_cpu_virt_mem_rw(cpu, laddr, ar, NULL, len, true) | |
c3edd628 | 1044 | |
bcec36ea AG |
1045 | /* The value of the TOD clock for 1.1.1970. */ |
1046 | #define TOD_UNIX_EPOCH 0x7d91048bca000000ULL | |
1047 | ||
1048 | /* Converts ns to s390's clock format */ | |
1049 | static inline uint64_t time2tod(uint64_t ns) { | |
1050 | return (ns << 9) / 125; | |
1051 | } | |
1052 | ||
9cb32c44 AJ |
1053 | /* Converts s390's clock format to ns */ |
1054 | static inline uint64_t tod2time(uint64_t t) { | |
1055 | return (t * 125) >> 9; | |
1056 | } | |
1057 | ||
f9466733 | 1058 | static inline void cpu_inject_ext(S390CPU *cpu, uint32_t code, uint32_t param, |
bcec36ea AG |
1059 | uint64_t param64) |
1060 | { | |
f9466733 AF |
1061 | CPUS390XState *env = &cpu->env; |
1062 | ||
bcec36ea AG |
1063 | if (env->ext_index == MAX_EXT_QUEUE - 1) { |
1064 | /* ugh - can't queue anymore. Let's drop. */ | |
1065 | return; | |
1066 | } | |
1067 | ||
1068 | env->ext_index++; | |
1069 | assert(env->ext_index < MAX_EXT_QUEUE); | |
1070 | ||
1071 | env->ext_queue[env->ext_index].code = code; | |
1072 | env->ext_queue[env->ext_index].param = param; | |
1073 | env->ext_queue[env->ext_index].param64 = param64; | |
1074 | ||
1075 | env->pending_int |= INTERRUPT_EXT; | |
c3affe56 | 1076 | cpu_interrupt(CPU(cpu), CPU_INTERRUPT_HARD); |
bcec36ea | 1077 | } |
10c339a0 | 1078 | |
f9466733 | 1079 | static inline void cpu_inject_io(S390CPU *cpu, uint16_t subchannel_id, |
5d69c547 CH |
1080 | uint16_t subchannel_number, |
1081 | uint32_t io_int_parm, uint32_t io_int_word) | |
1082 | { | |
f9466733 | 1083 | CPUS390XState *env = &cpu->env; |
91b0a8f3 | 1084 | int isc = IO_INT_WORD_ISC(io_int_word); |
5d69c547 CH |
1085 | |
1086 | if (env->io_index[isc] == MAX_IO_QUEUE - 1) { | |
1087 | /* ugh - can't queue anymore. Let's drop. */ | |
1088 | return; | |
1089 | } | |
1090 | ||
1091 | env->io_index[isc]++; | |
1092 | assert(env->io_index[isc] < MAX_IO_QUEUE); | |
1093 | ||
1094 | env->io_queue[env->io_index[isc]][isc].id = subchannel_id; | |
1095 | env->io_queue[env->io_index[isc]][isc].nr = subchannel_number; | |
1096 | env->io_queue[env->io_index[isc]][isc].parm = io_int_parm; | |
1097 | env->io_queue[env->io_index[isc]][isc].word = io_int_word; | |
1098 | ||
1099 | env->pending_int |= INTERRUPT_IO; | |
c3affe56 | 1100 | cpu_interrupt(CPU(cpu), CPU_INTERRUPT_HARD); |
5d69c547 CH |
1101 | } |
1102 | ||
f9466733 | 1103 | static inline void cpu_inject_crw_mchk(S390CPU *cpu) |
5d69c547 | 1104 | { |
f9466733 AF |
1105 | CPUS390XState *env = &cpu->env; |
1106 | ||
5d69c547 CH |
1107 | if (env->mchk_index == MAX_MCHK_QUEUE - 1) { |
1108 | /* ugh - can't queue anymore. Let's drop. */ | |
1109 | return; | |
1110 | } | |
1111 | ||
1112 | env->mchk_index++; | |
1113 | assert(env->mchk_index < MAX_MCHK_QUEUE); | |
1114 | ||
1115 | env->mchk_queue[env->mchk_index].type = 1; | |
1116 | ||
1117 | env->pending_int |= INTERRUPT_MCHK; | |
c3affe56 | 1118 | cpu_interrupt(CPU(cpu), CPU_INTERRUPT_HARD); |
5d69c547 CH |
1119 | } |
1120 | ||
b6fe0124 MR |
1121 | /* from s390-virtio-ccw */ |
1122 | #define MEM_SECTION_SIZE 0x10000000UL | |
1def6656 | 1123 | #define MAX_AVAIL_SLOTS 32 |
b6fe0124 | 1124 | |
e72ca652 | 1125 | /* fpu_helper.c */ |
e72ca652 BS |
1126 | uint32_t set_cc_nz_f32(float32 v); |
1127 | uint32_t set_cc_nz_f64(float64 v); | |
587626f8 | 1128 | uint32_t set_cc_nz_f128(float128 v); |
e72ca652 | 1129 | |
aea1e885 | 1130 | /* misc_helper.c */ |
268846ba | 1131 | #ifndef CONFIG_USER_ONLY |
8fc639af | 1132 | int handle_diag_288(CPUS390XState *env, uint64_t r1, uint64_t r3); |
268846ba ED |
1133 | void handle_diag_308(CPUS390XState *env, uint64_t r1, uint64_t r3); |
1134 | #endif | |
d5a103cd | 1135 | void program_interrupt(CPUS390XState *env, uint32_t code, int ilen); |
b4e2bd35 RH |
1136 | void QEMU_NORETURN runtime_exception(CPUS390XState *env, int excp, |
1137 | uintptr_t retaddr); | |
a78b0504 | 1138 | |
09b99878 | 1139 | #ifdef CONFIG_KVM |
de13d216 | 1140 | void kvm_s390_io_interrupt(uint16_t subchannel_id, |
09b99878 CH |
1141 | uint16_t subchannel_nr, uint32_t io_int_parm, |
1142 | uint32_t io_int_word); | |
de13d216 | 1143 | void kvm_s390_crw_mchk(void); |
09b99878 | 1144 | void kvm_s390_enable_css_support(S390CPU *cpu); |
cc3ac9c4 CH |
1145 | int kvm_s390_assign_subch_ioeventfd(EventNotifier *notifier, uint32_t sch, |
1146 | int vq, bool assign); | |
7f7f9752 | 1147 | int kvm_s390_cpu_restart(S390CPU *cpu); |
1def6656 | 1148 | int kvm_s390_get_memslot_count(KVMState *s); |
4cb88c3c | 1149 | void kvm_s390_clear_cmma_callback(void *opaque); |
c9e659c9 | 1150 | int kvm_s390_set_cpu_state(S390CPU *cpu, uint8_t cpu_state); |
99607144 | 1151 | void kvm_s390_reset_vcpu(S390CPU *cpu); |
a310b283 | 1152 | int kvm_s390_set_mem_limit(KVMState *s, uint64_t new_limit, uint64_t *hw_limit); |
3cda44f7 JF |
1153 | void kvm_s390_vcpu_interrupt_pre_save(S390CPU *cpu); |
1154 | int kvm_s390_vcpu_interrupt_post_load(S390CPU *cpu); | |
09b99878 | 1155 | #else |
de13d216 | 1156 | static inline void kvm_s390_io_interrupt(uint16_t subchannel_id, |
df1fe5bb CH |
1157 | uint16_t subchannel_nr, |
1158 | uint32_t io_int_parm, | |
1159 | uint32_t io_int_word) | |
1160 | { | |
1161 | } | |
de13d216 | 1162 | static inline void kvm_s390_crw_mchk(void) |
df1fe5bb CH |
1163 | { |
1164 | } | |
09b99878 CH |
1165 | static inline void kvm_s390_enable_css_support(S390CPU *cpu) |
1166 | { | |
1167 | } | |
cc3ac9c4 CH |
1168 | static inline int kvm_s390_assign_subch_ioeventfd(EventNotifier *notifier, |
1169 | uint32_t sch, int vq, | |
b4436a0b CH |
1170 | bool assign) |
1171 | { | |
1172 | return -ENOSYS; | |
1173 | } | |
7f7f9752 ED |
1174 | static inline int kvm_s390_cpu_restart(S390CPU *cpu) |
1175 | { | |
1176 | return -ENOSYS; | |
1177 | } | |
4cb88c3c DD |
1178 | static inline void kvm_s390_clear_cmma_callback(void *opaque) |
1179 | { | |
1180 | } | |
1def6656 MR |
1181 | static inline int kvm_s390_get_memslot_count(KVMState *s) |
1182 | { | |
1183 | return MAX_AVAIL_SLOTS; | |
1184 | } | |
c9e659c9 DH |
1185 | static inline int kvm_s390_set_cpu_state(S390CPU *cpu, uint8_t cpu_state) |
1186 | { | |
1187 | return -ENOSYS; | |
1188 | } | |
99607144 DH |
1189 | static inline void kvm_s390_reset_vcpu(S390CPU *cpu) |
1190 | { | |
1191 | } | |
a310b283 DD |
1192 | static inline int kvm_s390_set_mem_limit(KVMState *s, uint64_t new_limit, |
1193 | uint64_t *hw_limit) | |
1194 | { | |
1195 | return 0; | |
1196 | } | |
3cda44f7 JF |
1197 | static inline void kvm_s390_vcpu_interrupt_pre_save(S390CPU *cpu) |
1198 | { | |
1199 | } | |
1200 | static inline int kvm_s390_vcpu_interrupt_post_load(S390CPU *cpu) | |
1201 | { | |
1202 | return 0; | |
1203 | } | |
09b99878 | 1204 | #endif |
df1fe5bb | 1205 | |
a310b283 DD |
1206 | static inline int s390_set_memory_limit(uint64_t new_limit, uint64_t *hw_limit) |
1207 | { | |
1208 | if (kvm_enabled()) { | |
1209 | return kvm_s390_set_mem_limit(kvm_state, new_limit, hw_limit); | |
1210 | } | |
1211 | return 0; | |
1212 | } | |
1213 | ||
4cb88c3c DD |
1214 | static inline void cmma_reset(S390CPU *cpu) |
1215 | { | |
1216 | if (kvm_enabled()) { | |
1217 | CPUState *cs = CPU(cpu); | |
1218 | kvm_s390_clear_cmma_callback(cs->kvm_state); | |
1219 | } | |
1220 | } | |
1221 | ||
7f7f9752 ED |
1222 | static inline int s390_cpu_restart(S390CPU *cpu) |
1223 | { | |
1224 | if (kvm_enabled()) { | |
1225 | return kvm_s390_cpu_restart(cpu); | |
1226 | } | |
1227 | return -ENOSYS; | |
1228 | } | |
1229 | ||
1def6656 MR |
1230 | static inline int s390_get_memslot_count(KVMState *s) |
1231 | { | |
1232 | if (kvm_enabled()) { | |
1233 | return kvm_s390_get_memslot_count(s); | |
1234 | } else { | |
1235 | return MAX_AVAIL_SLOTS; | |
1236 | } | |
1237 | } | |
1238 | ||
de13d216 CH |
1239 | void s390_io_interrupt(uint16_t subchannel_id, uint16_t subchannel_nr, |
1240 | uint32_t io_int_parm, uint32_t io_int_word); | |
1241 | void s390_crw_mchk(void); | |
df1fe5bb | 1242 | |
cc3ac9c4 CH |
1243 | static inline int s390_assign_subch_ioeventfd(EventNotifier *notifier, |
1244 | uint32_t sch_id, int vq, | |
b4436a0b CH |
1245 | bool assign) |
1246 | { | |
a499973f | 1247 | return kvm_s390_assign_subch_ioeventfd(notifier, sch_id, vq, assign); |
b4436a0b CH |
1248 | } |
1249 | ||
b2ac0ff5 EF |
1250 | #ifdef CONFIG_KVM |
1251 | static inline bool vregs_needed(void *opaque) | |
1252 | { | |
1253 | if (kvm_enabled()) { | |
1254 | return kvm_check_extension(kvm_state, KVM_CAP_S390_VECTOR_REGISTERS); | |
1255 | } | |
1256 | return 0; | |
1257 | } | |
1258 | #else | |
1259 | static inline bool vregs_needed(void *opaque) | |
1260 | { | |
1261 | return 0; | |
1262 | } | |
1263 | #endif | |
10ec5117 | 1264 | #endif |