target/hppa/machine.c

   1 /*
   2  *  HPPA interrupt helper routines
   3  *
   4  *  Copyright (c) 2017 Richard Henderson
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 #include "qemu/osdep.h"
  21 #include "cpu.h"
  22 #include "migration/cpu.h"
  23
  24 #if TARGET_REGISTER_BITS == 64
  25 #define qemu_put_betr   qemu_put_be64
  26 #define qemu_get_betr   qemu_get_be64
  27 #define VMSTATE_UINTTR_V(_f, _s, _v) \
  28     VMSTATE_UINT64_V(_f, _s, _v)
  29 #define VMSTATE_UINTTR_ARRAY_V(_f, _s, _n, _v) \
  30     VMSTATE_UINT64_ARRAY_V(_f, _s, _n, _v)
  31 #else
  32 #define qemu_put_betr   qemu_put_be32
  33 #define qemu_get_betr   qemu_get_be32
  34 #define VMSTATE_UINTTR_V(_f, _s, _v) \
  35     VMSTATE_UINT32_V(_f, _s, _v)
  36 #define VMSTATE_UINTTR_ARRAY_V(_f, _s, _n, _v) \
  37     VMSTATE_UINT32_ARRAY_V(_f, _s, _n, _v)
  38 #endif
  39
  40 #define VMSTATE_UINTTR(_f, _s) \
  41     VMSTATE_UINTTR_V(_f, _s, 0)
  42 #define VMSTATE_UINTTR_ARRAY(_f, _s, _n) \
  43     VMSTATE_UINTTR_ARRAY_V(_f, _s, _n, 0)
  44
  45
  46 static int get_psw(QEMUFile *f, void *opaque, size_t size,
  47                    const VMStateField *field)
  48 {
  49     CPUHPPAState *env = opaque;
  50     cpu_hppa_put_psw(env, qemu_get_betr(f));
  51     return 0;
  52 }
  53
  54 static int put_psw(QEMUFile *f, void *opaque, size_t size,
  55                    const VMStateField *field, JSONWriter *vmdesc)
  56 {
  57     CPUHPPAState *env = opaque;
  58     qemu_put_betr(f, cpu_hppa_get_psw(env));
  59     return 0;
  60 }
  61
  62 static const VMStateInfo vmstate_psw = {
  63     .name = "psw",
  64     .get = get_psw,
  65     .put = put_psw,
  66 };
  67
  68 /* FIXME: Use the PA2.0 format, which is a superset of the PA1.1 format.  */
  69 static int get_tlb(QEMUFile *f, void *opaque, size_t size,
  70                    const VMStateField *field)
  71 {
  72     HPPATLBEntry *ent = opaque;
  73     uint32_t val;
  74
  75     ent->itree.start = qemu_get_be64(f);
  76     ent->pa = qemu_get_betr(f);
  77     val = qemu_get_be32(f);
  78
  79     ent->entry_valid = extract32(val, 0, 1);
  80     ent->access_id = extract32(val, 1, 18);
  81     ent->u = extract32(val, 19, 1);
  82     ent->ar_pl2 = extract32(val, 20, 2);
  83     ent->ar_pl1 = extract32(val, 22, 2);
  84     ent->ar_type = extract32(val, 24, 3);
  85     ent->b = extract32(val, 27, 1);
  86     ent->d = extract32(val, 28, 1);
  87     ent->t = extract32(val, 29, 1);
  88
  89     ent->itree.last = ent->itree.start + TARGET_PAGE_SIZE - 1;
  90     return 0;
  91 }
  92
  93 static int put_tlb(QEMUFile *f, void *opaque, size_t size,
  94                    const VMStateField *field, JSONWriter *vmdesc)
  95 {
  96     HPPATLBEntry *ent = opaque;
  97     uint32_t val = 0;
  98
  99     if (ent->entry_valid) {
 100         val = 1;
 101         val = deposit32(val, 1, 18, ent->access_id);
 102         val = deposit32(val, 19, 1, ent->u);
 103         val = deposit32(val, 20, 2, ent->ar_pl2);
 104         val = deposit32(val, 22, 2, ent->ar_pl1);
 105         val = deposit32(val, 24, 3, ent->ar_type);
 106         val = deposit32(val, 27, 1, ent->b);
 107         val = deposit32(val, 28, 1, ent->d);
 108         val = deposit32(val, 29, 1, ent->t);
 109     }
 110
 111     qemu_put_be64(f, ent->itree.start);
 112     qemu_put_betr(f, ent->pa);
 113     qemu_put_be32(f, val);
 114     return 0;
 115 }
 116
 117 static const VMStateInfo vmstate_tlb = {
 118     .name = "tlb entry",
 119     .get = get_tlb,
 120     .put = put_tlb,
 121 };
 122
 123 static int tlb_pre_load(void *opaque)
 124 {
 125     CPUHPPAState *env = opaque;
 126
 127     /*
 128      * Zap the entire tlb, on-the-side data structures and all.
 129      * Each tlb entry will have data re-filled by put_tlb.
 130      */
 131     memset(env->tlb, 0, sizeof(env->tlb));
 132     memset(&env->tlb_root, 0, sizeof(env->tlb_root));
 133     env->tlb_unused = NULL;
 134     env->tlb_partial = NULL;
 135
 136     return 0;
 137 }
 138
 139 static int tlb_post_load(void *opaque, int version_id)
 140 {
 141     CPUHPPAState *env = opaque;
 142     HPPATLBEntry **unused = &env->tlb_unused;
 143     HPPATLBEntry *partial = NULL;
 144
 145     /*
 146      * Re-create the interval tree from the valid entries.
 147      * Truely invalid entries should have start == end == 0.
 148      * Otherwise it should be the in-flight tlb_partial entry.
 149      */
 150     for (uint32_t i = 0; i < ARRAY_SIZE(env->tlb); ++i) {
 151         HPPATLBEntry *e = &env->tlb[i];
 152
 153         if (e->entry_valid) {
 154             interval_tree_insert(&e->itree, &env->tlb_root);
 155         } else if (i < HPPA_BTLB_ENTRIES) {
 156             /* btlb not in unused list */
 157         } else if (partial == NULL && e->itree.start < e->itree.last) {
 158             partial = e;
 159         } else {
 160             *unused = e;
 161             unused = &e->unused_next;
 162         }
 163     }
 164     env->tlb_partial = partial;
 165     *unused = NULL;
 166
 167     return 0;
 168 }
 169
 170 static VMStateField vmstate_env_fields[] = {
 171     VMSTATE_UINTTR_ARRAY(gr, CPUHPPAState, 32),
 172     VMSTATE_UINT64_ARRAY(fr, CPUHPPAState, 32),
 173     VMSTATE_UINT64_ARRAY(sr, CPUHPPAState, 8),
 174     VMSTATE_UINTTR_ARRAY(cr, CPUHPPAState, 32),
 175     VMSTATE_UINTTR_ARRAY(cr_back, CPUHPPAState, 2),
 176     VMSTATE_UINTTR_ARRAY(shadow, CPUHPPAState, 7),
 177
 178     /* Save the architecture value of the psw, not the internally
 179        expanded version.  Since this architecture value does not
 180        exist in memory to be stored, this requires a but of hoop
 181        jumping.  We want OFFSET=0 so that we effectively pass ENV
 182        to the helper functions, and we need to fill in the name by
 183        hand since there's no field of that name.  */
 184     {
 185         .name = "psw",
 186         .version_id = 0,
 187         .size = sizeof(uint64_t),
 188         .info = &vmstate_psw,
 189         .flags = VMS_SINGLE,
 190         .offset = 0
 191     },
 192
 193     VMSTATE_UINTTR(iaoq_f, CPUHPPAState),
 194     VMSTATE_UINTTR(iaoq_b, CPUHPPAState),
 195     VMSTATE_UINT64(iasq_f, CPUHPPAState),
 196     VMSTATE_UINT64(iasq_b, CPUHPPAState),
 197
 198     VMSTATE_UINT32(fr0_shadow, CPUHPPAState),
 199
 200     VMSTATE_ARRAY(tlb, CPUHPPAState, ARRAY_SIZE(((CPUHPPAState *)0)->tlb),
 201                   0, vmstate_tlb, HPPATLBEntry),
 202     VMSTATE_UINT32(tlb_last, CPUHPPAState),
 203
 204     VMSTATE_END_OF_LIST()
 205 };
 206
 207 static const VMStateDescription vmstate_env = {
 208     .name = "env",
 209     .version_id = 1,
 210     .minimum_version_id = 1,
 211     .fields = vmstate_env_fields,
 212     .pre_load = tlb_pre_load,
 213     .post_load = tlb_post_load,
 214 };
 215
 216 static VMStateField vmstate_cpu_fields[] = {
 217     VMSTATE_CPU(),
 218     VMSTATE_STRUCT(env, HPPACPU, 1, vmstate_env, CPUHPPAState),
 219     VMSTATE_END_OF_LIST()
 220 };
 221
 222 const VMStateDescription vmstate_hppa_cpu = {
 223     .name = "cpu",
 224     .version_id = 1,
 225     .minimum_version_id = 1,
 226     .fields = vmstate_cpu_fields,
 227 };