[mirror_qemu.git] / hw / s390x / event-facility.c

/*
 * SCLP
 *    Event Facility
 *       handles SCLP event types
 *          - Signal Quiesce - system power down
 *          - ASCII Console Data - VT220 read and write
 *
 * Copyright IBM, Corp. 2012
 *
 * Authors:
 *  Heinz Graalfs <graalfs@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 "sysemu/sysemu.h"

#include "hw/s390x/sclp.h"
#include "hw/s390x/event-facility.h"

typedef struct SCLPEventsBus {
    BusState qbus;
} SCLPEventsBus;

/* we need to save 32 bit chunks for compatibility */
#ifdef HOST_WORDS_BIGENDIAN
#define RECV_MASK_LOWER 1
#define RECV_MASK_UPPER 0
#else /* little endian host */
#define RECV_MASK_LOWER 0
#define RECV_MASK_UPPER 1
#endif

struct SCLPEventFacility {
    SysBusDevice parent_obj;
    SCLPEventsBus sbus;
    /* guest's receive mask */
    union {
        uint32_t receive_mask_pieces[2];
        sccb_mask_t receive_mask;
    };
    /*
     * when false, we keep the same broken, backwards compatible behaviour as
     * before, allowing only masks of size exactly 4; when true, we implement
     * the architecture correctly, allowing all valid mask sizes. Needed for
     * migration toward older versions.
     */
    bool allow_all_mask_sizes;
    /* length of the receive mask */
    uint16_t mask_length;
};

/* return true if any child has event pending set */
static bool event_pending(SCLPEventFacility *ef)
{
    BusChild *kid;
    SCLPEvent *event;
    SCLPEventClass *event_class;

    QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
        DeviceState *qdev = kid->child;
        event = DO_UPCAST(SCLPEvent, qdev, qdev);
        event_class = SCLP_EVENT_GET_CLASS(event);
        if (event->event_pending &&
            event_class->get_send_mask() & ef->receive_mask) {
            return true;
        }
    }
    return false;
}

static sccb_mask_t get_host_send_mask(SCLPEventFacility *ef)
{
    sccb_mask_t mask;
    BusChild *kid;
    SCLPEventClass *child;

    mask = 0;

    QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
        DeviceState *qdev = kid->child;
        child = SCLP_EVENT_GET_CLASS((SCLPEvent *) qdev);
        mask |= child->get_send_mask();
    }
    return mask;
}

static sccb_mask_t get_host_receive_mask(SCLPEventFacility *ef)
{
    sccb_mask_t mask;
    BusChild *kid;
    SCLPEventClass *child;

    mask = 0;

    QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
        DeviceState *qdev = kid->child;
        child = SCLP_EVENT_GET_CLASS((SCLPEvent *) qdev);
        mask |= child->get_receive_mask();
    }
    return mask;
}

static uint16_t write_event_length_check(SCCB *sccb)
{
    int slen;
    unsigned elen = 0;
    EventBufferHeader *event;
    WriteEventData *wed = (WriteEventData *) sccb;

    event = (EventBufferHeader *) &wed->ebh;
    for (slen = sccb_data_len(sccb); slen > 0; slen -= elen) {
        elen = be16_to_cpu(event->length);
        if (elen < sizeof(*event) || elen > slen) {
            return SCLP_RC_EVENT_BUFFER_SYNTAX_ERROR;
        }
        event = (void *) event + elen;
    }
    if (slen) {
        return SCLP_RC_INCONSISTENT_LENGTHS;
    }
    return SCLP_RC_NORMAL_COMPLETION;
}

static uint16_t handle_write_event_buf(SCLPEventFacility *ef,
                                       EventBufferHeader *event_buf, SCCB *sccb)
{
    uint16_t rc;
    BusChild *kid;
    SCLPEvent *event;
    SCLPEventClass *ec;

    rc = SCLP_RC_INVALID_FUNCTION;

    QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
        DeviceState *qdev = kid->child;
        event = (SCLPEvent *) qdev;
        ec = SCLP_EVENT_GET_CLASS(event);

        if (ec->write_event_data &&
            ec->can_handle_event(event_buf->type)) {
            rc = ec->write_event_data(event, event_buf);
            break;
        }
    }
    return rc;
}

static uint16_t handle_sccb_write_events(SCLPEventFacility *ef, SCCB *sccb)
{
    uint16_t rc;
    int slen;
    unsigned elen = 0;
    EventBufferHeader *event_buf;
    WriteEventData *wed = (WriteEventData *) sccb;

    event_buf = &wed->ebh;
    rc = SCLP_RC_NORMAL_COMPLETION;

    /* loop over all contained event buffers */
    for (slen = sccb_data_len(sccb); slen > 0; slen -= elen) {
        elen = be16_to_cpu(event_buf->length);

        /* in case of a previous error mark all trailing buffers
         * as not accepted */
        if (rc != SCLP_RC_NORMAL_COMPLETION) {
            event_buf->flags &= ~(SCLP_EVENT_BUFFER_ACCEPTED);
        } else {
            rc = handle_write_event_buf(ef, event_buf, sccb);
        }
        event_buf = (void *) event_buf + elen;
    }
    return rc;
}

static void write_event_data(SCLPEventFacility *ef, SCCB *sccb)
{
    if (sccb->h.function_code != SCLP_FC_NORMAL_WRITE) {
        sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_FUNCTION);
        goto out;
    }
    if (be16_to_cpu(sccb->h.length) < 8) {
        sccb->h.response_code = cpu_to_be16(SCLP_RC_INSUFFICIENT_SCCB_LENGTH);
        goto out;
    }
    /* first do a sanity check of the write events */
    sccb->h.response_code = cpu_to_be16(write_event_length_check(sccb));

    /* if no early error, then execute */
    if (sccb->h.response_code == be16_to_cpu(SCLP_RC_NORMAL_COMPLETION)) {
        sccb->h.response_code =
                cpu_to_be16(handle_sccb_write_events(ef, sccb));
    }

out:
    return;
}

static uint16_t handle_sccb_read_events(SCLPEventFacility *ef, SCCB *sccb,
                                        sccb_mask_t mask)
{
    uint16_t rc;
    int slen;
    unsigned elen;
    BusChild *kid;
    SCLPEvent *event;
    SCLPEventClass *ec;
    EventBufferHeader *event_buf;
    ReadEventData *red = (ReadEventData *) sccb;

    event_buf = &red->ebh;
    event_buf->length = 0;
    slen = sizeof(sccb->data);

    rc = SCLP_RC_NO_EVENT_BUFFERS_STORED;

    QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
        DeviceState *qdev = kid->child;
        event = (SCLPEvent *) qdev;
        ec = SCLP_EVENT_GET_CLASS(event);

        if (mask & ec->get_send_mask()) {
            if (ec->read_event_data(event, event_buf, &slen)) {
                elen = be16_to_cpu(event_buf->length);
                event_buf = (EventBufferHeader *) ((char *)event_buf + elen);
                rc = SCLP_RC_NORMAL_COMPLETION;
            }
        }
    }

    if (sccb->h.control_mask[2] & SCLP_VARIABLE_LENGTH_RESPONSE) {
        /* architecture suggests to reset variable-length-response bit */
        sccb->h.control_mask[2] &= ~SCLP_VARIABLE_LENGTH_RESPONSE;
        /* with a new length value */
        sccb->h.length = cpu_to_be16(SCCB_SIZE - slen);
    }
    return rc;
}

/* copy up to src_len bytes and fill the rest of dst with zeroes */
static void copy_mask(uint8_t *dst, uint8_t *src, uint16_t dst_len,
                      uint16_t src_len)
{
    int i;

    for (i = 0; i < dst_len; i++) {
        dst[i] = i < src_len ? src[i] : 0;
    }
}

static void read_event_data(SCLPEventFacility *ef, SCCB *sccb)
{
    sccb_mask_t sclp_active_selection_mask;
    sccb_mask_t sclp_cp_receive_mask;

    ReadEventData *red = (ReadEventData *) sccb;

    if (be16_to_cpu(sccb->h.length) != SCCB_SIZE) {
        sccb->h.response_code = cpu_to_be16(SCLP_RC_INSUFFICIENT_SCCB_LENGTH);
        goto out;
    }

    sclp_cp_receive_mask = ef->receive_mask;

    /* get active selection mask */
    switch (sccb->h.function_code) {
    case SCLP_UNCONDITIONAL_READ:
        sclp_active_selection_mask = sclp_cp_receive_mask;
        break;
    case SCLP_SELECTIVE_READ:
        copy_mask((uint8_t *)&sclp_active_selection_mask, (uint8_t *)&red->mask,
                  sizeof(sclp_active_selection_mask), ef->mask_length);
        sclp_active_selection_mask = be64_to_cpu(sclp_active_selection_mask);
        if (!sclp_cp_receive_mask ||
            (sclp_active_selection_mask & ~sclp_cp_receive_mask)) {
            sccb->h.response_code =
                    cpu_to_be16(SCLP_RC_INVALID_SELECTION_MASK);
            goto out;
        }
        break;
    default:
        sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_FUNCTION);
        goto out;
    }
    sccb->h.response_code = cpu_to_be16(
            handle_sccb_read_events(ef, sccb, sclp_active_selection_mask));

out:
    return;
}

static void write_event_mask(SCLPEventFacility *ef, SCCB *sccb)
{
    WriteEventMask *we_mask = (WriteEventMask *) sccb;
    uint16_t mask_length = be16_to_cpu(we_mask->mask_length);
    sccb_mask_t tmp_mask;

    if (!mask_length || (mask_length > SCLP_EVENT_MASK_LEN_MAX) ||
        ((mask_length != 4) && !ef->allow_all_mask_sizes)) {
        sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_MASK_LENGTH);
        goto out;
    }

    /*
     * Note: We currently only support masks up to 8 byte length;
     *       the remainder is filled up with zeroes. Older Linux
     *       kernels use a 4 byte mask length, newer ones can use both
     *       8 or 4 depending on what is available on the host.
     */

    /* keep track of the guest's capability masks */
    copy_mask((uint8_t *)&tmp_mask, WEM_CP_RECEIVE_MASK(we_mask, mask_length),
              sizeof(tmp_mask), mask_length);
    ef->receive_mask = be64_to_cpu(tmp_mask);

    /* return the SCLP's capability masks to the guest */
    tmp_mask = cpu_to_be64(get_host_receive_mask(ef));
    copy_mask(WEM_RECEIVE_MASK(we_mask, mask_length), (uint8_t *)&tmp_mask,
              mask_length, sizeof(tmp_mask));
    tmp_mask = cpu_to_be64(get_host_send_mask(ef));
    copy_mask(WEM_SEND_MASK(we_mask, mask_length), (uint8_t *)&tmp_mask,
              mask_length, sizeof(tmp_mask));

    sccb->h.response_code = cpu_to_be16(SCLP_RC_NORMAL_COMPLETION);
    ef->mask_length = mask_length;

out:
    return;
}

/* qemu object creation and initialization functions */

#define TYPE_SCLP_EVENTS_BUS "s390-sclp-events-bus"

static void sclp_events_bus_realize(BusState *bus, Error **errp)
{
    BusChild *kid;

    /* TODO: recursive realization has to be done in common code */
    QTAILQ_FOREACH(kid, &bus->children, sibling) {
        DeviceState *dev = kid->child;

        object_property_set_bool(OBJECT(dev), true, "realized", errp);
        if (*errp) {
            return;
        }
    }
}

static void sclp_events_bus_class_init(ObjectClass *klass, void *data)
{
    BusClass *bc = BUS_CLASS(klass);

    bc->realize = sclp_events_bus_realize;
}

static const TypeInfo sclp_events_bus_info = {
    .name = TYPE_SCLP_EVENTS_BUS,
    .parent = TYPE_BUS,
    .class_init = sclp_events_bus_class_init,
};

static void command_handler(SCLPEventFacility *ef, SCCB *sccb, uint64_t code)
{
    switch (code & SCLP_CMD_CODE_MASK) {
    case SCLP_CMD_READ_EVENT_DATA:
        read_event_data(ef, sccb);
        break;
    case SCLP_CMD_WRITE_EVENT_DATA:
        write_event_data(ef, sccb);
        break;
    case SCLP_CMD_WRITE_EVENT_MASK:
        write_event_mask(ef, sccb);
        break;
    default:
        sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_SCLP_COMMAND);
        break;
    }
}

static bool vmstate_event_facility_mask64_needed(void *opaque)
{
    SCLPEventFacility *ef = opaque;

    return (ef->receive_mask & 0xFFFFFFFF) != 0;
}

static bool vmstate_event_facility_mask_length_needed(void *opaque)
{
    SCLPEventFacility *ef = opaque;

    return ef->allow_all_mask_sizes;
}

static const VMStateDescription vmstate_event_facility_mask64 = {
    .name = "vmstate-event-facility/mask64",
    .version_id = 0,
    .minimum_version_id = 0,
    .needed = vmstate_event_facility_mask64_needed,
    .fields = (VMStateField[]) {
        VMSTATE_UINT32(receive_mask_pieces[RECV_MASK_LOWER], SCLPEventFacility),
        VMSTATE_END_OF_LIST()
     }
};

static const VMStateDescription vmstate_event_facility_mask_length = {
    .name = "vmstate-event-facility/mask_length",
    .version_id = 0,
    .minimum_version_id = 0,
    .needed = vmstate_event_facility_mask_length_needed,
    .fields = (VMStateField[]) {
        VMSTATE_UINT16(mask_length, SCLPEventFacility),
        VMSTATE_END_OF_LIST()
     }
};

static const VMStateDescription vmstate_event_facility = {
    .name = "vmstate-event-facility",
    .version_id = 0,
    .minimum_version_id = 0,
    .fields = (VMStateField[]) {
        VMSTATE_UINT32(receive_mask_pieces[RECV_MASK_UPPER], SCLPEventFacility),
        VMSTATE_END_OF_LIST()
     },
    .subsections = (const VMStateDescription * []) {
        &vmstate_event_facility_mask64,
        &vmstate_event_facility_mask_length,
        NULL
     }
};

static void sclp_event_set_allow_all_mask_sizes(Object *obj, bool value,
                                                       Error **errp)
{
    SCLPEventFacility *ef = (SCLPEventFacility *)obj;

    ef->allow_all_mask_sizes = value;
}

static bool sclp_event_get_allow_all_mask_sizes(Object *obj, Error **e)
{
    SCLPEventFacility *ef = (SCLPEventFacility *)obj;

    return ef->allow_all_mask_sizes;
}

static void init_event_facility(Object *obj)
{
    SCLPEventFacility *event_facility = EVENT_FACILITY(obj);
    DeviceState *sdev = DEVICE(obj);
    Object *new;

    event_facility->mask_length = 4;
    event_facility->allow_all_mask_sizes = true;
    object_property_add_bool(obj, "allow_all_mask_sizes",
                             sclp_event_get_allow_all_mask_sizes,
                             sclp_event_set_allow_all_mask_sizes, NULL);
    /* Spawn a new bus for SCLP events */
    qbus_create_inplace(&event_facility->sbus, sizeof(event_facility->sbus),
                        TYPE_SCLP_EVENTS_BUS, sdev, NULL);

    new = object_new(TYPE_SCLP_QUIESCE);
    object_property_add_child(obj, TYPE_SCLP_QUIESCE, new, NULL);
    object_unref(new);
    qdev_set_parent_bus(DEVICE(new), BUS(&event_facility->sbus));

    new = object_new(TYPE_SCLP_CPU_HOTPLUG);
    object_property_add_child(obj, TYPE_SCLP_CPU_HOTPLUG, new, NULL);
    object_unref(new);
    qdev_set_parent_bus(DEVICE(new), BUS(&event_facility->sbus));
    /* the facility will automatically realize the devices via the bus */
}

static void reset_event_facility(DeviceState *dev)
{
    SCLPEventFacility *sdev = EVENT_FACILITY(dev);

    sdev->receive_mask = 0;
}

static void init_event_facility_class(ObjectClass *klass, void *data)
{
    SysBusDeviceClass *sbdc = SYS_BUS_DEVICE_CLASS(klass);
    DeviceClass *dc = DEVICE_CLASS(sbdc);
    SCLPEventFacilityClass *k = EVENT_FACILITY_CLASS(dc);

    dc->reset = reset_event_facility;
    dc->vmsd = &vmstate_event_facility;
    set_bit(DEVICE_CATEGORY_MISC, dc->categories);
    k->command_handler = command_handler;
    k->event_pending = event_pending;
}

static const TypeInfo sclp_event_facility_info = {
    .name          = TYPE_SCLP_EVENT_FACILITY,
    .parent        = TYPE_SYS_BUS_DEVICE,
    .instance_init = init_event_facility,
    .instance_size = sizeof(SCLPEventFacility),
    .class_init    = init_event_facility_class,
    .class_size    = sizeof(SCLPEventFacilityClass),
};

static void event_realize(DeviceState *qdev, Error **errp)
{
    SCLPEvent *event = SCLP_EVENT(qdev);
    SCLPEventClass *child = SCLP_EVENT_GET_CLASS(event);

    if (child->init) {
        int rc = child->init(event);
        if (rc < 0) {
            error_setg(errp, "SCLP event initialization failed.");
            return;
        }
    }
}

static void event_class_init(ObjectClass *klass, void *data)
{
    DeviceClass *dc = DEVICE_CLASS(klass);

    dc->bus_type = TYPE_SCLP_EVENTS_BUS;
    dc->realize = event_realize;
}

static const TypeInfo sclp_event_type_info = {
    .name = TYPE_SCLP_EVENT,
    .parent = TYPE_DEVICE,
    .instance_size = sizeof(SCLPEvent),
    .class_init = event_class_init,
    .class_size = sizeof(SCLPEventClass),
    .abstract = true,
};

static void register_types(void)
{
    type_register_static(&sclp_events_bus_info);
    type_register_static(&sclp_event_facility_info);
    type_register_static(&sclp_event_type_info);
}

type_init(register_types)

BusState *sclp_get_event_facility_bus(void)
{
    Object *busobj;
    SCLPEventsBus *sbus;

    busobj = object_resolve_path_type("", TYPE_SCLP_EVENTS_BUS, NULL);
    sbus = OBJECT_CHECK(SCLPEventsBus, busobj, TYPE_SCLP_EVENTS_BUS);
    if (!sbus) {
        return NULL;
    }

    return &sbus->qbus;
}
Commit	Line	Data
559a17a1 HG	1	/*
	2	* SCLP
	3	* Event Facility
	4	* handles SCLP event types
	5	* - Signal Quiesce - system power down
	6	* - ASCII Console Data - VT220 read and write
	7	*
	8	* Copyright IBM, Corp. 2012
	9	*
	10	* Authors:
	11	* Heinz Graalfs <graalfs@de.ibm.com>
	12	*
	13	* This work is licensed under the terms of the GNU GPL, version 2 or (at your
	14	* option) any later version. See the COPYING file in the top-level directory.
	15	*
	16	*/
	17
9615495a	18	#include "qemu/osdep.h"
da34e65c	19	#include "qapi/error.h"
9c17d615	20	#include "sysemu/sysemu.h"
559a17a1	21
83c9f4ca PB	22	#include "hw/s390x/sclp.h"
83c9f4ca PB	23	#include "hw/s390x/event-facility.h"
559a17a1	24
65e526c2	25	typedef struct SCLPEventsBus {
559a17a1	26	BusState qbus;
65e526c2	27	} SCLPEventsBus;
559a17a1	28
98e43b71 CI	29	/* we need to save 32 bit chunks for compatibility */
	30	#ifdef HOST_WORDS_BIGENDIAN
	31	#define RECV_MASK_LOWER 1
	32	#define RECV_MASK_UPPER 0
	33	#else /* little endian host */
	34	#define RECV_MASK_LOWER 0
	35	#define RECV_MASK_UPPER 1
	36	#endif
	37
559a17a1	38	struct SCLPEventFacility {
477a72a1	39	SysBusDevice parent_obj;
65e526c2	40	SCLPEventsBus sbus;
1ffed98f	41	/* guest's receive mask */
98e43b71 CI	42	union {
	43	uint32_t receive_mask_pieces[2];
	44	sccb_mask_t receive_mask;
	45	};
bc61c8c6 CI	46	/*
	47	* when false, we keep the same broken, backwards compatible behaviour as
	48	* before, allowing only masks of size exactly 4; when true, we implement
	49	* the architecture correctly, allowing all valid mask sizes. Needed for
	50	* migration toward older versions.
	51	*/
	52	bool allow_all_mask_sizes;
	53	/* length of the receive mask */
	54	uint16_t mask_length;
559a17a1 HG	55	};
	56
	57	/* return true if any child has event pending set */
	58	static bool event_pending(SCLPEventFacility *ef)
	59	{
	60	BusChild *kid;
	61	SCLPEvent *event;
	62	SCLPEventClass *event_class;
	63
	64	QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
	65	DeviceState *qdev = kid->child;
	66	event = DO_UPCAST(SCLPEvent, qdev, qdev);
	67	event_class = SCLP_EVENT_GET_CLASS(event);
	68	if (event->event_pending &&
	69	event_class->get_send_mask() & ef->receive_mask) {
	70	return true;
	71	}
	72	}
	73	return false;
	74	}
	75
1ffed98f	76	static sccb_mask_t get_host_send_mask(SCLPEventFacility *ef)
559a17a1	77	{
1ffed98f	78	sccb_mask_t mask;
559a17a1 HG	79	BusChild *kid;
	80	SCLPEventClass *child;
	81
	82	mask = 0;
	83
	84	QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
	85	DeviceState *qdev = kid->child;
	86	child = SCLP_EVENT_GET_CLASS((SCLPEvent *) qdev);
	87	mask \|= child->get_send_mask();
	88	}
	89	return mask;
	90	}
	91
1ffed98f	92	static sccb_mask_t get_host_receive_mask(SCLPEventFacility *ef)
559a17a1	93	{
1ffed98f	94	sccb_mask_t mask;
559a17a1 HG	95	BusChild *kid;
	96	SCLPEventClass *child;
	97
	98	mask = 0;
	99
	100	QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
	101	DeviceState *qdev = kid->child;
	102	child = SCLP_EVENT_GET_CLASS((SCLPEvent *) qdev);
	103	mask \|= child->get_receive_mask();
	104	}
	105	return mask;
	106	}
	107
	108	static uint16_t write_event_length_check(SCCB *sccb)
	109	{
	110	int slen;
	111	unsigned elen = 0;
	112	EventBufferHeader *event;
	113	WriteEventData wed = (WriteEventData ) sccb;
	114
	115	event = (EventBufferHeader *) &wed->ebh;
	116	for (slen = sccb_data_len(sccb); slen > 0; slen -= elen) {
	117	elen = be16_to_cpu(event->length);
	118	if (elen < sizeof(*event) \|\| elen > slen) {
	119	return SCLP_RC_EVENT_BUFFER_SYNTAX_ERROR;
	120	}
	121	event = (void *) event + elen;
	122	}
	123	if (slen) {
	124	return SCLP_RC_INCONSISTENT_LENGTHS;
	125	}
	126	return SCLP_RC_NORMAL_COMPLETION;
	127	}
	128
	129	static uint16_t handle_write_event_buf(SCLPEventFacility *ef,
	130	EventBufferHeader event_buf, SCCB sccb)
	131	{
	132	uint16_t rc;
	133	BusChild *kid;
	134	SCLPEvent *event;
	135	SCLPEventClass *ec;
	136
773de5c7 CH	137	rc = SCLP_RC_INVALID_FUNCTION;
773de5c7 CH	138
559a17a1 HG	139	QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
	140	DeviceState *qdev = kid->child;
	141	event = (SCLPEvent *) qdev;
	142	ec = SCLP_EVENT_GET_CLASS(event);
	143
559a17a1	144	if (ec->write_event_data &&
c3d9f24a	145	ec->can_handle_event(event_buf->type)) {
559a17a1 HG	146	rc = ec->write_event_data(event, event_buf);
	147	break;
	148	}
	149	}
	150	return rc;
	151	}
	152
	153	static uint16_t handle_sccb_write_events(SCLPEventFacility ef, SCCB sccb)
	154	{
	155	uint16_t rc;
	156	int slen;
	157	unsigned elen = 0;
	158	EventBufferHeader *event_buf;
	159	WriteEventData wed = (WriteEventData ) sccb;
	160
	161	event_buf = &wed->ebh;
	162	rc = SCLP_RC_NORMAL_COMPLETION;
	163
	164	/* loop over all contained event buffers */
	165	for (slen = sccb_data_len(sccb); slen > 0; slen -= elen) {
	166	elen = be16_to_cpu(event_buf->length);
	167
	168	/* in case of a previous error mark all trailing buffers
	169	* as not accepted */
	170	if (rc != SCLP_RC_NORMAL_COMPLETION) {
	171	event_buf->flags &= ~(SCLP_EVENT_BUFFER_ACCEPTED);
	172	} else {
	173	rc = handle_write_event_buf(ef, event_buf, sccb);
	174	}
	175	event_buf = (void *) event_buf + elen;
	176	}
	177	return rc;
	178	}
	179
	180	static void write_event_data(SCLPEventFacility ef, SCCB sccb)
	181	{
	182	if (sccb->h.function_code != SCLP_FC_NORMAL_WRITE) {
	183	sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_FUNCTION);
	184	goto out;
	185	}
	186	if (be16_to_cpu(sccb->h.length) < 8) {
	187	sccb->h.response_code = cpu_to_be16(SCLP_RC_INSUFFICIENT_SCCB_LENGTH);
	188	goto out;
	189	}
	190	/* first do a sanity check of the write events */
	191	sccb->h.response_code = cpu_to_be16(write_event_length_check(sccb));
	192
	193	/* if no early error, then execute */
	194	if (sccb->h.response_code == be16_to_cpu(SCLP_RC_NORMAL_COMPLETION)) {
	195	sccb->h.response_code =
	196	cpu_to_be16(handle_sccb_write_events(ef, sccb));
	197	}
	198
	199	out:
	200	return;
	201	}
	202
	203	static uint16_t handle_sccb_read_events(SCLPEventFacility ef, SCCB sccb,
1ffed98f	204	sccb_mask_t mask)
559a17a1 HG	205	{
	206	uint16_t rc;
	207	int slen;
a0c8699b	208	unsigned elen;
559a17a1 HG	209	BusChild *kid;
	210	SCLPEvent *event;
	211	SCLPEventClass *ec;
	212	EventBufferHeader *event_buf;
	213	ReadEventData red = (ReadEventData ) sccb;
	214
	215	event_buf = &red->ebh;
	216	event_buf->length = 0;
	217	slen = sizeof(sccb->data);
	218
	219	rc = SCLP_RC_NO_EVENT_BUFFERS_STORED;
	220
	221	QTAILQ_FOREACH(kid, &ef->sbus.qbus.children, sibling) {
	222	DeviceState *qdev = kid->child;
	223	event = (SCLPEvent *) qdev;
	224	ec = SCLP_EVENT_GET_CLASS(event);
	225
	226	if (mask & ec->get_send_mask()) {
	227	if (ec->read_event_data(event, event_buf, &slen)) {
a0c8699b RH	228	elen = be16_to_cpu(event_buf->length);
a0c8699b RH	229	event_buf = (EventBufferHeader ) ((char )event_buf + elen);
559a17a1 HG	230	rc = SCLP_RC_NORMAL_COMPLETION;
	231	}
	232	}
559a17a1 HG	233	}
	234
	235	if (sccb->h.control_mask[2] & SCLP_VARIABLE_LENGTH_RESPONSE) {
	236	/* architecture suggests to reset variable-length-response bit */
	237	sccb->h.control_mask[2] &= ~SCLP_VARIABLE_LENGTH_RESPONSE;
	238	/* with a new length value */
	239	sccb->h.length = cpu_to_be16(SCCB_SIZE - slen);
	240	}
	241	return rc;
	242	}
	243
bc61c8c6 CI	244	/* copy up to src_len bytes and fill the rest of dst with zeroes */
	245	static void copy_mask(uint8_t dst, uint8_t src, uint16_t dst_len,
	246	uint16_t src_len)
	247	{
	248	int i;
	249
	250	for (i = 0; i < dst_len; i++) {
	251	dst[i] = i < src_len ? src[i] : 0;
	252	}
	253	}
	254
559a17a1 HG	255	static void read_event_data(SCLPEventFacility ef, SCCB sccb)
559a17a1 HG	256	{
1ffed98f CI	257	sccb_mask_t sclp_active_selection_mask;
1ffed98f CI	258	sccb_mask_t sclp_cp_receive_mask;
559a17a1 HG	259
	260	ReadEventData red = (ReadEventData ) sccb;
	261
	262	if (be16_to_cpu(sccb->h.length) != SCCB_SIZE) {
	263	sccb->h.response_code = cpu_to_be16(SCLP_RC_INSUFFICIENT_SCCB_LENGTH);
	264	goto out;
	265	}
	266
	267	sclp_cp_receive_mask = ef->receive_mask;
	268
	269	/* get active selection mask */
	270	switch (sccb->h.function_code) {
	271	case SCLP_UNCONDITIONAL_READ:
	272	sclp_active_selection_mask = sclp_cp_receive_mask;
	273	break;
	274	case SCLP_SELECTIVE_READ:
bc61c8c6 CI	275	copy_mask((uint8_t )&sclp_active_selection_mask, (uint8_t )&red->mask,
bc61c8c6 CI	276	sizeof(sclp_active_selection_mask), ef->mask_length);
98e43b71	277	sclp_active_selection_mask = be64_to_cpu(sclp_active_selection_mask);
3335dddd CH	278	if (!sclp_cp_receive_mask \|\|
3335dddd CH	279	(sclp_active_selection_mask & ~sclp_cp_receive_mask)) {
559a17a1 HG	280	sccb->h.response_code =
	281	cpu_to_be16(SCLP_RC_INVALID_SELECTION_MASK);
	282	goto out;
	283	}
559a17a1 HG	284	break;
	285	default:
	286	sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_FUNCTION);
	287	goto out;
	288	}
	289	sccb->h.response_code = cpu_to_be16(
	290	handle_sccb_read_events(ef, sccb, sclp_active_selection_mask));
	291
	292	out:
	293	return;
	294	}
	295
	296	static void write_event_mask(SCLPEventFacility ef, SCCB sccb)
	297	{
	298	WriteEventMask we_mask = (WriteEventMask ) sccb;
67915de9	299	uint16_t mask_length = be16_to_cpu(we_mask->mask_length);
1ffed98f	300	sccb_mask_t tmp_mask;
559a17a1	301
bc61c8c6 CI	302	if (!mask_length \|\| (mask_length > SCLP_EVENT_MASK_LEN_MAX) \|\|
bc61c8c6 CI	303	((mask_length != 4) && !ef->allow_all_mask_sizes)) {
559a17a1 HG	304	sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_MASK_LENGTH);
	305	goto out;
	306	}
	307
67915de9	308	/*
98e43b71 CI	309	* Note: We currently only support masks up to 8 byte length;
	310	* the remainder is filled up with zeroes. Older Linux
	311	* kernels use a 4 byte mask length, newer ones can use both
	312	* 8 or 4 depending on what is available on the host.
67915de9 CH	313	*/
67915de9 CH	314
559a17a1	315	/* keep track of the guest's capability masks */
67915de9 CH	316	copy_mask((uint8_t *)&tmp_mask, WEM_CP_RECEIVE_MASK(we_mask, mask_length),
67915de9 CH	317	sizeof(tmp_mask), mask_length);
98e43b71	318	ef->receive_mask = be64_to_cpu(tmp_mask);
559a17a1 HG	319
559a17a1 HG	320	/* return the SCLP's capability masks to the guest */
98e43b71	321	tmp_mask = cpu_to_be64(get_host_receive_mask(ef));
67915de9 CH	322	copy_mask(WEM_RECEIVE_MASK(we_mask, mask_length), (uint8_t *)&tmp_mask,
67915de9 CH	323	mask_length, sizeof(tmp_mask));
98e43b71	324	tmp_mask = cpu_to_be64(get_host_send_mask(ef));
67915de9 CH	325	copy_mask(WEM_SEND_MASK(we_mask, mask_length), (uint8_t *)&tmp_mask,
67915de9 CH	326	mask_length, sizeof(tmp_mask));
559a17a1 HG	327
559a17a1 HG	328	sccb->h.response_code = cpu_to_be16(SCLP_RC_NORMAL_COMPLETION);
bc61c8c6	329	ef->mask_length = mask_length;
559a17a1 HG	330
	331	out:
	332	return;
	333	}
	334
	335	/* qemu object creation and initialization functions */
	336
	337	#define TYPE_SCLP_EVENTS_BUS "s390-sclp-events-bus"
	338
f6102c32 DH	339	static void sclp_events_bus_realize(BusState bus, Error *errp)
	340	{
	341	BusChild *kid;
	342
	343	/* TODO: recursive realization has to be done in common code */
	344	QTAILQ_FOREACH(kid, &bus->children, sibling) {
	345	DeviceState *dev = kid->child;
	346
	347	object_property_set_bool(OBJECT(dev), true, "realized", errp);
	348	if (*errp) {
	349	return;
	350	}
	351	}
	352	}
	353
559a17a1 HG	354	static void sclp_events_bus_class_init(ObjectClass klass, void data)
559a17a1 HG	355	{
f6102c32 DH	356	BusClass *bc = BUS_CLASS(klass);
	357
	358	bc->realize = sclp_events_bus_realize;
559a17a1 HG	359	}
559a17a1 HG	360
65e526c2	361	static const TypeInfo sclp_events_bus_info = {
559a17a1 HG	362	.name = TYPE_SCLP_EVENTS_BUS,
	363	.parent = TYPE_BUS,
	364	.class_init = sclp_events_bus_class_init,
	365	};
	366
	367	static void command_handler(SCLPEventFacility ef, SCCB sccb, uint64_t code)
	368	{
9da45bb2	369	switch (code & SCLP_CMD_CODE_MASK) {
559a17a1 HG	370	case SCLP_CMD_READ_EVENT_DATA:
	371	read_event_data(ef, sccb);
	372	break;
	373	case SCLP_CMD_WRITE_EVENT_DATA:
	374	write_event_data(ef, sccb);
	375	break;
	376	case SCLP_CMD_WRITE_EVENT_MASK:
	377	write_event_mask(ef, sccb);
	378	break;
	379	default:
	380	sccb->h.response_code = cpu_to_be16(SCLP_RC_INVALID_SCLP_COMMAND);
	381	break;
	382	}
	383	}
	384
98e43b71 CI	385	static bool vmstate_event_facility_mask64_needed(void *opaque)
	386	{
	387	SCLPEventFacility *ef = opaque;
	388
	389	return (ef->receive_mask & 0xFFFFFFFF) != 0;
	390	}
	391
bc61c8c6 CI	392	static bool vmstate_event_facility_mask_length_needed(void *opaque)
	393	{
	394	SCLPEventFacility *ef = opaque;
	395
	396	return ef->allow_all_mask_sizes;
	397	}
	398
98e43b71 CI	399	static const VMStateDescription vmstate_event_facility_mask64 = {
	400	.name = "vmstate-event-facility/mask64",
	401	.version_id = 0,
	402	.minimum_version_id = 0,
	403	.needed = vmstate_event_facility_mask64_needed,
	404	.fields = (VMStateField[]) {
	405	VMSTATE_UINT32(receive_mask_pieces[RECV_MASK_LOWER], SCLPEventFacility),
	406	VMSTATE_END_OF_LIST()
	407	}
	408	};
	409
bc61c8c6 CI	410	static const VMStateDescription vmstate_event_facility_mask_length = {
	411	.name = "vmstate-event-facility/mask_length",
	412	.version_id = 0,
	413	.minimum_version_id = 0,
	414	.needed = vmstate_event_facility_mask_length_needed,
	415	.fields = (VMStateField[]) {
	416	VMSTATE_UINT16(mask_length, SCLPEventFacility),
	417	VMSTATE_END_OF_LIST()
	418	}
	419	};
	420
6fbef18a HG	421	static const VMStateDescription vmstate_event_facility = {
	422	.name = "vmstate-event-facility",
	423	.version_id = 0,
	424	.minimum_version_id = 0,
35d08458	425	.fields = (VMStateField[]) {
98e43b71	426	VMSTATE_UINT32(receive_mask_pieces[RECV_MASK_UPPER], SCLPEventFacility),
6fbef18a	427	VMSTATE_END_OF_LIST()
bc61c8c6 CI	428	},
bc61c8c6 CI	429	.subsections = (const VMStateDescription * []) {
98e43b71	430	&vmstate_event_facility_mask64,
bc61c8c6 CI	431	&vmstate_event_facility_mask_length,
bc61c8c6 CI	432	NULL
6fbef18a HG	433	}
	434	};
	435
bc61c8c6 CI	436	static void sclp_event_set_allow_all_mask_sizes(Object *obj, bool value,
	437	Error **errp)
	438	{
	439	SCLPEventFacility ef = (SCLPEventFacility )obj;
	440
	441	ef->allow_all_mask_sizes = value;
	442	}
	443
	444	static bool sclp_event_get_allow_all_mask_sizes(Object obj, Error *e)
	445	{
	446	SCLPEventFacility ef = (SCLPEventFacility )obj;
	447
	448	return ef->allow_all_mask_sizes;
	449	}
	450
f6102c32	451	static void init_event_facility(Object *obj)
559a17a1	452	{
f6102c32 DH	453	SCLPEventFacility *event_facility = EVENT_FACILITY(obj);
f6102c32 DH	454	DeviceState *sdev = DEVICE(obj);
7059384c	455	Object *new;
559a17a1	456
bc61c8c6 CI	457	event_facility->mask_length = 4;
	458	event_facility->allow_all_mask_sizes = true;
	459	object_property_add_bool(obj, "allow_all_mask_sizes",
	460	sclp_event_get_allow_all_mask_sizes,
	461	sclp_event_set_allow_all_mask_sizes, NULL);
477a72a1	462	/* Spawn a new bus for SCLP events */
fb17dfe0	463	qbus_create_inplace(&event_facility->sbus, sizeof(event_facility->sbus),
477a72a1	464	TYPE_SCLP_EVENTS_BUS, sdev, NULL);
559a17a1	465
7059384c DH	466	new = object_new(TYPE_SCLP_QUIESCE);
	467	object_property_add_child(obj, TYPE_SCLP_QUIESCE, new, NULL);
	468	object_unref(new);
5027da92	469	qdev_set_parent_bus(DEVICE(new), BUS(&event_facility->sbus));
7059384c DH	470
	471	new = object_new(TYPE_SCLP_CPU_HOTPLUG);
	472	object_property_add_child(obj, TYPE_SCLP_CPU_HOTPLUG, new, NULL);
	473	object_unref(new);
5027da92	474	qdev_set_parent_bus(DEVICE(new), BUS(&event_facility->sbus));
f6102c32	475	/* the facility will automatically realize the devices via the bus */
559a17a1 HG	476	}
559a17a1 HG	477
3af6de32 HG	478	static void reset_event_facility(DeviceState *dev)
3af6de32 HG	479	{
477a72a1	480	SCLPEventFacility *sdev = EVENT_FACILITY(dev);
3af6de32	481
477a72a1	482	sdev->receive_mask = 0;
3af6de32 HG	483	}
3af6de32 HG	484
559a17a1 HG	485	static void init_event_facility_class(ObjectClass klass, void data)
559a17a1 HG	486	{
477a72a1 HG	487	SysBusDeviceClass *sbdc = SYS_BUS_DEVICE_CLASS(klass);
	488	DeviceClass *dc = DEVICE_CLASS(sbdc);
	489	SCLPEventFacilityClass *k = EVENT_FACILITY_CLASS(dc);
559a17a1	490
3af6de32	491	dc->reset = reset_event_facility;
6fbef18a	492	dc->vmsd = &vmstate_event_facility;
183f6b8d	493	set_bit(DEVICE_CATEGORY_MISC, dc->categories);
477a72a1 HG	494	k->command_handler = command_handler;
477a72a1 HG	495	k->event_pending = event_pending;
559a17a1 HG	496	}
559a17a1 HG	497
65e526c2	498	static const TypeInfo sclp_event_facility_info = {
477a72a1 HG	499	.name = TYPE_SCLP_EVENT_FACILITY,
477a72a1 HG	500	.parent = TYPE_SYS_BUS_DEVICE,
f6102c32	501	.instance_init = init_event_facility,
477a72a1	502	.instance_size = sizeof(SCLPEventFacility),
559a17a1	503	.class_init = init_event_facility_class,
477a72a1	504	.class_size = sizeof(SCLPEventFacilityClass),
559a17a1 HG	505	};
559a17a1 HG	506
c804c2a7	507	static void event_realize(DeviceState qdev, Error *errp)
559a17a1	508	{
c804c2a7	509	SCLPEvent *event = SCLP_EVENT(qdev);
559a17a1 HG	510	SCLPEventClass *child = SCLP_EVENT_GET_CLASS(event);
559a17a1 HG	511
c804c2a7 HG	512	if (child->init) {
	513	int rc = child->init(event);
	514	if (rc < 0) {
	515	error_setg(errp, "SCLP event initialization failed.");
	516	return;
	517	}
	518	}
559a17a1 HG	519	}
559a17a1 HG	520
559a17a1 HG	521	static void event_class_init(ObjectClass klass, void data)
	522	{
	523	DeviceClass *dc = DEVICE_CLASS(klass);
	524
	525	dc->bus_type = TYPE_SCLP_EVENTS_BUS;
c804c2a7	526	dc->realize = event_realize;
559a17a1 HG	527	}
559a17a1 HG	528
65e526c2	529	static const TypeInfo sclp_event_type_info = {
559a17a1 HG	530	.name = TYPE_SCLP_EVENT,
	531	.parent = TYPE_DEVICE,
	532	.instance_size = sizeof(SCLPEvent),
	533	.class_init = event_class_init,
	534	.class_size = sizeof(SCLPEventClass),
	535	.abstract = true,
	536	};
	537
	538	static void register_types(void)
	539	{
65e526c2 HG	540	type_register_static(&sclp_events_bus_info);
	541	type_register_static(&sclp_event_facility_info);
	542	type_register_static(&sclp_event_type_info);
559a17a1 HG	543	}
	544
	545	type_init(register_types)
052888f0 TH	546
	547	BusState *sclp_get_event_facility_bus(void)
	548	{
	549	Object *busobj;
	550	SCLPEventsBus *sbus;
	551
	552	busobj = object_resolve_path_type("", TYPE_SCLP_EVENTS_BUS, NULL);
	553	sbus = OBJECT_CHECK(SCLPEventsBus, busobj, TYPE_SCLP_EVENTS_BUS);
	554	if (!sbus) {
	555	return NULL;
	556	}
	557
	558	return &sbus->qbus;
	559	}