overall/alpha tcg cpus|hppa: Fix Lesser GPL version number
[qemu.git] / 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_UINTTL_V(_f, _s, _v) \
28 VMSTATE_UINT64_V(_f, _s, _v)
29 #define VMSTATE_UINTTL_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, QJSON *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 hppa_tlb_entry *ent = opaque;
73 uint32_t val;
74
75 memset(ent, 0, sizeof(*ent));
76
77 ent->va_b = qemu_get_be64(f);
78 ent->pa = qemu_get_betr(f);
79 val = qemu_get_be32(f);
80
81 ent->entry_valid = extract32(val, 0, 1);
82 ent->access_id = extract32(val, 1, 18);
83 ent->u = extract32(val, 19, 1);
84 ent->ar_pl2 = extract32(val, 20, 2);
85 ent->ar_pl1 = extract32(val, 22, 2);
86 ent->ar_type = extract32(val, 24, 3);
87 ent->b = extract32(val, 27, 1);
88 ent->d = extract32(val, 28, 1);
89 ent->t = extract32(val, 29, 1);
90
91 ent->va_e = ent->va_b + TARGET_PAGE_SIZE - 1;
92 return 0;
93 }
94
95 static int put_tlb(QEMUFile *f, void *opaque, size_t size,
96 const VMStateField *field, QJSON *vmdesc)
97 {
98 hppa_tlb_entry *ent = opaque;
99 uint32_t val = 0;
100
101 if (ent->entry_valid) {
102 val = 1;
103 val = deposit32(val, 1, 18, ent->access_id);
104 val = deposit32(val, 19, 1, ent->u);
105 val = deposit32(val, 20, 2, ent->ar_pl2);
106 val = deposit32(val, 22, 2, ent->ar_pl1);
107 val = deposit32(val, 24, 3, ent->ar_type);
108 val = deposit32(val, 27, 1, ent->b);
109 val = deposit32(val, 28, 1, ent->d);
110 val = deposit32(val, 29, 1, ent->t);
111 }
112
113 qemu_put_be64(f, ent->va_b);
114 qemu_put_betr(f, ent->pa);
115 qemu_put_be32(f, val);
116 return 0;
117 }
118
119 static const VMStateInfo vmstate_tlb = {
120 .name = "tlb entry",
121 .get = get_tlb,
122 .put = put_tlb,
123 };
124
125 static VMStateField vmstate_env_fields[] = {
126 VMSTATE_UINTTR_ARRAY(gr, CPUHPPAState, 32),
127 VMSTATE_UINT64_ARRAY(fr, CPUHPPAState, 32),
128 VMSTATE_UINT64_ARRAY(sr, CPUHPPAState, 8),
129 VMSTATE_UINTTR_ARRAY(cr, CPUHPPAState, 32),
130 VMSTATE_UINTTR_ARRAY(cr_back, CPUHPPAState, 2),
131 VMSTATE_UINTTR_ARRAY(shadow, CPUHPPAState, 7),
132
133 /* Save the architecture value of the psw, not the internally
134 expanded version. Since this architecture value does not
135 exist in memory to be stored, this requires a but of hoop
136 jumping. We want OFFSET=0 so that we effectively pass ENV
137 to the helper functions, and we need to fill in the name by
138 hand since there's no field of that name. */
139 {
140 .name = "psw",
141 .version_id = 0,
142 .size = sizeof(uint64_t),
143 .info = &vmstate_psw,
144 .flags = VMS_SINGLE,
145 .offset = 0
146 },
147
148 VMSTATE_UINTTR(iaoq_f, CPUHPPAState),
149 VMSTATE_UINTTR(iaoq_b, CPUHPPAState),
150 VMSTATE_UINT64(iasq_f, CPUHPPAState),
151 VMSTATE_UINT64(iasq_b, CPUHPPAState),
152
153 VMSTATE_UINT32(fr0_shadow, CPUHPPAState),
154
155 VMSTATE_ARRAY(tlb, CPUHPPAState, ARRAY_SIZE(((CPUHPPAState *)0)->tlb),
156 0, vmstate_tlb, hppa_tlb_entry),
157 VMSTATE_UINT32(tlb_last, CPUHPPAState),
158
159 VMSTATE_END_OF_LIST()
160 };
161
162 static const VMStateDescription vmstate_env = {
163 .name = "env",
164 .version_id = 1,
165 .minimum_version_id = 1,
166 .fields = vmstate_env_fields,
167 };
168
169 static VMStateField vmstate_cpu_fields[] = {
170 VMSTATE_CPU(),
171 VMSTATE_STRUCT(env, HPPACPU, 1, vmstate_env, CPUHPPAState),
172 VMSTATE_END_OF_LIST()
173 };
174
175 const VMStateDescription vmstate_hppa_cpu = {
176 .name = "cpu",
177 .version_id = 1,
178 .minimum_version_id = 1,
179 .fields = vmstate_cpu_fields,
180 };