[qemu.git] / target / s390x / machine.c

/*
 * S390x machine definitions and functions
 *
 * Copyright IBM Corp. 2014
 *
 * Authors:
 *   Thomas Huth <[email protected]>
 *   Christian Borntraeger <[email protected]>
 *   Jason J. Herne <[email protected]>
 *
 * This work is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published
 * by the Free Software Foundation; either version 2 of the License,
 * or (at your option) any later version.
 */

#include "qemu/osdep.h"
#include "hw/hw.h"
#include "cpu.h"
#include "internal.h"
#include "kvm_s390x.h"
#include "sysemu/kvm.h"

static int cpu_post_load(void *opaque, int version_id)
{
    S390CPU *cpu = opaque;

    /*
     * As the cpu state is pushed to kvm via kvm_set_mp_state rather
     * than via cpu_synchronize_state, we need update kvm here.
     */
    if (kvm_enabled()) {
        kvm_s390_set_cpu_state(cpu, cpu->env.cpu_state);
        return kvm_s390_vcpu_interrupt_post_load(cpu);
    }

    return 0;
}

static int cpu_pre_save(void *opaque)
{
    S390CPU *cpu = opaque;

    if (kvm_enabled()) {
        kvm_s390_vcpu_interrupt_pre_save(cpu);
    }

    return 0;
}

static inline bool fpu_needed(void *opaque)
{
    /* This looks odd, but we might want to NOT transfer fprs in the future */
    return true;
}

static const VMStateDescription vmstate_fpu = {
    .name = "cpu/fpu",
    .version_id = 1,
    .minimum_version_id = 1,
    .needed = fpu_needed,
    .fields = (VMStateField[]) {
        VMSTATE_UINT64(env.vregs[0][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[1][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[2][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[3][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[4][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[5][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[6][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[7][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[8][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[9][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[10][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[11][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[12][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[13][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[14][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[15][0].ll, S390CPU),
        VMSTATE_UINT32(env.fpc, S390CPU),
        VMSTATE_END_OF_LIST()
    }
};

static bool vregs_needed(void *opaque)
{
    return s390_has_feat(S390_FEAT_VECTOR);
}

static const VMStateDescription vmstate_vregs = {
    .name = "cpu/vregs",
    .version_id = 1,
    .minimum_version_id = 1,
    .needed = vregs_needed,
    .fields = (VMStateField[]) {
        /* vregs[0][0] -> vregs[15][0] and fregs are overlays */
        VMSTATE_UINT64(env.vregs[16][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[17][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[18][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[19][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[20][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[21][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[22][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[23][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[24][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[25][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[26][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[27][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[28][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[29][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[30][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[31][0].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[0][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[1][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[2][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[3][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[4][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[5][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[6][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[7][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[8][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[9][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[10][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[11][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[12][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[13][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[14][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[15][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[16][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[17][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[18][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[19][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[20][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[21][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[22][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[23][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[24][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[25][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[26][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[27][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[28][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[29][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[30][1].ll, S390CPU),
        VMSTATE_UINT64(env.vregs[31][1].ll, S390CPU),
        VMSTATE_END_OF_LIST()
    }
};

static bool riccb_needed(void *opaque)
{
    return s390_has_feat(S390_FEAT_RUNTIME_INSTRUMENTATION);
}

const VMStateDescription vmstate_riccb = {
    .name = "cpu/riccb",
    .version_id = 1,
    .minimum_version_id = 1,
    .needed = riccb_needed,
    .fields = (VMStateField[]) {
        VMSTATE_UINT8_ARRAY(env.riccb, S390CPU, 64),
        VMSTATE_END_OF_LIST()
    }
};

static bool exval_needed(void *opaque)
{
    S390CPU *cpu = opaque;
    return cpu->env.ex_value != 0;
}

const VMStateDescription vmstate_exval = {
    .name = "cpu/exval",
    .version_id = 1,
    .minimum_version_id = 1,
    .needed = exval_needed,
    .fields = (VMStateField[]) {
        VMSTATE_UINT64(env.ex_value, S390CPU),
        VMSTATE_END_OF_LIST()
    }
};

static bool gscb_needed(void *opaque)
{
    return s390_has_feat(S390_FEAT_GUARDED_STORAGE);
}

const VMStateDescription vmstate_gscb = {
    .name = "cpu/gscb",
    .version_id = 1,
    .minimum_version_id = 1,
    .needed = gscb_needed,
    .fields = (VMStateField[]) {
        VMSTATE_UINT64_ARRAY(env.gscb, S390CPU, 4),
        VMSTATE_END_OF_LIST()
        }
};

static bool bpbc_needed(void *opaque)
{
    return s390_has_feat(S390_FEAT_BPB);
}

const VMStateDescription vmstate_bpbc = {
    .name = "cpu/bpbc",
    .version_id = 1,
    .minimum_version_id = 1,
    .needed = bpbc_needed,
    .fields = (VMStateField[]) {
        VMSTATE_BOOL(env.bpbc, S390CPU),
        VMSTATE_END_OF_LIST()
    }
};

const VMStateDescription vmstate_s390_cpu = {
    .name = "cpu",
    .post_load = cpu_post_load,
    .pre_save = cpu_pre_save,
    .version_id = 4,
    .minimum_version_id = 3,
    .fields      = (VMStateField[]) {
        VMSTATE_UINT64_ARRAY(env.regs, S390CPU, 16),
        VMSTATE_UINT64(env.psw.mask, S390CPU),
        VMSTATE_UINT64(env.psw.addr, S390CPU),
        VMSTATE_UINT64(env.psa, S390CPU),
        VMSTATE_UINT32(env.todpr, S390CPU),
        VMSTATE_UINT64(env.pfault_token, S390CPU),
        VMSTATE_UINT64(env.pfault_compare, S390CPU),
        VMSTATE_UINT64(env.pfault_select, S390CPU),
        VMSTATE_UINT64(env.cputm, S390CPU),
        VMSTATE_UINT64(env.ckc, S390CPU),
        VMSTATE_UINT64(env.gbea, S390CPU),
        VMSTATE_UINT64(env.pp, S390CPU),
        VMSTATE_UINT32_ARRAY(env.aregs, S390CPU, 16),
        VMSTATE_UINT64_ARRAY(env.cregs, S390CPU, 16),
        VMSTATE_UINT8(env.cpu_state, S390CPU),
        VMSTATE_UINT8(env.sigp_order, S390CPU),
        VMSTATE_UINT32_V(irqstate_saved_size, S390CPU, 4),
        VMSTATE_VBUFFER_UINT32(irqstate, S390CPU, 4, NULL,
                               irqstate_saved_size),
        VMSTATE_END_OF_LIST()
    },
    .subsections = (const VMStateDescription*[]) {
        &vmstate_fpu,
        &vmstate_vregs,
        &vmstate_riccb,
        &vmstate_exval,
        &vmstate_gscb,
        &vmstate_bpbc,
        NULL
    },
};
Commit	Line	Data
ef1df130 TH	1	/*
	2	* S390x machine definitions and functions
	3	*
	4	* Copyright IBM Corp. 2014
	5	*
	6	* Authors:
	7	* Thomas Huth <[email protected]>
	8	* Christian Borntraeger <[email protected]>
	9	* Jason J. Herne <[email protected]>
	10	*
	11	* This work is free software; you can redistribute it and/or modify
	12	* it under the terms of the GNU General Public License as published
	13	* by the Free Software Foundation; either version 2 of the License,
	14	* or (at your option) any later version.
	15	*/
	16
9615495a	17	#include "qemu/osdep.h"
ef1df130 TH	18	#include "hw/hw.h"
ef1df130 TH	19	#include "cpu.h"
4e58b838	20	#include "internal.h"
f16bbb9b	21	#include "kvm_s390x.h"
ef1df130 TH	22	#include "sysemu/kvm.h"
	23
	24	static int cpu_post_load(void *opaque, int version_id)
	25	{
	26	S390CPU *cpu = opaque;
	27
	28	/*
	29	* As the cpu state is pushed to kvm via kvm_set_mp_state rather
	30	* than via cpu_synchronize_state, we need update kvm here.
	31	*/
	32	if (kvm_enabled()) {
	33	kvm_s390_set_cpu_state(cpu, cpu->env.cpu_state);
3cda44f7	34	return kvm_s390_vcpu_interrupt_post_load(cpu);
ef1df130 TH	35	}
	36
	37	return 0;
	38	}
303c681a	39
44b1ff31	40	static int cpu_pre_save(void *opaque)
3cda44f7 JF	41	{
	42	S390CPU *cpu = opaque;
	43
	44	if (kvm_enabled()) {
	45	kvm_s390_vcpu_interrupt_pre_save(cpu);
	46	}
44b1ff31 DDAG	47
44b1ff31 DDAG	48	return 0;
3cda44f7	49	}
ef1df130	50
5cd8cada JQ	51	static inline bool fpu_needed(void *opaque)
	52	{
	53	/* This looks odd, but we might want to NOT transfer fprs in the future */
	54	return true;
	55	}
	56
52c6cfb7	57	static const VMStateDescription vmstate_fpu = {
46c804de DH	58	.name = "cpu/fpu",
	59	.version_id = 1,
	60	.minimum_version_id = 1,
5cd8cada	61	.needed = fpu_needed,
46c804de	62	.fields = (VMStateField[]) {
fcb79802 EF	63	VMSTATE_UINT64(env.vregs[0][0].ll, S390CPU),
	64	VMSTATE_UINT64(env.vregs[1][0].ll, S390CPU),
	65	VMSTATE_UINT64(env.vregs[2][0].ll, S390CPU),
	66	VMSTATE_UINT64(env.vregs[3][0].ll, S390CPU),
	67	VMSTATE_UINT64(env.vregs[4][0].ll, S390CPU),
	68	VMSTATE_UINT64(env.vregs[5][0].ll, S390CPU),
	69	VMSTATE_UINT64(env.vregs[6][0].ll, S390CPU),
	70	VMSTATE_UINT64(env.vregs[7][0].ll, S390CPU),
	71	VMSTATE_UINT64(env.vregs[8][0].ll, S390CPU),
	72	VMSTATE_UINT64(env.vregs[9][0].ll, S390CPU),
	73	VMSTATE_UINT64(env.vregs[10][0].ll, S390CPU),
	74	VMSTATE_UINT64(env.vregs[11][0].ll, S390CPU),
	75	VMSTATE_UINT64(env.vregs[12][0].ll, S390CPU),
	76	VMSTATE_UINT64(env.vregs[13][0].ll, S390CPU),
	77	VMSTATE_UINT64(env.vregs[14][0].ll, S390CPU),
	78	VMSTATE_UINT64(env.vregs[15][0].ll, S390CPU),
46c804de DH	79	VMSTATE_UINT32(env.fpc, S390CPU),
	80	VMSTATE_END_OF_LIST()
	81	}
	82	};
	83
b01501db PB	84	static bool vregs_needed(void *opaque)
b01501db PB	85	{
7c72ac49	86	return s390_has_feat(S390_FEAT_VECTOR);
b01501db PB	87	}
b01501db PB	88
52c6cfb7	89	static const VMStateDescription vmstate_vregs = {
b2ac0ff5 EF	90	.name = "cpu/vregs",
	91	.version_id = 1,
	92	.minimum_version_id = 1,
5cd8cada	93	.needed = vregs_needed,
b2ac0ff5 EF	94	.fields = (VMStateField[]) {
	95	/* vregs[0][0] -> vregs[15][0] and fregs are overlays */
	96	VMSTATE_UINT64(env.vregs[16][0].ll, S390CPU),
	97	VMSTATE_UINT64(env.vregs[17][0].ll, S390CPU),
	98	VMSTATE_UINT64(env.vregs[18][0].ll, S390CPU),
	99	VMSTATE_UINT64(env.vregs[19][0].ll, S390CPU),
	100	VMSTATE_UINT64(env.vregs[20][0].ll, S390CPU),
	101	VMSTATE_UINT64(env.vregs[21][0].ll, S390CPU),
	102	VMSTATE_UINT64(env.vregs[22][0].ll, S390CPU),
	103	VMSTATE_UINT64(env.vregs[23][0].ll, S390CPU),
	104	VMSTATE_UINT64(env.vregs[24][0].ll, S390CPU),
	105	VMSTATE_UINT64(env.vregs[25][0].ll, S390CPU),
	106	VMSTATE_UINT64(env.vregs[26][0].ll, S390CPU),
	107	VMSTATE_UINT64(env.vregs[27][0].ll, S390CPU),
	108	VMSTATE_UINT64(env.vregs[28][0].ll, S390CPU),
	109	VMSTATE_UINT64(env.vregs[29][0].ll, S390CPU),
	110	VMSTATE_UINT64(env.vregs[30][0].ll, S390CPU),
	111	VMSTATE_UINT64(env.vregs[31][0].ll, S390CPU),
	112	VMSTATE_UINT64(env.vregs[0][1].ll, S390CPU),
	113	VMSTATE_UINT64(env.vregs[1][1].ll, S390CPU),
	114	VMSTATE_UINT64(env.vregs[2][1].ll, S390CPU),
	115	VMSTATE_UINT64(env.vregs[3][1].ll, S390CPU),
	116	VMSTATE_UINT64(env.vregs[4][1].ll, S390CPU),
	117	VMSTATE_UINT64(env.vregs[5][1].ll, S390CPU),
	118	VMSTATE_UINT64(env.vregs[6][1].ll, S390CPU),
	119	VMSTATE_UINT64(env.vregs[7][1].ll, S390CPU),
	120	VMSTATE_UINT64(env.vregs[8][1].ll, S390CPU),
	121	VMSTATE_UINT64(env.vregs[9][1].ll, S390CPU),
	122	VMSTATE_UINT64(env.vregs[10][1].ll, S390CPU),
	123	VMSTATE_UINT64(env.vregs[11][1].ll, S390CPU),
	124	VMSTATE_UINT64(env.vregs[12][1].ll, S390CPU),
	125	VMSTATE_UINT64(env.vregs[13][1].ll, S390CPU),
	126	VMSTATE_UINT64(env.vregs[14][1].ll, S390CPU),
	127	VMSTATE_UINT64(env.vregs[15][1].ll, S390CPU),
	128	VMSTATE_UINT64(env.vregs[16][1].ll, S390CPU),
	129	VMSTATE_UINT64(env.vregs[17][1].ll, S390CPU),
	130	VMSTATE_UINT64(env.vregs[18][1].ll, S390CPU),
	131	VMSTATE_UINT64(env.vregs[19][1].ll, S390CPU),
	132	VMSTATE_UINT64(env.vregs[20][1].ll, S390CPU),
	133	VMSTATE_UINT64(env.vregs[21][1].ll, S390CPU),
	134	VMSTATE_UINT64(env.vregs[22][1].ll, S390CPU),
	135	VMSTATE_UINT64(env.vregs[23][1].ll, S390CPU),
	136	VMSTATE_UINT64(env.vregs[24][1].ll, S390CPU),
	137	VMSTATE_UINT64(env.vregs[25][1].ll, S390CPU),
	138	VMSTATE_UINT64(env.vregs[26][1].ll, S390CPU),
	139	VMSTATE_UINT64(env.vregs[27][1].ll, S390CPU),
	140	VMSTATE_UINT64(env.vregs[28][1].ll, S390CPU),
	141	VMSTATE_UINT64(env.vregs[29][1].ll, S390CPU),
	142	VMSTATE_UINT64(env.vregs[30][1].ll, S390CPU),
	143	VMSTATE_UINT64(env.vregs[31][1].ll, S390CPU),
	144	VMSTATE_END_OF_LIST()
	145	}
	146	};
	147
b01501db PB	148	static bool riccb_needed(void *opaque)
b01501db PB	149	{
7c72ac49	150	return s390_has_feat(S390_FEAT_RUNTIME_INSTRUMENTATION);
b01501db PB	151	}
b01501db PB	152
9700230b FZ	153	const VMStateDescription vmstate_riccb = {
	154	.name = "cpu/riccb",
	155	.version_id = 1,
	156	.minimum_version_id = 1,
	157	.needed = riccb_needed,
	158	.fields = (VMStateField[]) {
	159	VMSTATE_UINT8_ARRAY(env.riccb, S390CPU, 64),
	160	VMSTATE_END_OF_LIST()
	161	}
	162	};
	163
303c681a RH	164	static bool exval_needed(void *opaque)
	165	{
	166	S390CPU *cpu = opaque;
	167	return cpu->env.ex_value != 0;
	168	}
	169
	170	const VMStateDescription vmstate_exval = {
	171	.name = "cpu/exval",
	172	.version_id = 1,
	173	.minimum_version_id = 1,
	174	.needed = exval_needed,
	175	.fields = (VMStateField[]) {
	176	VMSTATE_UINT64(env.ex_value, S390CPU),
	177	VMSTATE_END_OF_LIST()
	178	}
	179	};
	180
62deb62d FZ	181	static bool gscb_needed(void *opaque)
62deb62d FZ	182	{
0280b3eb	183	return s390_has_feat(S390_FEAT_GUARDED_STORAGE);
62deb62d FZ	184	}
	185
	186	const VMStateDescription vmstate_gscb = {
	187	.name = "cpu/gscb",
	188	.version_id = 1,
	189	.minimum_version_id = 1,
	190	.needed = gscb_needed,
	191	.fields = (VMStateField[]) {
	192	VMSTATE_UINT64_ARRAY(env.gscb, S390CPU, 4),
	193	VMSTATE_END_OF_LIST()
	194	}
	195	};
	196
b073c875 CB	197	static bool bpbc_needed(void *opaque)
	198	{
	199	return s390_has_feat(S390_FEAT_BPB);
	200	}
	201
	202	const VMStateDescription vmstate_bpbc = {
	203	.name = "cpu/bpbc",
	204	.version_id = 1,
	205	.minimum_version_id = 1,
	206	.needed = bpbc_needed,
	207	.fields = (VMStateField[]) {
	208	VMSTATE_BOOL(env.bpbc, S390CPU),
	209	VMSTATE_END_OF_LIST()
	210	}
	211	};
	212
46c804de DH	213	const VMStateDescription vmstate_s390_cpu = {
	214	.name = "cpu",
	215	.post_load = cpu_post_load,
3cda44f7 JF	216	.pre_save = cpu_pre_save,
3cda44f7 JF	217	.version_id = 4,
46c804de DH	218	.minimum_version_id = 3,
46c804de DH	219	.fields = (VMStateField[]) {
ef1df130 TH	220	VMSTATE_UINT64_ARRAY(env.regs, S390CPU, 16),
	221	VMSTATE_UINT64(env.psw.mask, S390CPU),
	222	VMSTATE_UINT64(env.psw.addr, S390CPU),
	223	VMSTATE_UINT64(env.psa, S390CPU),
ef1df130 TH	224	VMSTATE_UINT32(env.todpr, S390CPU),
	225	VMSTATE_UINT64(env.pfault_token, S390CPU),
	226	VMSTATE_UINT64(env.pfault_compare, S390CPU),
	227	VMSTATE_UINT64(env.pfault_select, S390CPU),
	228	VMSTATE_UINT64(env.cputm, S390CPU),
	229	VMSTATE_UINT64(env.ckc, S390CPU),
	230	VMSTATE_UINT64(env.gbea, S390CPU),
	231	VMSTATE_UINT64(env.pp, S390CPU),
	232	VMSTATE_UINT32_ARRAY(env.aregs, S390CPU, 16),
	233	VMSTATE_UINT64_ARRAY(env.cregs, S390CPU, 16),
	234	VMSTATE_UINT8(env.cpu_state, S390CPU),
18ff9494	235	VMSTATE_UINT8(env.sigp_order, S390CPU),
3cda44f7	236	VMSTATE_UINT32_V(irqstate_saved_size, S390CPU, 4),
59046ec2	237	VMSTATE_VBUFFER_UINT32(irqstate, S390CPU, 4, NULL,
3cda44f7	238	irqstate_saved_size),
ef1df130	239	VMSTATE_END_OF_LIST()
5cd8cada JQ	240	},
	241	.subsections = (const VMStateDescription*[]) {
	242	&vmstate_fpu,
	243	&vmstate_vregs,
9700230b	244	&vmstate_riccb,
303c681a	245	&vmstate_exval,
62deb62d	246	&vmstate_gscb,
b073c875	247	&vmstate_bpbc,
5cd8cada	248	NULL
46c804de	249	},
ef1df130	250	};