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