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