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 uint32_t btlb_entries = HPPA_BTLB_ENTRIES(env); 143 HPPATLBEntry **unused = &env->tlb_unused; 144 HPPATLBEntry *partial = NULL; 145 146 /* 147 * Re-create the interval tree from the valid entries. 148 * Truely invalid entries should have start == end == 0. 149 * Otherwise it should be the in-flight tlb_partial entry. 150 */ 151 for (uint32_t i = 0; i < ARRAY_SIZE(env->tlb); ++i) { 152 HPPATLBEntry *e = &env->tlb[i]; 153 154 if (e->entry_valid) { 155 interval_tree_insert(&e->itree, &env->tlb_root); 156 } else if (i < btlb_entries) { 157 /* btlb not in unused list */ 158 } else if (partial == NULL && e->itree.start < e->itree.last) { 159 partial = e; 160 } else { 161 *unused = e; 162 unused = &e->unused_next; 163 } 164 } 165 env->tlb_partial = partial; 166 *unused = NULL; 167 168 return 0; 169 } 170 171 static VMStateField vmstate_env_fields[] = { 172 VMSTATE_UINTTR_ARRAY(gr, CPUHPPAState, 32), 173 VMSTATE_UINT64_ARRAY(fr, CPUHPPAState, 32), 174 VMSTATE_UINT64_ARRAY(sr, CPUHPPAState, 8), 175 VMSTATE_UINTTR_ARRAY(cr, CPUHPPAState, 32), 176 VMSTATE_UINTTR_ARRAY(cr_back, CPUHPPAState, 2), 177 VMSTATE_UINTTR_ARRAY(shadow, CPUHPPAState, 7), 178 179 /* Save the architecture value of the psw, not the internally 180 expanded version. Since this architecture value does not 181 exist in memory to be stored, this requires a but of hoop 182 jumping. We want OFFSET=0 so that we effectively pass ENV 183 to the helper functions, and we need to fill in the name by 184 hand since there's no field of that name. */ 185 { 186 .name = "psw", 187 .version_id = 0, 188 .size = sizeof(uint64_t), 189 .info = &vmstate_psw, 190 .flags = VMS_SINGLE, 191 .offset = 0 192 }, 193 194 VMSTATE_UINTTR(iaoq_f, CPUHPPAState), 195 VMSTATE_UINTTR(iaoq_b, CPUHPPAState), 196 VMSTATE_UINT64(iasq_f, CPUHPPAState), 197 VMSTATE_UINT64(iasq_b, CPUHPPAState), 198 199 VMSTATE_UINT32(fr0_shadow, CPUHPPAState), 200 201 VMSTATE_ARRAY(tlb, CPUHPPAState, ARRAY_SIZE(((CPUHPPAState *)0)->tlb), 202 0, vmstate_tlb, HPPATLBEntry), 203 VMSTATE_UINT32(tlb_last, CPUHPPAState), 204 205 VMSTATE_END_OF_LIST() 206 }; 207 208 static const VMStateDescription vmstate_env = { 209 .name = "env", 210 .version_id = 1, 211 .minimum_version_id = 1, 212 .fields = vmstate_env_fields, 213 .pre_load = tlb_pre_load, 214 .post_load = tlb_post_load, 215 }; 216 217 static VMStateField vmstate_cpu_fields[] = { 218 VMSTATE_CPU(), 219 VMSTATE_STRUCT(env, HPPACPU, 1, vmstate_env, CPUHPPAState), 220 VMSTATE_END_OF_LIST() 221 }; 222 223 const VMStateDescription vmstate_hppa_cpu = { 224 .name = "cpu", 225 .version_id = 1, 226 .minimum_version_id = 1, 227 .fields = vmstate_cpu_fields, 228 }; 229