LXR qemu/target/s390x/machine.c

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