1 /*-
2  * Copyright (c) 2012 Damjan Marion <dmarion@Freebsd.org>
3  * All rights reserved.
4  *
5  * Based on OMAP3 INTC code by Ben Gray
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  *
16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26  * SUCH DAMAGE.
27  */
28 
29 
30 #include <sys/cdefs.h>
31 __FBSDID("$FreeBSD$");
32 
33 #include <sys/param.h>
34 #include <sys/systm.h>
35 #include <sys/bus.h>
36 #include <sys/kernel.h>
37 #include <sys/ktr.h>
38 #include <sys/module.h>
39 #include <sys/rman.h>
40 #include <machine/bus.h>
41 #include <machine/intr.h>
42 
43 #include <dev/fdt/fdt_common.h>
44 #include <dev/ofw/openfirm.h>
45 #include <dev/ofw/ofw_bus.h>
46 #include <dev/ofw/ofw_bus_subr.h>
47 
48 #ifdef SOC_BCM2836
49 #include <arm/broadcom/bcm2835/bcm2836.h>
50 #endif
51 
52 #define	INTC_PENDING_BASIC	0x00
53 #define	INTC_PENDING_BANK1	0x04
54 #define	INTC_PENDING_BANK2	0x08
55 #define	INTC_FIQ_CONTROL	0x0C
56 #define	INTC_ENABLE_BANK1	0x10
57 #define	INTC_ENABLE_BANK2	0x14
58 #define	INTC_ENABLE_BASIC	0x18
59 #define	INTC_DISABLE_BANK1	0x1C
60 #define	INTC_DISABLE_BANK2	0x20
61 #define	INTC_DISABLE_BASIC	0x24
62 
63 #define	BANK1_START	8
64 #define	BANK1_END	(BANK1_START + 32 - 1)
65 #define	BANK2_START	(BANK1_START + 32)
66 #define	BANK2_END	(BANK2_START + 32 - 1)
67 #define	BANK3_START	(BANK2_START + 32)
68 #define	BANK3_END	(BANK3_START + 32 - 1)
69 
70 #define	IS_IRQ_BASIC(n)	(((n) >= 0) && ((n) < BANK1_START))
71 #define	IS_IRQ_BANK1(n)	(((n) >= BANK1_START) && ((n) <= BANK1_END))
72 #define	IS_IRQ_BANK2(n)	(((n) >= BANK2_START) && ((n) <= BANK2_END))
73 #define	ID_IRQ_BCM2836(n) (((n) >= BANK3_START) && ((n) <= BANK3_END))
74 #define	IRQ_BANK1(n)	((n) - BANK1_START)
75 #define	IRQ_BANK2(n)	((n) - BANK2_START)
76 
77 #ifdef  DEBUG
78 #define dprintf(fmt, args...) printf(fmt, ##args)
79 #else
80 #define dprintf(fmt, args...)
81 #endif
82 
83 struct bcm_intc_softc {
84 	device_t		sc_dev;
85 	struct resource *	intc_res;
86 	bus_space_tag_t		intc_bst;
87 	bus_space_handle_t	intc_bsh;
88 };
89 
90 static struct bcm_intc_softc *bcm_intc_sc = NULL;
91 
92 #define	intc_read_4(_sc, reg)		\
93     bus_space_read_4((_sc)->intc_bst, (_sc)->intc_bsh, (reg))
94 #define	intc_write_4(_sc, reg, val)		\
95     bus_space_write_4((_sc)->intc_bst, (_sc)->intc_bsh, (reg), (val))
96 
97 static int
98 bcm_intc_probe(device_t dev)
99 {
100 
101 	if (!ofw_bus_status_okay(dev))
102 		return (ENXIO);
103 
104 	if (!ofw_bus_is_compatible(dev, "broadcom,bcm2835-armctrl-ic"))
105 		return (ENXIO);
106 	device_set_desc(dev, "BCM2835 Interrupt Controller");
107 	return (BUS_PROBE_DEFAULT);
108 }
109 
110 static int
111 bcm_intc_attach(device_t dev)
112 {
113 	struct		bcm_intc_softc *sc = device_get_softc(dev);
114 	int		rid = 0;
115 
116 	sc->sc_dev = dev;
117 
118 	if (bcm_intc_sc)
119 		return (ENXIO);
120 
121 	sc->intc_res = bus_alloc_resource_any(dev, SYS_RES_MEMORY, &rid, RF_ACTIVE);
122 	if (sc->intc_res == NULL) {
123 		device_printf(dev, "could not allocate memory resource\n");
124 		return (ENXIO);
125 	}
126 
127 	sc->intc_bst = rman_get_bustag(sc->intc_res);
128 	sc->intc_bsh = rman_get_bushandle(sc->intc_res);
129 
130 	bcm_intc_sc = sc;
131 
132 	return (0);
133 }
134 
135 static device_method_t bcm_intc_methods[] = {
136 	DEVMETHOD(device_probe,		bcm_intc_probe),
137 	DEVMETHOD(device_attach,	bcm_intc_attach),
138 	{ 0, 0 }
139 };
140 
141 static driver_t bcm_intc_driver = {
142 	"intc",
143 	bcm_intc_methods,
144 	sizeof(struct bcm_intc_softc),
145 };
146 
147 static devclass_t bcm_intc_devclass;
148 
149 DRIVER_MODULE(intc, simplebus, bcm_intc_driver, bcm_intc_devclass, 0, 0);
150 
151 int
152 arm_get_next_irq(int last_irq)
153 {
154 	struct bcm_intc_softc *sc = bcm_intc_sc;
155 	uint32_t pending;
156 	int32_t irq = last_irq + 1;
157 #ifdef SOC_BCM2836
158 	int ret;
159 #endif
160 
161 	/* Sanity check */
162 	if (irq < 0)
163 		irq = 0;
164 
165 #ifdef SOC_BCM2836
166 	if ((ret = bcm2836_get_next_irq(irq)) < 0)
167 		return (-1);
168 	if (ret != BCM2836_GPU_IRQ)
169 		return (ret + BANK3_START);
170 #endif
171 
172 	/* TODO: should we mask last_irq? */
173 	if (irq < BANK1_START) {
174 		pending = intc_read_4(sc, INTC_PENDING_BASIC);
175 		if ((pending & 0xFF) == 0) {
176 			irq  = BANK1_START;	/* skip to next bank */
177 		} else do {
178 			if (pending & (1 << irq))
179 				return irq;
180 			irq++;
181 		} while (irq < BANK1_START);
182 	}
183 	if (irq < BANK2_START) {
184 		pending = intc_read_4(sc, INTC_PENDING_BANK1);
185 		if (pending == 0) {
186 			irq  = BANK2_START;	/* skip to next bank */
187 		} else do {
188 			if (pending & (1 << IRQ_BANK1(irq)))
189 				return irq;
190 			irq++;
191 		} while (irq < BANK2_START);
192 	}
193 	if (irq < BANK3_START) {
194 		pending = intc_read_4(sc, INTC_PENDING_BANK2);
195 		if (pending != 0) do {
196 			if (pending & (1 << IRQ_BANK2(irq)))
197 				return irq;
198 			irq++;
199 		} while (irq < BANK3_START);
200 	}
201 	return (-1);
202 }
203 
204 void
205 arm_mask_irq(uintptr_t nb)
206 {
207 	struct bcm_intc_softc *sc = bcm_intc_sc;
208 	dprintf("%s: %d\n", __func__, nb);
209 
210 	if (IS_IRQ_BASIC(nb))
211 		intc_write_4(sc, INTC_DISABLE_BASIC, (1 << nb));
212 	else if (IS_IRQ_BANK1(nb))
213 		intc_write_4(sc, INTC_DISABLE_BANK1, (1 << IRQ_BANK1(nb)));
214 	else if (IS_IRQ_BANK2(nb))
215 		intc_write_4(sc, INTC_DISABLE_BANK2, (1 << IRQ_BANK2(nb)));
216 #ifdef SOC_BCM2836
217 	else if (ID_IRQ_BCM2836(nb))
218 		bcm2836_mask_irq(nb - BANK3_START);
219 #endif
220 	else
221 		printf("arm_mask_irq: Invalid IRQ number: %d\n", nb);
222 }
223 
224 void
225 arm_unmask_irq(uintptr_t nb)
226 {
227 	struct bcm_intc_softc *sc = bcm_intc_sc;
228 	dprintf("%s: %d\n", __func__, nb);
229 
230 	if (IS_IRQ_BASIC(nb))
231 		intc_write_4(sc, INTC_ENABLE_BASIC, (1 << nb));
232 	else if (IS_IRQ_BANK1(nb))
233 		intc_write_4(sc, INTC_ENABLE_BANK1, (1 << IRQ_BANK1(nb)));
234 	else if (IS_IRQ_BANK2(nb))
235 		intc_write_4(sc, INTC_ENABLE_BANK2, (1 << IRQ_BANK2(nb)));
236 #ifdef SOC_BCM2836
237 	else if (ID_IRQ_BCM2836(nb))
238 		bcm2836_unmask_irq(nb - BANK3_START);
239 #endif
240 	else
241 		printf("arm_mask_irq: Invalid IRQ number: %d\n", nb);
242 }
243