| 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/qemu-file-types.h" |
| 23 | #include "migration/vmstate.h" |
| 24 | |
| 25 | |
| 26 | static int get_psw(QEMUFile *f, void *opaque, size_t size, |
| 27 | const VMStateField *field) |
| 28 | { |
| 29 | CPUHPPAState *env = opaque; |
| 30 | cpu_hppa_put_psw(env, qemu_get_be64(f)); |
| 31 | return 0; |
| 32 | } |
| 33 | |
| 34 | static int put_psw(QEMUFile *f, void *opaque, size_t size, |
| 35 | const VMStateField *field, JSONWriter *vmdesc) |
| 36 | { |
| 37 | CPUHPPAState *env = opaque; |
| 38 | qemu_put_be64(f, cpu_hppa_get_psw(env)); |
| 39 | return 0; |
| 40 | } |
| 41 | |
| 42 | static const VMStateInfo vmstate_psw = { |
| 43 | .name = "psw", |
| 44 | .get = get_psw, |
| 45 | .put = put_psw, |
| 46 | }; |
| 47 | |
| 48 | static int get_tlb(QEMUFile *f, void *opaque, size_t size, |
| 49 | const VMStateField *field) |
| 50 | { |
| 51 | HPPATLBEntry *ent = opaque; |
| 52 | uint64_t val; |
| 53 | |
| 54 | ent->itree.start = qemu_get_be64(f); |
| 55 | ent->itree.last = qemu_get_be64(f); |
| 56 | ent->pa = qemu_get_be64(f); |
| 57 | val = qemu_get_be64(f); |
| 58 | |
| 59 | if (val) { |
| 60 | ent->t = extract64(val, 61, 1); |
| 61 | ent->d = extract64(val, 60, 1); |
| 62 | ent->b = extract64(val, 59, 1); |
| 63 | ent->ar_type = extract64(val, 56, 3); |
| 64 | ent->ar_pl1 = extract64(val, 54, 2); |
| 65 | ent->ar_pl2 = extract64(val, 52, 2); |
| 66 | ent->u = extract64(val, 51, 1); |
| 67 | /* o = bit 50 */ |
| 68 | /* p = bit 49 */ |
| 69 | ent->access_id = extract64(val, 1, 31); |
| 70 | ent->entry_valid = 1; |
| 71 | } |
| 72 | return 0; |
| 73 | } |
| 74 | |
| 75 | static int put_tlb(QEMUFile *f, void *opaque, size_t size, |
| 76 | const VMStateField *field, JSONWriter *vmdesc) |
| 77 | { |
| 78 | HPPATLBEntry *ent = opaque; |
| 79 | uint64_t val = 0; |
| 80 | |
| 81 | if (ent->entry_valid) { |
| 82 | val = 1; |
| 83 | val = deposit64(val, 61, 1, ent->t); |
| 84 | val = deposit64(val, 60, 1, ent->d); |
| 85 | val = deposit64(val, 59, 1, ent->b); |
| 86 | val = deposit64(val, 56, 3, ent->ar_type); |
| 87 | val = deposit64(val, 54, 2, ent->ar_pl1); |
| 88 | val = deposit64(val, 52, 2, ent->ar_pl2); |
| 89 | val = deposit64(val, 51, 1, ent->u); |
| 90 | /* o = bit 50 */ |
| 91 | /* p = bit 49 */ |
| 92 | val = deposit64(val, 1, 31, ent->access_id); |
| 93 | } |
| 94 | |
| 95 | qemu_put_be64(f, ent->itree.start); |
| 96 | qemu_put_be64(f, ent->itree.last); |
| 97 | qemu_put_be64(f, ent->pa); |
| 98 | qemu_put_be64(f, val); |
| 99 | return 0; |
| 100 | } |
| 101 | |
| 102 | static const VMStateInfo vmstate_tlb_entry = { |
| 103 | .name = "tlb entry", |
| 104 | .get = get_tlb, |
| 105 | .put = put_tlb, |
| 106 | }; |
| 107 | |
| 108 | static int tlb_pre_load(void *opaque) |
| 109 | { |
| 110 | CPUHPPAState *env = opaque; |
| 111 | |
| 112 | /* |
| 113 | * Zap the entire tlb, on-the-side data structures and all. |
| 114 | * Each tlb entry will have data re-filled by put_tlb. |
| 115 | */ |
| 116 | memset(env->tlb, 0, sizeof(env->tlb)); |
| 117 | memset(&env->tlb_root, 0, sizeof(env->tlb_root)); |
| 118 | env->tlb_unused = NULL; |
| 119 | env->tlb_partial = NULL; |
| 120 | |
| 121 | return 0; |
| 122 | } |
| 123 | |
| 124 | static int tlb_post_load(void *opaque, int version_id) |
| 125 | { |
| 126 | CPUHPPAState *env = opaque; |
| 127 | uint32_t btlb_entries = HPPA_BTLB_ENTRIES(env); |
| 128 | HPPATLBEntry **unused = &env->tlb_unused; |
| 129 | HPPATLBEntry *partial = NULL; |
| 130 | |
| 131 | /* |
| 132 | * Re-create the interval tree from the valid entries. |
| 133 | * Truly invalid entries should have start == end == 0. |
| 134 | * Otherwise it should be the in-flight tlb_partial entry. |
| 135 | */ |
| 136 | for (uint32_t i = 0; i < ARRAY_SIZE(env->tlb); ++i) { |
| 137 | HPPATLBEntry *e = &env->tlb[i]; |
| 138 | |
| 139 | if (e->entry_valid) { |
| 140 | interval_tree_insert(&e->itree, &env->tlb_root); |
| 141 | } else if (i < btlb_entries) { |
| 142 | /* btlb not in unused list */ |
| 143 | } else if (partial == NULL && e->itree.start < e->itree.last) { |
| 144 | partial = e; |
| 145 | } else { |
| 146 | *unused = e; |
| 147 | unused = &e->unused_next; |
| 148 | } |
| 149 | } |
| 150 | env->tlb_partial = partial; |
| 151 | *unused = NULL; |
| 152 | |
| 153 | return 0; |
| 154 | } |
| 155 | |
| 156 | static const VMStateField vmstate_tlb_fields[] = { |
| 157 | VMSTATE_ARRAY(tlb, CPUHPPAState, |
| 158 | ARRAY_SIZE(((CPUHPPAState *)0)->tlb), |
| 159 | 0, vmstate_tlb_entry, HPPATLBEntry), |
| 160 | VMSTATE_UINT32(tlb_last, CPUHPPAState), |
| 161 | VMSTATE_END_OF_LIST() |
| 162 | }; |
| 163 | |
| 164 | static const VMStateDescription vmstate_tlb = { |
| 165 | .name = "env/tlb", |
| 166 | .version_id = 1, |
| 167 | .minimum_version_id = 1, |
| 168 | .fields = vmstate_tlb_fields, |
| 169 | .pre_load = tlb_pre_load, |
| 170 | .post_load = tlb_post_load, |
| 171 | }; |
| 172 | |
| 173 | static const VMStateField vmstate_env_fields[] = { |
| 174 | VMSTATE_UINT64_ARRAY(gr, CPUHPPAState, 32), |
| 175 | VMSTATE_UINT64_ARRAY(fr, CPUHPPAState, 32), |
| 176 | VMSTATE_UINT64_ARRAY(sr, CPUHPPAState, 8), |
| 177 | VMSTATE_UINT64_ARRAY(cr, CPUHPPAState, 32), |
| 178 | VMSTATE_UINT64_ARRAY(cr_back, CPUHPPAState, 2), |
| 179 | VMSTATE_UINT64_ARRAY(shadow, CPUHPPAState, 7), |
| 180 | |
| 181 | /* Save the architecture value of the psw, not the internally |
| 182 | expanded version. Since this architecture value does not |
| 183 | exist in memory to be stored, this requires a but of hoop |
| 184 | jumping. We want OFFSET=0 so that we effectively pass ENV |
| 185 | to the helper functions, and we need to fill in the name by |
| 186 | hand since there's no field of that name. */ |
| 187 | { |
| 188 | .name = "psw", |
| 189 | .version_id = 0, |
| 190 | .size = sizeof(uint64_t), |
| 191 | .info = &vmstate_psw, |
| 192 | .flags = VMS_SINGLE, |
| 193 | .offset = 0 |
| 194 | }, |
| 195 | |
| 196 | VMSTATE_UINT64(iaoq_f, CPUHPPAState), |
| 197 | VMSTATE_UINT64(iaoq_b, CPUHPPAState), |
| 198 | VMSTATE_UINT64(iasq_f, CPUHPPAState), |
| 199 | VMSTATE_UINT64(iasq_b, CPUHPPAState), |
| 200 | |
| 201 | VMSTATE_UINT32(fr0_shadow, CPUHPPAState), |
| 202 | VMSTATE_UINT64_ARRAY(dr, CPUHPPAState, 32), |
| 203 | VMSTATE_END_OF_LIST() |
| 204 | }; |
| 205 | |
| 206 | static const VMStateDescription * const vmstate_env_subsections[] = { |
| 207 | &vmstate_tlb, |
| 208 | NULL |
| 209 | }; |
| 210 | |
| 211 | static const VMStateDescription vmstate_env = { |
| 212 | .name = "env", |
| 213 | .version_id = 4, |
| 214 | .minimum_version_id = 4, |
| 215 | .fields = vmstate_env_fields, |
| 216 | .subsections = vmstate_env_subsections, |
| 217 | }; |
| 218 | |
| 219 | static const VMStateField vmstate_cpu_fields[] = { |
| 220 | VMSTATE_STRUCT(parent_obj, HPPACPU, 0, vmstate_cpu_common, CPUState), |
| 221 | VMSTATE_STRUCT(env, HPPACPU, 1, vmstate_env, CPUHPPAState), |
| 222 | VMSTATE_END_OF_LIST() |
| 223 | }; |
| 224 | |
| 225 | const VMStateDescription vmstate_hppa_cpu = { |
| 226 | .name = "cpu", |
| 227 | .version_id = 1, |
| 228 | .minimum_version_id = 1, |
| 229 | .fields = vmstate_cpu_fields, |
| 230 | }; |