qemu/hw/intc/s390_flic.c
<<
>>
Prefs
   1/*
   2 * QEMU S390x floating interrupt controller (flic)
   3 *
   4 * Copyright 2014 IBM Corp.
   5 * Author(s): Jens Freimann <jfrei@linux.vnet.ibm.com>
   6 *            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 "qemu/error-report.h"
  15#include "qemu/main-loop.h"
  16#include "qemu/module.h"
  17#include "hw/sysbus.h"
  18#include "hw/s390x/ioinst.h"
  19#include "hw/s390x/s390_flic.h"
  20#include "hw/qdev-properties.h"
  21#include "hw/s390x/css.h"
  22#include "trace.h"
  23#include "qapi/error.h"
  24#include "hw/s390x/s390-virtio-ccw.h"
  25
  26S390FLICStateClass *s390_get_flic_class(S390FLICState *fs)
  27{
  28    static S390FLICStateClass *class;
  29
  30    if (!class) {
  31        /* we only have one flic device, so this is fine to cache */
  32        class = S390_FLIC_COMMON_GET_CLASS(fs);
  33    }
  34    return class;
  35}
  36
  37QEMUS390FLICState *s390_get_qemu_flic(S390FLICState *fs)
  38{
  39    static QEMUS390FLICState *flic;
  40
  41    if (!flic) {
  42        /* we only have one flic device, so this is fine to cache */
  43        flic = QEMU_S390_FLIC(fs);
  44    }
  45    return flic;
  46}
  47
  48S390FLICState *s390_get_flic(void)
  49{
  50    static S390FLICState *fs;
  51
  52    if (!fs) {
  53        fs = S390_FLIC_COMMON(object_resolve_path_type("",
  54                                                       TYPE_S390_FLIC_COMMON,
  55                                                       NULL));
  56    }
  57    return fs;
  58}
  59
  60void s390_flic_init(void)
  61{
  62    DeviceState *dev;
  63
  64    if (kvm_enabled()) {
  65        dev = qdev_new(TYPE_KVM_S390_FLIC);
  66        object_property_add_child(qdev_get_machine(), TYPE_KVM_S390_FLIC,
  67                                  OBJECT(dev));
  68    } else {
  69        dev = qdev_new(TYPE_QEMU_S390_FLIC);
  70        object_property_add_child(qdev_get_machine(), TYPE_QEMU_S390_FLIC,
  71                                  OBJECT(dev));
  72    }
  73    sysbus_realize_and_unref(SYS_BUS_DEVICE(dev), &error_fatal);
  74}
  75
  76static int qemu_s390_register_io_adapter(S390FLICState *fs, uint32_t id,
  77                                         uint8_t isc, bool swap,
  78                                         bool is_maskable, uint8_t flags)
  79{
  80    /* nothing to do */
  81    return 0;
  82}
  83
  84static int qemu_s390_io_adapter_map(S390FLICState *fs, uint32_t id,
  85                                    uint64_t map_addr, bool do_map)
  86{
  87    /* nothing to do */
  88    return 0;
  89}
  90
  91static int qemu_s390_add_adapter_routes(S390FLICState *fs,
  92                                        AdapterRoutes *routes)
  93{
  94    return -ENOSYS;
  95}
  96
  97static void qemu_s390_release_adapter_routes(S390FLICState *fs,
  98                                             AdapterRoutes *routes)
  99{
 100}
 101
 102static int qemu_s390_clear_io_flic(S390FLICState *fs, uint16_t subchannel_id,
 103                           uint16_t subchannel_nr)
 104{
 105    QEMUS390FLICState *flic  = s390_get_qemu_flic(fs);
 106    QEMUS390FlicIO *cur, *next;
 107    uint8_t isc;
 108
 109    g_assert(qemu_mutex_iothread_locked());
 110    if (!(flic->pending & FLIC_PENDING_IO)) {
 111        return 0;
 112    }
 113
 114    /* check all iscs */
 115    for (isc = 0; isc < 8; isc++) {
 116        if (QLIST_EMPTY(&flic->io[isc])) {
 117            continue;
 118        }
 119
 120        /* search and delete any matching one */
 121        QLIST_FOREACH_SAFE(cur, &flic->io[isc], next, next) {
 122            if (cur->id == subchannel_id && cur->nr == subchannel_nr) {
 123                QLIST_REMOVE(cur, next);
 124                g_free(cur);
 125            }
 126        }
 127
 128        /* update our indicator bit */
 129        if (QLIST_EMPTY(&flic->io[isc])) {
 130            flic->pending &= ~ISC_TO_PENDING_IO(isc);
 131        }
 132    }
 133    return 0;
 134}
 135
 136static int qemu_s390_modify_ais_mode(S390FLICState *fs, uint8_t isc,
 137                                     uint16_t mode)
 138{
 139    QEMUS390FLICState *flic  = s390_get_qemu_flic(fs);
 140
 141    switch (mode) {
 142    case SIC_IRQ_MODE_ALL:
 143        flic->simm &= ~AIS_MODE_MASK(isc);
 144        flic->nimm &= ~AIS_MODE_MASK(isc);
 145        break;
 146    case SIC_IRQ_MODE_SINGLE:
 147        flic->simm |= AIS_MODE_MASK(isc);
 148        flic->nimm &= ~AIS_MODE_MASK(isc);
 149        break;
 150    default:
 151        return -EINVAL;
 152    }
 153
 154    return 0;
 155}
 156
 157static int qemu_s390_inject_airq(S390FLICState *fs, uint8_t type,
 158                                 uint8_t isc, uint8_t flags)
 159{
 160    QEMUS390FLICState *flic = s390_get_qemu_flic(fs);
 161    S390FLICStateClass *fsc = s390_get_flic_class(fs);
 162    bool flag = flags & S390_ADAPTER_SUPPRESSIBLE;
 163    uint32_t io_int_word = (isc << 27) | IO_INT_WORD_AI;
 164
 165    if (flag && (flic->nimm & AIS_MODE_MASK(isc))) {
 166        trace_qemu_s390_airq_suppressed(type, isc);
 167        return 0;
 168    }
 169
 170    fsc->inject_io(fs, 0, 0, 0, io_int_word);
 171
 172    if (flag && (flic->simm & AIS_MODE_MASK(isc))) {
 173        flic->nimm |= AIS_MODE_MASK(isc);
 174        trace_qemu_s390_suppress_airq(isc, "Single-Interruption Mode",
 175                                      "NO-Interruptions Mode");
 176    }
 177
 178    return 0;
 179}
 180
 181static void qemu_s390_flic_notify(uint32_t type)
 182{
 183    CPUState *cs;
 184
 185    /*
 186     * We have to make all CPUs see CPU_INTERRUPT_HARD, so they might
 187     * consider it. We will kick all running CPUs and only relevant
 188     * sleeping ones.
 189     */
 190    CPU_FOREACH(cs) {
 191        S390CPU *cpu = S390_CPU(cs);
 192
 193        cs->interrupt_request |= CPU_INTERRUPT_HARD;
 194
 195        /* ignore CPUs that are not sleeping */
 196        if (s390_cpu_get_state(cpu) != S390_CPU_STATE_OPERATING &&
 197            s390_cpu_get_state(cpu) != S390_CPU_STATE_LOAD) {
 198            continue;
 199        }
 200
 201        /* we always kick running CPUs for now, this is tricky */
 202        if (cs->halted) {
 203            /* don't check for subclasses, CPUs double check when waking up */
 204            if (type & FLIC_PENDING_SERVICE) {
 205                if (!(cpu->env.psw.mask & PSW_MASK_EXT)) {
 206                    continue;
 207                }
 208            } else if (type & FLIC_PENDING_IO) {
 209                if (!(cpu->env.psw.mask & PSW_MASK_IO)) {
 210                    continue;
 211                }
 212            } else if (type & FLIC_PENDING_MCHK_CR) {
 213                if (!(cpu->env.psw.mask & PSW_MASK_MCHECK)) {
 214                    continue;
 215                }
 216            }
 217        }
 218        cpu_interrupt(cs, CPU_INTERRUPT_HARD);
 219    }
 220}
 221
 222uint32_t qemu_s390_flic_dequeue_service(QEMUS390FLICState *flic)
 223{
 224    uint32_t tmp;
 225
 226    g_assert(qemu_mutex_iothread_locked());
 227    g_assert(flic->pending & FLIC_PENDING_SERVICE);
 228    tmp = flic->service_param;
 229    flic->service_param = 0;
 230    flic->pending &= ~FLIC_PENDING_SERVICE;
 231
 232    return tmp;
 233}
 234
 235/* caller has to free the returned object */
 236QEMUS390FlicIO *qemu_s390_flic_dequeue_io(QEMUS390FLICState *flic, uint64_t cr6)
 237{
 238    QEMUS390FlicIO *io;
 239    uint8_t isc;
 240
 241    g_assert(qemu_mutex_iothread_locked());
 242    if (!(flic->pending & CR6_TO_PENDING_IO(cr6))) {
 243        return NULL;
 244    }
 245
 246    for (isc = 0; isc < 8; isc++) {
 247        if (QLIST_EMPTY(&flic->io[isc]) || !(cr6 & ISC_TO_ISC_BITS(isc))) {
 248            continue;
 249        }
 250        io = QLIST_FIRST(&flic->io[isc]);
 251        QLIST_REMOVE(io, next);
 252
 253        /* update our indicator bit */
 254        if (QLIST_EMPTY(&flic->io[isc])) {
 255            flic->pending &= ~ISC_TO_PENDING_IO(isc);
 256        }
 257        return io;
 258    }
 259
 260    return NULL;
 261}
 262
 263void qemu_s390_flic_dequeue_crw_mchk(QEMUS390FLICState *flic)
 264{
 265    g_assert(qemu_mutex_iothread_locked());
 266    g_assert(flic->pending & FLIC_PENDING_MCHK_CR);
 267    flic->pending &= ~FLIC_PENDING_MCHK_CR;
 268}
 269
 270static void qemu_s390_inject_service(S390FLICState *fs, uint32_t parm)
 271{
 272    QEMUS390FLICState *flic = s390_get_qemu_flic(fs);
 273
 274    g_assert(qemu_mutex_iothread_locked());
 275    /* multiplexing is good enough for sclp - kvm does it internally as well */
 276    flic->service_param |= parm;
 277    flic->pending |= FLIC_PENDING_SERVICE;
 278
 279    qemu_s390_flic_notify(FLIC_PENDING_SERVICE);
 280}
 281
 282static void qemu_s390_inject_io(S390FLICState *fs, uint16_t subchannel_id,
 283                                uint16_t subchannel_nr, uint32_t io_int_parm,
 284                                uint32_t io_int_word)
 285{
 286    const uint8_t isc = IO_INT_WORD_ISC(io_int_word);
 287    QEMUS390FLICState *flic = s390_get_qemu_flic(fs);
 288    QEMUS390FlicIO *io;
 289
 290    g_assert(qemu_mutex_iothread_locked());
 291    io = g_new0(QEMUS390FlicIO, 1);
 292    io->id = subchannel_id;
 293    io->nr = subchannel_nr;
 294    io->parm = io_int_parm;
 295    io->word = io_int_word;
 296
 297    QLIST_INSERT_HEAD(&flic->io[isc], io, next);
 298    flic->pending |= ISC_TO_PENDING_IO(isc);
 299
 300    qemu_s390_flic_notify(ISC_TO_PENDING_IO(isc));
 301}
 302
 303static void qemu_s390_inject_crw_mchk(S390FLICState *fs)
 304{
 305    QEMUS390FLICState *flic = s390_get_qemu_flic(fs);
 306
 307    g_assert(qemu_mutex_iothread_locked());
 308    flic->pending |= FLIC_PENDING_MCHK_CR;
 309
 310    qemu_s390_flic_notify(FLIC_PENDING_MCHK_CR);
 311}
 312
 313bool qemu_s390_flic_has_service(QEMUS390FLICState *flic)
 314{
 315    /* called without lock via cc->has_work, will be validated under lock */
 316    return !!(flic->pending & FLIC_PENDING_SERVICE);
 317}
 318
 319bool qemu_s390_flic_has_io(QEMUS390FLICState *flic, uint64_t cr6)
 320{
 321    /* called without lock via cc->has_work, will be validated under lock */
 322    return !!(flic->pending & CR6_TO_PENDING_IO(cr6));
 323}
 324
 325bool qemu_s390_flic_has_crw_mchk(QEMUS390FLICState *flic)
 326{
 327    /* called without lock via cc->has_work, will be validated under lock */
 328    return !!(flic->pending & FLIC_PENDING_MCHK_CR);
 329}
 330
 331bool qemu_s390_flic_has_any(QEMUS390FLICState *flic)
 332{
 333    g_assert(qemu_mutex_iothread_locked());
 334    return !!flic->pending;
 335}
 336
 337static void qemu_s390_flic_reset(DeviceState *dev)
 338{
 339    QEMUS390FLICState *flic = QEMU_S390_FLIC(dev);
 340    QEMUS390FlicIO *cur, *next;
 341    int isc;
 342
 343    g_assert(qemu_mutex_iothread_locked());
 344    flic->simm = 0;
 345    flic->nimm = 0;
 346    flic->pending = 0;
 347
 348    /* remove all pending io interrupts */
 349    for (isc = 0; isc < 8; isc++) {
 350        QLIST_FOREACH_SAFE(cur, &flic->io[isc], next, next) {
 351            QLIST_REMOVE(cur, next);
 352            g_free(cur);
 353        }
 354    }
 355}
 356
 357bool ais_needed(void *opaque)
 358{
 359    S390FLICState *s = opaque;
 360
 361    return s->ais_supported;
 362}
 363
 364static const VMStateDescription qemu_s390_flic_vmstate = {
 365    .name = "qemu-s390-flic",
 366    .version_id = 1,
 367    .minimum_version_id = 1,
 368    .needed = ais_needed,
 369    .fields = (VMStateField[]) {
 370        VMSTATE_UINT8(simm, QEMUS390FLICState),
 371        VMSTATE_UINT8(nimm, QEMUS390FLICState),
 372        VMSTATE_END_OF_LIST()
 373    }
 374};
 375
 376static void qemu_s390_flic_instance_init(Object *obj)
 377{
 378    QEMUS390FLICState *flic = QEMU_S390_FLIC(obj);
 379    int isc;
 380
 381    for (isc = 0; isc < 8; isc++) {
 382        QLIST_INIT(&flic->io[isc]);
 383    }
 384}
 385
 386static void qemu_s390_flic_class_init(ObjectClass *oc, void *data)
 387{
 388    DeviceClass *dc = DEVICE_CLASS(oc);
 389    S390FLICStateClass *fsc = S390_FLIC_COMMON_CLASS(oc);
 390
 391    dc->reset = qemu_s390_flic_reset;
 392    dc->vmsd = &qemu_s390_flic_vmstate;
 393    fsc->register_io_adapter = qemu_s390_register_io_adapter;
 394    fsc->io_adapter_map = qemu_s390_io_adapter_map;
 395    fsc->add_adapter_routes = qemu_s390_add_adapter_routes;
 396    fsc->release_adapter_routes = qemu_s390_release_adapter_routes;
 397    fsc->clear_io_irq = qemu_s390_clear_io_flic;
 398    fsc->modify_ais_mode = qemu_s390_modify_ais_mode;
 399    fsc->inject_airq = qemu_s390_inject_airq;
 400    fsc->inject_service = qemu_s390_inject_service;
 401    fsc->inject_io = qemu_s390_inject_io;
 402    fsc->inject_crw_mchk = qemu_s390_inject_crw_mchk;
 403}
 404
 405static Property s390_flic_common_properties[] = {
 406    DEFINE_PROP_UINT32("adapter_routes_max_batch", S390FLICState,
 407                       adapter_routes_max_batch, ADAPTER_ROUTES_MAX_GSI),
 408    DEFINE_PROP_END_OF_LIST(),
 409};
 410
 411static void s390_flic_common_realize(DeviceState *dev, Error **errp)
 412{
 413    S390FLICState *fs = S390_FLIC_COMMON(dev);
 414    uint32_t max_batch = fs->adapter_routes_max_batch;
 415
 416    if (max_batch > ADAPTER_ROUTES_MAX_GSI) {
 417        error_setg(errp, "flic property adapter_routes_max_batch too big"
 418                   " (%d > %d)", max_batch, ADAPTER_ROUTES_MAX_GSI);
 419        return;
 420    }
 421
 422    fs->ais_supported = s390_has_feat(S390_FEAT_ADAPTER_INT_SUPPRESSION);
 423}
 424
 425static void s390_flic_class_init(ObjectClass *oc, void *data)
 426{
 427    DeviceClass *dc = DEVICE_CLASS(oc);
 428
 429    device_class_set_props(dc, s390_flic_common_properties);
 430    dc->realize = s390_flic_common_realize;
 431}
 432
 433static const TypeInfo qemu_s390_flic_info = {
 434    .name          = TYPE_QEMU_S390_FLIC,
 435    .parent        = TYPE_S390_FLIC_COMMON,
 436    .instance_size = sizeof(QEMUS390FLICState),
 437    .instance_init = qemu_s390_flic_instance_init,
 438    .class_init    = qemu_s390_flic_class_init,
 439};
 440
 441
 442static const TypeInfo s390_flic_common_info = {
 443    .name          = TYPE_S390_FLIC_COMMON,
 444    .parent        = TYPE_SYS_BUS_DEVICE,
 445    .instance_size = sizeof(S390FLICState),
 446    .class_init    = s390_flic_class_init,
 447    .class_size    = sizeof(S390FLICStateClass),
 448};
 449
 450static void qemu_s390_flic_register_types(void)
 451{
 452    type_register_static(&s390_flic_common_info);
 453    type_register_static(&qemu_s390_flic_info);
 454}
 455
 456type_init(qemu_s390_flic_register_types)
 457
 458static bool adapter_info_so_needed(void *opaque)
 459{
 460    return css_migration_enabled();
 461}
 462
 463const VMStateDescription vmstate_adapter_info_so = {
 464    .name = "s390_adapter_info/summary_offset",
 465    .version_id = 1,
 466    .minimum_version_id = 1,
 467    .needed = adapter_info_so_needed,
 468    .fields = (VMStateField[]) {
 469        VMSTATE_UINT32(summary_offset, AdapterInfo),
 470        VMSTATE_END_OF_LIST()
 471    }
 472};
 473
 474const VMStateDescription vmstate_adapter_info = {
 475    .name = "s390_adapter_info",
 476    .version_id = 1,
 477    .minimum_version_id = 1,
 478    .fields = (VMStateField[]) {
 479        VMSTATE_UINT64(ind_offset, AdapterInfo),
 480        /*
 481         * We do not have to migrate neither the id nor the addresses.
 482         * The id is set by css_register_io_adapter and the addresses
 483         * are set based on the IndAddr objects after those get mapped.
 484         */
 485        VMSTATE_END_OF_LIST()
 486    },
 487    .subsections = (const VMStateDescription * []) {
 488        &vmstate_adapter_info_so,
 489        NULL
 490    }
 491};
 492
 493const VMStateDescription vmstate_adapter_routes = {
 494
 495    .name = "s390_adapter_routes",
 496    .version_id = 1,
 497    .minimum_version_id = 1,
 498    .fields = (VMStateField[]) {
 499        VMSTATE_STRUCT(adapter, AdapterRoutes, 1, vmstate_adapter_info,
 500                       AdapterInfo),
 501        VMSTATE_END_OF_LIST()
 502    }
 503};
 504