a30fb811cb
Calling pause_all_vcpus()/resume_all_vcpus() from a VCPU thread might not be the best idea. As pause_all_vcpus() temporarily drops the qemu mutex, two parallel calls to pause_all_vcpus() can be active at a time, resulting in a deadlock. (either by two VCPUs or by the main thread and a VCPU) Let's handle it via the main loop instead, as suggested by Paolo. If we would have two parallel reset requests by two different VCPUs at the same time, the last one would win. We use the existing ipl device to handle it. The nice side effect is that we can get rid of reipl_requested. This change implies that all reset handling now goes via the common path, so "no-reboot" handling is now active for all kinds of reboots. Let's execute any CPU initialization code on the target CPU using run_on_cpu. Signed-off-by: David Hildenbrand <david@redhat.com> Message-Id: <20180424101859.10239-1-david@redhat.com> Acked-by: Thomas Huth <thuth@redhat.com> Signed-off-by: Cornelia Huck <cohuck@redhat.com>
956 lines
28 KiB
C
956 lines
28 KiB
C
/*
|
|
* virtio ccw machine
|
|
*
|
|
* Copyright 2012 IBM Corp.
|
|
* Copyright (c) 2009 Alexander Graf <agraf@suse.de>
|
|
* Author(s): Cornelia Huck <cornelia.huck@de.ibm.com>
|
|
*
|
|
* This work is licensed under the terms of the GNU GPL, version 2 or (at
|
|
* your option) any later version. See the COPYING file in the top-level
|
|
* directory.
|
|
*/
|
|
|
|
#include "qemu/osdep.h"
|
|
#include "qapi/error.h"
|
|
#include "cpu.h"
|
|
#include "hw/boards.h"
|
|
#include "exec/address-spaces.h"
|
|
#include "hw/s390x/s390-virtio-hcall.h"
|
|
#include "hw/s390x/sclp.h"
|
|
#include "hw/s390x/s390_flic.h"
|
|
#include "hw/s390x/ioinst.h"
|
|
#include "hw/s390x/css.h"
|
|
#include "virtio-ccw.h"
|
|
#include "qemu/config-file.h"
|
|
#include "qemu/error-report.h"
|
|
#include "qemu/option.h"
|
|
#include "s390-pci-bus.h"
|
|
#include "hw/s390x/storage-keys.h"
|
|
#include "hw/s390x/storage-attributes.h"
|
|
#include "hw/s390x/event-facility.h"
|
|
#include "hw/compat.h"
|
|
#include "ipl.h"
|
|
#include "hw/s390x/s390-virtio-ccw.h"
|
|
#include "hw/s390x/css-bridge.h"
|
|
#include "migration/register.h"
|
|
#include "cpu_models.h"
|
|
#include "hw/nmi.h"
|
|
|
|
S390CPU *s390_cpu_addr2state(uint16_t cpu_addr)
|
|
{
|
|
static MachineState *ms;
|
|
|
|
if (!ms) {
|
|
ms = MACHINE(qdev_get_machine());
|
|
g_assert(ms->possible_cpus);
|
|
}
|
|
|
|
/* CPU address corresponds to the core_id and the index */
|
|
if (cpu_addr >= ms->possible_cpus->len) {
|
|
return NULL;
|
|
}
|
|
return S390_CPU(ms->possible_cpus->cpus[cpu_addr].cpu);
|
|
}
|
|
|
|
static S390CPU *s390x_new_cpu(const char *typename, uint32_t core_id,
|
|
Error **errp)
|
|
{
|
|
S390CPU *cpu = S390_CPU(object_new(typename));
|
|
Error *err = NULL;
|
|
|
|
object_property_set_int(OBJECT(cpu), core_id, "core-id", &err);
|
|
if (err != NULL) {
|
|
goto out;
|
|
}
|
|
object_property_set_bool(OBJECT(cpu), true, "realized", &err);
|
|
|
|
out:
|
|
object_unref(OBJECT(cpu));
|
|
if (err) {
|
|
error_propagate(errp, err);
|
|
cpu = NULL;
|
|
}
|
|
return cpu;
|
|
}
|
|
|
|
static void s390_init_cpus(MachineState *machine)
|
|
{
|
|
MachineClass *mc = MACHINE_GET_CLASS(machine);
|
|
int i;
|
|
|
|
/* initialize possible_cpus */
|
|
mc->possible_cpu_arch_ids(machine);
|
|
|
|
for (i = 0; i < smp_cpus; i++) {
|
|
s390x_new_cpu(machine->cpu_type, i, &error_fatal);
|
|
}
|
|
}
|
|
|
|
static const char *const reset_dev_types[] = {
|
|
TYPE_VIRTUAL_CSS_BRIDGE,
|
|
"s390-sclp-event-facility",
|
|
"s390-flic",
|
|
"diag288",
|
|
};
|
|
|
|
static void subsystem_reset(void)
|
|
{
|
|
DeviceState *dev;
|
|
int i;
|
|
|
|
for (i = 0; i < ARRAY_SIZE(reset_dev_types); i++) {
|
|
dev = DEVICE(object_resolve_path_type("", reset_dev_types[i], NULL));
|
|
if (dev) {
|
|
qdev_reset_all(dev);
|
|
}
|
|
}
|
|
}
|
|
|
|
static int virtio_ccw_hcall_notify(const uint64_t *args)
|
|
{
|
|
uint64_t subch_id = args[0];
|
|
uint64_t queue = args[1];
|
|
SubchDev *sch;
|
|
int cssid, ssid, schid, m;
|
|
|
|
if (ioinst_disassemble_sch_ident(subch_id, &m, &cssid, &ssid, &schid)) {
|
|
return -EINVAL;
|
|
}
|
|
sch = css_find_subch(m, cssid, ssid, schid);
|
|
if (!sch || !css_subch_visible(sch)) {
|
|
return -EINVAL;
|
|
}
|
|
if (queue >= VIRTIO_QUEUE_MAX) {
|
|
return -EINVAL;
|
|
}
|
|
virtio_queue_notify(virtio_ccw_get_vdev(sch), queue);
|
|
return 0;
|
|
|
|
}
|
|
|
|
static int virtio_ccw_hcall_early_printk(const uint64_t *args)
|
|
{
|
|
uint64_t mem = args[0];
|
|
|
|
if (mem < ram_size) {
|
|
/* Early printk */
|
|
return 0;
|
|
}
|
|
return -EINVAL;
|
|
}
|
|
|
|
static void virtio_ccw_register_hcalls(void)
|
|
{
|
|
s390_register_virtio_hypercall(KVM_S390_VIRTIO_CCW_NOTIFY,
|
|
virtio_ccw_hcall_notify);
|
|
/* Tolerate early printk. */
|
|
s390_register_virtio_hypercall(KVM_S390_VIRTIO_NOTIFY,
|
|
virtio_ccw_hcall_early_printk);
|
|
}
|
|
|
|
/*
|
|
* KVM does only support memory slots up to KVM_MEM_MAX_NR_PAGES pages
|
|
* as the dirty bitmap must be managed by bitops that take an int as
|
|
* position indicator. If we have a guest beyond that we will split off
|
|
* new subregions. The split must happen on a segment boundary (1MB).
|
|
*/
|
|
#define KVM_MEM_MAX_NR_PAGES ((1ULL << 31) - 1)
|
|
#define SEG_MSK (~0xfffffULL)
|
|
#define KVM_SLOT_MAX_BYTES ((KVM_MEM_MAX_NR_PAGES * TARGET_PAGE_SIZE) & SEG_MSK)
|
|
static void s390_memory_init(ram_addr_t mem_size)
|
|
{
|
|
MemoryRegion *sysmem = get_system_memory();
|
|
ram_addr_t chunk, offset = 0;
|
|
unsigned int number = 0;
|
|
gchar *name;
|
|
|
|
/* allocate RAM for core */
|
|
name = g_strdup_printf("s390.ram");
|
|
while (mem_size) {
|
|
MemoryRegion *ram = g_new(MemoryRegion, 1);
|
|
uint64_t size = mem_size;
|
|
|
|
/* KVM does not allow memslots >= 8 TB */
|
|
chunk = MIN(size, KVM_SLOT_MAX_BYTES);
|
|
memory_region_allocate_system_memory(ram, NULL, name, chunk);
|
|
memory_region_add_subregion(sysmem, offset, ram);
|
|
mem_size -= chunk;
|
|
offset += chunk;
|
|
g_free(name);
|
|
name = g_strdup_printf("s390.ram.%u", ++number);
|
|
}
|
|
g_free(name);
|
|
|
|
/* Initialize storage key device */
|
|
s390_skeys_init();
|
|
/* Initialize storage attributes device */
|
|
s390_stattrib_init();
|
|
}
|
|
|
|
#define S390_TOD_CLOCK_VALUE_MISSING 0x00
|
|
#define S390_TOD_CLOCK_VALUE_PRESENT 0x01
|
|
|
|
static void gtod_save(QEMUFile *f, void *opaque)
|
|
{
|
|
uint64_t tod_low;
|
|
uint8_t tod_high;
|
|
int r;
|
|
|
|
r = s390_get_clock(&tod_high, &tod_low);
|
|
if (r) {
|
|
warn_report("Unable to get guest clock for migration: %s",
|
|
strerror(-r));
|
|
error_printf("Guest clock will not be migrated "
|
|
"which could cause the guest to hang.");
|
|
qemu_put_byte(f, S390_TOD_CLOCK_VALUE_MISSING);
|
|
return;
|
|
}
|
|
|
|
qemu_put_byte(f, S390_TOD_CLOCK_VALUE_PRESENT);
|
|
qemu_put_byte(f, tod_high);
|
|
qemu_put_be64(f, tod_low);
|
|
}
|
|
|
|
static int gtod_load(QEMUFile *f, void *opaque, int version_id)
|
|
{
|
|
uint64_t tod_low;
|
|
uint8_t tod_high;
|
|
int r;
|
|
|
|
if (qemu_get_byte(f) == S390_TOD_CLOCK_VALUE_MISSING) {
|
|
warn_report("Guest clock was not migrated. This could "
|
|
"cause the guest to hang.");
|
|
return 0;
|
|
}
|
|
|
|
tod_high = qemu_get_byte(f);
|
|
tod_low = qemu_get_be64(f);
|
|
|
|
r = s390_set_clock(&tod_high, &tod_low);
|
|
if (r) {
|
|
error_report("Unable to set KVM guest TOD clock: %s", strerror(-r));
|
|
}
|
|
|
|
return r;
|
|
}
|
|
|
|
static SaveVMHandlers savevm_gtod = {
|
|
.save_state = gtod_save,
|
|
.load_state = gtod_load,
|
|
};
|
|
|
|
static void s390_init_ipl_dev(const char *kernel_filename,
|
|
const char *kernel_cmdline,
|
|
const char *initrd_filename, const char *firmware,
|
|
const char *netboot_fw, bool enforce_bios)
|
|
{
|
|
Object *new = object_new(TYPE_S390_IPL);
|
|
DeviceState *dev = DEVICE(new);
|
|
char *netboot_fw_prop;
|
|
|
|
if (kernel_filename) {
|
|
qdev_prop_set_string(dev, "kernel", kernel_filename);
|
|
}
|
|
if (initrd_filename) {
|
|
qdev_prop_set_string(dev, "initrd", initrd_filename);
|
|
}
|
|
qdev_prop_set_string(dev, "cmdline", kernel_cmdline);
|
|
qdev_prop_set_string(dev, "firmware", firmware);
|
|
qdev_prop_set_bit(dev, "enforce_bios", enforce_bios);
|
|
netboot_fw_prop = object_property_get_str(new, "netboot_fw", &error_abort);
|
|
if (!strlen(netboot_fw_prop)) {
|
|
qdev_prop_set_string(dev, "netboot_fw", netboot_fw);
|
|
}
|
|
g_free(netboot_fw_prop);
|
|
object_property_add_child(qdev_get_machine(), TYPE_S390_IPL,
|
|
new, NULL);
|
|
object_unref(new);
|
|
qdev_init_nofail(dev);
|
|
}
|
|
|
|
static void s390_create_virtio_net(BusState *bus, const char *name)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < nb_nics; i++) {
|
|
NICInfo *nd = &nd_table[i];
|
|
DeviceState *dev;
|
|
|
|
if (!nd->model) {
|
|
nd->model = g_strdup("virtio");
|
|
}
|
|
|
|
qemu_check_nic_model(nd, "virtio");
|
|
|
|
dev = qdev_create(bus, name);
|
|
qdev_set_nic_properties(dev, nd);
|
|
qdev_init_nofail(dev);
|
|
}
|
|
}
|
|
|
|
static void s390_create_sclpconsole(const char *type, Chardev *chardev)
|
|
{
|
|
DeviceState *dev;
|
|
|
|
dev = qdev_create(sclp_get_event_facility_bus(), type);
|
|
qdev_prop_set_chr(dev, "chardev", chardev);
|
|
qdev_init_nofail(dev);
|
|
}
|
|
|
|
static void ccw_init(MachineState *machine)
|
|
{
|
|
int ret;
|
|
VirtualCssBus *css_bus;
|
|
DeviceState *dev;
|
|
|
|
s390_sclp_init();
|
|
s390_memory_init(machine->ram_size);
|
|
|
|
/* init CPUs (incl. CPU model) early so s390_has_feature() works */
|
|
s390_init_cpus(machine);
|
|
|
|
s390_flic_init();
|
|
|
|
/* init the SIGP facility */
|
|
s390_init_sigp();
|
|
|
|
/* get a BUS */
|
|
css_bus = virtual_css_bus_init();
|
|
s390_init_ipl_dev(machine->kernel_filename, machine->kernel_cmdline,
|
|
machine->initrd_filename, "s390-ccw.img",
|
|
"s390-netboot.img", true);
|
|
|
|
/*
|
|
* We cannot easily make the pci host bridge conditional as older QEMUs
|
|
* always created it. Doing so would break migration across QEMU versions.
|
|
*/
|
|
dev = qdev_create(NULL, TYPE_S390_PCI_HOST_BRIDGE);
|
|
object_property_add_child(qdev_get_machine(), TYPE_S390_PCI_HOST_BRIDGE,
|
|
OBJECT(dev), NULL);
|
|
qdev_init_nofail(dev);
|
|
|
|
/* register hypercalls */
|
|
virtio_ccw_register_hcalls();
|
|
|
|
s390_enable_css_support(s390_cpu_addr2state(0));
|
|
/*
|
|
* Non mcss-e enabled guests only see the devices from the default
|
|
* css, which is determined by the value of the squash_mcss property.
|
|
*/
|
|
if (css_bus->squash_mcss) {
|
|
ret = css_create_css_image(0, true);
|
|
} else {
|
|
ret = css_create_css_image(VIRTUAL_CSSID, true);
|
|
}
|
|
if (qemu_opt_get(qemu_get_machine_opts(), "s390-squash-mcss")) {
|
|
warn_report("The machine property 's390-squash-mcss' is deprecated"
|
|
" (obsoleted by lifting the cssid restrictions).");
|
|
}
|
|
|
|
assert(ret == 0);
|
|
if (css_migration_enabled()) {
|
|
css_register_vmstate();
|
|
}
|
|
|
|
/* Create VirtIO network adapters */
|
|
s390_create_virtio_net(BUS(css_bus), "virtio-net-ccw");
|
|
|
|
/* init consoles */
|
|
if (serial_hd(0)) {
|
|
s390_create_sclpconsole("sclpconsole", serial_hd(0));
|
|
}
|
|
if (serial_hd(1)) {
|
|
s390_create_sclpconsole("sclplmconsole", serial_hd(1));
|
|
}
|
|
|
|
/* Register savevm handler for guest TOD clock */
|
|
register_savevm_live(NULL, "todclock", 0, 1, &savevm_gtod, NULL);
|
|
}
|
|
|
|
static void s390_cpu_plug(HotplugHandler *hotplug_dev,
|
|
DeviceState *dev, Error **errp)
|
|
{
|
|
MachineState *ms = MACHINE(hotplug_dev);
|
|
S390CPU *cpu = S390_CPU(dev);
|
|
|
|
g_assert(!ms->possible_cpus->cpus[cpu->env.core_id].cpu);
|
|
ms->possible_cpus->cpus[cpu->env.core_id].cpu = OBJECT(dev);
|
|
|
|
if (dev->hotplugged) {
|
|
raise_irq_cpu_hotplug();
|
|
}
|
|
}
|
|
|
|
static inline void s390_do_cpu_ipl(CPUState *cs, run_on_cpu_data arg)
|
|
{
|
|
S390CPU *cpu = S390_CPU(cs);
|
|
|
|
s390_ipl_prepare_cpu(cpu);
|
|
s390_cpu_set_state(S390_CPU_STATE_OPERATING, cpu);
|
|
}
|
|
|
|
static void s390_machine_reset(void)
|
|
{
|
|
enum s390_reset reset_type;
|
|
CPUState *cs, *t;
|
|
|
|
/* get the reset parameters, reset them once done */
|
|
s390_ipl_get_reset_request(&cs, &reset_type);
|
|
|
|
/* all CPUs are paused and synchronized at this point */
|
|
s390_cmma_reset();
|
|
|
|
switch (reset_type) {
|
|
case S390_RESET_EXTERNAL:
|
|
case S390_RESET_REIPL:
|
|
qemu_devices_reset();
|
|
s390_crypto_reset();
|
|
|
|
/* configure and start the ipl CPU only */
|
|
run_on_cpu(cs, s390_do_cpu_ipl, RUN_ON_CPU_NULL);
|
|
break;
|
|
case S390_RESET_MODIFIED_CLEAR:
|
|
CPU_FOREACH(t) {
|
|
run_on_cpu(t, s390_do_cpu_full_reset, RUN_ON_CPU_NULL);
|
|
}
|
|
subsystem_reset();
|
|
s390_crypto_reset();
|
|
run_on_cpu(cs, s390_do_cpu_load_normal, RUN_ON_CPU_NULL);
|
|
break;
|
|
case S390_RESET_LOAD_NORMAL:
|
|
CPU_FOREACH(t) {
|
|
run_on_cpu(t, s390_do_cpu_reset, RUN_ON_CPU_NULL);
|
|
}
|
|
subsystem_reset();
|
|
run_on_cpu(cs, s390_do_cpu_initial_reset, RUN_ON_CPU_NULL);
|
|
run_on_cpu(cs, s390_do_cpu_load_normal, RUN_ON_CPU_NULL);
|
|
break;
|
|
default:
|
|
g_assert_not_reached();
|
|
}
|
|
s390_ipl_clear_reset_request();
|
|
}
|
|
|
|
static void s390_machine_device_plug(HotplugHandler *hotplug_dev,
|
|
DeviceState *dev, Error **errp)
|
|
{
|
|
if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
|
|
s390_cpu_plug(hotplug_dev, dev, errp);
|
|
}
|
|
}
|
|
|
|
static void s390_machine_device_unplug_request(HotplugHandler *hotplug_dev,
|
|
DeviceState *dev, Error **errp)
|
|
{
|
|
if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
|
|
error_setg(errp, "CPU hot unplug not supported on this machine");
|
|
return;
|
|
}
|
|
}
|
|
|
|
static CpuInstanceProperties s390_cpu_index_to_props(MachineState *ms,
|
|
unsigned cpu_index)
|
|
{
|
|
MachineClass *mc = MACHINE_GET_CLASS(ms);
|
|
const CPUArchIdList *possible_cpus = mc->possible_cpu_arch_ids(ms);
|
|
|
|
assert(cpu_index < possible_cpus->len);
|
|
return possible_cpus->cpus[cpu_index].props;
|
|
}
|
|
|
|
static const CPUArchIdList *s390_possible_cpu_arch_ids(MachineState *ms)
|
|
{
|
|
int i;
|
|
|
|
if (ms->possible_cpus) {
|
|
g_assert(ms->possible_cpus && ms->possible_cpus->len == max_cpus);
|
|
return ms->possible_cpus;
|
|
}
|
|
|
|
ms->possible_cpus = g_malloc0(sizeof(CPUArchIdList) +
|
|
sizeof(CPUArchId) * max_cpus);
|
|
ms->possible_cpus->len = max_cpus;
|
|
for (i = 0; i < ms->possible_cpus->len; i++) {
|
|
ms->possible_cpus->cpus[i].type = ms->cpu_type;
|
|
ms->possible_cpus->cpus[i].vcpus_count = 1;
|
|
ms->possible_cpus->cpus[i].arch_id = i;
|
|
ms->possible_cpus->cpus[i].props.has_core_id = true;
|
|
ms->possible_cpus->cpus[i].props.core_id = i;
|
|
}
|
|
|
|
return ms->possible_cpus;
|
|
}
|
|
|
|
static HotplugHandler *s390_get_hotplug_handler(MachineState *machine,
|
|
DeviceState *dev)
|
|
{
|
|
if (object_dynamic_cast(OBJECT(dev), TYPE_CPU)) {
|
|
return HOTPLUG_HANDLER(machine);
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
static void s390_hot_add_cpu(const int64_t id, Error **errp)
|
|
{
|
|
MachineState *machine = MACHINE(qdev_get_machine());
|
|
ObjectClass *oc;
|
|
|
|
g_assert(machine->possible_cpus->cpus[0].cpu);
|
|
oc = OBJECT_CLASS(CPU_GET_CLASS(machine->possible_cpus->cpus[0].cpu));
|
|
|
|
s390x_new_cpu(object_class_get_name(oc), id, errp);
|
|
}
|
|
|
|
static void s390_nmi(NMIState *n, int cpu_index, Error **errp)
|
|
{
|
|
CPUState *cs = qemu_get_cpu(cpu_index);
|
|
|
|
s390_cpu_restart(S390_CPU(cs));
|
|
}
|
|
|
|
static void ccw_machine_class_init(ObjectClass *oc, void *data)
|
|
{
|
|
MachineClass *mc = MACHINE_CLASS(oc);
|
|
NMIClass *nc = NMI_CLASS(oc);
|
|
HotplugHandlerClass *hc = HOTPLUG_HANDLER_CLASS(oc);
|
|
S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
|
|
|
|
s390mc->ri_allowed = true;
|
|
s390mc->cpu_model_allowed = true;
|
|
s390mc->css_migration_enabled = true;
|
|
mc->init = ccw_init;
|
|
mc->reset = s390_machine_reset;
|
|
mc->hot_add_cpu = s390_hot_add_cpu;
|
|
mc->block_default_type = IF_VIRTIO;
|
|
mc->no_cdrom = 1;
|
|
mc->no_floppy = 1;
|
|
mc->no_parallel = 1;
|
|
mc->no_sdcard = 1;
|
|
mc->max_cpus = S390_MAX_CPUS;
|
|
mc->has_hotpluggable_cpus = true;
|
|
assert(!mc->get_hotplug_handler);
|
|
mc->get_hotplug_handler = s390_get_hotplug_handler;
|
|
mc->cpu_index_to_instance_props = s390_cpu_index_to_props;
|
|
mc->possible_cpu_arch_ids = s390_possible_cpu_arch_ids;
|
|
/* it is overridden with 'host' cpu *in kvm_arch_init* */
|
|
mc->default_cpu_type = S390_CPU_TYPE_NAME("qemu");
|
|
hc->plug = s390_machine_device_plug;
|
|
hc->unplug_request = s390_machine_device_unplug_request;
|
|
nc->nmi_monitor_handler = s390_nmi;
|
|
}
|
|
|
|
static inline bool machine_get_aes_key_wrap(Object *obj, Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
|
|
return ms->aes_key_wrap;
|
|
}
|
|
|
|
static inline void machine_set_aes_key_wrap(Object *obj, bool value,
|
|
Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
|
|
ms->aes_key_wrap = value;
|
|
}
|
|
|
|
static inline bool machine_get_dea_key_wrap(Object *obj, Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
|
|
return ms->dea_key_wrap;
|
|
}
|
|
|
|
static inline void machine_set_dea_key_wrap(Object *obj, bool value,
|
|
Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
|
|
ms->dea_key_wrap = value;
|
|
}
|
|
|
|
static S390CcwMachineClass *current_mc;
|
|
|
|
static S390CcwMachineClass *get_machine_class(void)
|
|
{
|
|
if (unlikely(!current_mc)) {
|
|
/*
|
|
* No s390 ccw machine was instantiated, we are likely to
|
|
* be called for the 'none' machine. The properties will
|
|
* have their after-initialization values.
|
|
*/
|
|
current_mc = S390_MACHINE_CLASS(
|
|
object_class_by_name(TYPE_S390_CCW_MACHINE));
|
|
}
|
|
return current_mc;
|
|
}
|
|
|
|
bool ri_allowed(void)
|
|
{
|
|
/* for "none" machine this results in true */
|
|
return get_machine_class()->ri_allowed;
|
|
}
|
|
|
|
bool cpu_model_allowed(void)
|
|
{
|
|
/* for "none" machine this results in true */
|
|
return get_machine_class()->cpu_model_allowed;
|
|
}
|
|
|
|
static char *machine_get_loadparm(Object *obj, Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
|
|
return g_memdup(ms->loadparm, sizeof(ms->loadparm));
|
|
}
|
|
|
|
static void machine_set_loadparm(Object *obj, const char *val, Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
int i;
|
|
|
|
for (i = 0; i < sizeof(ms->loadparm) && val[i]; i++) {
|
|
uint8_t c = qemu_toupper(val[i]); /* mimic HMC */
|
|
|
|
if (('A' <= c && c <= 'Z') || ('0' <= c && c <= '9') || (c == '.') ||
|
|
(c == ' ')) {
|
|
ms->loadparm[i] = c;
|
|
} else {
|
|
error_setg(errp, "LOADPARM: invalid character '%c' (ASCII 0x%02x)",
|
|
c, c);
|
|
return;
|
|
}
|
|
}
|
|
|
|
for (; i < sizeof(ms->loadparm); i++) {
|
|
ms->loadparm[i] = ' '; /* pad right with spaces */
|
|
}
|
|
}
|
|
static inline bool machine_get_squash_mcss(Object *obj, Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
|
|
return ms->s390_squash_mcss;
|
|
}
|
|
|
|
static inline void machine_set_squash_mcss(Object *obj, bool value,
|
|
Error **errp)
|
|
{
|
|
S390CcwMachineState *ms = S390_CCW_MACHINE(obj);
|
|
|
|
ms->s390_squash_mcss = value;
|
|
}
|
|
|
|
static inline void s390_machine_initfn(Object *obj)
|
|
{
|
|
object_property_add_bool(obj, "aes-key-wrap",
|
|
machine_get_aes_key_wrap,
|
|
machine_set_aes_key_wrap, NULL);
|
|
object_property_set_description(obj, "aes-key-wrap",
|
|
"enable/disable AES key wrapping using the CPACF wrapping key",
|
|
NULL);
|
|
object_property_set_bool(obj, true, "aes-key-wrap", NULL);
|
|
|
|
object_property_add_bool(obj, "dea-key-wrap",
|
|
machine_get_dea_key_wrap,
|
|
machine_set_dea_key_wrap, NULL);
|
|
object_property_set_description(obj, "dea-key-wrap",
|
|
"enable/disable DEA key wrapping using the CPACF wrapping key",
|
|
NULL);
|
|
object_property_set_bool(obj, true, "dea-key-wrap", NULL);
|
|
object_property_add_str(obj, "loadparm",
|
|
machine_get_loadparm, machine_set_loadparm, NULL);
|
|
object_property_set_description(obj, "loadparm",
|
|
"Up to 8 chars in set of [A-Za-z0-9. ] (lower case chars converted"
|
|
" to upper case) to pass to machine loader, boot manager,"
|
|
" and guest kernel",
|
|
NULL);
|
|
object_property_add_bool(obj, "s390-squash-mcss",
|
|
machine_get_squash_mcss,
|
|
machine_set_squash_mcss, NULL);
|
|
object_property_set_description(obj, "s390-squash-mcss", "(deprecated) "
|
|
"enable/disable squashing subchannels into the default css",
|
|
NULL);
|
|
object_property_set_bool(obj, false, "s390-squash-mcss", NULL);
|
|
}
|
|
|
|
static const TypeInfo ccw_machine_info = {
|
|
.name = TYPE_S390_CCW_MACHINE,
|
|
.parent = TYPE_MACHINE,
|
|
.abstract = true,
|
|
.instance_size = sizeof(S390CcwMachineState),
|
|
.instance_init = s390_machine_initfn,
|
|
.class_size = sizeof(S390CcwMachineClass),
|
|
.class_init = ccw_machine_class_init,
|
|
.interfaces = (InterfaceInfo[]) {
|
|
{ TYPE_NMI },
|
|
{ TYPE_HOTPLUG_HANDLER},
|
|
{ }
|
|
},
|
|
};
|
|
|
|
bool css_migration_enabled(void)
|
|
{
|
|
return get_machine_class()->css_migration_enabled;
|
|
}
|
|
|
|
#define DEFINE_CCW_MACHINE(suffix, verstr, latest) \
|
|
static void ccw_machine_##suffix##_class_init(ObjectClass *oc, \
|
|
void *data) \
|
|
{ \
|
|
MachineClass *mc = MACHINE_CLASS(oc); \
|
|
ccw_machine_##suffix##_class_options(mc); \
|
|
mc->desc = "VirtIO-ccw based S390 machine v" verstr; \
|
|
if (latest) { \
|
|
mc->alias = "s390-ccw-virtio"; \
|
|
mc->is_default = 1; \
|
|
} \
|
|
} \
|
|
static void ccw_machine_##suffix##_instance_init(Object *obj) \
|
|
{ \
|
|
MachineState *machine = MACHINE(obj); \
|
|
current_mc = S390_MACHINE_CLASS(MACHINE_GET_CLASS(machine)); \
|
|
ccw_machine_##suffix##_instance_options(machine); \
|
|
} \
|
|
static const TypeInfo ccw_machine_##suffix##_info = { \
|
|
.name = MACHINE_TYPE_NAME("s390-ccw-virtio-" verstr), \
|
|
.parent = TYPE_S390_CCW_MACHINE, \
|
|
.class_init = ccw_machine_##suffix##_class_init, \
|
|
.instance_init = ccw_machine_##suffix##_instance_init, \
|
|
}; \
|
|
static void ccw_machine_register_##suffix(void) \
|
|
{ \
|
|
type_register_static(&ccw_machine_##suffix##_info); \
|
|
} \
|
|
type_init(ccw_machine_register_##suffix)
|
|
|
|
#define CCW_COMPAT_2_12 \
|
|
HW_COMPAT_2_12
|
|
|
|
#define CCW_COMPAT_2_11 \
|
|
HW_COMPAT_2_11 \
|
|
{\
|
|
.driver = TYPE_SCLP_EVENT_FACILITY,\
|
|
.property = "allow_all_mask_sizes",\
|
|
.value = "off",\
|
|
},
|
|
|
|
#define CCW_COMPAT_2_10 \
|
|
HW_COMPAT_2_10
|
|
|
|
#define CCW_COMPAT_2_9 \
|
|
HW_COMPAT_2_9 \
|
|
{\
|
|
.driver = TYPE_S390_STATTRIB,\
|
|
.property = "migration-enabled",\
|
|
.value = "off",\
|
|
},
|
|
|
|
#define CCW_COMPAT_2_8 \
|
|
HW_COMPAT_2_8 \
|
|
{\
|
|
.driver = TYPE_S390_FLIC_COMMON,\
|
|
.property = "adapter_routes_max_batch",\
|
|
.value = "64",\
|
|
},
|
|
|
|
#define CCW_COMPAT_2_7 \
|
|
HW_COMPAT_2_7
|
|
|
|
#define CCW_COMPAT_2_6 \
|
|
HW_COMPAT_2_6 \
|
|
{\
|
|
.driver = TYPE_S390_IPL,\
|
|
.property = "iplbext_migration",\
|
|
.value = "off",\
|
|
}, {\
|
|
.driver = TYPE_VIRTUAL_CSS_BRIDGE,\
|
|
.property = "css_dev_path",\
|
|
.value = "off",\
|
|
},
|
|
|
|
#define CCW_COMPAT_2_5 \
|
|
HW_COMPAT_2_5
|
|
|
|
#define CCW_COMPAT_2_4 \
|
|
HW_COMPAT_2_4 \
|
|
{\
|
|
.driver = TYPE_S390_SKEYS,\
|
|
.property = "migration-enabled",\
|
|
.value = "off",\
|
|
},{\
|
|
.driver = "virtio-blk-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},{\
|
|
.driver = "virtio-balloon-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},{\
|
|
.driver = "virtio-serial-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},{\
|
|
.driver = "virtio-9p-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},{\
|
|
.driver = "virtio-rng-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},{\
|
|
.driver = "virtio-net-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},{\
|
|
.driver = "virtio-scsi-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},{\
|
|
.driver = "vhost-scsi-ccw",\
|
|
.property = "max_revision",\
|
|
.value = "0",\
|
|
},
|
|
|
|
static void ccw_machine_2_13_instance_options(MachineState *machine)
|
|
{
|
|
}
|
|
|
|
static void ccw_machine_2_13_class_options(MachineClass *mc)
|
|
{
|
|
}
|
|
DEFINE_CCW_MACHINE(2_13, "2.13", true);
|
|
|
|
static void ccw_machine_2_12_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_13_instance_options(machine);
|
|
}
|
|
|
|
static void ccw_machine_2_12_class_options(MachineClass *mc)
|
|
{
|
|
ccw_machine_2_13_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_12);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_12, "2.12", false);
|
|
|
|
static void ccw_machine_2_11_instance_options(MachineState *machine)
|
|
{
|
|
static const S390FeatInit qemu_cpu_feat = { S390_FEAT_LIST_QEMU_V2_11 };
|
|
ccw_machine_2_12_instance_options(machine);
|
|
|
|
/* before 2.12 we emulated the very first z900 */
|
|
s390_set_qemu_cpu_model(0x2064, 7, 1, qemu_cpu_feat);
|
|
}
|
|
|
|
static void ccw_machine_2_11_class_options(MachineClass *mc)
|
|
{
|
|
ccw_machine_2_12_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_11);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_11, "2.11", false);
|
|
|
|
static void ccw_machine_2_10_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_11_instance_options(machine);
|
|
}
|
|
|
|
static void ccw_machine_2_10_class_options(MachineClass *mc)
|
|
{
|
|
ccw_machine_2_11_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_10);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_10, "2.10", false);
|
|
|
|
static void ccw_machine_2_9_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_10_instance_options(machine);
|
|
s390_cpudef_featoff_greater(12, 1, S390_FEAT_ESOP);
|
|
s390_cpudef_featoff_greater(12, 1, S390_FEAT_SIDE_EFFECT_ACCESS_ESOP2);
|
|
s390_cpudef_featoff_greater(12, 1, S390_FEAT_ZPCI);
|
|
s390_cpudef_featoff_greater(12, 1, S390_FEAT_ADAPTER_INT_SUPPRESSION);
|
|
s390_cpudef_featoff_greater(12, 1, S390_FEAT_ADAPTER_EVENT_NOTIFICATION);
|
|
}
|
|
|
|
static void ccw_machine_2_9_class_options(MachineClass *mc)
|
|
{
|
|
S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
|
|
|
|
ccw_machine_2_10_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_9);
|
|
s390mc->css_migration_enabled = false;
|
|
}
|
|
DEFINE_CCW_MACHINE(2_9, "2.9", false);
|
|
|
|
static void ccw_machine_2_8_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_9_instance_options(machine);
|
|
}
|
|
|
|
static void ccw_machine_2_8_class_options(MachineClass *mc)
|
|
{
|
|
ccw_machine_2_9_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_8);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_8, "2.8", false);
|
|
|
|
static void ccw_machine_2_7_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_8_instance_options(machine);
|
|
}
|
|
|
|
static void ccw_machine_2_7_class_options(MachineClass *mc)
|
|
{
|
|
S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
|
|
|
|
s390mc->cpu_model_allowed = false;
|
|
ccw_machine_2_8_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_7);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_7, "2.7", false);
|
|
|
|
static void ccw_machine_2_6_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_7_instance_options(machine);
|
|
}
|
|
|
|
static void ccw_machine_2_6_class_options(MachineClass *mc)
|
|
{
|
|
S390CcwMachineClass *s390mc = S390_MACHINE_CLASS(mc);
|
|
|
|
s390mc->ri_allowed = false;
|
|
ccw_machine_2_7_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_6);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_6, "2.6", false);
|
|
|
|
static void ccw_machine_2_5_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_6_instance_options(machine);
|
|
}
|
|
|
|
static void ccw_machine_2_5_class_options(MachineClass *mc)
|
|
{
|
|
ccw_machine_2_6_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_5);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_5, "2.5", false);
|
|
|
|
static void ccw_machine_2_4_instance_options(MachineState *machine)
|
|
{
|
|
ccw_machine_2_5_instance_options(machine);
|
|
}
|
|
|
|
static void ccw_machine_2_4_class_options(MachineClass *mc)
|
|
{
|
|
ccw_machine_2_5_class_options(mc);
|
|
SET_MACHINE_COMPAT(mc, CCW_COMPAT_2_4);
|
|
}
|
|
DEFINE_CCW_MACHINE(2_4, "2.4", false);
|
|
|
|
static void ccw_machine_register_types(void)
|
|
{
|
|
type_register_static(&ccw_machine_info);
|
|
}
|
|
|
|
type_init(ccw_machine_register_types)
|