xref: /openbmc/qemu/hw/s390x/s390-virtio-ccw.c (revision 2b108085)
1 /*
2  * virtio ccw machine
3  *
4  * Copyright 2012 IBM Corp.
5  * Copyright (c) 2009 Alexander Graf <agraf@suse.de>
6  * Author(s): Cornelia Huck <cornelia.huck@de.ibm.com>
7  *
8  * This work is licensed under the terms of the GNU GPL, version 2 or (at
9  * your option) any later version. See the COPYING file in the top-level
10  * directory.
11  */
12 
13 #include "qemu/osdep.h"
14 #include "qapi/error.h"
15 #include "cpu.h"
16 #include "hw/boards.h"
17 #include "exec/address-spaces.h"
18 #include "hw/s390x/s390-virtio-hcall.h"
19 #include "hw/s390x/sclp.h"
20 #include "hw/s390x/s390_flic.h"
21 #include "hw/s390x/ioinst.h"
22 #include "hw/s390x/css.h"
23 #include "virtio-ccw.h"
24 #include "qemu/config-file.h"
25 #include "qemu/error-report.h"
26 #include "qemu/option.h"
27 #include "s390-pci-bus.h"
28 #include "hw/s390x/storage-keys.h"
29 #include "hw/s390x/storage-attributes.h"
30 #include "hw/s390x/event-facility.h"
31 #include "hw/compat.h"
32 #include "ipl.h"
33 #include "hw/s390x/s390-virtio-ccw.h"
34 #include "hw/s390x/css-bridge.h"
35 #include "migration/register.h"
36 #include "cpu_models.h"
37 #include "hw/nmi.h"
38 
39 S390CPU *s390_cpu_addr2state(uint16_t cpu_addr)
40 {
41     static MachineState *ms;
42 
43     if (!ms) {
44         ms = MACHINE(qdev_get_machine());
45         g_assert(ms->possible_cpus);
46     }
47 
48     /* CPU address corresponds to the core_id and the index */
49     if (cpu_addr >= ms->possible_cpus->len) {
50         return NULL;
51     }
52     return S390_CPU(ms->possible_cpus->cpus[cpu_addr].cpu);
53 }
54 
55 static S390CPU *s390x_new_cpu(const char *typename, uint32_t core_id,
56                               Error **errp)
57 {
58     S390CPU *cpu = S390_CPU(object_new(typename));
59     Error *err = NULL;
60 
61     object_property_set_int(OBJECT(cpu), core_id, "core-id", &err);
62     if (err != NULL) {
63         goto out;
64     }
65     object_property_set_bool(OBJECT(cpu), true, "realized", &err);
66 
67 out:
68     object_unref(OBJECT(cpu));
69     if (err) {
70         error_propagate(errp, err);
71         cpu = NULL;
72     }
73     return cpu;
74 }
75 
76 static void s390_init_cpus(MachineState *machine)
77 {
78     MachineClass *mc = MACHINE_GET_CLASS(machine);
79     int i;
80 
81     /* initialize possible_cpus */
82     mc->possible_cpu_arch_ids(machine);
83 
84     for (i = 0; i < smp_cpus; i++) {
85         s390x_new_cpu(machine->cpu_type, i, &error_fatal);
86     }
87 }
88 
89 static const char *const reset_dev_types[] = {
90     TYPE_VIRTUAL_CSS_BRIDGE,
91     "s390-sclp-event-facility",
92     "s390-flic",
93     "diag288",
94 };
95 
96 void subsystem_reset(void)
97 {
98     DeviceState *dev;
99     int i;
100 
101     for (i = 0; i < ARRAY_SIZE(reset_dev_types); i++) {
102         dev = DEVICE(object_resolve_path_type("", reset_dev_types[i], NULL));
103         if (dev) {
104             qdev_reset_all(dev);
105         }
106     }
107 }
108 
109 static int virtio_ccw_hcall_notify(const uint64_t *args)
110 {
111     uint64_t subch_id = args[0];
112     uint64_t queue = args[1];
113     SubchDev *sch;
114     int cssid, ssid, schid, m;
115 
116     if (ioinst_disassemble_sch_ident(subch_id, &m, &cssid, &ssid, &schid)) {
117         return -EINVAL;
118     }
119     sch = css_find_subch(m, cssid, ssid, schid);
120     if (!sch || !css_subch_visible(sch)) {
121         return -EINVAL;
122     }
123     if (queue >= VIRTIO_QUEUE_MAX) {
124         return -EINVAL;
125     }
126     virtio_queue_notify(virtio_ccw_get_vdev(sch), queue);
127     return 0;
128 
129 }
130 
131 static int virtio_ccw_hcall_early_printk(const uint64_t *args)
132 {
133     uint64_t mem = args[0];
134 
135     if (mem < ram_size) {
136         /* Early printk */
137         return 0;
138     }
139     return -EINVAL;
140 }
141 
142 static void virtio_ccw_register_hcalls(void)
143 {
144     s390_register_virtio_hypercall(KVM_S390_VIRTIO_CCW_NOTIFY,
145                                    virtio_ccw_hcall_notify);
146     /* Tolerate early printk. */
147     s390_register_virtio_hypercall(KVM_S390_VIRTIO_NOTIFY,
148                                    virtio_ccw_hcall_early_printk);
149 }
150 
151 /*
152  * KVM does only support memory slots up to KVM_MEM_MAX_NR_PAGES pages
153  * as the dirty bitmap must be managed by bitops that take an int as
154  * position indicator. If we have a guest beyond that we will split off
155  * new subregions. The split must happen on a segment boundary (1MB).
156  */
157 #define KVM_MEM_MAX_NR_PAGES ((1ULL << 31) - 1)
158 #define SEG_MSK (~0xfffffULL)
159 #define KVM_SLOT_MAX_BYTES ((KVM_MEM_MAX_NR_PAGES * TARGET_PAGE_SIZE) & SEG_MSK)
160 static void s390_memory_init(ram_addr_t mem_size)
161 {
162     MemoryRegion *sysmem = get_system_memory();
163     ram_addr_t chunk, offset = 0;
164     unsigned int number = 0;
165     gchar *name;
166 
167     /* allocate RAM for core */
168     name = g_strdup_printf("s390.ram");
169     while (mem_size) {
170         MemoryRegion *ram = g_new(MemoryRegion, 1);
171         uint64_t size = mem_size;
172 
173         /* KVM does not allow memslots >= 8 TB */
174         chunk = MIN(size, KVM_SLOT_MAX_BYTES);
175         memory_region_allocate_system_memory(ram, NULL, name, chunk);
176         memory_region_add_subregion(sysmem, offset, ram);
177         mem_size -= chunk;
178         offset += chunk;
179         g_free(name);
180         name = g_strdup_printf("s390.ram.%u", ++number);
181     }
182     g_free(name);
183 
184     /* Initialize storage key device */
185     s390_skeys_init();
186     /* Initialize storage attributes device */
187     s390_stattrib_init();
188 }
189 
190 #define S390_TOD_CLOCK_VALUE_MISSING    0x00
191 #define S390_TOD_CLOCK_VALUE_PRESENT    0x01
192 
193 static void gtod_save(QEMUFile *f, void *opaque)
194 {
195     uint64_t tod_low;
196     uint8_t tod_high;
197     int r;
198 
199     r = s390_get_clock(&tod_high, &tod_low);
200     if (r) {
201         warn_report("Unable to get guest clock for migration: %s",
202                     strerror(-r));
203         error_printf("Guest clock will not be migrated "
204                      "which could cause the guest to hang.");
205         qemu_put_byte(f, S390_TOD_CLOCK_VALUE_MISSING);
206         return;
207     }
208 
209     qemu_put_byte(f, S390_TOD_CLOCK_VALUE_PRESENT);
210     qemu_put_byte(f, tod_high);
211     qemu_put_be64(f, tod_low);
212 }
213 
214 static int gtod_load(QEMUFile *f, void *opaque, int version_id)
215 {
216     uint64_t tod_low;
217     uint8_t tod_high;
218     int r;
219 
220     if (qemu_get_byte(f) == S390_TOD_CLOCK_VALUE_MISSING) {
221         warn_report("Guest clock was not migrated. This could "
222                     "cause the guest to hang.");
223         return 0;
224     }
225 
226     tod_high = qemu_get_byte(f);
227     tod_low = qemu_get_be64(f);
228 
229     r = s390_set_clock(&tod_high, &tod_low);
230     if (r) {
231         error_report("Unable to set KVM guest TOD clock: %s", strerror(-r));
232     }
233 
234     return r;
235 }
236 
237 static SaveVMHandlers savevm_gtod = {
238     .save_state = gtod_save,
239     .load_state = gtod_load,
240 };
241 
242 static void s390_init_ipl_dev(const char *kernel_filename,
243                               const char *kernel_cmdline,
244                               const char *initrd_filename, const char *firmware,
245                               const char *netboot_fw, bool enforce_bios)
246 {
247     Object *new = object_new(TYPE_S390_IPL);
248     DeviceState *dev = DEVICE(new);
249     char *netboot_fw_prop;
250 
251     if (kernel_filename) {
252         qdev_prop_set_string(dev, "kernel", kernel_filename);
253     }
254     if (initrd_filename) {
255         qdev_prop_set_string(dev, "initrd", initrd_filename);
256     }
257     qdev_prop_set_string(dev, "cmdline", kernel_cmdline);
258     qdev_prop_set_string(dev, "firmware", firmware);
259     qdev_prop_set_bit(dev, "enforce_bios", enforce_bios);
260     netboot_fw_prop = object_property_get_str(new, "netboot_fw", &error_abort);
261     if (!strlen(netboot_fw_prop)) {
262         qdev_prop_set_string(dev, "netboot_fw", netboot_fw);
263     }
264     g_free(netboot_fw_prop);
265     object_property_add_child(qdev_get_machine(), TYPE_S390_IPL,
266                               new, NULL);
267     object_unref(new);
268     qdev_init_nofail(dev);
269 }
270 
271 static void s390_create_virtio_net(BusState *bus, const char *name)
272 {
273     int i;
274 
275     for (i = 0; i < nb_nics; i++) {
276         NICInfo *nd = &nd_table[i];
277         DeviceState *dev;
278 
279         if (!nd->model) {
280             nd->model = g_strdup("virtio");
281         }
282 
283         qemu_check_nic_model(nd, "virtio");
284 
285         dev = qdev_create(bus, name);
286         qdev_set_nic_properties(dev, nd);
287         qdev_init_nofail(dev);
288     }
289 }
290 
291 static void ccw_init(MachineState *machine)
292 {
293     int ret;
294     VirtualCssBus *css_bus;
295     DeviceState *dev;
296 
297     s390_sclp_init();
298     s390_memory_init(machine->ram_size);
299 
300     /* init CPUs (incl. CPU model) early so s390_has_feature() works */
301     s390_init_cpus(machine);
302 
303     s390_flic_init();
304 
305     /* init the SIGP facility */
306     s390_init_sigp();
307 
308     /* get a BUS */
309     css_bus = virtual_css_bus_init();
310     s390_init_ipl_dev(machine->kernel_filename, machine->kernel_cmdline,
311                       machine->initrd_filename, "s390-ccw.img",
312                       "s390-netboot.img", true);
313 
314     /*
315      * We cannot easily make the pci host bridge conditional as older QEMUs
316      * always created it. Doing so would break migration across QEMU versions.
317      */
318     dev = qdev_create(NULL, TYPE_S390_PCI_HOST_BRIDGE);
319     object_property_add_child(qdev_get_machine(), TYPE_S390_PCI_HOST_BRIDGE,
320                               OBJECT(dev), NULL);
321     qdev_init_nofail(dev);
322 
323     /* register hypercalls */
324     virtio_ccw_register_hcalls();
325 
326     s390_enable_css_support(s390_cpu_addr2state(0));
327     /*
328      * Non mcss-e enabled guests only see the devices from the default
329      * css, which is determined by the value of the squash_mcss property.
330      */
331     if (css_bus->squash_mcss) {
332         ret = css_create_css_image(0, true);
333     } else {
334         ret = css_create_css_image(VIRTUAL_CSSID, true);
335     }
336     if (qemu_opt_get(qemu_get_machine_opts(), "s390-squash-mcss")) {
337         warn_report("The machine property 's390-squash-mcss' is deprecated"
338                     " (obsoleted by lifting the cssid restrictions).");
339     }
340 
341     assert(ret == 0);
342     if (css_migration_enabled()) {
343         css_register_vmstate();
344     }
345 
346     /* Create VirtIO network adapters */
347     s390_create_virtio_net(BUS(css_bus), "virtio-net-ccw");
348 
349     /* Register savevm handler for guest TOD clock */
350     register_savevm_live(NULL, "todclock", 0, 1, &savevm_gtod, NULL);
351 }
352 
353 static void s390_cpu_plug(HotplugHandler *hotplug_dev,
354                         DeviceState *dev, Error **errp)
355 {
356     MachineState *ms = MACHINE(hotplug_dev);
357     S390CPU *cpu = S390_CPU(dev);
358 
359     g_assert(!ms->possible_cpus->cpus[cpu->env.core_id].cpu);
360     ms->possible_cpus->cpus[cpu->env.core_id].cpu = OBJECT(dev);
361 
362     if (dev->hotplugged) {
363         raise_irq_cpu_hotplug();
364     }
365 }
366 
367 static void s390_machine_reset(void)
368 {
369     S390CPU *ipl_cpu = S390_CPU(qemu_get_cpu(0));
370 
371     s390_cmma_reset();
372     qemu_devices_reset();
373     s390_crypto_reset();
374 
375     /* all cpus are stopped - configure and start the ipl cpu only */
376     s390_ipl_prepare_cpu(ipl_cpu);
377     s390_cpu_set_state(S390_CPU_STATE_OPERATING, ipl_cpu);
378 }
379 
380 static void s390_machine_device_plug(HotplugHandler *hotplug_dev,
381                                      DeviceState *dev, Error **errp)
382 {
383     if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
384         s390_cpu_plug(hotplug_dev, dev, errp);
385     }
386 }
387 
388 static void s390_machine_device_unplug_request(HotplugHandler *hotplug_dev,
389                                                DeviceState *dev, Error **errp)
390 {
391     if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
392         error_setg(errp, "CPU hot unplug not supported on this machine");
393         return;
394     }
395 }
396 
397 static CpuInstanceProperties s390_cpu_index_to_props(MachineState *ms,
398                                                      unsigned cpu_index)
399 {
400     MachineClass *mc = MACHINE_GET_CLASS(ms);
401     const CPUArchIdList *possible_cpus = mc->possible_cpu_arch_ids(ms);
402 
403     assert(cpu_index < possible_cpus->len);
404     return possible_cpus->cpus[cpu_index].props;
405 }
406 
407 static const CPUArchIdList *s390_possible_cpu_arch_ids(MachineState *ms)
408 {
409     int i;
410 
411     if (ms->possible_cpus) {
412         g_assert(ms->possible_cpus && ms->possible_cpus->len == max_cpus);
413         return ms->possible_cpus;
414     }
415 
416     ms->possible_cpus = g_malloc0(sizeof(CPUArchIdList) +
417                                   sizeof(CPUArchId) * max_cpus);
418     ms->possible_cpus->len = max_cpus;
419     for (i = 0; i < ms->possible_cpus->len; i++) {
420         ms->possible_cpus->cpus[i].type = ms->cpu_type;
421         ms->possible_cpus->cpus[i].vcpus_count = 1;
422         ms->possible_cpus->cpus[i].arch_id = i;
423         ms->possible_cpus->cpus[i].props.has_core_id = true;
424         ms->possible_cpus->cpus[i].props.core_id = i;
425     }
426 
427     return ms->possible_cpus;
428 }
429 
430 static HotplugHandler *s390_get_hotplug_handler(MachineState *machine,
431                                                 DeviceState *dev)
432 {
433     if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
434         return HOTPLUG_HANDLER(machine);
435     }
436     return NULL;
437 }
438 
439 static void s390_hot_add_cpu(const int64_t id, Error **errp)
440 {
441     MachineState *machine = MACHINE(qdev_get_machine());
442     ObjectClass *oc;
443 
444     g_assert(machine->possible_cpus->cpus[0].cpu);
445     oc = OBJECT_CLASS(CPU_GET_CLASS(machine->possible_cpus->cpus[0].cpu));
446 
447     s390x_new_cpu(object_class_get_name(oc), id, errp);
448 }
449 
450 static void s390_nmi(NMIState *n, int cpu_index, Error **errp)
451 {
452     CPUState *cs = qemu_get_cpu(cpu_index);
453 
454     s390_cpu_restart(S390_CPU(cs));
455 }
456 
457 static void ccw_machine_class_init(ObjectClass *oc, void *data)
458 {
459     MachineClass *mc = MACHINE_CLASS(oc);
460     NMIClass *nc = NMI_CLASS(oc);
461     HotplugHandlerClass *hc = HOTPLUG_HANDLER_CLASS(oc);
462     S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
463 
464     s390mc->ri_allowed = true;
465     s390mc->cpu_model_allowed = true;
466     s390mc->css_migration_enabled = true;
467     mc->init = ccw_init;
468     mc->reset = s390_machine_reset;
469     mc->hot_add_cpu = s390_hot_add_cpu;
470     mc->block_default_type = IF_VIRTIO;
471     mc->no_cdrom = 1;
472     mc->no_floppy = 1;
473     mc->no_serial = 1;
474     mc->no_parallel = 1;
475     mc->no_sdcard = 1;
476     mc->use_sclp = 1;
477     mc->max_cpus = S390_MAX_CPUS;
478     mc->has_hotpluggable_cpus = true;
479     mc->get_hotplug_handler = s390_get_hotplug_handler;
480     mc->cpu_index_to_instance_props = s390_cpu_index_to_props;
481     mc->possible_cpu_arch_ids = s390_possible_cpu_arch_ids;
482     /* it is overridden with 'host' cpu *in kvm_arch_init* */
483     mc->default_cpu_type = S390_CPU_TYPE_NAME("qemu");
484     hc->plug = s390_machine_device_plug;
485     hc->unplug_request = s390_machine_device_unplug_request;
486     nc->nmi_monitor_handler = s390_nmi;
487 }
488 
489 static inline bool machine_get_aes_key_wrap(Object *obj, Error **errp)
490 {
491     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
492 
493     return ms->aes_key_wrap;
494 }
495 
496 static inline void machine_set_aes_key_wrap(Object *obj, bool value,
497                                             Error **errp)
498 {
499     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
500 
501     ms->aes_key_wrap = value;
502 }
503 
504 static inline bool machine_get_dea_key_wrap(Object *obj, Error **errp)
505 {
506     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
507 
508     return ms->dea_key_wrap;
509 }
510 
511 static inline void machine_set_dea_key_wrap(Object *obj, bool value,
512                                             Error **errp)
513 {
514     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
515 
516     ms->dea_key_wrap = value;
517 }
518 
519 static S390CcwMachineClass *current_mc;
520 
521 static S390CcwMachineClass *get_machine_class(void)
522 {
523     if (unlikely(!current_mc)) {
524         /*
525         * No s390 ccw machine was instantiated, we are likely to
526         * be called for the 'none' machine. The properties will
527         * have their after-initialization values.
528         */
529         current_mc = S390_MACHINE_CLASS(
530                      object_class_by_name(TYPE_S390_CCW_MACHINE));
531     }
532     return current_mc;
533 }
534 
535 bool ri_allowed(void)
536 {
537     /* for "none" machine this results in true */
538     return get_machine_class()->ri_allowed;
539 }
540 
541 bool cpu_model_allowed(void)
542 {
543     /* for "none" machine this results in true */
544     return get_machine_class()->cpu_model_allowed;
545 }
546 
547 static char *machine_get_loadparm(Object *obj, Error **errp)
548 {
549     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
550 
551     return g_memdup(ms->loadparm, sizeof(ms->loadparm));
552 }
553 
554 static void machine_set_loadparm(Object *obj, const char *val, Error **errp)
555 {
556     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
557     int i;
558 
559     for (i = 0; i < sizeof(ms->loadparm) && val[i]; i++) {
560         uint8_t c = qemu_toupper(val[i]); /* mimic HMC */
561 
562         if (('A' <= c && c <= 'Z') || ('0' <= c && c <= '9') || (c == '.') ||
563             (c == ' ')) {
564             ms->loadparm[i] = c;
565         } else {
566             error_setg(errp, "LOADPARM: invalid character '%c' (ASCII 0x%02x)",
567                        c, c);
568             return;
569         }
570     }
571 
572     for (; i < sizeof(ms->loadparm); i++) {
573         ms->loadparm[i] = ' '; /* pad right with spaces */
574     }
575 }
576 static inline bool machine_get_squash_mcss(Object *obj, Error **errp)
577 {
578     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
579 
580     return ms->s390_squash_mcss;
581 }
582 
583 static inline void machine_set_squash_mcss(Object *obj, bool value,
584                                            Error **errp)
585 {
586     S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
587 
588     ms->s390_squash_mcss = value;
589 }
590 
591 static inline void s390_machine_initfn(Object *obj)
592 {
593     object_property_add_bool(obj, "aes-key-wrap",
594                              machine_get_aes_key_wrap,
595                              machine_set_aes_key_wrap, NULL);
596     object_property_set_description(obj, "aes-key-wrap",
597             "enable/disable AES key wrapping using the CPACF wrapping key",
598             NULL);
599     object_property_set_bool(obj, true, "aes-key-wrap", NULL);
600 
601     object_property_add_bool(obj, "dea-key-wrap",
602                              machine_get_dea_key_wrap,
603                              machine_set_dea_key_wrap, NULL);
604     object_property_set_description(obj, "dea-key-wrap",
605             "enable/disable DEA key wrapping using the CPACF wrapping key",
606             NULL);
607     object_property_set_bool(obj, true, "dea-key-wrap", NULL);
608     object_property_add_str(obj, "loadparm",
609             machine_get_loadparm, machine_set_loadparm, NULL);
610     object_property_set_description(obj, "loadparm",
611             "Up to 8 chars in set of [A-Za-z0-9. ] (lower case chars converted"
612             " to upper case) to pass to machine loader, boot manager,"
613             " and guest kernel",
614             NULL);
615     object_property_add_bool(obj, "s390-squash-mcss",
616                              machine_get_squash_mcss,
617                              machine_set_squash_mcss, NULL);
618     object_property_set_description(obj, "s390-squash-mcss", "(deprecated) "
619             "enable/disable squashing subchannels into the default css",
620             NULL);
621     object_property_set_bool(obj, false, "s390-squash-mcss", NULL);
622 }
623 
624 static const TypeInfo ccw_machine_info = {
625     .name          = TYPE_S390_CCW_MACHINE,
626     .parent        = TYPE_MACHINE,
627     .abstract      = true,
628     .instance_size = sizeof(S390CcwMachineState),
629     .instance_init = s390_machine_initfn,
630     .class_size = sizeof(S390CcwMachineClass),
631     .class_init    = ccw_machine_class_init,
632     .interfaces = (InterfaceInfo[]) {
633         { TYPE_NMI },
634         { TYPE_HOTPLUG_HANDLER},
635         { }
636     },
637 };
638 
639 bool css_migration_enabled(void)
640 {
641     return get_machine_class()->css_migration_enabled;
642 }
643 
644 #define DEFINE_CCW_MACHINE(suffix, verstr, latest)                            \
645     static void ccw_machine_##suffix##_class_init(ObjectClass *oc,            \
646                                                   void *data)                 \
647     {                                                                         \
648         MachineClass *mc = MACHINE_CLASS(oc);                                 \
649         ccw_machine_##suffix##_class_options(mc);                             \
650         mc->desc = "VirtIO-ccw based S390 machine v" verstr;                  \
651         if (latest) {                                                         \
652             mc->alias = "s390-ccw-virtio";                                    \
653             mc->is_default = 1;                                               \
654         }                                                                     \
655     }                                                                         \
656     static void ccw_machine_##suffix##_instance_init(Object *obj)             \
657     {                                                                         \
658         MachineState *machine = MACHINE(obj);                                 \
659         current_mc = S390_MACHINE_CLASS(MACHINE_GET_CLASS(machine));          \
660         ccw_machine_##suffix##_instance_options(machine);                     \
661     }                                                                         \
662     static const TypeInfo ccw_machine_##suffix##_info = {                     \
663         .name = MACHINE_TYPE_NAME("s390-ccw-virtio-" verstr),                 \
664         .parent = TYPE_S390_CCW_MACHINE,                                      \
665         .class_init = ccw_machine_##suffix##_class_init,                      \
666         .instance_init = ccw_machine_##suffix##_instance_init,                \
667     };                                                                        \
668     static void ccw_machine_register_##suffix(void)                           \
669     {                                                                         \
670         type_register_static(&ccw_machine_##suffix##_info);                   \
671     }                                                                         \
672     type_init(ccw_machine_register_##suffix)
673 
674 #define CCW_COMPAT_2_11 \
675         HW_COMPAT_2_11 \
676         {\
677             .driver   = TYPE_SCLP_EVENT_FACILITY,\
678             .property = "allow_all_mask_sizes",\
679             .value    = "off",\
680         },
681 
682 #define CCW_COMPAT_2_10 \
683         HW_COMPAT_2_10
684 
685 #define CCW_COMPAT_2_9 \
686         HW_COMPAT_2_9 \
687         {\
688             .driver   = TYPE_S390_STATTRIB,\
689             .property = "migration-enabled",\
690             .value    = "off",\
691         },
692 
693 #define CCW_COMPAT_2_8 \
694         HW_COMPAT_2_8 \
695         {\
696             .driver   = TYPE_S390_FLIC_COMMON,\
697             .property = "adapter_routes_max_batch",\
698             .value    = "64",\
699         },
700 
701 #define CCW_COMPAT_2_7 \
702         HW_COMPAT_2_7
703 
704 #define CCW_COMPAT_2_6 \
705         HW_COMPAT_2_6 \
706         {\
707             .driver   = TYPE_S390_IPL,\
708             .property = "iplbext_migration",\
709             .value    = "off",\
710         }, {\
711             .driver   = TYPE_VIRTUAL_CSS_BRIDGE,\
712             .property = "css_dev_path",\
713             .value    = "off",\
714         },
715 
716 #define CCW_COMPAT_2_5 \
717         HW_COMPAT_2_5
718 
719 #define CCW_COMPAT_2_4 \
720         HW_COMPAT_2_4 \
721         {\
722             .driver   = TYPE_S390_SKEYS,\
723             .property = "migration-enabled",\
724             .value    = "off",\
725         },{\
726             .driver   = "virtio-blk-ccw",\
727             .property = "max_revision",\
728             .value    = "0",\
729         },{\
730             .driver   = "virtio-balloon-ccw",\
731             .property = "max_revision",\
732             .value    = "0",\
733         },{\
734             .driver   = "virtio-serial-ccw",\
735             .property = "max_revision",\
736             .value    = "0",\
737         },{\
738             .driver   = "virtio-9p-ccw",\
739             .property = "max_revision",\
740             .value    = "0",\
741         },{\
742             .driver   = "virtio-rng-ccw",\
743             .property = "max_revision",\
744             .value    = "0",\
745         },{\
746             .driver   = "virtio-net-ccw",\
747             .property = "max_revision",\
748             .value    = "0",\
749         },{\
750             .driver   = "virtio-scsi-ccw",\
751             .property = "max_revision",\
752             .value    = "0",\
753         },{\
754             .driver   = "vhost-scsi-ccw",\
755             .property = "max_revision",\
756             .value    = "0",\
757         },
758 
759 static void ccw_machine_2_12_instance_options(MachineState *machine)
760 {
761 }
762 
763 static void ccw_machine_2_12_class_options(MachineClass *mc)
764 {
765 }
766 DEFINE_CCW_MACHINE(2_12, "2.12", true);
767 
768 static void ccw_machine_2_11_instance_options(MachineState *machine)
769 {
770     static const S390FeatInit qemu_cpu_feat = { S390_FEAT_LIST_QEMU_V2_11 };
771     ccw_machine_2_12_instance_options(machine);
772 
773     /* before 2.12 we emulated the very first z900 */
774     s390_set_qemu_cpu_model(0x2064, 7, 1, qemu_cpu_feat);
775 }
776 
777 static void ccw_machine_2_11_class_options(MachineClass *mc)
778 {
779     ccw_machine_2_12_class_options(mc);
780     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_11);
781 }
782 DEFINE_CCW_MACHINE(2_11, "2.11", false);
783 
784 static void ccw_machine_2_10_instance_options(MachineState *machine)
785 {
786     ccw_machine_2_11_instance_options(machine);
787 }
788 
789 static void ccw_machine_2_10_class_options(MachineClass *mc)
790 {
791     ccw_machine_2_11_class_options(mc);
792     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_10);
793 }
794 DEFINE_CCW_MACHINE(2_10, "2.10", false);
795 
796 static void ccw_machine_2_9_instance_options(MachineState *machine)
797 {
798     ccw_machine_2_10_instance_options(machine);
799     s390_cpudef_featoff_greater(12, 1, S390_FEAT_ESOP);
800     s390_cpudef_featoff_greater(12, 1, S390_FEAT_SIDE_EFFECT_ACCESS_ESOP2);
801     s390_cpudef_featoff_greater(12, 1, S390_FEAT_ZPCI);
802     s390_cpudef_featoff_greater(12, 1, S390_FEAT_ADAPTER_INT_SUPPRESSION);
803     s390_cpudef_featoff_greater(12, 1, S390_FEAT_ADAPTER_EVENT_NOTIFICATION);
804 }
805 
806 static void ccw_machine_2_9_class_options(MachineClass *mc)
807 {
808     S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
809 
810     ccw_machine_2_10_class_options(mc);
811     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_9);
812     s390mc->css_migration_enabled = false;
813 }
814 DEFINE_CCW_MACHINE(2_9, "2.9", false);
815 
816 static void ccw_machine_2_8_instance_options(MachineState *machine)
817 {
818     ccw_machine_2_9_instance_options(machine);
819 }
820 
821 static void ccw_machine_2_8_class_options(MachineClass *mc)
822 {
823     ccw_machine_2_9_class_options(mc);
824     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_8);
825 }
826 DEFINE_CCW_MACHINE(2_8, "2.8", false);
827 
828 static void ccw_machine_2_7_instance_options(MachineState *machine)
829 {
830     ccw_machine_2_8_instance_options(machine);
831 }
832 
833 static void ccw_machine_2_7_class_options(MachineClass *mc)
834 {
835     S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
836 
837     s390mc->cpu_model_allowed = false;
838     ccw_machine_2_8_class_options(mc);
839     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_7);
840 }
841 DEFINE_CCW_MACHINE(2_7, "2.7", false);
842 
843 static void ccw_machine_2_6_instance_options(MachineState *machine)
844 {
845     ccw_machine_2_7_instance_options(machine);
846 }
847 
848 static void ccw_machine_2_6_class_options(MachineClass *mc)
849 {
850     S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
851 
852     s390mc->ri_allowed = false;
853     ccw_machine_2_7_class_options(mc);
854     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_6);
855 }
856 DEFINE_CCW_MACHINE(2_6, "2.6", false);
857 
858 static void ccw_machine_2_5_instance_options(MachineState *machine)
859 {
860     ccw_machine_2_6_instance_options(machine);
861 }
862 
863 static void ccw_machine_2_5_class_options(MachineClass *mc)
864 {
865     ccw_machine_2_6_class_options(mc);
866     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_5);
867 }
868 DEFINE_CCW_MACHINE(2_5, "2.5", false);
869 
870 static void ccw_machine_2_4_instance_options(MachineState *machine)
871 {
872     ccw_machine_2_5_instance_options(machine);
873 }
874 
875 static void ccw_machine_2_4_class_options(MachineClass *mc)
876 {
877     ccw_machine_2_5_class_options(mc);
878     SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_4);
879 }
880 DEFINE_CCW_MACHINE(2_4, "2.4", false);
881 
882 static void ccw_machine_register_types(void)
883 {
884     type_register_static(&ccw_machine_info);
885 }
886 
887 type_init(ccw_machine_register_types)
888