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