1
2
3
4
5
6
7
8
9
10#ifndef S390X_INTERNAL_H
11#define S390X_INTERNAL_H
12
13#include "cpu.h"
14
15#ifndef CONFIG_USER_ONLY
16typedef struct LowCore {
17
18 uint32_t ccw1[2];
19 uint32_t ccw2[4];
20 uint8_t pad1[0x80 - 0x18];
21 uint32_t ext_params;
22 uint16_t cpu_addr;
23 uint16_t ext_int_code;
24 uint16_t svc_ilen;
25 uint16_t svc_code;
26 uint16_t pgm_ilen;
27 uint16_t pgm_code;
28 uint32_t data_exc_code;
29 uint16_t mon_class_num;
30 uint16_t per_perc_atmid;
31 uint64_t per_address;
32 uint8_t exc_access_id;
33 uint8_t per_access_id;
34 uint8_t op_access_id;
35 uint8_t ar_access_id;
36 uint8_t pad2[0xA8 - 0xA4];
37 uint64_t trans_exc_code;
38 uint64_t monitor_code;
39 uint16_t subchannel_id;
40 uint16_t subchannel_nr;
41 uint32_t io_int_parm;
42 uint32_t io_int_word;
43 uint8_t pad3[0xc8 - 0xc4];
44 uint32_t stfl_fac_list;
45 uint8_t pad4[0xe8 - 0xcc];
46 uint64_t mcic;
47 uint8_t pad5[0xf4 - 0xf0];
48 uint32_t external_damage_code;
49 uint64_t failing_storage_address;
50 uint8_t pad6[0x110 - 0x100];
51 uint64_t per_breaking_event_addr;
52 uint8_t pad7[0x120 - 0x118];
53 PSW restart_old_psw;
54 PSW external_old_psw;
55 PSW svc_old_psw;
56 PSW program_old_psw;
57 PSW mcck_old_psw;
58 PSW io_old_psw;
59 uint8_t pad8[0x1a0 - 0x180];
60 PSW restart_new_psw;
61 PSW external_new_psw;
62 PSW svc_new_psw;
63 PSW program_new_psw;
64 PSW mcck_new_psw;
65 PSW io_new_psw;
66 PSW return_psw;
67 uint8_t irb[64];
68 uint64_t sync_enter_timer;
69 uint64_t async_enter_timer;
70 uint64_t exit_timer;
71 uint64_t last_update_timer;
72 uint64_t user_timer;
73 uint64_t system_timer;
74 uint64_t last_update_clock;
75 uint64_t steal_clock;
76 PSW return_mcck_psw;
77 uint8_t pad9[0xc00 - 0x2a0];
78
79 uint64_t save_area[16];
80 uint8_t pad10[0xd40 - 0xc80];
81 uint64_t kernel_stack;
82 uint64_t thread_info;
83 uint64_t async_stack;
84 uint64_t kernel_asce;
85 uint64_t user_asce;
86 uint64_t panic_stack;
87 uint64_t user_exec_asce;
88 uint8_t pad11[0xdc0 - 0xd78];
89
90
91 uint64_t clock_comparator;
92 uint64_t ext_call_fast;
93 uint64_t percpu_offset;
94 uint64_t current_task;
95 uint32_t softirq_pending;
96 uint32_t pad_0x0de4;
97 uint64_t int_clock;
98 uint8_t pad12[0xe00 - 0xdf0];
99
100
101
102 uint32_t panic_magic;
103
104 uint8_t pad13[0x11b8 - 0xe04];
105
106
107 uint64_t ext_params2;
108
109 uint8_t pad14[0x1200 - 0x11C0];
110
111
112
113 uint64_t floating_pt_save_area[16];
114 uint64_t gpregs_save_area[16];
115 uint32_t st_status_fixed_logout[4];
116 uint8_t pad15[0x1318 - 0x1310];
117 uint32_t prefixreg_save_area;
118 uint32_t fpt_creg_save_area;
119 uint8_t pad16[0x1324 - 0x1320];
120 uint32_t tod_progreg_save_area;
121 uint64_t cpu_timer_save_area;
122 uint64_t clock_comp_save_area;
123 uint8_t pad17[0x1340 - 0x1338];
124 uint32_t access_regs_save_area[16];
125 uint64_t cregs_save_area[16];
126
127
128
129 uint8_t pad18[0x2000 - 0x1400];
130} QEMU_PACKED LowCore;
131#endif
132
133#define MAX_ILEN 6
134
135
136
137
138
139
140static inline int get_ilen(uint8_t opc)
141{
142 switch (opc >> 6) {
143 case 0:
144 return 2;
145 case 1:
146 case 2:
147 return 4;
148 default:
149 return 6;
150 }
151}
152
153
154
155static inline uint8_t get_per_atmid(CPUS390XState *env)
156{
157 return ((env->psw.mask & PSW_MASK_64) ? (1 << 7) : 0) |
158 (1 << 6) |
159 ((env->psw.mask & PSW_MASK_32) ? (1 << 5) : 0) |
160 ((env->psw.mask & PSW_MASK_DAT) ? (1 << 4) : 0) |
161 ((env->psw.mask & PSW_ASC_SECONDARY) ? (1 << 3) : 0) |
162 ((env->psw.mask & PSW_ASC_ACCREG) ? (1 << 2) : 0);
163}
164
165static inline uint64_t wrap_address(CPUS390XState *env, uint64_t a)
166{
167 if (!(env->psw.mask & PSW_MASK_64)) {
168 if (!(env->psw.mask & PSW_MASK_32)) {
169
170 a &= 0x00ffffff;
171 } else {
172
173 a &= 0x7fffffff;
174 }
175 }
176 return a;
177}
178
179
180
181
182
183
184
185
186
187
188enum cc_op {
189 CC_OP_CONST0 = 0,
190 CC_OP_CONST1,
191 CC_OP_CONST2,
192 CC_OP_CONST3,
193
194 CC_OP_DYNAMIC,
195 CC_OP_STATIC,
196
197 CC_OP_NZ,
198 CC_OP_LTGT_32,
199 CC_OP_LTGT_64,
200 CC_OP_LTUGTU_32,
201 CC_OP_LTUGTU_64,
202 CC_OP_LTGT0_32,
203 CC_OP_LTGT0_64,
204
205 CC_OP_ADD_64,
206 CC_OP_ADDU_64,
207 CC_OP_ADDC_64,
208 CC_OP_SUB_64,
209 CC_OP_SUBU_64,
210 CC_OP_SUBB_64,
211 CC_OP_ABS_64,
212 CC_OP_NABS_64,
213
214 CC_OP_ADD_32,
215 CC_OP_ADDU_32,
216 CC_OP_ADDC_32,
217 CC_OP_SUB_32,
218 CC_OP_SUBU_32,
219 CC_OP_SUBB_32,
220 CC_OP_ABS_32,
221 CC_OP_NABS_32,
222
223 CC_OP_COMP_32,
224 CC_OP_COMP_64,
225
226 CC_OP_TM_32,
227 CC_OP_TM_64,
228
229 CC_OP_NZ_F32,
230 CC_OP_NZ_F64,
231 CC_OP_NZ_F128,
232
233 CC_OP_ICM,
234 CC_OP_SLA_32,
235 CC_OP_SLA_64,
236 CC_OP_FLOGR,
237 CC_OP_MAX
238};
239
240static inline hwaddr decode_basedisp_s(CPUS390XState *env, uint32_t ipb,
241 uint8_t *ar)
242{
243 hwaddr addr = 0;
244 uint8_t reg;
245
246 reg = ipb >> 28;
247 if (reg > 0) {
248 addr = env->regs[reg];
249 }
250 addr += (ipb >> 16) & 0xfff;
251 if (ar) {
252 *ar = reg;
253 }
254
255 return addr;
256}
257
258
259#define decode_basedisp_rs decode_basedisp_s
260
261
262int s390_cpu_write_elf64_note(WriteCoreDumpFunction f, CPUState *cs,
263 int cpuid, void *opaque);
264
265
266
267const char *cc_name(enum cc_op cc_op);
268void load_psw(CPUS390XState *env, uint64_t mask, uint64_t addr);
269uint32_t calc_cc(CPUS390XState *env, uint32_t cc_op, uint64_t src, uint64_t dst,
270 uint64_t vr);
271
272
273
274#ifndef CONFIG_USER_ONLY
275unsigned int s390_cpu_halt(S390CPU *cpu);
276void s390_cpu_unhalt(S390CPU *cpu);
277#else
278static inline unsigned int s390_cpu_halt(S390CPU *cpu)
279{
280 return 0;
281}
282
283static inline void s390_cpu_unhalt(S390CPU *cpu)
284{
285}
286#endif
287
288
289
290void s390_cpu_model_register_props(Object *obj);
291void s390_cpu_model_class_register_props(ObjectClass *oc);
292void s390_realize_cpu_model(CPUState *cs, Error **errp);
293ObjectClass *s390_cpu_class_by_name(const char *name);
294
295
296
297void s390x_cpu_debug_excp_handler(CPUState *cs);
298void s390_cpu_do_interrupt(CPUState *cpu);
299bool s390_cpu_exec_interrupt(CPUState *cpu, int int_req);
300int s390_cpu_handle_mmu_fault(CPUState *cpu, vaddr address, int size, int rw,
301 int mmu_idx);
302void s390x_cpu_do_unaligned_access(CPUState *cs, vaddr addr,
303 MMUAccessType access_type,
304 int mmu_idx, uintptr_t retaddr);
305
306
307
308uint32_t set_cc_nz_f32(float32 v);
309uint32_t set_cc_nz_f64(float64 v);
310uint32_t set_cc_nz_f128(float128 v);
311
312
313
314int s390_cpu_gdb_read_register(CPUState *cpu, uint8_t *buf, int reg);
315int s390_cpu_gdb_write_register(CPUState *cpu, uint8_t *buf, int reg);
316void s390_cpu_gdb_init(CPUState *cs);
317
318
319
320void s390_cpu_dump_state(CPUState *cpu, FILE *f, fprintf_function cpu_fprintf,
321 int flags);
322hwaddr s390_cpu_get_phys_page_debug(CPUState *cpu, vaddr addr);
323hwaddr s390_cpu_get_phys_addr_debug(CPUState *cpu, vaddr addr);
324uint64_t get_psw_mask(CPUS390XState *env);
325void s390_cpu_recompute_watchpoints(CPUState *cs);
326void s390x_tod_timer(void *opaque);
327void s390x_cpu_timer(void *opaque);
328void do_restart_interrupt(CPUS390XState *env);
329void s390_handle_wait(S390CPU *cpu);
330#define S390_STORE_STATUS_DEF_ADDR offsetof(LowCore, floating_pt_save_area)
331int s390_store_status(S390CPU *cpu, hwaddr addr, bool store_arch);
332int s390_store_adtl_status(S390CPU *cpu, hwaddr addr, hwaddr len);
333#ifndef CONFIG_USER_ONLY
334LowCore *cpu_map_lowcore(CPUS390XState *env);
335void cpu_unmap_lowcore(LowCore *lowcore);
336#endif
337
338
339
340void trigger_pgm_exception(CPUS390XState *env, uint32_t code, uint32_t ilen);
341void cpu_inject_clock_comparator(S390CPU *cpu);
342void cpu_inject_cpu_timer(S390CPU *cpu);
343void cpu_inject_emergency_signal(S390CPU *cpu, uint16_t src_cpu_addr);
344int cpu_inject_external_call(S390CPU *cpu, uint16_t src_cpu_addr);
345bool s390_cpu_has_io_int(S390CPU *cpu);
346bool s390_cpu_has_ext_int(S390CPU *cpu);
347bool s390_cpu_has_mcck_int(S390CPU *cpu);
348bool s390_cpu_has_int(S390CPU *cpu);
349bool s390_cpu_has_restart_int(S390CPU *cpu);
350bool s390_cpu_has_stop_int(S390CPU *cpu);
351void cpu_inject_restart(S390CPU *cpu);
352void cpu_inject_stop(S390CPU *cpu);
353
354
355
356void ioinst_handle_xsch(S390CPU *cpu, uint64_t reg1, uintptr_t ra);
357void ioinst_handle_csch(S390CPU *cpu, uint64_t reg1, uintptr_t ra);
358void ioinst_handle_hsch(S390CPU *cpu, uint64_t reg1, uintptr_t ra);
359void ioinst_handle_msch(S390CPU *cpu, uint64_t reg1, uint32_t ipb,
360 uintptr_t ra);
361void ioinst_handle_ssch(S390CPU *cpu, uint64_t reg1, uint32_t ipb,
362 uintptr_t ra);
363void ioinst_handle_stcrw(S390CPU *cpu, uint32_t ipb, uintptr_t ra);
364void ioinst_handle_stsch(S390CPU *cpu, uint64_t reg1, uint32_t ipb,
365 uintptr_t ra);
366int ioinst_handle_tsch(S390CPU *cpu, uint64_t reg1, uint32_t ipb, uintptr_t ra);
367void ioinst_handle_chsc(S390CPU *cpu, uint32_t ipb, uintptr_t ra);
368void ioinst_handle_schm(S390CPU *cpu, uint64_t reg1, uint64_t reg2,
369 uint32_t ipb, uintptr_t ra);
370void ioinst_handle_rsch(S390CPU *cpu, uint64_t reg1, uintptr_t ra);
371void ioinst_handle_rchp(S390CPU *cpu, uint64_t reg1, uintptr_t ra);
372void ioinst_handle_sal(S390CPU *cpu, uint64_t reg1, uintptr_t ra);
373
374
375
376target_ulong mmu_real2abs(CPUS390XState *env, target_ulong raddr);
377
378
379
380int mmu_translate(CPUS390XState *env, target_ulong vaddr, int rw, uint64_t asc,
381 target_ulong *raddr, int *flags, bool exc);
382int mmu_translate_real(CPUS390XState *env, target_ulong raddr, int rw,
383 target_ulong *addr, int *flags);
384
385
386
387int handle_diag_288(CPUS390XState *env, uint64_t r1, uint64_t r3);
388void handle_diag_308(CPUS390XState *env, uint64_t r1, uint64_t r3,
389 uintptr_t ra);
390
391
392
393void s390x_translate_init(void);
394
395
396
397int handle_sigp(CPUS390XState *env, uint8_t order, uint64_t r1, uint64_t r3);
398void do_stop_interrupt(CPUS390XState *env);
399
400#endif
401