xref: /openbmc/qemu/hw/intc/s390_flic.c (revision b194e44785269c8884f17eac40aa80bada4c746a) 
1 /*
2  * QEMU S390x floating interrupt controller (flic)
3  *
4  * Copyright 2014 IBM Corp.
5  * Author(s): Jens Freimann <jfrei@linux.vnet.ibm.com>
6  *            Cornelia Huck <cornelia.huck@de.ibm.com>
7  *
8  * This work is licensed under the terms of the GNU GPL, version 2 or (at
9  * your option) any later version. See the COPYING file in the top-level
10  * directory.
11  */
12 
13 #include "qemu/osdep.h"
14 #include "qemu/error-report.h"
15 #include "hw/sysbus.h"
16 #include "hw/s390x/ioinst.h"
17 #include "hw/s390x/s390_flic.h"
18 #include "hw/s390x/css.h"
19 #include "trace.h"
20 #include "cpu.h"
21 #include "hw/qdev.h"
22 #include "qapi/error.h"
23 #include "hw/s390x/s390-virtio-ccw.h"
24 
25 S390FLICState *s390_get_flic(void)
26 {
27     static S390FLICState *fs;
28 
29     if (!fs) {
30         fs = S390_FLIC_COMMON(object_resolve_path_type("",
31                                                        TYPE_S390_FLIC_COMMON,
32                                                        NULL));
33     }
34     return fs;
35 }
36 
37 void s390_flic_init(void)
38 {
39     DeviceState *dev;
40 
41     if (kvm_enabled()) {
42         dev = qdev_create(NULL, TYPE_KVM_S390_FLIC);
43         object_property_add_child(qdev_get_machine(), TYPE_KVM_S390_FLIC,
44                                   OBJECT(dev), NULL);
45     } else {
46         dev = qdev_create(NULL, TYPE_QEMU_S390_FLIC);
47         object_property_add_child(qdev_get_machine(), TYPE_QEMU_S390_FLIC,
48                                   OBJECT(dev), NULL);
49     }
50     qdev_init_nofail(dev);
51 }
52 
53 static int qemu_s390_register_io_adapter(S390FLICState *fs, uint32_t id,
54                                          uint8_t isc, bool swap,
55                                          bool is_maskable, uint8_t flags)
56 {
57     /* nothing to do */
58     return 0;
59 }
60 
61 static int qemu_s390_io_adapter_map(S390FLICState *fs, uint32_t id,
62                                     uint64_t map_addr, bool do_map)
63 {
64     /* nothing to do */
65     return 0;
66 }
67 
68 static int qemu_s390_add_adapter_routes(S390FLICState *fs,
69                                         AdapterRoutes *routes)
70 {
71     return -ENOSYS;
72 }
73 
74 static void qemu_s390_release_adapter_routes(S390FLICState *fs,
75                                              AdapterRoutes *routes)
76 {
77 }
78 
79 static int qemu_s390_clear_io_flic(S390FLICState *fs, uint16_t subchannel_id,
80                            uint16_t subchannel_nr)
81 {
82     /* Fixme TCG */
83     return -ENOSYS;
84 }
85 
86 static int qemu_s390_modify_ais_mode(S390FLICState *fs, uint8_t isc,
87                                      uint16_t mode)
88 {
89     QEMUS390FLICState *flic  = QEMU_S390_FLIC(fs);
90 
91     switch (mode) {
92     case SIC_IRQ_MODE_ALL:
93         flic->simm &= ~AIS_MODE_MASK(isc);
94         flic->nimm &= ~AIS_MODE_MASK(isc);
95         break;
96     case SIC_IRQ_MODE_SINGLE:
97         flic->simm |= AIS_MODE_MASK(isc);
98         flic->nimm &= ~AIS_MODE_MASK(isc);
99         break;
100     default:
101         return -EINVAL;
102     }
103 
104     return 0;
105 }
106 
107 static int qemu_s390_inject_airq(S390FLICState *fs, uint8_t type,
108                                  uint8_t isc, uint8_t flags)
109 {
110     QEMUS390FLICState *flic = QEMU_S390_FLIC(fs);
111     S390FLICStateClass *fsc = S390_FLIC_COMMON_GET_CLASS(fs);
112     bool flag = flags & S390_ADAPTER_SUPPRESSIBLE;
113     uint32_t io_int_word = (isc << 27) | IO_INT_WORD_AI;
114 
115     if (flag && (flic->nimm & AIS_MODE_MASK(isc))) {
116         trace_qemu_s390_airq_suppressed(type, isc);
117         return 0;
118     }
119 
120     fsc->inject_io(fs, 0, 0, 0, io_int_word);
121 
122     if (flag && (flic->simm & AIS_MODE_MASK(isc))) {
123         flic->nimm |= AIS_MODE_MASK(isc);
124         trace_qemu_s390_suppress_airq(isc, "Single-Interruption Mode",
125                                       "NO-Interruptions Mode");
126     }
127 
128     return 0;
129 }
130 
131 static void qemu_s390_flic_notify(uint32_t type)
132 {
133     CPUState *cs;
134 
135     /*
136      * We have to make all CPUs see CPU_INTERRUPT_HARD, so they might
137      * consider it. TODO: don't kick/wakeup all VCPUs but try to be
138      * smarter (using the interrupt type).
139      */
140     CPU_FOREACH(cs) {
141         cpu_interrupt(cs, CPU_INTERRUPT_HARD);
142     }
143 }
144 
145 uint32_t qemu_s390_flic_dequeue_service(QEMUS390FLICState *flic)
146 {
147     uint32_t tmp;
148 
149     g_assert(qemu_mutex_iothread_locked());
150     g_assert(flic->pending & FLIC_PENDING_SERVICE);
151     tmp = flic->service_param;
152     flic->service_param = 0;
153     flic->pending &= ~FLIC_PENDING_SERVICE;
154 
155     return tmp;
156 }
157 
158 /* caller has to free the returned object */
159 QEMUS390FlicIO *qemu_s390_flic_dequeue_io(QEMUS390FLICState *flic, uint64_t cr6)
160 {
161     QEMUS390FlicIO *io;
162     uint8_t isc;
163 
164     g_assert(qemu_mutex_iothread_locked());
165     if (!(flic->pending & CR6_TO_PENDING_IO(cr6))) {
166         return NULL;
167     }
168 
169     for (isc = 0; isc < 8; isc++) {
170         if (QLIST_EMPTY(&flic->io[isc]) || !(cr6 & ISC_TO_ISC_BITS(isc))) {
171             continue;
172         }
173         io = QLIST_FIRST(&flic->io[isc]);
174         QLIST_REMOVE(io, next);
175 
176         /* update our indicator bit */
177         if (QLIST_EMPTY(&flic->io[isc])) {
178             flic->pending &= ~ISC_TO_PENDING_IO(isc);
179         }
180         return io;
181     }
182 
183     return NULL;
184 }
185 
186 void qemu_s390_flic_dequeue_crw_mchk(QEMUS390FLICState *flic)
187 {
188     g_assert(qemu_mutex_iothread_locked());
189     g_assert(flic->pending & FLIC_PENDING_MCHK_CR);
190     flic->pending &= ~FLIC_PENDING_MCHK_CR;
191 }
192 
193 static void qemu_s390_inject_service(S390FLICState *fs, uint32_t parm)
194 {
195     QEMUS390FLICState *flic = QEMU_S390_FLIC(fs);
196 
197     g_assert(qemu_mutex_iothread_locked());
198     /* multiplexing is good enough for sclp - kvm does it internally as well */
199     flic->service_param |= parm;
200     flic->pending |= FLIC_PENDING_SERVICE;
201 
202     qemu_s390_flic_notify(FLIC_PENDING_SERVICE);
203 }
204 
205 static void qemu_s390_inject_io(S390FLICState *fs, uint16_t subchannel_id,
206                                 uint16_t subchannel_nr, uint32_t io_int_parm,
207                                 uint32_t io_int_word)
208 {
209     const uint8_t isc = IO_INT_WORD_ISC(io_int_word);
210     QEMUS390FLICState *flic = QEMU_S390_FLIC(fs);
211     QEMUS390FlicIO *io;
212 
213     g_assert(qemu_mutex_iothread_locked());
214     io = g_new0(QEMUS390FlicIO, 1);
215     io->id = subchannel_id;
216     io->nr = subchannel_nr;
217     io->parm = io_int_parm;
218     io->word = io_int_word;
219 
220     QLIST_INSERT_HEAD(&flic->io[isc], io, next);
221     flic->pending |= ISC_TO_PENDING_IO(isc);
222 
223     qemu_s390_flic_notify(ISC_TO_PENDING_IO(isc));
224 }
225 
226 static void qemu_s390_inject_crw_mchk(S390FLICState *fs)
227 {
228     QEMUS390FLICState *flic = QEMU_S390_FLIC(fs);
229 
230     g_assert(qemu_mutex_iothread_locked());
231     flic->pending |= FLIC_PENDING_MCHK_CR;
232 
233     qemu_s390_flic_notify(FLIC_PENDING_MCHK_CR);
234 }
235 
236 bool qemu_s390_flic_has_service(QEMUS390FLICState *flic)
237 {
238     /* called without lock via cc->has_work, will be validated under lock */
239     return !!(flic->pending & FLIC_PENDING_SERVICE);
240 }
241 
242 bool qemu_s390_flic_has_io(QEMUS390FLICState *flic, uint64_t cr6)
243 {
244     /* called without lock via cc->has_work, will be validated under lock */
245     return !!(flic->pending & CR6_TO_PENDING_IO(cr6));
246 }
247 
248 bool qemu_s390_flic_has_crw_mchk(QEMUS390FLICState *flic)
249 {
250     /* called without lock via cc->has_work, will be validated under lock */
251     return !!(flic->pending & FLIC_PENDING_MCHK_CR);
252 }
253 
254 bool qemu_s390_flic_has_any(QEMUS390FLICState *flic)
255 {
256     g_assert(qemu_mutex_iothread_locked());
257     return !!flic->pending;
258 }
259 
260 static void qemu_s390_flic_reset(DeviceState *dev)
261 {
262     QEMUS390FLICState *flic = QEMU_S390_FLIC(dev);
263     QEMUS390FlicIO *cur, *next;
264     int isc;
265 
266     g_assert(qemu_mutex_iothread_locked());
267     flic->simm = 0;
268     flic->nimm = 0;
269     flic->pending = 0;
270 
271     /* remove all pending io interrupts */
272     for (isc = 0; isc < 8; isc++) {
273         QLIST_FOREACH_SAFE(cur, &flic->io[isc], next, next) {
274             QLIST_REMOVE(cur, next);
275             g_free(cur);
276         }
277     }
278 }
279 
280 bool ais_needed(void *opaque)
281 {
282     S390FLICState *s = opaque;
283 
284     return s->ais_supported;
285 }
286 
287 static const VMStateDescription qemu_s390_flic_vmstate = {
288     .name = "qemu-s390-flic",
289     .version_id = 1,
290     .minimum_version_id = 1,
291     .needed = ais_needed,
292     .fields = (VMStateField[]) {
293         VMSTATE_UINT8(simm, QEMUS390FLICState),
294         VMSTATE_UINT8(nimm, QEMUS390FLICState),
295         VMSTATE_END_OF_LIST()
296     }
297 };
298 
299 static void qemu_s390_flic_instance_init(Object *obj)
300 {
301     QEMUS390FLICState *flic = QEMU_S390_FLIC(obj);
302     int isc;
303 
304     for (isc = 0; isc < 8; isc++) {
305         QLIST_INIT(&flic->io[isc]);
306     }
307 }
308 
309 static void qemu_s390_flic_class_init(ObjectClass *oc, void *data)
310 {
311     DeviceClass *dc = DEVICE_CLASS(oc);
312     S390FLICStateClass *fsc = S390_FLIC_COMMON_CLASS(oc);
313 
314     dc->reset = qemu_s390_flic_reset;
315     dc->vmsd = &qemu_s390_flic_vmstate;
316     fsc->register_io_adapter = qemu_s390_register_io_adapter;
317     fsc->io_adapter_map = qemu_s390_io_adapter_map;
318     fsc->add_adapter_routes = qemu_s390_add_adapter_routes;
319     fsc->release_adapter_routes = qemu_s390_release_adapter_routes;
320     fsc->clear_io_irq = qemu_s390_clear_io_flic;
321     fsc->modify_ais_mode = qemu_s390_modify_ais_mode;
322     fsc->inject_airq = qemu_s390_inject_airq;
323     fsc->inject_service = qemu_s390_inject_service;
324     fsc->inject_io = qemu_s390_inject_io;
325     fsc->inject_crw_mchk = qemu_s390_inject_crw_mchk;
326 }
327 
328 static Property s390_flic_common_properties[] = {
329     DEFINE_PROP_UINT32("adapter_routes_max_batch", S390FLICState,
330                        adapter_routes_max_batch, ADAPTER_ROUTES_MAX_GSI),
331     DEFINE_PROP_END_OF_LIST(),
332 };
333 
334 static void s390_flic_common_realize(DeviceState *dev, Error **errp)
335 {
336     S390FLICState *fs = S390_FLIC_COMMON(dev);
337     uint32_t max_batch = fs->adapter_routes_max_batch;
338 
339     if (max_batch > ADAPTER_ROUTES_MAX_GSI) {
340         error_setg(errp, "flic property adapter_routes_max_batch too big"
341                    " (%d > %d)", max_batch, ADAPTER_ROUTES_MAX_GSI);
342         return;
343     }
344 
345     fs->ais_supported = s390_has_feat(S390_FEAT_ADAPTER_INT_SUPPRESSION);
346 }
347 
348 static void s390_flic_class_init(ObjectClass *oc, void *data)
349 {
350     DeviceClass *dc = DEVICE_CLASS(oc);
351 
352     dc->props = s390_flic_common_properties;
353     dc->realize = s390_flic_common_realize;
354 }
355 
356 static const TypeInfo qemu_s390_flic_info = {
357     .name          = TYPE_QEMU_S390_FLIC,
358     .parent        = TYPE_S390_FLIC_COMMON,
359     .instance_size = sizeof(QEMUS390FLICState),
360     .instance_init = qemu_s390_flic_instance_init,
361     .class_init    = qemu_s390_flic_class_init,
362 };
363 
364 
365 static const TypeInfo s390_flic_common_info = {
366     .name          = TYPE_S390_FLIC_COMMON,
367     .parent        = TYPE_SYS_BUS_DEVICE,
368     .instance_size = sizeof(S390FLICState),
369     .class_init    = s390_flic_class_init,
370     .class_size    = sizeof(S390FLICStateClass),
371 };
372 
373 static void qemu_s390_flic_register_types(void)
374 {
375     type_register_static(&s390_flic_common_info);
376     type_register_static(&qemu_s390_flic_info);
377 }
378 
379 type_init(qemu_s390_flic_register_types)
380 
381 static bool adapter_info_so_needed(void *opaque)
382 {
383     return css_migration_enabled();
384 }
385 
386 const VMStateDescription vmstate_adapter_info_so = {
387     .name = "s390_adapter_info/summary_offset",
388     .version_id = 1,
389     .minimum_version_id = 1,
390     .needed = adapter_info_so_needed,
391     .fields = (VMStateField[]) {
392         VMSTATE_UINT32(summary_offset, AdapterInfo),
393         VMSTATE_END_OF_LIST()
394     }
395 };
396 
397 const VMStateDescription vmstate_adapter_info = {
398     .name = "s390_adapter_info",
399     .version_id = 1,
400     .minimum_version_id = 1,
401     .fields = (VMStateField[]) {
402         VMSTATE_UINT64(ind_offset, AdapterInfo),
403         /*
404          * We do not have to migrate neither the id nor the addresses.
405          * The id is set by css_register_io_adapter and the addresses
406          * are set based on the IndAddr objects after those get mapped.
407          */
408         VMSTATE_END_OF_LIST()
409     },
410     .subsections = (const VMStateDescription * []) {
411         &vmstate_adapter_info_so,
412         NULL
413     }
414 };
415 
416 const VMStateDescription vmstate_adapter_routes = {
417 
418     .name = "s390_adapter_routes",
419     .version_id = 1,
420     .minimum_version_id = 1,
421     .fields = (VMStateField[]) {
422         VMSTATE_STRUCT(adapter, AdapterRoutes, 1, vmstate_adapter_info,
423                        AdapterInfo),
424         VMSTATE_END_OF_LIST()
425     }
426 };
427