Home | History | Annotate | Line # | Download | only in cortex
gic.c revision 1.24
      1  1.24  jmcneill /*	$NetBSD: gic.c,v 1.24 2017/06/18 22:11:50 jmcneill Exp $	*/
      2   1.1      matt /*-
      3   1.1      matt  * Copyright (c) 2012 The NetBSD Foundation, Inc.
      4   1.1      matt  * All rights reserved.
      5   1.1      matt  *
      6   1.1      matt  * This code is derived from software contributed to The NetBSD Foundation
      7   1.1      matt  * by Matt Thomas of 3am Software Foundry.
      8   1.1      matt  *
      9   1.1      matt  * Redistribution and use in source and binary forms, with or without
     10   1.1      matt  * modification, are permitted provided that the following conditions
     11   1.1      matt  * are met:
     12   1.1      matt  * 1. Redistributions of source code must retain the above copyright
     13   1.1      matt  *    notice, this list of conditions and the following disclaimer.
     14   1.1      matt  * 2. Redistributions in binary form must reproduce the above copyright
     15   1.1      matt  *    notice, this list of conditions and the following disclaimer in the
     16   1.1      matt  *    documentation and/or other materials provided with the distribution.
     17   1.1      matt  *
     18   1.1      matt  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     19   1.1      matt  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     20   1.1      matt  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     21   1.1      matt  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     22   1.1      matt  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     23   1.1      matt  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     24   1.1      matt  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     25   1.1      matt  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     26   1.1      matt  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     27   1.1      matt  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     28   1.1      matt  * POSSIBILITY OF SUCH DAMAGE.
     29   1.1      matt  */
     30   1.1      matt 
     31   1.7      matt #include "opt_ddb.h"
     32  1.11     skrll #include "opt_multiprocessor.h"
     33   1.7      matt 
     34   1.1      matt #define _INTR_PRIVATE
     35   1.1      matt 
     36   1.1      matt #include <sys/cdefs.h>
     37  1.24  jmcneill __KERNEL_RCSID(0, "$NetBSD: gic.c,v 1.24 2017/06/18 22:11:50 jmcneill Exp $");
     38   1.1      matt 
     39   1.1      matt #include <sys/param.h>
     40   1.1      matt #include <sys/bus.h>
     41   1.1      matt #include <sys/device.h>
     42   1.1      matt #include <sys/evcnt.h>
     43   1.1      matt #include <sys/intr.h>
     44   1.7      matt #include <sys/cpu.h>
     45   1.1      matt #include <sys/proc.h>
     46   1.1      matt 
     47   1.1      matt #include <arm/armreg.h>
     48   1.1      matt #include <arm/cpufunc.h>
     49   1.1      matt #include <arm/atomic.h>
     50   1.1      matt 
     51   1.1      matt #include <arm/cortex/gic_reg.h>
     52   1.1      matt #include <arm/cortex/mpcore_var.h>
     53   1.1      matt 
     54  1.21  jmcneill void armgic_irq_handler(void *);
     55  1.21  jmcneill 
     56   1.1      matt #define	ARMGIC_SGI_IPIBASE	(16 - NIPI)
     57   1.1      matt 
     58   1.1      matt static int armgic_match(device_t, cfdata_t, void *);
     59   1.1      matt static void armgic_attach(device_t, device_t, void *);
     60   1.1      matt 
     61   1.1      matt static void armgic_set_priority(struct pic_softc *, int);
     62   1.1      matt static void armgic_unblock_irqs(struct pic_softc *, size_t, uint32_t);
     63   1.1      matt static void armgic_block_irqs(struct pic_softc *, size_t, uint32_t);
     64   1.1      matt static void armgic_establish_irq(struct pic_softc *, struct intrsource *);
     65   1.1      matt #if 0
     66   1.1      matt static void armgic_source_name(struct pic_softc *, int, char *, size_t);
     67   1.1      matt #endif
     68   1.1      matt 
     69   1.1      matt #ifdef MULTIPROCESSOR
     70   1.1      matt static void armgic_cpu_init(struct pic_softc *, struct cpu_info *);
     71   1.1      matt static void armgic_ipi_send(struct pic_softc *, const kcpuset_t *, u_long);
     72   1.1      matt #endif
     73   1.1      matt 
     74   1.1      matt static const struct pic_ops armgic_picops = {
     75   1.1      matt 	.pic_unblock_irqs = armgic_unblock_irqs,
     76   1.1      matt 	.pic_block_irqs = armgic_block_irqs,
     77   1.1      matt 	.pic_establish_irq = armgic_establish_irq,
     78   1.1      matt #if 0
     79   1.1      matt 	.pic_source_name = armgic_source_name,
     80   1.1      matt #endif
     81   1.1      matt 	.pic_set_priority = armgic_set_priority,
     82   1.1      matt #ifdef MULTIPROCESSOR
     83   1.1      matt 	.pic_cpu_init = armgic_cpu_init,
     84   1.1      matt 	.pic_ipi_send = armgic_ipi_send,
     85   1.1      matt #endif
     86   1.1      matt };
     87   1.1      matt 
     88   1.1      matt #define	PICTOSOFTC(pic)		((struct armgic_softc *)(pic))
     89   1.1      matt 
     90   1.1      matt static struct armgic_softc {
     91   1.1      matt 	struct pic_softc sc_pic;
     92   1.1      matt 	device_t sc_dev;
     93   1.1      matt 	bus_space_tag_t sc_memt;
     94   1.4      matt 	bus_space_handle_t sc_gicch;
     95   1.4      matt 	bus_space_handle_t sc_gicdh;
     96   1.1      matt 	size_t sc_gic_lines;
     97   1.1      matt 	uint32_t sc_gic_type;
     98   1.1      matt 	uint32_t sc_gic_valid_lines[1024/32];
     99   1.1      matt 	uint32_t sc_enabled_local;
    100   1.7      matt #ifdef MULTIPROCESSOR
    101   1.7      matt 	uint32_t sc_mptargets;
    102   1.7      matt #endif
    103  1.24  jmcneill 	uint32_t sc_bptargets;
    104   1.1      matt } armgic_softc = {
    105   1.1      matt 	.sc_pic = {
    106   1.1      matt 		.pic_ops = &armgic_picops,
    107   1.1      matt 		.pic_name = "armgic",
    108   1.1      matt 	},
    109   1.1      matt };
    110   1.1      matt 
    111   1.1      matt static struct intrsource armgic_dummy_source;
    112   1.1      matt 
    113   1.1      matt __CTASSERT(NIPL == 8);
    114   1.1      matt 
    115   1.1      matt /*
    116   1.6      matt  * GIC register are always in little-endian.  It is assumed the bus_space
    117   1.6      matt  * will do any endian conversion required.
    118   1.1      matt  */
    119   1.1      matt static inline uint32_t
    120   1.1      matt gicc_read(struct armgic_softc *sc, bus_size_t o)
    121   1.1      matt {
    122   1.6      matt 	return bus_space_read_4(sc->sc_memt, sc->sc_gicch, o);
    123   1.1      matt }
    124   1.1      matt 
    125   1.1      matt static inline void
    126   1.1      matt gicc_write(struct armgic_softc *sc, bus_size_t o, uint32_t v)
    127   1.1      matt {
    128   1.4      matt 	bus_space_write_4(sc->sc_memt, sc->sc_gicch, o, v);
    129   1.1      matt }
    130   1.1      matt 
    131   1.1      matt static inline uint32_t
    132   1.1      matt gicd_read(struct armgic_softc *sc, bus_size_t o)
    133   1.1      matt {
    134   1.6      matt 	return bus_space_read_4(sc->sc_memt, sc->sc_gicdh, o);
    135   1.1      matt }
    136   1.1      matt 
    137   1.1      matt static inline void
    138   1.1      matt gicd_write(struct armgic_softc *sc, bus_size_t o, uint32_t v)
    139   1.1      matt {
    140   1.4      matt 	bus_space_write_4(sc->sc_memt, sc->sc_gicdh, o, v);
    141   1.1      matt }
    142   1.1      matt 
    143  1.24  jmcneill static uint32_t
    144  1.24  jmcneill gicd_find_targets(struct armgic_softc *sc)
    145  1.24  jmcneill {
    146  1.24  jmcneill 	uint32_t targets = 0;
    147  1.24  jmcneill 
    148  1.24  jmcneill 	/*
    149  1.24  jmcneill 	 * GICD_ITARGETSR0 through 7 are read-only, and each field returns
    150  1.24  jmcneill 	 * a value that corresponds only to the processor reading the
    151  1.24  jmcneill 	 * register. Use this to determine the current processor's
    152  1.24  jmcneill 	 * CPU interface number.
    153  1.24  jmcneill 	 */
    154  1.24  jmcneill 	for (int i = 0; i < 8; i++) {
    155  1.24  jmcneill 		targets = gicd_read(sc, GICD_ITARGETSRn(i));
    156  1.24  jmcneill 		if (targets != 0)
    157  1.24  jmcneill 			break;
    158  1.24  jmcneill 	}
    159  1.24  jmcneill 	targets |= (targets >> 16);
    160  1.24  jmcneill 	targets |= (targets >> 8);
    161  1.24  jmcneill 	targets &= 0xff;
    162  1.24  jmcneill 
    163  1.24  jmcneill 	return targets ? targets : 1;
    164  1.24  jmcneill }
    165  1.24  jmcneill 
    166   1.1      matt /*
    167   1.1      matt  * In the GIC prioritization scheme, lower numbers have higher priority.
    168   1.9      matt  * Only write priorities that could be non-secure.
    169   1.1      matt  */
    170   1.1      matt static inline uint32_t
    171   1.1      matt armgic_ipl_to_priority(int ipl)
    172   1.1      matt {
    173   1.9      matt 	return GICC_PMR_NONSECURE
    174   1.9      matt 	    | ((IPL_HIGH - ipl) * GICC_PMR_NS_PRIORITIES / NIPL);
    175   1.1      matt }
    176   1.1      matt 
    177   1.5     joerg #if 0
    178   1.1      matt static inline int
    179   1.1      matt armgic_priority_to_ipl(uint32_t priority)
    180   1.1      matt {
    181   1.9      matt 	return IPL_HIGH
    182   1.9      matt 	    - (priority & ~GICC_PMR_NONSECURE) * NIPL / GICC_PMR_NS_PRIORITIES;
    183   1.1      matt }
    184   1.5     joerg #endif
    185   1.1      matt 
    186   1.1      matt static void
    187   1.1      matt armgic_unblock_irqs(struct pic_softc *pic, size_t irq_base, uint32_t irq_mask)
    188   1.1      matt {
    189   1.1      matt 	struct armgic_softc * const sc = PICTOSOFTC(pic);
    190   1.1      matt 	const size_t group = irq_base / 32;
    191   1.1      matt 
    192   1.1      matt 	if (group == 0)
    193   1.1      matt 		sc->sc_enabled_local |= irq_mask;
    194   1.1      matt 
    195   1.1      matt 	gicd_write(sc, GICD_ISENABLERn(group), irq_mask);
    196   1.1      matt }
    197   1.1      matt 
    198   1.1      matt static void
    199   1.1      matt armgic_block_irqs(struct pic_softc *pic, size_t irq_base, uint32_t irq_mask)
    200   1.1      matt {
    201   1.1      matt 	struct armgic_softc * const sc = PICTOSOFTC(pic);
    202   1.1      matt 	const size_t group = irq_base / 32;
    203   1.1      matt 
    204   1.1      matt 	if (group == 0)
    205   1.1      matt 		sc->sc_enabled_local &= ~irq_mask;
    206   1.1      matt 
    207   1.1      matt 	gicd_write(sc, GICD_ICENABLERn(group), irq_mask);
    208   1.1      matt }
    209   1.1      matt 
    210   1.1      matt static void
    211   1.1      matt armgic_set_priority(struct pic_softc *pic, int ipl)
    212   1.1      matt {
    213   1.1      matt 	struct armgic_softc * const sc = PICTOSOFTC(pic);
    214   1.1      matt 
    215   1.1      matt 	const uint32_t priority = armgic_ipl_to_priority(ipl);
    216   1.1      matt 	gicc_write(sc, GICC_PMR, priority);
    217   1.1      matt }
    218   1.1      matt 
    219   1.1      matt #ifdef __HAVE_PIC_FAST_SOFTINTS
    220   1.1      matt void
    221   1.1      matt softint_init_md(lwp_t *l, u_int level, uintptr_t *machdep_p)
    222   1.1      matt {
    223   1.1      matt 	lwp_t **lp = &l->l_cpu->ci_softlwps[level];
    224   1.1      matt 	KASSERT(*lp == NULL || *lp == l);
    225   1.1      matt 	*lp = l;
    226   1.1      matt 	/*
    227   1.1      matt 	 * Really easy.  Just tell it to trigger the local CPU.
    228   1.1      matt 	 */
    229   1.1      matt 	*machdep_p = GICD_SGIR_TargetListFilter_Me
    230   1.1      matt 	    | __SHIFTIN(level, GICD_SGIR_SGIINTID);
    231   1.1      matt }
    232   1.1      matt 
    233   1.1      matt void
    234   1.1      matt softint_trigger(uintptr_t machdep)
    235   1.1      matt {
    236   1.1      matt 
    237   1.1      matt 	gicd_write(&armgic_softc, GICD_SGIR, machdep);
    238   1.1      matt }
    239   1.1      matt #endif
    240   1.1      matt 
    241   1.1      matt void
    242   1.1      matt armgic_irq_handler(void *tf)
    243   1.1      matt {
    244   1.1      matt 	struct cpu_info * const ci = curcpu();
    245   1.1      matt 	struct armgic_softc * const sc = &armgic_softc;
    246   1.1      matt 	const int old_ipl = ci->ci_cpl;
    247   1.1      matt #ifdef DIAGNOSTIC
    248   1.1      matt 	const int old_mtx_count = ci->ci_mtx_count;
    249   1.1      matt 	const int old_l_biglocks = ci->ci_curlwp->l_biglocks;
    250   1.1      matt #endif
    251   1.1      matt #ifdef DEBUG
    252   1.1      matt 	size_t n = 0;
    253   1.1      matt #endif
    254   1.1      matt 
    255   1.1      matt 	ci->ci_data.cpu_nintr++;
    256   1.1      matt 
    257   1.1      matt 	KASSERTMSG(old_ipl != IPL_HIGH, "old_ipl %d pmr %#x hppir %#x",
    258   1.1      matt 	    old_ipl, gicc_read(sc, GICC_PMR), gicc_read(sc, GICC_HPPIR));
    259   1.1      matt 
    260   1.1      matt 	for (;;) {
    261   1.1      matt 		uint32_t iar = gicc_read(sc, GICC_IAR);
    262   1.1      matt 		uint32_t irq = __SHIFTOUT(iar, GICC_IAR_IRQ);
    263   1.1      matt 		if (irq == GICC_IAR_IRQ_SPURIOUS) {
    264   1.1      matt 			iar = gicc_read(sc, GICC_IAR);
    265   1.1      matt 			irq = __SHIFTOUT(iar, GICC_IAR_IRQ);
    266   1.1      matt 			if (irq == GICC_IAR_IRQ_SPURIOUS)
    267   1.1      matt 				break;
    268   1.1      matt 		}
    269   1.1      matt 
    270   1.1      matt 		//const uint32_t cpuid = __SHIFTOUT(iar, GICC_IAR_CPUID_MASK);
    271   1.1      matt 		struct intrsource * const is = sc->sc_pic.pic_sources[irq];
    272   1.2      matt 		KASSERT(is != &armgic_dummy_source);
    273   1.1      matt 
    274   1.1      matt 		/*
    275   1.1      matt 		 * GIC has asserted IPL for us so we can just update ci_cpl.
    276   1.1      matt 		 *
    277   1.1      matt 		 * But it's not that simple.  We may have already bumped ci_cpl
    278   1.1      matt 		 * due to a high priority interrupt and now we are about to
    279   1.1      matt 		 * dispatch one lower than the previous.  It's possible for
    280   1.1      matt 		 * that previous interrupt to have deferred some interrupts
    281   1.1      matt 		 * so we need deal with those when lowering to the current
    282   1.1      matt 		 * interrupt's ipl.
    283   1.1      matt 		 *
    284   1.1      matt 		 * However, if are just raising ipl, we can just update ci_cpl.
    285   1.1      matt 		 */
    286   1.1      matt 		const int ipl = is->is_ipl;
    287   1.1      matt 		if (__predict_false(ipl < ci->ci_cpl)) {
    288   1.1      matt 			pic_do_pending_ints(I32_bit, ipl, tf);
    289   1.1      matt 			KASSERT(ci->ci_cpl == ipl);
    290   1.1      matt 		} else {
    291   1.1      matt 			KASSERTMSG(ipl > ci->ci_cpl, "ipl %d cpl %d hw-ipl %#x",
    292   1.1      matt 			    ipl, ci->ci_cpl,
    293   1.1      matt 			    gicc_read(sc, GICC_PMR));
    294   1.1      matt 			gicc_write(sc, GICC_PMR, armgic_ipl_to_priority(ipl));
    295   1.1      matt 			ci->ci_cpl = ipl;
    296   1.1      matt 		}
    297   1.1      matt 		cpsie(I32_bit);
    298   1.1      matt 		pic_dispatch(is, tf);
    299   1.1      matt 		cpsid(I32_bit);
    300   1.1      matt 		gicc_write(sc, GICC_EOIR, iar);
    301   1.1      matt #ifdef DEBUG
    302   1.1      matt 		n++;
    303   1.1      matt 		KDASSERTMSG(n < 5, "%s: processed too many (%zu)",
    304   1.1      matt 		    ci->ci_data.cpu_name, n);
    305   1.1      matt #endif
    306   1.1      matt 	}
    307   1.1      matt 
    308   1.1      matt 	/*
    309   1.1      matt 	 * Now handle any pending ints.
    310   1.1      matt 	 */
    311   1.1      matt 	KASSERT(old_ipl != IPL_HIGH);
    312   1.1      matt 	pic_do_pending_ints(I32_bit, old_ipl, tf);
    313   1.1      matt 	KASSERTMSG(ci->ci_cpl == old_ipl, "ci_cpl %d old_ipl %d", ci->ci_cpl, old_ipl);
    314   1.1      matt 	KASSERT(old_mtx_count == ci->ci_mtx_count);
    315   1.1      matt 	KASSERT(old_l_biglocks == ci->ci_curlwp->l_biglocks);
    316   1.1      matt }
    317   1.1      matt 
    318   1.1      matt void
    319   1.1      matt armgic_establish_irq(struct pic_softc *pic, struct intrsource *is)
    320   1.1      matt {
    321   1.1      matt 	struct armgic_softc * const sc = PICTOSOFTC(pic);
    322   1.1      matt 	const size_t group = is->is_irq / 32;
    323   1.1      matt 	const u_int irq = is->is_irq & 31;
    324   1.1      matt 	const u_int byte_shift = 8 * (irq & 3);
    325   1.1      matt 	const u_int twopair_shift = 2 * (irq & 15);
    326   1.1      matt 
    327   1.1      matt 	KASSERTMSG(sc->sc_gic_valid_lines[group] & __BIT(irq),
    328   1.1      matt 	    "irq %u: not valid (group[%zu]=0x%08x [0x%08x])",
    329   1.1      matt 	    is->is_irq, group, sc->sc_gic_valid_lines[group],
    330   1.1      matt 	    (uint32_t)__BIT(irq));
    331  1.16     skrll 
    332   1.1      matt 	KASSERTMSG(is->is_type == IST_LEVEL || is->is_type == IST_EDGE,
    333   1.1      matt 	    "irq %u: type %u unsupported", is->is_irq, is->is_type);
    334   1.1      matt 
    335   1.1      matt 	const bus_size_t targets_reg = GICD_ITARGETSRn(is->is_irq / 4);
    336   1.1      matt 	const bus_size_t cfg_reg = GICD_ICFGRn(is->is_irq / 16);
    337   1.1      matt 	uint32_t targets = gicd_read(sc, targets_reg);
    338   1.1      matt 	uint32_t cfg = gicd_read(sc, cfg_reg);
    339   1.1      matt 
    340   1.1      matt 	if (group > 0) {
    341  1.16     skrll 		/*
    342   1.1      matt 		 * There are 4 irqs per TARGETS register.  For now bind
    343   1.1      matt 		 * to the primary cpu.
    344   1.1      matt 		 */
    345   1.1      matt 		targets &= ~(0xff << byte_shift);
    346  1.12     skrll #if 0
    347   1.7      matt #ifdef MULTIPROCESSOR
    348   1.7      matt 		if (is->is_mpsafe) {
    349  1.12     skrll 			targets |= sc->sc_mptargets << byte_shift;
    350   1.7      matt 		} else
    351   1.7      matt #endif
    352  1.12     skrll #endif
    353  1.24  jmcneill 		targets |= sc->sc_bptargets << byte_shift;
    354   1.1      matt 		gicd_write(sc, targets_reg, targets);
    355   1.1      matt 
    356  1.16     skrll 		/*
    357   1.1      matt 		 * There are 16 irqs per CFG register.  10=EDGE 00=LEVEL
    358   1.1      matt 		 */
    359   1.1      matt 		uint32_t new_cfg = cfg;
    360   1.1      matt 		uint32_t old_cfg = (cfg >> twopair_shift) & 3;
    361   1.1      matt 		if (is->is_type == IST_LEVEL && (old_cfg & 2) != 0) {
    362   1.1      matt 			new_cfg &= ~(3 << twopair_shift);
    363   1.1      matt 		} else if (is->is_type == IST_EDGE && (old_cfg & 2) == 0) {
    364   1.1      matt 			new_cfg |= 2 << twopair_shift;
    365   1.1      matt 		}
    366   1.1      matt 		if (new_cfg != cfg) {
    367  1.14  jmcneill 			gicd_write(sc, cfg_reg, new_cfg);
    368   1.1      matt 		}
    369   1.7      matt #ifdef MULTIPROCESSOR
    370   1.7      matt 	} else {
    371   1.7      matt 		/*
    372   1.7      matt 		 * All group 0 interrupts are per processor and MPSAFE by
    373   1.7      matt 		 * default.
    374   1.7      matt 		 */
    375   1.7      matt 		is->is_mpsafe = true;
    376   1.7      matt #endif
    377   1.1      matt 	}
    378   1.1      matt 
    379  1.16     skrll 	/*
    380   1.1      matt 	 * There are 4 irqs per PRIORITY register.  Map the IPL
    381   1.1      matt 	 * to GIC priority.
    382   1.1      matt 	 */
    383   1.1      matt 	const bus_size_t priority_reg = GICD_IPRIORITYRn(is->is_irq / 4);
    384   1.1      matt 	uint32_t priority = gicd_read(sc, priority_reg);
    385   1.1      matt 	priority &= ~(0xff << byte_shift);
    386   1.1      matt 	priority |= armgic_ipl_to_priority(is->is_ipl) << byte_shift;
    387   1.1      matt 	gicd_write(sc, priority_reg, priority);
    388   1.1      matt }
    389   1.1      matt 
    390   1.1      matt #ifdef MULTIPROCESSOR
    391   1.1      matt static void
    392   1.1      matt armgic_cpu_init_priorities(struct armgic_softc *sc)
    393   1.1      matt {
    394  1.22     skrll 	/* Set lowest priority, i.e. disable interrupts */
    395  1.22     skrll 	for (size_t i = 0; i < 32; i += 4) {
    396  1.22     skrll 		const bus_size_t priority_reg = GICD_IPRIORITYRn(i / 4);
    397  1.22     skrll 		gicd_write(sc, priority_reg, ~0);
    398  1.22     skrll 	}
    399  1.22     skrll }
    400  1.22     skrll 
    401  1.22     skrll static void
    402  1.22     skrll armgic_cpu_update_priorities(struct armgic_softc *sc)
    403  1.22     skrll {
    404   1.1      matt 	uint32_t enabled = sc->sc_enabled_local;
    405   1.1      matt 	for (size_t i = 0; i < 32; i += 4, enabled >>= 4) {
    406   1.1      matt 		const bus_size_t priority_reg = GICD_IPRIORITYRn(i / 4);
    407   1.1      matt 		uint32_t priority = gicd_read(sc, priority_reg);
    408   1.1      matt 		uint32_t byte_mask = 0xff;
    409   1.1      matt 		size_t byte_shift = 0;
    410   1.1      matt 		for (size_t j = 0; j < 4; j++, byte_mask <<= 8, byte_shift += 8) {
    411   1.1      matt 			struct intrsource * const is = sc->sc_pic.pic_sources[i+j];
    412  1.22     skrll 			priority |= byte_mask;
    413   1.1      matt 			if (is == NULL || is == &armgic_dummy_source)
    414   1.1      matt 				continue;
    415   1.1      matt 			priority &= ~byte_mask;
    416   1.1      matt 			priority |= armgic_ipl_to_priority(is->is_ipl) << byte_shift;
    417   1.1      matt 		}
    418   1.1      matt 		gicd_write(sc, priority_reg, priority);
    419   1.1      matt 	}
    420   1.1      matt }
    421   1.1      matt 
    422   1.7      matt static void
    423   1.7      matt armgic_cpu_init_targets(struct armgic_softc *sc)
    424   1.7      matt {
    425   1.7      matt 	/*
    426  1.16     skrll 	 * Update the mpsafe targets
    427   1.7      matt 	 */
    428  1.13  jmcneill 	for (size_t irq = 32; irq < sc->sc_pic.pic_maxsources; irq++) {
    429   1.7      matt 		struct intrsource * const is = sc->sc_pic.pic_sources[irq];
    430   1.7      matt 		const bus_size_t targets_reg = GICD_ITARGETSRn(irq / 4);
    431   1.7      matt 		if (is != NULL && is->is_mpsafe) {
    432  1.12     skrll 			const u_int byte_shift = 8 * (irq & 3);
    433   1.7      matt 			uint32_t targets = gicd_read(sc, targets_reg);
    434   1.7      matt 			targets |= sc->sc_mptargets << byte_shift;
    435   1.7      matt 			gicd_write(sc, targets_reg, targets);
    436   1.7      matt 		}
    437   1.7      matt 	}
    438   1.7      matt }
    439   1.7      matt 
    440   1.1      matt void
    441   1.1      matt armgic_cpu_init(struct pic_softc *pic, struct cpu_info *ci)
    442   1.1      matt {
    443   1.1      matt 	struct armgic_softc * const sc = PICTOSOFTC(pic);
    444  1.24  jmcneill 	sc->sc_mptargets |= gicd_find_targets(sc);
    445   1.7      matt 	KASSERTMSG(ci->ci_cpl == IPL_HIGH, "ipl %d not IPL_HIGH", ci->ci_cpl);
    446  1.22     skrll 	armgic_cpu_init_priorities(sc);
    447   1.7      matt 	if (!CPU_IS_PRIMARY(ci)) {
    448  1.24  jmcneill 		if (popcount(sc->sc_mptargets) != 1) {
    449   1.7      matt 			armgic_cpu_init_targets(sc);
    450   1.7      matt 		}
    451   1.7      matt 		if (sc->sc_enabled_local) {
    452  1.22     skrll 			armgic_cpu_update_priorities(sc);
    453   1.7      matt 			gicd_write(sc, GICD_ISENABLERn(0),
    454   1.7      matt 			    sc->sc_enabled_local);
    455   1.7      matt 		}
    456   1.1      matt 	}
    457   1.1      matt 	gicc_write(sc, GICC_PMR, armgic_ipl_to_priority(ci->ci_cpl));	// set PMR
    458   1.1      matt 	gicc_write(sc, GICC_CTRL, GICC_CTRL_V1_Enable);	// enable interrupt
    459   1.1      matt 	cpsie(I32_bit);					// allow IRQ exceptions
    460   1.1      matt }
    461   1.1      matt 
    462   1.1      matt void
    463   1.1      matt armgic_ipi_send(struct pic_softc *pic, const kcpuset_t *kcp, u_long ipi)
    464   1.1      matt {
    465   1.1      matt 	struct armgic_softc * const sc = PICTOSOFTC(pic);
    466   1.1      matt 
    467   1.7      matt #if 0
    468   1.1      matt 	if (ipi == IPI_NOP) {
    469   1.1      matt 		__asm __volatile("sev");
    470   1.1      matt 		return;
    471   1.1      matt 	}
    472   1.7      matt #endif
    473   1.1      matt 
    474   1.7      matt 	uint32_t sgir = __SHIFTIN(ARMGIC_SGI_IPIBASE + ipi, GICD_SGIR_SGIINTID);
    475   1.7      matt 	if (kcp != NULL) {
    476   1.7      matt 		uint32_t targets;
    477   1.7      matt 		kcpuset_export_u32(kcp, &targets, sizeof(targets));
    478   1.7      matt 		sgir |= __SHIFTIN(targets, GICD_SGIR_TargetList);
    479   1.7      matt 		sgir |= GICD_SGIR_TargetListFilter_List;
    480   1.7      matt 	} else {
    481   1.7      matt 		if (ncpu == 1)
    482   1.7      matt 			return;
    483   1.7      matt 		sgir |= GICD_SGIR_TargetListFilter_NotMe;
    484   1.7      matt 	}
    485   1.1      matt 
    486   1.1      matt 	gicd_write(sc, GICD_SGIR, sgir);
    487   1.1      matt }
    488   1.1      matt #endif
    489   1.1      matt 
    490   1.1      matt int
    491   1.1      matt armgic_match(device_t parent, cfdata_t cf, void *aux)
    492   1.1      matt {
    493   1.1      matt 	struct mpcore_attach_args * const mpcaa = aux;
    494   1.1      matt 
    495   1.1      matt 	if (strcmp(cf->cf_name, mpcaa->mpcaa_name) != 0)
    496   1.1      matt 		return 0;
    497   1.4      matt 	if (!CPU_ID_CORTEX_P(cputype) || CPU_ID_CORTEX_A8_P(cputype))
    498   1.1      matt 		return 0;
    499   1.1      matt 
    500   1.1      matt 	return 1;
    501   1.1      matt }
    502   1.1      matt 
    503   1.1      matt void
    504   1.1      matt armgic_attach(device_t parent, device_t self, void *aux)
    505   1.1      matt {
    506   1.1      matt 	struct armgic_softc * const sc = &armgic_softc;
    507   1.1      matt 	struct mpcore_attach_args * const mpcaa = aux;
    508   1.1      matt 
    509   1.1      matt 	sc->sc_dev = self;
    510   1.1      matt 	self->dv_private = sc;
    511   1.1      matt 
    512   1.1      matt 	sc->sc_memt = mpcaa->mpcaa_memt;	/* provided for us */
    513   1.4      matt 	bus_space_subregion(sc->sc_memt, mpcaa->mpcaa_memh, mpcaa->mpcaa_off1,
    514   1.4      matt 	    4096, &sc->sc_gicdh);
    515   1.4      matt 	bus_space_subregion(sc->sc_memt, mpcaa->mpcaa_memh, mpcaa->mpcaa_off2,
    516   1.4      matt 	    4096, &sc->sc_gicch);
    517   1.1      matt 
    518   1.1      matt 	sc->sc_gic_type = gicd_read(sc, GICD_TYPER);
    519   1.1      matt 	sc->sc_pic.pic_maxsources = GICD_TYPER_LINES(sc->sc_gic_type);
    520   1.1      matt 
    521   1.1      matt 	gicc_write(sc, GICC_CTRL, 0);	/* disable all interrupts */
    522   1.1      matt 	gicd_write(sc, GICD_CTRL, 0);	/* disable all interrupts */
    523   1.1      matt 
    524   1.1      matt 	gicc_write(sc, GICC_PMR, 0xff);
    525   1.1      matt 	uint32_t pmr = gicc_read(sc, GICC_PMR);
    526   1.1      matt 	u_int priorities = 1 << popcount32(pmr);
    527   1.1      matt 
    528   1.1      matt 	/*
    529  1.24  jmcneill 	 * Find the boot processor's CPU interface number.
    530  1.24  jmcneill 	 */
    531  1.24  jmcneill 	sc->sc_bptargets = gicd_find_targets(sc);
    532  1.24  jmcneill 
    533  1.24  jmcneill 	/*
    534   1.1      matt 	 * Let's find out how many real sources we have.
    535   1.1      matt 	 */
    536   1.1      matt 	for (size_t i = 0, group = 0;
    537   1.1      matt 	     i < sc->sc_pic.pic_maxsources;
    538   1.1      matt 	     i += 32, group++) {
    539   1.1      matt 		/*
    540   1.1      matt 		 * To figure what sources are real, one enables all interrupts
    541   1.1      matt 		 * and then reads back the enable mask so which ones really
    542   1.1      matt 		 * got enabled.
    543   1.1      matt 		 */
    544   1.1      matt 		gicd_write(sc, GICD_ISENABLERn(group), 0xffffffff);
    545   1.1      matt 		uint32_t valid = gicd_read(sc, GICD_ISENABLERn(group));
    546   1.1      matt 
    547   1.1      matt 		/*
    548   1.1      matt 		 * Now disable (clear enable) them again.
    549   1.1      matt 		 */
    550   1.1      matt 		gicd_write(sc, GICD_ICENABLERn(group), valid);
    551   1.1      matt 
    552   1.1      matt 		/*
    553   1.1      matt 		 * Count how many are valid.
    554   1.1      matt 		 */
    555   1.1      matt 		sc->sc_gic_lines += popcount32(valid);
    556   1.1      matt 		sc->sc_gic_valid_lines[group] = valid;
    557   1.1      matt 	}
    558   1.1      matt 
    559   1.8      matt 	aprint_normal(": Generic Interrupt Controller, "
    560   1.8      matt 	    "%zu sources (%zu valid)\n",
    561   1.8      matt 	    sc->sc_pic.pic_maxsources, sc->sc_gic_lines);
    562   1.8      matt 
    563  1.18      matt #ifdef MULTIPROCESSOR
    564  1.18      matt 	sc->sc_pic.pic_cpus = kcpuset_running;
    565  1.18      matt #endif
    566   1.1      matt 	pic_add(&sc->sc_pic, 0);
    567   1.1      matt 
    568   1.1      matt 	/*
    569   1.1      matt 	 * Force the GICD to IPL_HIGH and then enable interrupts.
    570   1.1      matt 	 */
    571   1.1      matt 	struct cpu_info * const ci = curcpu();
    572   1.1      matt 	KASSERTMSG(ci->ci_cpl == IPL_HIGH, "ipl %d not IPL_HIGH", ci->ci_cpl);
    573   1.1      matt 	armgic_set_priority(&sc->sc_pic, ci->ci_cpl);	// set PMR
    574   1.1      matt 	gicd_write(sc, GICD_CTRL, GICD_CTRL_Enable);	// enable Distributer
    575   1.1      matt 	gicc_write(sc, GICC_CTRL, GICC_CTRL_V1_Enable);	// enable CPU interrupts
    576   1.1      matt 	cpsie(I32_bit);					// allow interrupt exceptions
    577   1.1      matt 
    578   1.1      matt 	/*
    579   1.1      matt 	 * For each line that isn't valid, we set the intrsource for it to
    580   1.1      matt 	 * point at a dummy source so that pic_intr_establish will fail for it.
    581   1.1      matt 	 */
    582   1.1      matt 	for (size_t i = 0, group = 0;
    583   1.1      matt 	     i < sc->sc_pic.pic_maxsources;
    584   1.1      matt 	     i += 32, group++) {
    585   1.1      matt 		uint32_t invalid = ~sc->sc_gic_valid_lines[group];
    586   1.1      matt 		for (size_t j = 0; invalid && j < 32; j++, invalid >>= 1) {
    587   1.1      matt 			if (invalid & 1) {
    588   1.1      matt 				sc->sc_pic.pic_sources[i + j] =
    589   1.1      matt 				     &armgic_dummy_source;
    590   1.1      matt 			}
    591   1.1      matt 		}
    592   1.1      matt 	}
    593   1.1      matt #ifdef __HAVE_PIC_FAST_SOFTINTS
    594  1.17      matt 	intr_establish(SOFTINT_BIO, IPL_SOFTBIO, IST_MPSAFE | IST_EDGE,
    595   1.1      matt 	    pic_handle_softint, (void *)SOFTINT_BIO);
    596  1.17      matt 	intr_establish(SOFTINT_CLOCK, IPL_SOFTCLOCK, IST_MPSAFE | IST_EDGE,
    597   1.1      matt 	    pic_handle_softint, (void *)SOFTINT_CLOCK);
    598  1.17      matt 	intr_establish(SOFTINT_NET, IPL_SOFTNET, IST_MPSAFE | IST_EDGE,
    599   1.1      matt 	    pic_handle_softint, (void *)SOFTINT_NET);
    600  1.17      matt 	intr_establish(SOFTINT_SERIAL, IPL_SOFTSERIAL, IST_MPSAFE | IST_EDGE,
    601   1.1      matt 	    pic_handle_softint, (void *)SOFTINT_SERIAL);
    602   1.1      matt #endif
    603   1.1      matt #ifdef MULTIPROCESSOR
    604  1.22     skrll 	armgic_cpu_init(&sc->sc_pic, curcpu());
    605  1.22     skrll 
    606  1.17      matt 	intr_establish(ARMGIC_SGI_IPIBASE + IPI_AST, IPL_VM,
    607  1.19      matt 	    IST_MPSAFE | IST_EDGE, pic_ipi_ast, (void *)-1);
    608  1.20      matt 	intr_establish(ARMGIC_SGI_IPIBASE + IPI_XCALL, IPL_HIGH,
    609  1.17      matt 	    IST_MPSAFE | IST_EDGE, pic_ipi_xcall, (void *)-1);
    610  1.20      matt 	intr_establish(ARMGIC_SGI_IPIBASE + IPI_GENERIC, IPL_HIGH,
    611  1.17      matt 	    IST_MPSAFE | IST_EDGE, pic_ipi_generic, (void *)-1);
    612  1.17      matt 	intr_establish(ARMGIC_SGI_IPIBASE + IPI_NOP, IPL_VM,
    613  1.17      matt 	    IST_MPSAFE | IST_EDGE, pic_ipi_nop, (void *)-1);
    614  1.20      matt 	intr_establish(ARMGIC_SGI_IPIBASE + IPI_SHOOTDOWN, IPL_SCHED,
    615  1.17      matt 	    IST_MPSAFE | IST_EDGE, pic_ipi_shootdown, (void *)-1);
    616   1.7      matt #ifdef DDB
    617  1.17      matt 	intr_establish(ARMGIC_SGI_IPIBASE + IPI_DDB, IPL_HIGH,
    618  1.17      matt 	    IST_MPSAFE | IST_EDGE, pic_ipi_ddb, NULL);
    619   1.1      matt #endif
    620   1.1      matt #ifdef __HAVE_PREEMPTION
    621  1.17      matt 	intr_establish(ARMGIC_SGI_IPIBASE + IPI_KPREEMPT, IPL_VM,
    622  1.19      matt 	    IST_MPSAFE | IST_EDGE, pic_ipi_kpreempt, (void *)-1);
    623   1.1      matt #endif
    624   1.1      matt #endif
    625   1.1      matt 
    626   1.1      matt 	const u_int ppis = popcount32(sc->sc_gic_valid_lines[0] >> 16);
    627   1.1      matt 	const u_int sgis = popcount32(sc->sc_gic_valid_lines[0] & 0xffff);
    628   1.1      matt 	aprint_normal_dev(sc->sc_dev, "%u Priorities, %zu SPIs, %u PPIs, %u SGIs\n",
    629   1.1      matt 	    priorities, sc->sc_gic_lines - ppis - sgis, ppis, sgis);
    630   1.1      matt }
    631   1.1      matt 
    632   1.1      matt CFATTACH_DECL_NEW(armgic, 0,
    633   1.1      matt     armgic_match, armgic_attach, NULL, NULL);
    634