hw/arm/bcm2836: Only provide "enabled-cpus" property to multicore SoCs
[qemu.git] / hw / s390x / s390-virtio-ccw.c
1 /*
2 * virtio ccw machine
3 *
4 * Copyright 2012, 2020 IBM Corp.
5 * Copyright (c) 2009 Alexander Graf <agraf@suse.de>
6 * Author(s): Cornelia Huck <cornelia.huck@de.ibm.com>
7 * Janosch Frank <frankja@linux.ibm.com>
8 *
9 * This work is licensed under the terms of the GNU GPL, version 2 or (at
10 * your option) any later version. See the COPYING file in the top-level
11 * directory.
12 */
13
14 #include "qemu/osdep.h"
15 #include "qapi/error.h"
16 #include "cpu.h"
17 #include "hw/boards.h"
18 #include "exec/address-spaces.h"
19 #include "exec/ram_addr.h"
20 #include "hw/s390x/s390-virtio-hcall.h"
21 #include "hw/s390x/sclp.h"
22 #include "hw/s390x/s390_flic.h"
23 #include "hw/s390x/ioinst.h"
24 #include "hw/s390x/css.h"
25 #include "virtio-ccw.h"
26 #include "qemu/config-file.h"
27 #include "qemu/ctype.h"
28 #include "qemu/error-report.h"
29 #include "qemu/option.h"
30 #include "qemu/qemu-print.h"
31 #include "s390-pci-bus.h"
32 #include "sysemu/reset.h"
33 #include "hw/s390x/storage-keys.h"
34 #include "hw/s390x/storage-attributes.h"
35 #include "hw/s390x/event-facility.h"
36 #include "ipl.h"
37 #include "hw/s390x/s390-virtio-ccw.h"
38 #include "hw/s390x/css-bridge.h"
39 #include "hw/s390x/ap-bridge.h"
40 #include "migration/register.h"
41 #include "cpu_models.h"
42 #include "hw/nmi.h"
43 #include "hw/qdev-properties.h"
44 #include "hw/s390x/tod.h"
45 #include "sysemu/sysemu.h"
46 #include "hw/s390x/pv.h"
47 #include "migration/blocker.h"
48
49 static Error *pv_mig_blocker;
50
51 S390CPU *s390_cpu_addr2state(uint16_t cpu_addr)
52 {
53 static MachineState *ms;
54
55 if (!ms) {
56 ms = MACHINE(qdev_get_machine());
57 g_assert(ms->possible_cpus);
58 }
59
60 /* CPU address corresponds to the core_id and the index */
61 if (cpu_addr >= ms->possible_cpus->len) {
62 return NULL;
63 }
64 return S390_CPU(ms->possible_cpus->cpus[cpu_addr].cpu);
65 }
66
67 static S390CPU *s390x_new_cpu(const char *typename, uint32_t core_id,
68 Error **errp)
69 {
70 S390CPU *cpu = S390_CPU(object_new(typename));
71 S390CPU *ret = NULL;
72
73 if (!object_property_set_int(OBJECT(cpu), "core-id", core_id, errp)) {
74 goto out;
75 }
76 if (!qdev_realize(DEVICE(cpu), NULL, errp)) {
77 goto out;
78 }
79 ret = cpu;
80
81 out:
82 object_unref(OBJECT(cpu));
83 return ret;
84 }
85
86 static void s390_init_cpus(MachineState *machine)
87 {
88 MachineClass *mc = MACHINE_GET_CLASS(machine);
89 int i;
90
91 /* initialize possible_cpus */
92 mc->possible_cpu_arch_ids(machine);
93
94 for (i = 0; i < machine->smp.cpus; i++) {
95 s390x_new_cpu(machine->cpu_type, i, &error_fatal);
96 }
97 }
98
99 static const char *const reset_dev_types[] = {
100 TYPE_VIRTUAL_CSS_BRIDGE,
101 "s390-sclp-event-facility",
102 "s390-flic",
103 "diag288",
104 TYPE_S390_PCI_HOST_BRIDGE,
105 };
106
107 static void subsystem_reset(void)
108 {
109 DeviceState *dev;
110 int i;
111
112 for (i = 0; i < ARRAY_SIZE(reset_dev_types); i++) {
113 dev = DEVICE(object_resolve_path_type("", reset_dev_types[i], NULL));
114 if (dev) {
115 qdev_reset_all(dev);
116 }
117 }
118 }
119
120 static int virtio_ccw_hcall_notify(const uint64_t *args)
121 {
122 uint64_t subch_id = args[0];
123 uint64_t queue = args[1];
124 SubchDev *sch;
125 int cssid, ssid, schid, m;
126
127 if (ioinst_disassemble_sch_ident(subch_id, &m, &cssid, &ssid, &schid)) {
128 return -EINVAL;
129 }
130 sch = css_find_subch(m, cssid, ssid, schid);
131 if (!sch || !css_subch_visible(sch)) {
132 return -EINVAL;
133 }
134 if (queue >= VIRTIO_QUEUE_MAX) {
135 return -EINVAL;
136 }
137 virtio_queue_notify(virtio_ccw_get_vdev(sch), queue);
138 return 0;
139
140 }
141
142 static int virtio_ccw_hcall_early_printk(const uint64_t *args)
143 {
144 uint64_t mem = args[0];
145
146 if (mem < ram_size) {
147 /* Early printk */
148 return 0;
149 }
150 return -EINVAL;
151 }
152
153 static void virtio_ccw_register_hcalls(void)
154 {
155 s390_register_virtio_hypercall(KVM_S390_VIRTIO_CCW_NOTIFY,
156 virtio_ccw_hcall_notify);
157 /* Tolerate early printk. */
158 s390_register_virtio_hypercall(KVM_S390_VIRTIO_NOTIFY,
159 virtio_ccw_hcall_early_printk);
160 }
161
162 static void s390_memory_init(MemoryRegion *ram)
163 {
164 MemoryRegion *sysmem = get_system_memory();
165
166 /* allocate RAM for core */
167 memory_region_add_subregion(sysmem, 0, ram);
168
169 /*
170 * Configure the maximum page size. As no memory devices were created
171 * yet, this is the page size of initial memory only.
172 */
173 s390_set_max_pagesize(qemu_maxrampagesize(), &error_fatal);
174 /* Initialize storage key device */
175 s390_skeys_init();
176 /* Initialize storage attributes device */
177 s390_stattrib_init();
178 }
179
180 static void s390_init_ipl_dev(const char *kernel_filename,
181 const char *kernel_cmdline,
182 const char *initrd_filename, const char *firmware,
183 const char *netboot_fw, bool enforce_bios)
184 {
185 Object *new = object_new(TYPE_S390_IPL);
186 DeviceState *dev = DEVICE(new);
187 char *netboot_fw_prop;
188
189 if (kernel_filename) {
190 qdev_prop_set_string(dev, "kernel", kernel_filename);
191 }
192 if (initrd_filename) {
193 qdev_prop_set_string(dev, "initrd", initrd_filename);
194 }
195 qdev_prop_set_string(dev, "cmdline", kernel_cmdline);
196 qdev_prop_set_string(dev, "firmware", firmware);
197 qdev_prop_set_bit(dev, "enforce_bios", enforce_bios);
198 netboot_fw_prop = object_property_get_str(new, "netboot_fw", &error_abort);
199 if (!strlen(netboot_fw_prop)) {
200 qdev_prop_set_string(dev, "netboot_fw", netboot_fw);
201 }
202 g_free(netboot_fw_prop);
203 object_property_add_child(qdev_get_machine(), TYPE_S390_IPL,
204 new);
205 object_unref(new);
206 qdev_realize(dev, NULL, &error_fatal);
207 }
208
209 static void s390_create_virtio_net(BusState *bus, const char *name)
210 {
211 int i;
212
213 for (i = 0; i < nb_nics; i++) {
214 NICInfo *nd = &nd_table[i];
215 DeviceState *dev;
216
217 if (!nd->model) {
218 nd->model = g_strdup("virtio");
219 }
220
221 qemu_check_nic_model(nd, "virtio");
222
223 dev = qdev_new(name);
224 qdev_set_nic_properties(dev, nd);
225 qdev_realize_and_unref(dev, bus, &error_fatal);
226 }
227 }
228
229 static void s390_create_sclpconsole(const char *type, Chardev *chardev)
230 {
231 DeviceState *dev;
232
233 dev = qdev_new(type);
234 qdev_prop_set_chr(dev, "chardev", chardev);
235 qdev_realize_and_unref(dev, sclp_get_event_facility_bus(), &error_fatal);
236 }
237
238 static void ccw_init(MachineState *machine)
239 {
240 int ret;
241 VirtualCssBus *css_bus;
242 DeviceState *dev;
243
244 s390_sclp_init();
245 /* init memory + setup max page size. Required for the CPU model */
246 s390_memory_init(machine->ram);
247
248 /* init CPUs (incl. CPU model) early so s390_has_feature() works */
249 s390_init_cpus(machine);
250
251 s390_flic_init();
252
253 /* init the SIGP facility */
254 s390_init_sigp();
255
256 /* create AP bridge and bus(es) */
257 s390_init_ap();
258
259 /* get a BUS */
260 css_bus = virtual_css_bus_init();
261 s390_init_ipl_dev(machine->kernel_filename, machine->kernel_cmdline,
262 machine->initrd_filename, "s390-ccw.img",
263 "s390-netboot.img", true);
264
265 dev = qdev_new(TYPE_S390_PCI_HOST_BRIDGE);
266 object_property_add_child(qdev_get_machine(), TYPE_S390_PCI_HOST_BRIDGE,
267 OBJECT(dev));
268 sysbus_realize_and_unref(SYS_BUS_DEVICE(dev), &error_fatal);
269
270 /* register hypercalls */
271 virtio_ccw_register_hcalls();
272
273 s390_enable_css_support(s390_cpu_addr2state(0));
274
275 ret = css_create_css_image(VIRTUAL_CSSID, true);
276
277 assert(ret == 0);
278 if (css_migration_enabled()) {
279 css_register_vmstate();
280 }
281
282 /* Create VirtIO network adapters */
283 s390_create_virtio_net(BUS(css_bus), "virtio-net-ccw");
284
285 /* init consoles */
286 if (serial_hd(0)) {
287 s390_create_sclpconsole("sclpconsole", serial_hd(0));
288 }
289 if (serial_hd(1)) {
290 s390_create_sclpconsole("sclplmconsole", serial_hd(1));
291 }
292
293 /* init the TOD clock */
294 s390_init_tod();
295 }
296
297 static void s390_cpu_plug(HotplugHandler *hotplug_dev,
298 DeviceState *dev, Error **errp)
299 {
300 MachineState *ms = MACHINE(hotplug_dev);
301 S390CPU *cpu = S390_CPU(dev);
302
303 g_assert(!ms->possible_cpus->cpus[cpu->env.core_id].cpu);
304 ms->possible_cpus->cpus[cpu->env.core_id].cpu = OBJECT(dev);
305
306 if (dev->hotplugged) {
307 raise_irq_cpu_hotplug();
308 }
309 }
310
311 static inline void s390_do_cpu_ipl(CPUState *cs, run_on_cpu_data arg)
312 {
313 S390CPU *cpu = S390_CPU(cs);
314
315 s390_ipl_prepare_cpu(cpu);
316 s390_cpu_set_state(S390_CPU_STATE_OPERATING, cpu);
317 }
318
319 static void s390_machine_unprotect(S390CcwMachineState *ms)
320 {
321 s390_pv_vm_disable();
322 ms->pv = false;
323 migrate_del_blocker(pv_mig_blocker);
324 error_free_or_abort(&pv_mig_blocker);
325 ram_block_discard_disable(false);
326 }
327
328 static int s390_machine_protect(S390CcwMachineState *ms)
329 {
330 Error *local_err = NULL;
331 int rc;
332
333 /*
334 * Discarding of memory in RAM blocks does not work as expected with
335 * protected VMs. Sharing and unsharing pages would be required. Disable
336 * it for now, until until we have a solution to make at least Linux
337 * guests either support it (e.g., virtio-balloon) or fail gracefully.
338 */
339 rc = ram_block_discard_disable(true);
340 if (rc) {
341 error_report("protected VMs: cannot disable RAM discard");
342 return rc;
343 }
344
345 error_setg(&pv_mig_blocker,
346 "protected VMs are currently not migrateable.");
347 rc = migrate_add_blocker(pv_mig_blocker, &local_err);
348 if (rc) {
349 ram_block_discard_disable(false);
350 error_report_err(local_err);
351 error_free_or_abort(&pv_mig_blocker);
352 return rc;
353 }
354
355 /* Create SE VM */
356 rc = s390_pv_vm_enable();
357 if (rc) {
358 ram_block_discard_disable(false);
359 migrate_del_blocker(pv_mig_blocker);
360 error_free_or_abort(&pv_mig_blocker);
361 return rc;
362 }
363
364 ms->pv = true;
365
366 /* Set SE header and unpack */
367 rc = s390_ipl_prepare_pv_header();
368 if (rc) {
369 goto out_err;
370 }
371
372 /* Decrypt image */
373 rc = s390_ipl_pv_unpack();
374 if (rc) {
375 goto out_err;
376 }
377
378 /* Verify integrity */
379 rc = s390_pv_verify();
380 if (rc) {
381 goto out_err;
382 }
383 return rc;
384
385 out_err:
386 s390_machine_unprotect(ms);
387 return rc;
388 }
389
390 static void s390_pv_prepare_reset(S390CcwMachineState *ms)
391 {
392 CPUState *cs;
393
394 if (!s390_is_pv()) {
395 return;
396 }
397 /* Unsharing requires all cpus to be stopped */
398 CPU_FOREACH(cs) {
399 s390_cpu_set_state(S390_CPU_STATE_STOPPED, S390_CPU(cs));
400 }
401 s390_pv_unshare();
402 s390_pv_prep_reset();
403 }
404
405 static void s390_machine_reset(MachineState *machine)
406 {
407 S390CcwMachineState *ms = S390_CCW_MACHINE(machine);
408 enum s390_reset reset_type;
409 CPUState *cs, *t;
410 S390CPU *cpu;
411
412 /* get the reset parameters, reset them once done */
413 s390_ipl_get_reset_request(&cs, &reset_type);
414
415 /* all CPUs are paused and synchronized at this point */
416 s390_cmma_reset();
417
418 cpu = S390_CPU(cs);
419
420 switch (reset_type) {
421 case S390_RESET_EXTERNAL:
422 case S390_RESET_REIPL:
423 if (s390_is_pv()) {
424 s390_machine_unprotect(ms);
425 }
426
427 qemu_devices_reset();
428 s390_crypto_reset();
429
430 /* configure and start the ipl CPU only */
431 run_on_cpu(cs, s390_do_cpu_ipl, RUN_ON_CPU_NULL);
432 break;
433 case S390_RESET_MODIFIED_CLEAR:
434 /*
435 * Susbsystem reset needs to be done before we unshare memory
436 * and lose access to VIRTIO structures in guest memory.
437 */
438 subsystem_reset();
439 s390_crypto_reset();
440 s390_pv_prepare_reset(ms);
441 CPU_FOREACH(t) {
442 run_on_cpu(t, s390_do_cpu_full_reset, RUN_ON_CPU_NULL);
443 }
444 run_on_cpu(cs, s390_do_cpu_load_normal, RUN_ON_CPU_NULL);
445 break;
446 case S390_RESET_LOAD_NORMAL:
447 /*
448 * Susbsystem reset needs to be done before we unshare memory
449 * and lose access to VIRTIO structures in guest memory.
450 */
451 subsystem_reset();
452 s390_pv_prepare_reset(ms);
453 CPU_FOREACH(t) {
454 if (t == cs) {
455 continue;
456 }
457 run_on_cpu(t, s390_do_cpu_reset, RUN_ON_CPU_NULL);
458 }
459 run_on_cpu(cs, s390_do_cpu_initial_reset, RUN_ON_CPU_NULL);
460 run_on_cpu(cs, s390_do_cpu_load_normal, RUN_ON_CPU_NULL);
461 break;
462 case S390_RESET_PV: /* Subcode 10 */
463 subsystem_reset();
464 s390_crypto_reset();
465
466 CPU_FOREACH(t) {
467 if (t == cs) {
468 continue;
469 }
470 run_on_cpu(t, s390_do_cpu_full_reset, RUN_ON_CPU_NULL);
471 }
472 run_on_cpu(cs, s390_do_cpu_reset, RUN_ON_CPU_NULL);
473
474 if (s390_machine_protect(ms)) {
475 s390_pv_inject_reset_error(cs);
476 /*
477 * Continue after the diag308 so the guest knows something
478 * went wrong.
479 */
480 s390_cpu_set_state(S390_CPU_STATE_OPERATING, cpu);
481 return;
482 }
483
484 run_on_cpu(cs, s390_do_cpu_load_normal, RUN_ON_CPU_NULL);
485 break;
486 default:
487 g_assert_not_reached();
488 }
489 s390_ipl_clear_reset_request();
490 }
491
492 static void s390_machine_device_plug(HotplugHandler *hotplug_dev,
493 DeviceState *dev, Error **errp)
494 {
495 if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
496 s390_cpu_plug(hotplug_dev, dev, errp);
497 }
498 }
499
500 static void s390_machine_device_unplug_request(HotplugHandler *hotplug_dev,
501 DeviceState *dev, Error **errp)
502 {
503 if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
504 error_setg(errp, "CPU hot unplug not supported on this machine");
505 return;
506 }
507 }
508
509 static CpuInstanceProperties s390_cpu_index_to_props(MachineState *ms,
510 unsigned cpu_index)
511 {
512 MachineClass *mc = MACHINE_GET_CLASS(ms);
513 const CPUArchIdList *possible_cpus = mc->possible_cpu_arch_ids(ms);
514
515 assert(cpu_index < possible_cpus->len);
516 return possible_cpus->cpus[cpu_index].props;
517 }
518
519 static const CPUArchIdList *s390_possible_cpu_arch_ids(MachineState *ms)
520 {
521 int i;
522 unsigned int max_cpus = ms->smp.max_cpus;
523
524 if (ms->possible_cpus) {
525 g_assert(ms->possible_cpus && ms->possible_cpus->len == max_cpus);
526 return ms->possible_cpus;
527 }
528
529 ms->possible_cpus = g_malloc0(sizeof(CPUArchIdList) +
530 sizeof(CPUArchId) * max_cpus);
531 ms->possible_cpus->len = max_cpus;
532 for (i = 0; i < ms->possible_cpus->len; i++) {
533 ms->possible_cpus->cpus[i].type = ms->cpu_type;
534 ms->possible_cpus->cpus[i].vcpus_count = 1;
535 ms->possible_cpus->cpus[i].arch_id = i;
536 ms->possible_cpus->cpus[i].props.has_core_id = true;
537 ms->possible_cpus->cpus[i].props.core_id = i;
538 }
539
540 return ms->possible_cpus;
541 }
542
543 static HotplugHandler *s390_get_hotplug_handler(MachineState *machine,
544 DeviceState *dev)
545 {
546 if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
547 return HOTPLUG_HANDLER(machine);
548 }
549 return NULL;
550 }
551
552 static void s390_nmi(NMIState *n, int cpu_index, Error **errp)
553 {
554 CPUState *cs = qemu_get_cpu(cpu_index);
555
556 s390_cpu_restart(S390_CPU(cs));
557 }
558
559 static ram_addr_t s390_fixup_ram_size(ram_addr_t sz)
560 {
561 /* same logic as in sclp.c */
562 int increment_size = 20;
563 ram_addr_t newsz;
564
565 while ((sz >> increment_size) > MAX_STORAGE_INCREMENTS) {
566 increment_size++;
567 }
568 newsz = sz >> increment_size << increment_size;
569
570 if (sz != newsz) {
571 qemu_printf("Ram size %" PRIu64 "MB was fixed up to %" PRIu64
572 "MB to match machine restrictions. Consider updating "
573 "the guest definition.\n", (uint64_t) (sz / MiB),
574 (uint64_t) (newsz / MiB));
575 }
576 return newsz;
577 }
578
579 static void ccw_machine_class_init(ObjectClass *oc, void *data)
580 {
581 MachineClass *mc = MACHINE_CLASS(oc);
582 NMIClass *nc = NMI_CLASS(oc);
583 HotplugHandlerClass *hc = HOTPLUG_HANDLER_CLASS(oc);
584 S390CcwMachineClass *s390mc = S390_CCW_MACHINE_CLASS(mc);
585
586 s390mc->ri_allowed = true;
587 s390mc->cpu_model_allowed = true;
588 s390mc->css_migration_enabled = true;
589 s390mc->hpage_1m_allowed = true;
590 mc->init = ccw_init;
591 mc->reset = s390_machine_reset;
592 mc->block_default_type = IF_VIRTIO;
593 mc->no_cdrom = 1;
594 mc->no_floppy = 1;
595 mc->no_parallel = 1;
596 mc->no_sdcard = 1;
597 mc->max_cpus = S390_MAX_CPUS;
598 mc->has_hotpluggable_cpus = true;
599 assert(!mc->get_hotplug_handler);
600 mc->get_hotplug_handler = s390_get_hotplug_handler;
601 mc->cpu_index_to_instance_props = s390_cpu_index_to_props;
602 mc->possible_cpu_arch_ids = s390_possible_cpu_arch_ids;
603 /* it is overridden with 'host' cpu *in kvm_arch_init* */
604 mc->default_cpu_type = S390_CPU_TYPE_NAME("qemu");
605 hc->plug = s390_machine_device_plug;
606 hc->unplug_request = s390_machine_device_unplug_request;
607 nc->nmi_monitor_handler = s390_nmi;
608 mc->default_ram_id = "s390.ram";
609 }
610
611 static inline bool machine_get_aes_key_wrap(Object *obj, Error **errp)
612 {
613 S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
614
615 return ms->aes_key_wrap;
616 }
617
618 static inline void machine_set_aes_key_wrap(Object *obj, bool value,
619 Error **errp)
620 {
621 S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
622
623 ms->aes_key_wrap = value;
624 }
625
626 static inline bool machine_get_dea_key_wrap(Object *obj, Error **errp)
627 {
628 S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
629
630 return ms->dea_key_wrap;
631 }
632
633 static inline void machine_set_dea_key_wrap(Object *obj, bool value,
634 Error **errp)
635 {
636 S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
637
638 ms->dea_key_wrap = value;
639 }
640
641 static S390CcwMachineClass *current_mc;
642
643 /*
644 * Get the class of the s390-ccw-virtio machine that is currently in use.
645 * Note: libvirt is using the "none" machine to probe for the features of the
646 * host CPU, so in case this is called with the "none" machine, the function
647 * returns the TYPE_S390_CCW_MACHINE base class. In this base class, all the
648 * various "*_allowed" variables are enabled, so that the *_allowed() wrappers
649 * below return the correct default value for the "none" machine.
650 *
651 * Attention! Do *not* add additional new wrappers for CPU features (e.g. like
652 * the ri_allowed() wrapper) via this mechanism anymore. CPU features should
653 * be handled via the CPU models, i.e. checking with cpu_model_allowed() during
654 * CPU initialization and s390_has_feat() later should be sufficient.
655 */
656 static S390CcwMachineClass *get_machine_class(void)
657 {
658 if (unlikely(!current_mc)) {
659 /*
660 * No s390 ccw machine was instantiated, we are likely to
661 * be called for the 'none' machine. The properties will
662 * have their after-initialization values.
663 */
664 current_mc = S390_CCW_MACHINE_CLASS(
665 object_class_by_name(TYPE_S390_CCW_MACHINE));
666 }
667 return current_mc;
668 }
669
670 bool ri_allowed(void)
671 {
672 return get_machine_class()->ri_allowed;
673 }
674
675 bool cpu_model_allowed(void)
676 {
677 return get_machine_class()->cpu_model_allowed;
678 }
679
680 bool hpage_1m_allowed(void)
681 {
682 return get_machine_class()->hpage_1m_allowed;
683 }
684
685 static char *machine_get_loadparm(Object *obj, Error **errp)
686 {
687 S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
688
689 /* make a NUL-terminated string */
690 return g_strndup((char *) ms->loadparm, sizeof(ms->loadparm));
691 }
692
693 static void machine_set_loadparm(Object *obj, const char *val, Error **errp)
694 {
695 S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
696 int i;
697
698 for (i = 0; i < sizeof(ms->loadparm) && val[i]; i++) {
699 uint8_t c = qemu_toupper(val[i]); /* mimic HMC */
700
701 if (('A' <= c && c <= 'Z') || ('0' <= c && c <= '9') || (c == '.') ||
702 (c == ' ')) {
703 ms->loadparm[i] = c;
704 } else {
705 error_setg(errp, "LOADPARM: invalid character '%c' (ASCII 0x%02x)",
706 c, c);
707 return;
708 }
709 }
710
711 for (; i < sizeof(ms->loadparm); i++) {
712 ms->loadparm[i] = ' '; /* pad right with spaces */
713 }
714 }
715 static inline void s390_machine_initfn(Object *obj)
716 {
717 object_property_add_bool(obj, "aes-key-wrap",
718 machine_get_aes_key_wrap,
719 machine_set_aes_key_wrap);
720 object_property_set_description(obj, "aes-key-wrap",
721 "enable/disable AES key wrapping using the CPACF wrapping key");
722 object_property_set_bool(obj, "aes-key-wrap", true, NULL);
723
724 object_property_add_bool(obj, "dea-key-wrap",
725 machine_get_dea_key_wrap,
726 machine_set_dea_key_wrap);
727 object_property_set_description(obj, "dea-key-wrap",
728 "enable/disable DEA key wrapping using the CPACF wrapping key");
729 object_property_set_bool(obj, "dea-key-wrap", true, NULL);
730 object_property_add_str(obj, "loadparm",
731 machine_get_loadparm, machine_set_loadparm);
732 object_property_set_description(obj, "loadparm",
733 "Up to 8 chars in set of [A-Za-z0-9. ] (lower case chars converted"
734 " to upper case) to pass to machine loader, boot manager,"
735 " and guest kernel");
736 }
737
738 static const TypeInfo ccw_machine_info = {
739 .name = TYPE_S390_CCW_MACHINE,
740 .parent = TYPE_MACHINE,
741 .abstract = true,
742 .instance_size = sizeof(S390CcwMachineState),
743 .instance_init = s390_machine_initfn,
744 .class_size = sizeof(S390CcwMachineClass),
745 .class_init = ccw_machine_class_init,
746 .interfaces = (InterfaceInfo[]) {
747 { TYPE_NMI },
748 { TYPE_HOTPLUG_HANDLER},
749 { }
750 },
751 };
752
753 bool css_migration_enabled(void)
754 {
755 return get_machine_class()->css_migration_enabled;
756 }
757
758 #define DEFINE_CCW_MACHINE(suffix, verstr, latest) \
759 static void ccw_machine_##suffix##_class_init(ObjectClass *oc, \
760 void *data) \
761 { \
762 MachineClass *mc = MACHINE_CLASS(oc); \
763 ccw_machine_##suffix##_class_options(mc); \
764 mc->desc = "VirtIO-ccw based S390 machine v" verstr; \
765 if (latest) { \
766 mc->alias = "s390-ccw-virtio"; \
767 mc->is_default = true; \
768 } \
769 } \
770 static void ccw_machine_##suffix##_instance_init(Object *obj) \
771 { \
772 MachineState *machine = MACHINE(obj); \
773 current_mc = S390_CCW_MACHINE_CLASS(MACHINE_GET_CLASS(machine)); \
774 ccw_machine_##suffix##_instance_options(machine); \
775 } \
776 static const TypeInfo ccw_machine_##suffix##_info = { \
777 .name = MACHINE_TYPE_NAME("s390-ccw-virtio-" verstr), \
778 .parent = TYPE_S390_CCW_MACHINE, \
779 .class_init = ccw_machine_##suffix##_class_init, \
780 .instance_init = ccw_machine_##suffix##_instance_init, \
781 }; \
782 static void ccw_machine_register_##suffix(void) \
783 { \
784 type_register_static(&ccw_machine_##suffix##_info); \
785 } \
786 type_init(ccw_machine_register_##suffix)
787
788 static void ccw_machine_5_2_instance_options(MachineState *machine)
789 {
790 }
791
792 static void ccw_machine_5_2_class_options(MachineClass *mc)
793 {
794 }
795 DEFINE_CCW_MACHINE(5_2, "5.2", true);
796
797 static void ccw_machine_5_1_instance_options(MachineState *machine)
798 {
799 ccw_machine_5_2_instance_options(machine);
800 }
801
802 static void ccw_machine_5_1_class_options(MachineClass *mc)
803 {
804 ccw_machine_5_2_class_options(mc);
805 compat_props_add(mc->compat_props, hw_compat_5_1, hw_compat_5_1_len);
806 }
807 DEFINE_CCW_MACHINE(5_1, "5.1", false);
808
809 static void ccw_machine_5_0_instance_options(MachineState *machine)
810 {
811 ccw_machine_5_1_instance_options(machine);
812 }
813
814 static void ccw_machine_5_0_class_options(MachineClass *mc)
815 {
816 ccw_machine_5_1_class_options(mc);
817 compat_props_add(mc->compat_props, hw_compat_5_0, hw_compat_5_0_len);
818 }
819 DEFINE_CCW_MACHINE(5_0, "5.0", false);
820
821 static void ccw_machine_4_2_instance_options(MachineState *machine)
822 {
823 ccw_machine_5_0_instance_options(machine);
824 }
825
826 static void ccw_machine_4_2_class_options(MachineClass *mc)
827 {
828 ccw_machine_5_0_class_options(mc);
829 mc->fixup_ram_size = s390_fixup_ram_size;
830 compat_props_add(mc->compat_props, hw_compat_4_2, hw_compat_4_2_len);
831 }
832 DEFINE_CCW_MACHINE(4_2, "4.2", false);
833
834 static void ccw_machine_4_1_instance_options(MachineState *machine)
835 {
836 static const S390FeatInit qemu_cpu_feat = { S390_FEAT_LIST_QEMU_V4_1 };
837 ccw_machine_4_2_instance_options(machine);
838 s390_set_qemu_cpu_model(0x2964, 13, 2, qemu_cpu_feat);
839 }
840
841 static void ccw_machine_4_1_class_options(MachineClass *mc)
842 {
843 ccw_machine_4_2_class_options(mc);
844 compat_props_add(mc->compat_props, hw_compat_4_1, hw_compat_4_1_len);
845 }
846 DEFINE_CCW_MACHINE(4_1, "4.1", false);
847
848 static void ccw_machine_4_0_instance_options(MachineState *machine)
849 {
850 static const S390FeatInit qemu_cpu_feat = { S390_FEAT_LIST_QEMU_V4_0 };
851 ccw_machine_4_1_instance_options(machine);
852 s390_set_qemu_cpu_model(0x2827, 12, 2, qemu_cpu_feat);
853 }
854
855 static void ccw_machine_4_0_class_options(MachineClass *mc)
856 {
857 ccw_machine_4_1_class_options(mc);
858 compat_props_add(mc->compat_props, hw_compat_4_0, hw_compat_4_0_len);
859 }
860 DEFINE_CCW_MACHINE(4_0, "4.0", false);
861
862 static void ccw_machine_3_1_instance_options(MachineState *machine)
863 {
864 static const S390FeatInit qemu_cpu_feat = { S390_FEAT_LIST_QEMU_V3_1 };
865 ccw_machine_4_0_instance_options(machine);
866 s390_cpudef_featoff_greater(14, 1, S390_FEAT_MULTIPLE_EPOCH);
867 s390_cpudef_group_featoff_greater(14, 1, S390_FEAT_GROUP_MULTIPLE_EPOCH_PTFF);
868 s390_set_qemu_cpu_model(0x2827, 12, 2, qemu_cpu_feat);
869 }
870
871 static void ccw_machine_3_1_class_options(MachineClass *mc)
872 {
873 ccw_machine_4_0_class_options(mc);
874 compat_props_add(mc->compat_props, hw_compat_3_1, hw_compat_3_1_len);
875 }
876 DEFINE_CCW_MACHINE(3_1, "3.1", false);
877
878 static void ccw_machine_3_0_instance_options(MachineState *machine)
879 {
880 ccw_machine_3_1_instance_options(machine);
881 }
882
883 static void ccw_machine_3_0_class_options(MachineClass *mc)
884 {
885 S390CcwMachineClass *s390mc = S390_CCW_MACHINE_CLASS(mc);
886
887 s390mc->hpage_1m_allowed = false;
888 ccw_machine_3_1_class_options(mc);
889 compat_props_add(mc->compat_props, hw_compat_3_0, hw_compat_3_0_len);
890 }
891 DEFINE_CCW_MACHINE(3_0, "3.0", false);
892
893 static void ccw_machine_2_12_instance_options(MachineState *machine)
894 {
895 ccw_machine_3_0_instance_options(machine);
896 s390_cpudef_featoff_greater(11, 1, S390_FEAT_PPA15);
897 s390_cpudef_featoff_greater(11, 1, S390_FEAT_BPB);
898 }
899
900 static void ccw_machine_2_12_class_options(MachineClass *mc)
901 {
902 ccw_machine_3_0_class_options(mc);
903 compat_props_add(mc->compat_props, hw_compat_2_12, hw_compat_2_12_len);
904 }
905 DEFINE_CCW_MACHINE(2_12, "2.12", false);
906
907 static void ccw_machine_2_11_instance_options(MachineState *machine)
908 {
909 static const S390FeatInit qemu_cpu_feat = { S390_FEAT_LIST_QEMU_V2_11 };
910 ccw_machine_2_12_instance_options(machine);
911
912 /* before 2.12 we emulated the very first z900 */
913 s390_set_qemu_cpu_model(0x2064, 7, 1, qemu_cpu_feat);
914 }
915
916 static void ccw_machine_2_11_class_options(MachineClass *mc)
917 {
918 static GlobalProperty compat[] = {
919 { TYPE_SCLP_EVENT_FACILITY, "allow_all_mask_sizes", "off", },
920 };
921
922 ccw_machine_2_12_class_options(mc);
923 compat_props_add(mc->compat_props, hw_compat_2_11, hw_compat_2_11_len);
924 compat_props_add(mc->compat_props, compat, G_N_ELEMENTS(compat));
925 }
926 DEFINE_CCW_MACHINE(2_11, "2.11", false);
927
928 static void ccw_machine_2_10_instance_options(MachineState *machine)
929 {
930 ccw_machine_2_11_instance_options(machine);
931 }
932
933 static void ccw_machine_2_10_class_options(MachineClass *mc)
934 {
935 ccw_machine_2_11_class_options(mc);
936 compat_props_add(mc->compat_props, hw_compat_2_10, hw_compat_2_10_len);
937 }
938 DEFINE_CCW_MACHINE(2_10, "2.10", false);
939
940 static void ccw_machine_2_9_instance_options(MachineState *machine)
941 {
942 ccw_machine_2_10_instance_options(machine);
943 s390_cpudef_featoff_greater(12, 1, S390_FEAT_ESOP);
944 s390_cpudef_featoff_greater(12, 1, S390_FEAT_SIDE_EFFECT_ACCESS_ESOP2);
945 s390_cpudef_featoff_greater(12, 1, S390_FEAT_ZPCI);
946 s390_cpudef_featoff_greater(12, 1, S390_FEAT_ADAPTER_INT_SUPPRESSION);
947 s390_cpudef_featoff_greater(12, 1, S390_FEAT_ADAPTER_EVENT_NOTIFICATION);
948 }
949
950 static void ccw_machine_2_9_class_options(MachineClass *mc)
951 {
952 S390CcwMachineClass *s390mc = S390_CCW_MACHINE_CLASS(mc);
953 static GlobalProperty compat[] = {
954 { TYPE_S390_STATTRIB, "migration-enabled", "off", },
955 };
956
957 ccw_machine_2_10_class_options(mc);
958 compat_props_add(mc->compat_props, hw_compat_2_9, hw_compat_2_9_len);
959 compat_props_add(mc->compat_props, compat, G_N_ELEMENTS(compat));
960 s390mc->css_migration_enabled = false;
961 }
962 DEFINE_CCW_MACHINE(2_9, "2.9", false);
963
964 static void ccw_machine_2_8_instance_options(MachineState *machine)
965 {
966 ccw_machine_2_9_instance_options(machine);
967 }
968
969 static void ccw_machine_2_8_class_options(MachineClass *mc)
970 {
971 static GlobalProperty compat[] = {
972 { TYPE_S390_FLIC_COMMON, "adapter_routes_max_batch", "64", },
973 };
974
975 ccw_machine_2_9_class_options(mc);
976 compat_props_add(mc->compat_props, hw_compat_2_8, hw_compat_2_8_len);
977 compat_props_add(mc->compat_props, compat, G_N_ELEMENTS(compat));
978 }
979 DEFINE_CCW_MACHINE(2_8, "2.8", false);
980
981 static void ccw_machine_2_7_instance_options(MachineState *machine)
982 {
983 ccw_machine_2_8_instance_options(machine);
984 }
985
986 static void ccw_machine_2_7_class_options(MachineClass *mc)
987 {
988 S390CcwMachineClass *s390mc = S390_CCW_MACHINE_CLASS(mc);
989
990 s390mc->cpu_model_allowed = false;
991 ccw_machine_2_8_class_options(mc);
992 compat_props_add(mc->compat_props, hw_compat_2_7, hw_compat_2_7_len);
993 }
994 DEFINE_CCW_MACHINE(2_7, "2.7", false);
995
996 static void ccw_machine_2_6_instance_options(MachineState *machine)
997 {
998 ccw_machine_2_7_instance_options(machine);
999 }
1000
1001 static void ccw_machine_2_6_class_options(MachineClass *mc)
1002 {
1003 S390CcwMachineClass *s390mc = S390_CCW_MACHINE_CLASS(mc);
1004 static GlobalProperty compat[] = {
1005 { TYPE_S390_IPL, "iplbext_migration", "off", },
1006 { TYPE_VIRTUAL_CSS_BRIDGE, "css_dev_path", "off", },
1007 };
1008
1009 s390mc->ri_allowed = false;
1010 ccw_machine_2_7_class_options(mc);
1011 compat_props_add(mc->compat_props, hw_compat_2_6, hw_compat_2_6_len);
1012 compat_props_add(mc->compat_props, compat, G_N_ELEMENTS(compat));
1013 }
1014 DEFINE_CCW_MACHINE(2_6, "2.6", false);
1015
1016 static void ccw_machine_2_5_instance_options(MachineState *machine)
1017 {
1018 ccw_machine_2_6_instance_options(machine);
1019 }
1020
1021 static void ccw_machine_2_5_class_options(MachineClass *mc)
1022 {
1023 ccw_machine_2_6_class_options(mc);
1024 compat_props_add(mc->compat_props, hw_compat_2_5, hw_compat_2_5_len);
1025 }
1026 DEFINE_CCW_MACHINE(2_5, "2.5", false);
1027
1028 static void ccw_machine_2_4_instance_options(MachineState *machine)
1029 {
1030 ccw_machine_2_5_instance_options(machine);
1031 }
1032
1033 static void ccw_machine_2_4_class_options(MachineClass *mc)
1034 {
1035 static GlobalProperty compat[] = {
1036 { TYPE_S390_SKEYS, "migration-enabled", "off", },
1037 { "virtio-blk-ccw", "max_revision", "0", },
1038 { "virtio-balloon-ccw", "max_revision", "0", },
1039 { "virtio-serial-ccw", "max_revision", "0", },
1040 { "virtio-9p-ccw", "max_revision", "0", },
1041 { "virtio-rng-ccw", "max_revision", "0", },
1042 { "virtio-net-ccw", "max_revision", "0", },
1043 { "virtio-scsi-ccw", "max_revision", "0", },
1044 { "vhost-scsi-ccw", "max_revision", "0", },
1045 };
1046
1047 ccw_machine_2_5_class_options(mc);
1048 compat_props_add(mc->compat_props, hw_compat_2_4, hw_compat_2_4_len);
1049 compat_props_add(mc->compat_props, compat, G_N_ELEMENTS(compat));
1050 }
1051 DEFINE_CCW_MACHINE(2_4, "2.4", false);
1052
1053 static void ccw_machine_register_types(void)
1054 {
1055 type_register_static(&ccw_machine_info);
1056 }
1057
1058 type_init(ccw_machine_register_types)