1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23#include "qemu/osdep.h"
24#include "qapi/error.h"
25#include "cpu.h"
26#include "internal.h"
27#include "kvm_s390x.h"
28#include "sysemu/kvm.h"
29#include "sysemu/reset.h"
30#include "qemu/timer.h"
31#include "qemu/error-report.h"
32#include "qemu/module.h"
33#include "trace.h"
34#include "qapi/visitor.h"
35#include "qapi/qapi-types-machine.h"
36#include "qapi/qapi-visit-run-state.h"
37#include "sysemu/hw_accel.h"
38#include "hw/qdev-properties.h"
39#ifndef CONFIG_USER_ONLY
40#include "hw/boards.h"
41#include "sysemu/arch_init.h"
42#include "sysemu/sysemu.h"
43#include "sysemu/tcg.h"
44#endif
45#include "fpu/softfloat-helpers.h"
46
47#define CR0_RESET 0xE0UL
48#define CR14_RESET 0xC2000000UL;
49
50static void s390_cpu_set_pc(CPUState *cs, vaddr value)
51{
52 S390CPU *cpu = S390_CPU(cs);
53
54 cpu->env.psw.addr = value;
55}
56
57static bool s390_cpu_has_work(CPUState *cs)
58{
59 S390CPU *cpu = S390_CPU(cs);
60
61
62 if (s390_cpu_get_state(cpu) != S390_CPU_STATE_LOAD &&
63 s390_cpu_get_state(cpu) != S390_CPU_STATE_OPERATING) {
64 return false;
65 }
66
67 if (!(cs->interrupt_request & CPU_INTERRUPT_HARD)) {
68 return false;
69 }
70
71 return s390_cpu_has_int(cpu);
72}
73
74#if !defined(CONFIG_USER_ONLY)
75
76static void s390_cpu_load_normal(CPUState *s)
77{
78 S390CPU *cpu = S390_CPU(s);
79 uint64_t spsw = ldq_phys(s->as, 0);
80
81 cpu->env.psw.mask = spsw & PSW_MASK_SHORT_CTRL;
82
83
84
85
86 cpu->env.psw.mask ^= PSW_MASK_SHORTPSW;
87 cpu->env.psw.addr = spsw & PSW_MASK_SHORT_ADDR;
88
89 s390_cpu_set_state(S390_CPU_STATE_OPERATING, cpu);
90}
91#endif
92
93
94static void s390_cpu_reset(CPUState *s, cpu_reset_type type)
95{
96 S390CPU *cpu = S390_CPU(s);
97 S390CPUClass *scc = S390_CPU_GET_CLASS(cpu);
98 CPUS390XState *env = &cpu->env;
99 DeviceState *dev = DEVICE(s);
100
101 scc->parent_reset(dev);
102 cpu->env.sigp_order = 0;
103 s390_cpu_set_state(S390_CPU_STATE_STOPPED, cpu);
104
105 switch (type) {
106 case S390_CPU_RESET_CLEAR:
107 memset(env, 0, offsetof(CPUS390XState, start_initial_reset_fields));
108
109 case S390_CPU_RESET_INITIAL:
110
111 memset(&env->start_initial_reset_fields, 0,
112 offsetof(CPUS390XState, start_normal_reset_fields) -
113 offsetof(CPUS390XState, start_initial_reset_fields));
114
115
116 env->gbea = 1;
117
118
119 env->cregs[0] = CR0_RESET;
120 env->cregs[14] = CR14_RESET;
121
122#if defined(CONFIG_USER_ONLY)
123
124 env->cregs[0] |= CR0_AFP;
125 if (s390_has_feat(S390_FEAT_VECTOR)) {
126 env->cregs[0] |= CR0_VECTOR;
127 }
128#endif
129
130
131 set_float_detect_tininess(float_tininess_before_rounding,
132 &env->fpu_status);
133
134 case S390_CPU_RESET_NORMAL:
135 env->psw.mask &= ~PSW_MASK_RI;
136 memset(&env->start_normal_reset_fields, 0,
137 offsetof(CPUS390XState, end_reset_fields) -
138 offsetof(CPUS390XState, start_normal_reset_fields));
139
140 env->pfault_token = -1UL;
141 env->bpbc = false;
142 break;
143 default:
144 g_assert_not_reached();
145 }
146
147
148 if (kvm_enabled()) {
149 switch (type) {
150 case S390_CPU_RESET_CLEAR:
151 kvm_s390_reset_vcpu_clear(cpu);
152 break;
153 case S390_CPU_RESET_INITIAL:
154 kvm_s390_reset_vcpu_initial(cpu);
155 break;
156 case S390_CPU_RESET_NORMAL:
157 kvm_s390_reset_vcpu_normal(cpu);
158 break;
159 }
160 }
161}
162
163#if !defined(CONFIG_USER_ONLY)
164static void s390_cpu_machine_reset_cb(void *opaque)
165{
166 S390CPU *cpu = opaque;
167
168 run_on_cpu(CPU(cpu), s390_do_cpu_full_reset, RUN_ON_CPU_NULL);
169}
170#endif
171
172static void s390_cpu_disas_set_info(CPUState *cpu, disassemble_info *info)
173{
174 info->mach = bfd_mach_s390_64;
175 info->print_insn = print_insn_s390;
176}
177
178static void s390_cpu_realizefn(DeviceState *dev, Error **errp)
179{
180 CPUState *cs = CPU(dev);
181 S390CPUClass *scc = S390_CPU_GET_CLASS(dev);
182#if !defined(CONFIG_USER_ONLY)
183 S390CPU *cpu = S390_CPU(dev);
184#endif
185 Error *err = NULL;
186
187
188 s390_realize_cpu_model(cs, &err);
189 if (err) {
190 goto out;
191 }
192
193#if !defined(CONFIG_USER_ONLY)
194 MachineState *ms = MACHINE(qdev_get_machine());
195 unsigned int max_cpus = ms->smp.max_cpus;
196 if (cpu->env.core_id >= max_cpus) {
197 error_setg(&err, "Unable to add CPU with core-id: %" PRIu32
198 ", maximum core-id: %d", cpu->env.core_id,
199 max_cpus - 1);
200 goto out;
201 }
202
203 if (cpu_exists(cpu->env.core_id)) {
204 error_setg(&err, "Unable to add CPU with core-id: %" PRIu32
205 ", it already exists", cpu->env.core_id);
206 goto out;
207 }
208
209
210 cs->cpu_index = cpu->env.core_id;
211#endif
212
213 cpu_exec_realizefn(cs, &err);
214 if (err != NULL) {
215 goto out;
216 }
217
218#if !defined(CONFIG_USER_ONLY)
219 qemu_register_reset(s390_cpu_machine_reset_cb, cpu);
220#endif
221 s390_cpu_gdb_init(cs);
222 qemu_init_vcpu(cs);
223
224
225
226
227
228
229
230 if (kvm_enabled()) {
231 run_on_cpu(cs, s390_do_cpu_full_reset, RUN_ON_CPU_NULL);
232 } else {
233 cpu_reset(cs);
234 }
235
236 scc->parent_realize(dev, &err);
237out:
238 error_propagate(errp, err);
239}
240
241static GuestPanicInformation *s390_cpu_get_crash_info(CPUState *cs)
242{
243 GuestPanicInformation *panic_info;
244 S390CPU *cpu = S390_CPU(cs);
245
246 cpu_synchronize_state(cs);
247 panic_info = g_malloc0(sizeof(GuestPanicInformation));
248
249 panic_info->type = GUEST_PANIC_INFORMATION_TYPE_S390;
250#if !defined(CONFIG_USER_ONLY)
251 panic_info->u.s390.core = cpu->env.core_id;
252#else
253 panic_info->u.s390.core = 0;
254#endif
255 panic_info->u.s390.psw_mask = cpu->env.psw.mask;
256 panic_info->u.s390.psw_addr = cpu->env.psw.addr;
257 panic_info->u.s390.reason = cpu->env.crash_reason;
258
259 return panic_info;
260}
261
262static void s390_cpu_get_crash_info_qom(Object *obj, Visitor *v,
263 const char *name, void *opaque,
264 Error **errp)
265{
266 CPUState *cs = CPU(obj);
267 GuestPanicInformation *panic_info;
268
269 if (!cs->crash_occurred) {
270 error_setg(errp, "No crash occurred");
271 return;
272 }
273
274 panic_info = s390_cpu_get_crash_info(cs);
275
276 visit_type_GuestPanicInformation(v, "crash-information", &panic_info,
277 errp);
278 qapi_free_GuestPanicInformation(panic_info);
279}
280
281static void s390_cpu_initfn(Object *obj)
282{
283 CPUState *cs = CPU(obj);
284 S390CPU *cpu = S390_CPU(obj);
285
286 cpu_set_cpustate_pointers(cpu);
287 cs->halted = 1;
288 cs->exception_index = EXCP_HLT;
289 object_property_add(obj, "crash-information", "GuestPanicInformation",
290 s390_cpu_get_crash_info_qom, NULL, NULL, NULL, NULL);
291 s390_cpu_model_register_props(obj);
292#if !defined(CONFIG_USER_ONLY)
293 cpu->env.tod_timer =
294 timer_new_ns(QEMU_CLOCK_VIRTUAL, s390x_tod_timer, cpu);
295 cpu->env.cpu_timer =
296 timer_new_ns(QEMU_CLOCK_VIRTUAL, s390x_cpu_timer, cpu);
297 s390_cpu_set_state(S390_CPU_STATE_STOPPED, cpu);
298#endif
299}
300
301static void s390_cpu_finalize(Object *obj)
302{
303#if !defined(CONFIG_USER_ONLY)
304 S390CPU *cpu = S390_CPU(obj);
305
306 qemu_unregister_reset(s390_cpu_machine_reset_cb, cpu);
307 g_free(cpu->irqstate);
308#endif
309}
310
311#if !defined(CONFIG_USER_ONLY)
312static bool disabled_wait(CPUState *cpu)
313{
314 return cpu->halted && !(S390_CPU(cpu)->env.psw.mask &
315 (PSW_MASK_IO | PSW_MASK_EXT | PSW_MASK_MCHECK));
316}
317
318static unsigned s390_count_running_cpus(void)
319{
320 CPUState *cpu;
321 int nr_running = 0;
322
323 CPU_FOREACH(cpu) {
324 uint8_t state = S390_CPU(cpu)->env.cpu_state;
325 if (state == S390_CPU_STATE_OPERATING ||
326 state == S390_CPU_STATE_LOAD) {
327 if (!disabled_wait(cpu)) {
328 nr_running++;
329 }
330 }
331 }
332
333 return nr_running;
334}
335
336unsigned int s390_cpu_halt(S390CPU *cpu)
337{
338 CPUState *cs = CPU(cpu);
339 trace_cpu_halt(cs->cpu_index);
340
341 if (!cs->halted) {
342 cs->halted = 1;
343 cs->exception_index = EXCP_HLT;
344 }
345
346 return s390_count_running_cpus();
347}
348
349void s390_cpu_unhalt(S390CPU *cpu)
350{
351 CPUState *cs = CPU(cpu);
352 trace_cpu_unhalt(cs->cpu_index);
353
354 if (cs->halted) {
355 cs->halted = 0;
356 cs->exception_index = -1;
357 }
358}
359
360unsigned int s390_cpu_set_state(uint8_t cpu_state, S390CPU *cpu)
361 {
362 trace_cpu_set_state(CPU(cpu)->cpu_index, cpu_state);
363
364 switch (cpu_state) {
365 case S390_CPU_STATE_STOPPED:
366 case S390_CPU_STATE_CHECK_STOP:
367
368 s390_cpu_halt(cpu);
369 break;
370 case S390_CPU_STATE_OPERATING:
371 case S390_CPU_STATE_LOAD:
372
373
374
375
376
377
378 if (!tcg_enabled() || !(cpu->env.psw.mask & PSW_MASK_WAIT)) {
379 s390_cpu_unhalt(cpu);
380 }
381 break;
382 default:
383 error_report("Requested CPU state is not a valid S390 CPU state: %u",
384 cpu_state);
385 exit(1);
386 }
387 if (kvm_enabled() && cpu->env.cpu_state != cpu_state) {
388 kvm_s390_set_cpu_state(cpu, cpu_state);
389 }
390 cpu->env.cpu_state = cpu_state;
391
392 return s390_count_running_cpus();
393}
394
395int s390_set_memory_limit(uint64_t new_limit, uint64_t *hw_limit)
396{
397 if (kvm_enabled()) {
398 return kvm_s390_set_mem_limit(new_limit, hw_limit);
399 }
400 return 0;
401}
402
403void s390_set_max_pagesize(uint64_t pagesize, Error **errp)
404{
405 if (kvm_enabled()) {
406 kvm_s390_set_max_pagesize(pagesize, errp);
407 }
408}
409
410void s390_cmma_reset(void)
411{
412 if (kvm_enabled()) {
413 kvm_s390_cmma_reset();
414 }
415}
416
417int s390_assign_subch_ioeventfd(EventNotifier *notifier, uint32_t sch_id,
418 int vq, bool assign)
419{
420 if (kvm_enabled()) {
421 return kvm_s390_assign_subch_ioeventfd(notifier, sch_id, vq, assign);
422 } else {
423 return 0;
424 }
425}
426
427void s390_crypto_reset(void)
428{
429 if (kvm_enabled()) {
430 kvm_s390_crypto_reset();
431 }
432}
433
434void s390_enable_css_support(S390CPU *cpu)
435{
436 if (kvm_enabled()) {
437 kvm_s390_enable_css_support(cpu);
438 }
439}
440#endif
441
442static gchar *s390_gdb_arch_name(CPUState *cs)
443{
444 return g_strdup("s390:64-bit");
445}
446
447static Property s390x_cpu_properties[] = {
448#if !defined(CONFIG_USER_ONLY)
449 DEFINE_PROP_UINT32("core-id", S390CPU, env.core_id, 0),
450#endif
451 DEFINE_PROP_END_OF_LIST()
452};
453
454static void s390_cpu_reset_full(DeviceState *dev)
455{
456 CPUState *s = CPU(dev);
457 return s390_cpu_reset(s, S390_CPU_RESET_CLEAR);
458}
459
460static void s390_cpu_class_init(ObjectClass *oc, void *data)
461{
462 S390CPUClass *scc = S390_CPU_CLASS(oc);
463 CPUClass *cc = CPU_CLASS(scc);
464 DeviceClass *dc = DEVICE_CLASS(oc);
465
466 device_class_set_parent_realize(dc, s390_cpu_realizefn,
467 &scc->parent_realize);
468 device_class_set_props(dc, s390x_cpu_properties);
469 dc->user_creatable = true;
470
471 device_class_set_parent_reset(dc, s390_cpu_reset_full, &scc->parent_reset);
472#if !defined(CONFIG_USER_ONLY)
473 scc->load_normal = s390_cpu_load_normal;
474#endif
475 scc->reset = s390_cpu_reset;
476 cc->class_by_name = s390_cpu_class_by_name,
477 cc->has_work = s390_cpu_has_work;
478#ifdef CONFIG_TCG
479 cc->do_interrupt = s390_cpu_do_interrupt;
480#endif
481 cc->dump_state = s390_cpu_dump_state;
482 cc->get_crash_info = s390_cpu_get_crash_info;
483 cc->set_pc = s390_cpu_set_pc;
484 cc->gdb_read_register = s390_cpu_gdb_read_register;
485 cc->gdb_write_register = s390_cpu_gdb_write_register;
486#ifndef CONFIG_USER_ONLY
487 cc->get_phys_page_debug = s390_cpu_get_phys_page_debug;
488 cc->vmsd = &vmstate_s390_cpu;
489 cc->write_elf64_note = s390_cpu_write_elf64_note;
490#ifdef CONFIG_TCG
491 cc->cpu_exec_interrupt = s390_cpu_exec_interrupt;
492 cc->debug_excp_handler = s390x_cpu_debug_excp_handler;
493 cc->do_unaligned_access = s390x_cpu_do_unaligned_access;
494#endif
495#endif
496 cc->disas_set_info = s390_cpu_disas_set_info;
497#ifdef CONFIG_TCG
498 cc->tcg_initialize = s390x_translate_init;
499 cc->tlb_fill = s390_cpu_tlb_fill;
500#endif
501
502 cc->gdb_num_core_regs = S390_NUM_CORE_REGS;
503 cc->gdb_core_xml_file = "s390x-core64.xml";
504 cc->gdb_arch_name = s390_gdb_arch_name;
505
506 s390_cpu_model_class_register_props(oc);
507}
508
509static const TypeInfo s390_cpu_type_info = {
510 .name = TYPE_S390_CPU,
511 .parent = TYPE_CPU,
512 .instance_size = sizeof(S390CPU),
513 .instance_init = s390_cpu_initfn,
514 .instance_finalize = s390_cpu_finalize,
515 .abstract = true,
516 .class_size = sizeof(S390CPUClass),
517 .class_init = s390_cpu_class_init,
518};
519
520static void s390_cpu_register_types(void)
521{
522 type_register_static(&s390_cpu_type_info);
523}
524
525type_init(s390_cpu_register_types)
526