Archipelago » qemu

/*

 * QEMU S390 virtio target

 *

 * Copyright (c) 2009 Alexander Graf <agraf@suse.de>

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, see <http://www.gnu.org/licenses/>.

 */

#include "hw/hw.h"

#include "block/block.h"

#include "sysemu/sysemu.h"

#include "hw/boards.h"

#include "monitor/monitor.h"

#include "hw/loader.h"

#include "elf.h"

#include "hw/virtio.h"

#include "hw/virtio-rng.h"

#include "hw/virtio-serial.h"

#include "hw/virtio-net.h"

#include "hw/sysbus.h"

#include "sysemu/kvm.h"

#include "hw/s390x/s390-virtio-bus.h"

#include "hw/virtio-bus.h"

/* #define DEBUG_S390 */

#ifdef DEBUG_S390

#define dprintf(fmt, ...) \

    do { fprintf(stderr, fmt, ## __VA_ARGS__); } while (0)

#else

#define dprintf(fmt, ...) \

    do { } while (0)

#endif

#define VIRTIO_EXT_CODE   0x2603

static const TypeInfo s390_virtio_bus_info = {

    .name = TYPE_S390_VIRTIO_BUS,

    .parent = TYPE_BUS,

    .instance_size = sizeof(VirtIOS390Bus),

};

static const VirtIOBindings virtio_s390_bindings;

static ram_addr_t s390_virtio_device_num_vq(VirtIOS390Device *dev);

/* length of VirtIO device pages */

const hwaddr virtio_size = S390_DEVICE_PAGES * TARGET_PAGE_SIZE;

static void s390_virtio_bus_reset(void *opaque)

{

    VirtIOS390Bus *bus = opaque;

    bus->next_ring = bus->dev_page + TARGET_PAGE_SIZE;

}

void s390_virtio_reset_idx(VirtIOS390Device *dev)

{

    int i;

    hwaddr idx_addr;

    uint8_t num_vq;

    num_vq = s390_virtio_device_num_vq(dev);

    for (i = 0; i < num_vq; i++) {

        idx_addr = virtio_queue_get_avail_addr(dev->vdev, i) +

            VIRTIO_VRING_AVAIL_IDX_OFFS;

        stw_phys(idx_addr, 0);

        idx_addr = virtio_queue_get_used_addr(dev->vdev, i) +

            VIRTIO_VRING_USED_IDX_OFFS;

        stw_phys(idx_addr, 0);

    }

}

VirtIOS390Bus *s390_virtio_bus_init(ram_addr_t *ram_size)

{

    VirtIOS390Bus *bus;

    BusState *_bus;

    DeviceState *dev;

    /* Create bridge device */

    dev = qdev_create(NULL, "s390-virtio-bridge");

    qdev_init_nofail(dev);

    /* Create bus on bridge device */

    _bus = qbus_create(TYPE_S390_VIRTIO_BUS, dev, "s390-virtio");

    bus = DO_UPCAST(VirtIOS390Bus, bus, _bus);

    bus->dev_page = *ram_size;

    bus->dev_offs = bus->dev_page;

    bus->next_ring = bus->dev_page + TARGET_PAGE_SIZE;

    /* Enable hotplugging */

    _bus->allow_hotplug = 1;

    /* Allocate RAM for VirtIO device pages (descriptors, queues, rings) */

    *ram_size += S390_DEVICE_PAGES * TARGET_PAGE_SIZE;

    qemu_register_reset(s390_virtio_bus_reset, bus);

    return bus;

}

static void s390_virtio_irq(S390CPU *cpu, int config_change, uint64_t token)

{

    if (kvm_enabled()) {

        kvm_s390_virtio_irq(cpu, config_change, token);

    } else {

        cpu_inject_ext(cpu, VIRTIO_EXT_CODE, config_change, token);

    }

}

static int s390_virtio_device_init(VirtIOS390Device *dev, VirtIODevice *vdev)

{

    VirtIOS390Bus *bus;

    int dev_len;

    bus = DO_UPCAST(VirtIOS390Bus, bus, dev->qdev.parent_bus);

    dev->vdev = vdev;

    dev->dev_offs = bus->dev_offs;

    dev->feat_len = sizeof(uint32_t); /* always keep 32 bits features */

    dev_len = VIRTIO_DEV_OFFS_CONFIG;

    dev_len += s390_virtio_device_num_vq(dev) * VIRTIO_VQCONFIG_LEN;

    dev_len += dev->feat_len * 2;

    dev_len += vdev->config_len;

    bus->dev_offs += dev_len;

    virtio_bind_device(vdev, &virtio_s390_bindings, DEVICE(dev));

    dev->host_features = vdev->get_features(vdev, dev->host_features);

    s390_virtio_device_sync(dev);

    s390_virtio_reset_idx(dev);

    if (dev->qdev.hotplugged) {

        S390CPU *cpu = s390_cpu_addr2state(0);

        s390_virtio_irq(cpu, VIRTIO_PARAM_DEV_ADD, dev->dev_offs);

    }

    return 0;

}

static int s390_virtio_net_init(VirtIOS390Device *dev)

{

    VirtIODevice *vdev;

    vdev = virtio_net_init((DeviceState *)dev, &dev->nic, &dev->net,

                           dev->host_features);

    if (!vdev) {

        return -1;

    }

    return s390_virtio_device_init(dev, vdev);

}

static int s390_virtio_blk_init(VirtIOS390Device *s390_dev)

{

    VirtIOBlkS390 *dev = VIRTIO_BLK_S390(s390_dev);

    DeviceState *vdev = DEVICE(&dev->vdev);

    virtio_blk_set_conf(vdev, &(dev->blk));

    qdev_set_parent_bus(vdev, BUS(&s390_dev->bus));

    if (qdev_init(vdev) < 0) {

        return -1;

    }

    return s390_virtio_device_init(s390_dev, VIRTIO_DEVICE(vdev));

}

static void s390_virtio_blk_instance_init(Object *obj)

{

    VirtIOBlkS390 *dev = VIRTIO_BLK_S390(obj);

    object_initialize(OBJECT(&dev->vdev), TYPE_VIRTIO_BLK);

    object_property_add_child(obj, "virtio-backend", OBJECT(&dev->vdev), NULL);

}

static int s390_virtio_serial_init(VirtIOS390Device *dev)

{

    VirtIOS390Bus *bus;

    VirtIODevice *vdev;

    int r;

    bus = DO_UPCAST(VirtIOS390Bus, bus, dev->qdev.parent_bus);

    vdev = virtio_serial_init((DeviceState *)dev, &dev->serial);

    if (!vdev) {

        return -1;

    }

    r = s390_virtio_device_init(dev, vdev);

    if (!r) {

        bus->console = dev;

    }

    return r;

}

static int s390_virtio_scsi_init(VirtIOS390Device *dev)

{

    VirtIODevice *vdev;

    vdev = virtio_scsi_init((DeviceState *)dev, &dev->scsi);

    if (!vdev) {

        return -1;

    }

    return s390_virtio_device_init(dev, vdev);

}

static int s390_virtio_rng_init(VirtIOS390Device *dev)

{

    VirtIODevice *vdev;

    vdev = virtio_rng_init((DeviceState *)dev, &dev->rng);

    if (!vdev) {

        return -1;

    }

    return s390_virtio_device_init(dev, vdev);

}

static uint64_t s390_virtio_device_vq_token(VirtIOS390Device *dev, int vq)

{

    ram_addr_t token_off;

    token_off = (dev->dev_offs + VIRTIO_DEV_OFFS_CONFIG) +

                (vq * VIRTIO_VQCONFIG_LEN) +

                VIRTIO_VQCONFIG_OFFS_TOKEN;

    return ldq_be_phys(token_off);

}

static ram_addr_t s390_virtio_device_num_vq(VirtIOS390Device *dev)

{

    VirtIODevice *vdev = dev->vdev;

    int num_vq;

    for (num_vq = 0; num_vq < VIRTIO_PCI_QUEUE_MAX; num_vq++) {

        if (!virtio_queue_get_num(vdev, num_vq)) {

            break;

        }

    }

    return num_vq;

}

static ram_addr_t s390_virtio_next_ring(VirtIOS390Bus *bus)

{

    ram_addr_t r = bus->next_ring;

    bus->next_ring += VIRTIO_RING_LEN;

    return r;

}

void s390_virtio_device_sync(VirtIOS390Device *dev)

{

    VirtIOS390Bus *bus = DO_UPCAST(VirtIOS390Bus, bus, dev->qdev.parent_bus);

    ram_addr_t cur_offs;

    uint8_t num_vq;

    int i;

    virtio_reset(dev->vdev);

    /* Sync dev space */

    stb_phys(dev->dev_offs + VIRTIO_DEV_OFFS_TYPE, dev->vdev->device_id);

    stb_phys(dev->dev_offs + VIRTIO_DEV_OFFS_NUM_VQ, s390_virtio_device_num_vq(dev));

    stb_phys(dev->dev_offs + VIRTIO_DEV_OFFS_FEATURE_LEN, dev->feat_len);

    stb_phys(dev->dev_offs + VIRTIO_DEV_OFFS_CONFIG_LEN, dev->vdev->config_len);

    num_vq = s390_virtio_device_num_vq(dev);

    stb_phys(dev->dev_offs + VIRTIO_DEV_OFFS_NUM_VQ, num_vq);

    /* Sync virtqueues */

    for (i = 0; i < num_vq; i++) {

        ram_addr_t vq = (dev->dev_offs + VIRTIO_DEV_OFFS_CONFIG) +

                        (i * VIRTIO_VQCONFIG_LEN);

        ram_addr_t vring;

        vring = s390_virtio_next_ring(bus);

        virtio_queue_set_addr(dev->vdev, i, vring);

        virtio_queue_set_vector(dev->vdev, i, i);

        stq_be_phys(vq + VIRTIO_VQCONFIG_OFFS_ADDRESS, vring);

        stw_be_phys(vq + VIRTIO_VQCONFIG_OFFS_NUM, virtio_queue_get_num(dev->vdev, i));

    }

    cur_offs = dev->dev_offs;

    cur_offs += VIRTIO_DEV_OFFS_CONFIG;

    cur_offs += num_vq * VIRTIO_VQCONFIG_LEN;

    /* Sync feature bitmap */

    stl_le_phys(cur_offs, dev->host_features);

    dev->feat_offs = cur_offs + dev->feat_len;

    cur_offs += dev->feat_len * 2;

    /* Sync config space */

    if (dev->vdev->get_config) {

        dev->vdev->get_config(dev->vdev, dev->vdev->config);

    }

    cpu_physical_memory_write(cur_offs,

                              dev->vdev->config, dev->vdev->config_len);

    cur_offs += dev->vdev->config_len;

}

void s390_virtio_device_update_status(VirtIOS390Device *dev)

{

    VirtIODevice *vdev = dev->vdev;

    uint32_t features;

    virtio_set_status(vdev, ldub_phys(dev->dev_offs + VIRTIO_DEV_OFFS_STATUS));

    /* Update guest supported feature bitmap */

    features = bswap32(ldl_be_phys(dev->feat_offs));

    virtio_set_features(vdev, features);

}

VirtIOS390Device *s390_virtio_bus_console(VirtIOS390Bus *bus)

{

    return bus->console;

}

/* Find a device by vring address */

VirtIOS390Device *s390_virtio_bus_find_vring(VirtIOS390Bus *bus,

                                             ram_addr_t mem,

                                             int *vq_num)

{

    BusChild *kid;

    int i;

    QTAILQ_FOREACH(kid, &bus->bus.children, sibling) {

        VirtIOS390Device *dev = (VirtIOS390Device *)kid->child;

        for(i = 0; i < VIRTIO_PCI_QUEUE_MAX; i++) {

            if (!virtio_queue_get_addr(dev->vdev, i))

                break;

            if (virtio_queue_get_addr(dev->vdev, i) == mem) {

                if (vq_num) {

                    *vq_num = i;

                }

                return dev;

            }

        }

    }

    return NULL;

}

/* Find a device by device descriptor location */

VirtIOS390Device *s390_virtio_bus_find_mem(VirtIOS390Bus *bus, ram_addr_t mem)

{

    BusChild *kid;

    QTAILQ_FOREACH(kid, &bus->bus.children, sibling) {

        VirtIOS390Device *dev = (VirtIOS390Device *)kid->child;

        if (dev->dev_offs == mem) {

            return dev;

        }

    }

    return NULL;

}

/* DeviceState to VirtIOS390Device. Note: used on datapath,

 * be careful and test performance if you change this.

 */

static inline VirtIOS390Device *to_virtio_s390_device_fast(DeviceState *d)

{

    return container_of(d, VirtIOS390Device, qdev);

}

/* DeviceState to VirtIOS390Device. TODO: use QOM. */

static inline VirtIOS390Device *to_virtio_s390_device(DeviceState *d)

{

    return container_of(d, VirtIOS390Device, qdev);

}

static void virtio_s390_notify(DeviceState *d, uint16_t vector)

{

    VirtIOS390Device *dev = to_virtio_s390_device_fast(d);

    uint64_t token = s390_virtio_device_vq_token(dev, vector);

    S390CPU *cpu = s390_cpu_addr2state(0);

    s390_virtio_irq(cpu, 0, token);

}

static unsigned virtio_s390_get_features(DeviceState *d)

{

    VirtIOS390Device *dev = to_virtio_s390_device(d);

    return dev->host_features;

}

/**************** S390 Virtio Bus Device Descriptions *******************/

static const VirtIOBindings virtio_s390_bindings = {

    .notify = virtio_s390_notify,

    .get_features = virtio_s390_get_features,

};

static Property s390_virtio_net_properties[] = {

    DEFINE_NIC_PROPERTIES(VirtIOS390Device, nic),

    DEFINE_VIRTIO_NET_FEATURES(VirtIOS390Device, host_features),

    DEFINE_PROP_UINT32("x-txtimer", VirtIOS390Device,

                       net.txtimer, TX_TIMER_INTERVAL),

    DEFINE_PROP_INT32("x-txburst", VirtIOS390Device,

                      net.txburst, TX_BURST),

    DEFINE_PROP_STRING("tx", VirtIOS390Device, net.tx),

    DEFINE_PROP_END_OF_LIST(),

};

static void s390_virtio_net_class_init(ObjectClass *klass, void *data)

{

    DeviceClass *dc = DEVICE_CLASS(klass);

    VirtIOS390DeviceClass *k = VIRTIO_S390_DEVICE_CLASS(klass);

    k->init = s390_virtio_net_init;

    dc->props = s390_virtio_net_properties;

}

static const TypeInfo s390_virtio_net = {

    .name          = "virtio-net-s390",

    .parent        = TYPE_VIRTIO_S390_DEVICE,

    .instance_size = sizeof(VirtIOS390Device),

    .class_init    = s390_virtio_net_class_init,

};

static Property s390_virtio_blk_properties[] = {

    DEFINE_BLOCK_PROPERTIES(VirtIOBlkS390, blk.conf),

    DEFINE_BLOCK_CHS_PROPERTIES(VirtIOBlkS390, blk.conf),

    DEFINE_PROP_STRING("serial", VirtIOBlkS390, blk.serial),

#ifdef __linux__

    DEFINE_PROP_BIT("scsi", VirtIOBlkS390, blk.scsi, 0, true),

#endif

    DEFINE_PROP_BIT("config-wce", VirtIOBlkS390, blk.config_wce, 0, true),

    DEFINE_PROP_END_OF_LIST(),

};

static void s390_virtio_blk_class_init(ObjectClass *klass, void *data)

{

    DeviceClass *dc = DEVICE_CLASS(klass);

    VirtIOS390DeviceClass *k = VIRTIO_S390_DEVICE_CLASS(klass);

    k->init = s390_virtio_blk_init;

    dc->props = s390_virtio_blk_properties;

}

static const TypeInfo s390_virtio_blk = {

    .name          = "virtio-blk-s390",

    .parent        = TYPE_VIRTIO_S390_DEVICE,

    .instance_size = sizeof(VirtIOBlkS390),

    .instance_init = s390_virtio_blk_instance_init,

    .class_init    = s390_virtio_blk_class_init,

};

static Property s390_virtio_serial_properties[] = {

    DEFINE_PROP_UINT32("max_ports", VirtIOS390Device,

                       serial.max_virtserial_ports, 31),

    DEFINE_PROP_END_OF_LIST(),

};

static void s390_virtio_serial_class_init(ObjectClass *klass, void *data)

{

    DeviceClass *dc = DEVICE_CLASS(klass);

    VirtIOS390DeviceClass *k = VIRTIO_S390_DEVICE_CLASS(klass);

    k->init = s390_virtio_serial_init;

    dc->props = s390_virtio_serial_properties;

}

static const TypeInfo s390_virtio_serial = {

    .name          = "virtio-serial-s390",

    .parent        = TYPE_VIRTIO_S390_DEVICE,

    .instance_size = sizeof(VirtIOS390Device),

    .class_init    = s390_virtio_serial_class_init,

};

static void s390_virtio_rng_initfn(Object *obj)

{

    VirtIOS390Device *dev = VIRTIO_S390_DEVICE(obj);

    object_property_add_link(obj, "rng", TYPE_RNG_BACKEND,

                             (Object **)&dev->rng.rng, NULL);

}

static void s390_virtio_rng_class_init(ObjectClass *klass, void *data)

{

    VirtIOS390DeviceClass *k = VIRTIO_S390_DEVICE_CLASS(klass);

    k->init = s390_virtio_rng_init;

}

static const TypeInfo s390_virtio_rng = {

    .name          = "virtio-rng-s390",

    .parent        = TYPE_VIRTIO_S390_DEVICE,

    .instance_size = sizeof(VirtIOS390Device),

    .instance_init = s390_virtio_rng_initfn,

    .class_init    = s390_virtio_rng_class_init,

};

static int s390_virtio_busdev_init(DeviceState *dev)

{

    VirtIOS390Device *_dev = (VirtIOS390Device *)dev;

    VirtIOS390DeviceClass *_info = VIRTIO_S390_DEVICE_GET_CLASS(dev);

    virtio_s390_bus_new(&_dev->bus, _dev);

    return _info->init(_dev);

}

static void s390_virtio_busdev_reset(DeviceState *dev)

{

    VirtIOS390Device *_dev = (VirtIOS390Device *)dev;

    virtio_reset(_dev->vdev);

}

static void virtio_s390_device_class_init(ObjectClass *klass, void *data)

{

    DeviceClass *dc = DEVICE_CLASS(klass);

    dc->init = s390_virtio_busdev_init;

    dc->bus_type = TYPE_S390_VIRTIO_BUS;

    dc->unplug = qdev_simple_unplug_cb;

    dc->reset = s390_virtio_busdev_reset;

}

static const TypeInfo virtio_s390_device_info = {

    .name = TYPE_VIRTIO_S390_DEVICE,

    .parent = TYPE_DEVICE,

    .instance_size = sizeof(VirtIOS390Device),

    .class_init = virtio_s390_device_class_init,

    .class_size = sizeof(VirtIOS390DeviceClass),

    .abstract = true,

};

static Property s390_virtio_scsi_properties[] = {

    DEFINE_VIRTIO_SCSI_PROPERTIES(VirtIOS390Device, host_features, scsi),

    DEFINE_PROP_END_OF_LIST(),

};

static void s390_virtio_scsi_class_init(ObjectClass *klass, void *data)

{

    DeviceClass *dc = DEVICE_CLASS(klass);

    VirtIOS390DeviceClass *k = VIRTIO_S390_DEVICE_CLASS(klass);

    k->init = s390_virtio_scsi_init;

    dc->props = s390_virtio_scsi_properties;

}

static const TypeInfo s390_virtio_scsi = {

    .name          = "virtio-scsi-s390",

    .parent        = TYPE_VIRTIO_S390_DEVICE,

    .instance_size = sizeof(VirtIOS390Device),

    .class_init    = s390_virtio_scsi_class_init,

};

/***************** S390 Virtio Bus Bridge Device *******************/

/* Only required to have the virtio bus as child in the system bus */

static int s390_virtio_bridge_init(SysBusDevice *dev)

{

    /* nothing */

    return 0;

}

static void s390_virtio_bridge_class_init(ObjectClass *klass, void *data)

{

    DeviceClass *dc = DEVICE_CLASS(klass);

    SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);

    k->init = s390_virtio_bridge_init;

    dc->no_user = 1;

}

static const TypeInfo s390_virtio_bridge_info = {

    .name          = "s390-virtio-bridge",

    .parent        = TYPE_SYS_BUS_DEVICE,

    .instance_size = sizeof(SysBusDevice),

    .class_init    = s390_virtio_bridge_class_init,

};

/* virtio-s390-bus */

void virtio_s390_bus_new(VirtioBusState *bus, VirtIOS390Device *dev)

{

    DeviceState *qdev = DEVICE(dev);

    BusState *qbus;

    qbus_create_inplace((BusState *)bus, TYPE_VIRTIO_S390_BUS, qdev, NULL);

    qbus = BUS(bus);

    qbus->allow_hotplug = 1;

}

static void virtio_s390_bus_class_init(ObjectClass *klass, void *data)

{

    VirtioBusClass *k = VIRTIO_BUS_CLASS(klass);

    BusClass *bus_class = BUS_CLASS(klass);

    bus_class->max_dev = 1;

    k->notify = virtio_s390_notify;

    k->get_features = virtio_s390_get_features;

}

static const TypeInfo virtio_s390_bus_info = {

    .name          = TYPE_VIRTIO_S390_BUS,

    .parent        = TYPE_VIRTIO_BUS,

    .instance_size = sizeof(VirtioS390BusState),

    .class_init    = virtio_s390_bus_class_init,

};

static void s390_virtio_register_types(void)

{

    type_register_static(&virtio_s390_bus_info);

    type_register_static(&s390_virtio_bus_info);

    type_register_static(&virtio_s390_device_info);

    type_register_static(&s390_virtio_serial);

    type_register_static(&s390_virtio_blk);

    type_register_static(&s390_virtio_net);

    type_register_static(&s390_virtio_scsi);

    type_register_static(&s390_virtio_rng);

    type_register_static(&s390_virtio_bridge_info);

}

type_init(s390_virtio_register_types)