1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19#include "qemu/osdep.h"
20#include "sysemu/sysemu.h"
21#include "qapi/error.h"
22#include "qemu/log.h"
23#include "target/ppc/cpu.h"
24#include "hw/ppc/ppc.h"
25#include "hw/ppc/pnv.h"
26#include "hw/ppc/pnv_core.h"
27#include "hw/ppc/pnv_xscom.h"
28#include "hw/ppc/xics.h"
29
30static const char *pnv_core_cpu_typename(PnvCore *pc)
31{
32 const char *core_type = object_class_get_name(object_get_class(OBJECT(pc)));
33 int len = strlen(core_type) - strlen(PNV_CORE_TYPE_SUFFIX);
34 char *s = g_strdup_printf(POWERPC_CPU_TYPE_NAME("%.*s"), len, core_type);
35 const char *cpu_type = object_class_get_name(object_class_by_name(s));
36 g_free(s);
37 return cpu_type;
38}
39
40static void pnv_cpu_reset(void *opaque)
41{
42 PowerPCCPU *cpu = opaque;
43 CPUState *cs = CPU(cpu);
44 CPUPPCState *env = &cpu->env;
45
46 cpu_reset(cs);
47
48
49
50
51
52 env->gpr[3] = PNV_FDT_ADDR;
53 env->nip = 0x10;
54 env->msr |= MSR_HVB;
55}
56
57static void pnv_cpu_init(PowerPCCPU *cpu, Error **errp)
58{
59 CPUPPCState *env = &cpu->env;
60 int core_pir;
61 int thread_index = 0;
62 ppc_spr_t *pir = &env->spr_cb[SPR_PIR];
63
64 core_pir = object_property_get_uint(OBJECT(cpu), "core-pir", &error_abort);
65
66
67
68
69
70
71 pir->default_value = core_pir + thread_index;
72
73
74 cpu_ppc_tb_init(env, PNV_TIMEBASE_FREQ);
75
76 qemu_register_reset(pnv_cpu_reset, cpu);
77}
78
79
80
81
82#define PNV_XSCOM_EX_DTS_RESULT0 0x50000
83#define PNV_XSCOM_EX_DTS_RESULT1 0x50001
84
85static uint64_t pnv_core_xscom_read(void *opaque, hwaddr addr,
86 unsigned int width)
87{
88 uint32_t offset = addr >> 3;
89 uint64_t val = 0;
90
91
92 switch (offset) {
93 case PNV_XSCOM_EX_DTS_RESULT0:
94 val = 0x26f024f023f0000ull;
95 break;
96 case PNV_XSCOM_EX_DTS_RESULT1:
97 val = 0x24f000000000000ull;
98 break;
99 default:
100 qemu_log_mask(LOG_UNIMP, "Warning: reading reg=0x%" HWADDR_PRIx,
101 addr);
102 }
103
104 return val;
105}
106
107static void pnv_core_xscom_write(void *opaque, hwaddr addr, uint64_t val,
108 unsigned int width)
109{
110 qemu_log_mask(LOG_UNIMP, "Warning: writing to reg=0x%" HWADDR_PRIx,
111 addr);
112}
113
114static const MemoryRegionOps pnv_core_xscom_ops = {
115 .read = pnv_core_xscom_read,
116 .write = pnv_core_xscom_write,
117 .valid.min_access_size = 8,
118 .valid.max_access_size = 8,
119 .impl.min_access_size = 8,
120 .impl.max_access_size = 8,
121 .endianness = DEVICE_BIG_ENDIAN,
122};
123
124static void pnv_core_realize_child(Object *child, XICSFabric *xi, Error **errp)
125{
126 Error *local_err = NULL;
127 CPUState *cs = CPU(child);
128 PowerPCCPU *cpu = POWERPC_CPU(cs);
129
130 object_property_set_bool(child, true, "realized", &local_err);
131 if (local_err) {
132 error_propagate(errp, local_err);
133 return;
134 }
135
136 cpu->intc = icp_create(child, TYPE_PNV_ICP, xi, &local_err);
137 if (local_err) {
138 error_propagate(errp, local_err);
139 return;
140 }
141
142 pnv_cpu_init(cpu, &local_err);
143 if (local_err) {
144 error_propagate(errp, local_err);
145 return;
146 }
147}
148
149static void pnv_core_realize(DeviceState *dev, Error **errp)
150{
151 PnvCore *pc = PNV_CORE(OBJECT(dev));
152 CPUCore *cc = CPU_CORE(OBJECT(dev));
153 const char *typename = pnv_core_cpu_typename(pc);
154 size_t size = object_type_get_instance_size(typename);
155 Error *local_err = NULL;
156 void *obj;
157 int i, j;
158 char name[32];
159 Object *xi;
160
161 xi = object_property_get_link(OBJECT(dev), "xics", &local_err);
162 if (!xi) {
163 error_setg(errp, "%s: required link 'xics' not found: %s",
164 __func__, error_get_pretty(local_err));
165 return;
166 }
167
168 pc->threads = g_malloc0(size * cc->nr_threads);
169 for (i = 0; i < cc->nr_threads; i++) {
170 obj = pc->threads + i * size;
171
172 object_initialize(obj, size, typename);
173
174 snprintf(name, sizeof(name), "thread[%d]", i);
175 object_property_add_child(OBJECT(pc), name, obj, &local_err);
176 object_property_add_alias(obj, "core-pir", OBJECT(pc),
177 "pir", &local_err);
178 if (local_err) {
179 goto err;
180 }
181 object_unref(obj);
182 }
183
184 for (j = 0; j < cc->nr_threads; j++) {
185 obj = pc->threads + j * size;
186
187 pnv_core_realize_child(obj, XICS_FABRIC(xi), &local_err);
188 if (local_err) {
189 goto err;
190 }
191 }
192
193 snprintf(name, sizeof(name), "xscom-core.%d", cc->core_id);
194 pnv_xscom_region_init(&pc->xscom_regs, OBJECT(dev), &pnv_core_xscom_ops,
195 pc, name, PNV_XSCOM_EX_SIZE);
196 return;
197
198err:
199 while (--i >= 0) {
200 obj = pc->threads + i * size;
201 object_unparent(obj);
202 }
203 g_free(pc->threads);
204 error_propagate(errp, local_err);
205}
206
207static Property pnv_core_properties[] = {
208 DEFINE_PROP_UINT32("pir", PnvCore, pir, 0),
209 DEFINE_PROP_END_OF_LIST(),
210};
211
212static void pnv_core_class_init(ObjectClass *oc, void *data)
213{
214 DeviceClass *dc = DEVICE_CLASS(oc);
215
216 dc->realize = pnv_core_realize;
217 dc->props = pnv_core_properties;
218}
219
220#define DEFINE_PNV_CORE_TYPE(cpu_model) \
221 { \
222 .parent = TYPE_PNV_CORE, \
223 .name = PNV_CORE_TYPE_NAME(cpu_model), \
224 }
225
226static const TypeInfo pnv_core_infos[] = {
227 {
228 .name = TYPE_PNV_CORE,
229 .parent = TYPE_CPU_CORE,
230 .instance_size = sizeof(PnvCore),
231 .class_size = sizeof(PnvCoreClass),
232 .class_init = pnv_core_class_init,
233 .abstract = true,
234 },
235 DEFINE_PNV_CORE_TYPE("power8e_v2.1"),
236 DEFINE_PNV_CORE_TYPE("power8_v2.0"),
237 DEFINE_PNV_CORE_TYPE("power8nvl_v1.0"),
238 DEFINE_PNV_CORE_TYPE("power9_v2.0"),
239};
240
241DEFINE_TYPES(pnv_core_infos)
242