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 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 "hw/hw.h" 23 #include "hw/boards.h" 24 #include "migration/cpu.h" 25 26 #if TARGET_REGISTER_BITS == 64 27 #define qemu_put_betr qemu_put_be64 28 #define qemu_get_betr qemu_get_be64 29 #define VMSTATE_UINTTL_V(_f, _s, _v) \ 30 VMSTATE_UINT64_V(_f, _s, _v) 31 #define VMSTATE_UINTTL_ARRAY_V(_f, _s, _n, _v) \ 32 VMSTATE_UINT64_ARRAY_V(_f, _s, _n, _v) 33 #else 34 #define qemu_put_betr qemu_put_be32 35 #define qemu_get_betr qemu_get_be32 36 #define VMSTATE_UINTTR_V(_f, _s, _v) \ 37 VMSTATE_UINT32_V(_f, _s, _v) 38 #define VMSTATE_UINTTR_ARRAY_V(_f, _s, _n, _v) \ 39 VMSTATE_UINT32_ARRAY_V(_f, _s, _n, _v) 40 #endif 41 42 #define VMSTATE_UINTTR(_f, _s) \ 43 VMSTATE_UINTTR_V(_f, _s, 0) 44 #define VMSTATE_UINTTR_ARRAY(_f, _s, _n) \ 45 VMSTATE_UINTTR_ARRAY_V(_f, _s, _n, 0) 46 47 48 static int get_psw(QEMUFile *f, void *opaque, size_t size, 49 const VMStateField *field) 50 { 51 CPUHPPAState *env = opaque; 52 cpu_hppa_put_psw(env, qemu_get_betr(f)); 53 return 0; 54 } 55 56 static int put_psw(QEMUFile *f, void *opaque, size_t size, 57 const VMStateField *field, QJSON *vmdesc) 58 { 59 CPUHPPAState *env = opaque; 60 qemu_put_betr(f, cpu_hppa_get_psw(env)); 61 return 0; 62 } 63 64 static const VMStateInfo vmstate_psw = { 65 .name = "psw", 66 .get = get_psw, 67 .put = put_psw, 68 }; 69 70 /* FIXME: Use the PA2.0 format, which is a superset of the PA1.1 format. */ 71 static int get_tlb(QEMUFile *f, void *opaque, size_t size, 72 const VMStateField *field) 73 { 74 hppa_tlb_entry *ent = opaque; 75 uint32_t val; 76 77 memset(ent, 0, sizeof(*ent)); 78 79 ent->va_b = qemu_get_be64(f); 80 ent->pa = qemu_get_betr(f); 81 val = qemu_get_be32(f); 82 83 ent->entry_valid = extract32(val, 0, 1); 84 ent->access_id = extract32(val, 1, 18); 85 ent->u = extract32(val, 19, 1); 86 ent->ar_pl2 = extract32(val, 20, 2); 87 ent->ar_pl1 = extract32(val, 22, 2); 88 ent->ar_type = extract32(val, 24, 3); 89 ent->b = extract32(val, 27, 1); 90 ent->d = extract32(val, 28, 1); 91 ent->t = extract32(val, 29, 1); 92 93 ent->va_e = ent->va_b + TARGET_PAGE_SIZE - 1; 94 return 0; 95 } 96 97 static int put_tlb(QEMUFile *f, void *opaque, size_t size, 98 const VMStateField *field, QJSON *vmdesc) 99 { 100 hppa_tlb_entry *ent = opaque; 101 uint32_t val = 0; 102 103 if (ent->entry_valid) { 104 val = 1; 105 val = deposit32(val, 1, 18, ent->access_id); 106 val = deposit32(val, 19, 1, ent->u); 107 val = deposit32(val, 20, 2, ent->ar_pl2); 108 val = deposit32(val, 22, 2, ent->ar_pl1); 109 val = deposit32(val, 24, 3, ent->ar_type); 110 val = deposit32(val, 27, 1, ent->b); 111 val = deposit32(val, 28, 1, ent->d); 112 val = deposit32(val, 29, 1, ent->t); 113 } 114 115 qemu_put_be64(f, ent->va_b); 116 qemu_put_betr(f, ent->pa); 117 qemu_put_be32(f, val); 118 return 0; 119 } 120 121 static const VMStateInfo vmstate_tlb = { 122 .name = "tlb entry", 123 .get = get_tlb, 124 .put = put_tlb, 125 }; 126 127 static VMStateField vmstate_env_fields[] = { 128 VMSTATE_UINTTR_ARRAY(gr, CPUHPPAState, 32), 129 VMSTATE_UINT64_ARRAY(fr, CPUHPPAState, 32), 130 VMSTATE_UINT64_ARRAY(sr, CPUHPPAState, 8), 131 VMSTATE_UINTTR_ARRAY(cr, CPUHPPAState, 32), 132 VMSTATE_UINTTR_ARRAY(cr_back, CPUHPPAState, 2), 133 VMSTATE_UINTTR_ARRAY(shadow, CPUHPPAState, 7), 134 135 /* Save the architecture value of the psw, not the internally 136 expanded version. Since this architecture value does not 137 exist in memory to be stored, this requires a but of hoop 138 jumping. We want OFFSET=0 so that we effectively pass ENV 139 to the helper functions, and we need to fill in the name by 140 hand since there's no field of that name. */ 141 { 142 .name = "psw", 143 .version_id = 0, 144 .size = sizeof(uint64_t), 145 .info = &vmstate_psw, 146 .flags = VMS_SINGLE, 147 .offset = 0 148 }, 149 150 VMSTATE_UINTTR(iaoq_f, CPUHPPAState), 151 VMSTATE_UINTTR(iaoq_b, CPUHPPAState), 152 VMSTATE_UINT64(iasq_f, CPUHPPAState), 153 VMSTATE_UINT64(iasq_b, CPUHPPAState), 154 155 VMSTATE_UINT32(fr0_shadow, CPUHPPAState), 156 157 VMSTATE_ARRAY(tlb, CPUHPPAState, ARRAY_SIZE(((CPUHPPAState *)0)->tlb), 158 0, vmstate_tlb, hppa_tlb_entry), 159 VMSTATE_UINT32(tlb_last, CPUHPPAState), 160 161 VMSTATE_END_OF_LIST() 162 }; 163 164 static const VMStateDescription vmstate_env = { 165 .name = "env", 166 .version_id = 1, 167 .minimum_version_id = 1, 168 .fields = vmstate_env_fields, 169 }; 170 171 static VMStateField vmstate_cpu_fields[] = { 172 VMSTATE_CPU(), 173 VMSTATE_STRUCT(env, HPPACPU, 1, vmstate_env, CPUHPPAState), 174 VMSTATE_END_OF_LIST() 175 }; 176 177 const VMStateDescription vmstate_hppa_cpu = { 178 .name = "cpu", 179 .version_id = 1, 180 .minimum_version_id = 1, 181 .fields = vmstate_cpu_fields, 182 }; 183