28
29#include <sys/param.h>
30#include <sys/bus.h>
31#include <sys/kernel.h>
32#include <sys/module.h>
33#include <sys/resource.h>
34#include <sys/systm.h>
35#include <sys/rman.h>
36
37#include <machine/bus.h>
38
39#include <arm/at91/at91var.h>
40#include <arm/at91/at91_piovar.h>
41
42#include <dev/fdt/fdt_common.h>
43#include <dev/ofw/openfirm.h>
44#include <dev/ofw/ofw_bus.h>
45#include <dev/ofw/ofw_bus_subr.h>
46
47#define BUS_PASS_PINMUX (BUS_PASS_INTERRUPT + 1)
48
49struct pinctrl_range {
50 uint64_t bus;
51 uint64_t host;
52 uint64_t size;
53};
54
55struct pinctrl_softc {
56 device_t dev;
57 phandle_t node;
58
59 struct pinctrl_range *ranges;
60 int nranges;
61
62 pcell_t acells, scells;
63 int done_pinmux;
64};
65
66struct pinctrl_devinfo {
67 struct ofw_bus_devinfo obdinfo;
68 struct resource_list rl;
69};
70
71static int
72at91_pinctrl_probe(device_t dev)
73{
74
75 if (!ofw_bus_is_compatible(dev, "atmel,at91rm9200-pinctrl"))
76 return (ENXIO);
77 device_set_desc(dev, "pincontrol bus");
78 return (0);
79}
80
81/* XXX Make this a subclass of simplebus */
82
83static struct pinctrl_devinfo *
84at91_pinctrl_setup_dinfo(device_t dev, phandle_t node)
85{
86 struct pinctrl_softc *sc;
87 struct pinctrl_devinfo *ndi;
88 uint32_t *reg, *intr, icells;
89 uint64_t phys, size;
90 phandle_t iparent;
91 int i, j, k;
92 int nintr;
93 int nreg;
94
95 sc = device_get_softc(dev);
96
97 ndi = malloc(sizeof(*ndi), M_DEVBUF, M_WAITOK | M_ZERO);
98 if (ofw_bus_gen_setup_devinfo(&ndi->obdinfo, node) != 0) {
99 free(ndi, M_DEVBUF);
100 return (NULL);
101 }
102
103 resource_list_init(&ndi->rl);
104 nreg = OF_getencprop_alloc(node, "reg", sizeof(*reg), (void **)®);
105 if (nreg == -1)
106 nreg = 0;
107 if (nreg % (sc->acells + sc->scells) != 0) {
108// if (bootverbose)
109 device_printf(dev, "Malformed reg property on <%s>\n",
110 ndi->obdinfo.obd_name);
111 nreg = 0;
112 }
113
114 for (i = 0, k = 0; i < nreg; i += sc->acells + sc->scells, k++) {
115 phys = size = 0;
116 for (j = 0; j < sc->acells; j++) {
117 phys <<= 32;
118 phys |= reg[i + j];
119 }
120 for (j = 0; j < sc->scells; j++) {
121 size <<= 32;
122 size |= reg[i + sc->acells + j];
123 }
124
125 resource_list_add(&ndi->rl, SYS_RES_MEMORY, k,
126 phys, phys + size - 1, size);
127 }
128 free(reg, M_OFWPROP);
129
130 nintr = OF_getencprop_alloc(node, "interrupts", sizeof(*intr),
131 (void **)&intr);
132 if (nintr > 0) {
133 if (OF_searchencprop(node, "interrupt-parent", &iparent,
134 sizeof(iparent)) == -1) {
135 device_printf(dev, "No interrupt-parent found, "
136 "assuming direct parent\n");
137 iparent = OF_parent(node);
138 }
139 if (OF_searchencprop(OF_xref_phandle(iparent),
140 "#interrupt-cells", &icells, sizeof(icells)) == -1) {
141 device_printf(dev, "Missing #interrupt-cells property, "
142 "assuming <1>\n");
143 icells = 1;
144 }
145 if (icells < 1 || icells > nintr) {
146 device_printf(dev, "Invalid #interrupt-cells property "
147 "value <%d>, assuming <1>\n", icells);
148 icells = 1;
149 }
150 for (i = 0, k = 0; i < nintr; i += icells, k++) {
151 intr[i] = ofw_bus_map_intr(dev, iparent, icells,
152 &intr[i]);
153 resource_list_add(&ndi->rl, SYS_RES_IRQ, k, intr[i],
154 intr[i], 1);
155 }
156 free(intr, M_OFWPROP);
157 }
158
159 return (ndi);
160}
161
162static int
163at91_pinctrl_fill_ranges(phandle_t node, struct pinctrl_softc *sc)
164{
165 int host_address_cells;
166 cell_t *base_ranges;
167 ssize_t nbase_ranges;
168 int err;
169 int i, j, k;
170
171 err = OF_searchencprop(OF_parent(node), "#address-cells",
172 &host_address_cells, sizeof(host_address_cells));
173 if (err <= 0)
174 return (-1);
175
176 nbase_ranges = OF_getproplen(node, "ranges");
177 if (nbase_ranges < 0)
178 return (-1);
179 sc->nranges = nbase_ranges / sizeof(cell_t) /
180 (sc->acells + host_address_cells + sc->scells);
181 if (sc->nranges == 0)
182 return (0);
183
184 sc->ranges = malloc(sc->nranges * sizeof(sc->ranges[0]),
185 M_DEVBUF, M_WAITOK);
186 base_ranges = malloc(nbase_ranges, M_DEVBUF, M_WAITOK);
187 OF_getencprop(node, "ranges", base_ranges, nbase_ranges);
188
189 for (i = 0, j = 0; i < sc->nranges; i++) {
190 sc->ranges[i].bus = 0;
191 for (k = 0; k < sc->acells; k++) {
192 sc->ranges[i].bus <<= 32;
193 sc->ranges[i].bus |= base_ranges[j++];
194 }
195 sc->ranges[i].host = 0;
196 for (k = 0; k < host_address_cells; k++) {
197 sc->ranges[i].host <<= 32;
198 sc->ranges[i].host |= base_ranges[j++];
199 }
200 sc->ranges[i].size = 0;
201 for (k = 0; k < sc->scells; k++) {
202 sc->ranges[i].size <<= 32;
203 sc->ranges[i].size |= base_ranges[j++];
204 }
205 }
206
207 free(base_ranges, M_DEVBUF);
208 return (sc->nranges);
209}
210
211static int
212at91_pinctrl_attach(device_t dev)
213{
214 struct pinctrl_softc *sc;
215 struct pinctrl_devinfo *di;
216 phandle_t node;
217 device_t cdev;
218
219 sc = device_get_softc(dev);
220 node = ofw_bus_get_node(dev);
221
222 sc->dev = dev;
223 sc->node = node;
224
225 /*
226 * Some important numbers
227 */
228 sc->acells = 2;
229 OF_getencprop(node, "#address-cells", &sc->acells, sizeof(sc->acells));
230 sc->scells = 1;
231 OF_getencprop(node, "#size-cells", &sc->scells, sizeof(sc->scells));
232
233 if (at91_pinctrl_fill_ranges(node, sc) < 0) {
234 device_printf(dev, "could not get ranges\n");
235 return (ENXIO);
236 }
237
238 for (node = OF_child(node); node > 0; node = OF_peer(node)) {
239 if ((di = at91_pinctrl_setup_dinfo(dev, node)) == NULL)
240 continue;
241 cdev = device_add_child(dev, NULL, -1);
242 if (cdev == NULL) {
243 device_printf(dev, "<%s>: device_add_child failed\n",
244 di->obdinfo.obd_name);
245 resource_list_free(&di->rl);
246 ofw_bus_gen_destroy_devinfo(&di->obdinfo);
247 free(di, M_DEVBUF);
248 continue;
249 }
250 device_set_ivars(cdev, di);
251 }
252
253 return (bus_generic_attach(dev));
254}
255
256static const struct ofw_bus_devinfo *
257pinctrl_get_devinfo(device_t bus __unused, device_t child)
258{
259 struct pinctrl_devinfo *ndi;
260
261 ndi = device_get_ivars(child);
262 return (&ndi->obdinfo);
263}
264
265static struct resource *
266pinctrl_alloc_resource(device_t bus, device_t child, int type, int *rid,
267 u_long start, u_long end, u_long count, u_int flags)
268{
269 struct pinctrl_softc *sc;
270 struct pinctrl_devinfo *di;
271 struct resource_list_entry *rle;
272 int j;
273
274 sc = device_get_softc(bus);
275
276 /*
277 * Request for the default allocation with a given rid: use resource
278 * list stored in the local device info.
279 */
280 if ((start == 0UL) && (end == ~0UL)) {
281 if ((di = device_get_ivars(child)) == NULL)
282 return (NULL);
283
284 if (type == SYS_RES_IOPORT)
285 type = SYS_RES_MEMORY;
286
287 rle = resource_list_find(&di->rl, type, *rid);
288 if (rle == NULL) {
289// if (bootverbose)
290 device_printf(bus, "no default resources for "
291 "rid = %d, type = %d\n", *rid, type);
292 return (NULL);
293 }
294 start = rle->start;
295 end = rle->end;
296 count = rle->count;
297 }
298
299 if (type == SYS_RES_MEMORY) {
300 /* Remap through ranges property */
301 for (j = 0; j < sc->nranges; j++) {
302 if (start >= sc->ranges[j].bus && end <
303 sc->ranges[j].bus + sc->ranges[j].size) {
304 start -= sc->ranges[j].bus;
305 start += sc->ranges[j].host;
306 end -= sc->ranges[j].bus;
307 end += sc->ranges[j].host;
308 break;
309 }
310 }
311 if (j == sc->nranges && sc->nranges != 0) {
312// if (bootverbose)
313 device_printf(bus, "Could not map resource "
314 "%#lx-%#lx\n", start, end);
315
316 return (NULL);
317 }
318 }
319
320 return (bus_generic_alloc_resource(bus, child, type, rid, start, end,
321 count, flags));
322}
323
324static int
325pinctrl_print_res(struct pinctrl_devinfo *di)
326{
327 int rv;
328
329 rv = 0;
330 rv += resource_list_print_type(&di->rl, "mem", SYS_RES_MEMORY, "%#lx");
331 rv += resource_list_print_type(&di->rl, "irq", SYS_RES_IRQ, "%ld");
332 return (rv);
333}
334
335static void
336pinctrl_probe_nomatch(device_t bus, device_t child)
337{
338 const char *name, *type, *compat;
339
340// if (!bootverbose)
341 return;
342
343 name = ofw_bus_get_name(child);
344 type = ofw_bus_get_type(child);
345 compat = ofw_bus_get_compat(child);
346
347 device_printf(bus, "<%s>", name != NULL ? name : "unknown");
348 pinctrl_print_res(device_get_ivars(child));
349 if (!ofw_bus_status_okay(child))
350 printf(" disabled");
351 if (type)
352 printf(" type %s", type);
353 if (compat)
354 printf(" compat %s", compat);
355 printf(" (no driver attached)\n");
356}
357
358static int
359pinctrl_print_child(device_t bus, device_t child)
360{
361 int rv;
362
363 rv = bus_print_child_header(bus, child);
364 rv += pinctrl_print_res(device_get_ivars(child));
365 if (!ofw_bus_status_okay(child))
366 rv += printf(" disabled");
367 rv += bus_print_child_footer(bus, child);
368 return (rv);
369}
370
371const char *periphs[] = {"gpio", "periph A", "periph B", "periph C", "periph D", "periph E" };
372
373static void
374pinctrl_walk_tree(device_t bus, phandle_t node)
375{
376 struct pinctrl_softc *sc;
377 char status[10];
378 char name[32];
379 phandle_t pinctrl[32], pins[32 * 4], scratch;
380 ssize_t len, npins;
381 int i, j;
382
383 sc = device_get_softc(bus);
384 for (node = OF_child(node); node > 0; node = OF_peer(node)) {
385 pinctrl_walk_tree(bus, node);
386 memset(status, 0, sizeof(status));
387 memset(name, 0, sizeof(name));
388 OF_getprop(node, "status", status, sizeof(status));
389 OF_getprop(node, "name", name, sizeof(name));
390 if (strcmp(status, "okay") != 0) {
391// printf("pinctrl: omitting node %s since it isn't active\n", name);
392 continue;
393 }
394 len = OF_getencprop(node, "pinctrl-0", pinctrl, sizeof(pinctrl));
395 if (len <= 0) {
396// printf("pinctrl: no pinctrl-0 property for node %s, omitting\n", name);
397 continue;
398 }
399 len /= sizeof(phandle_t);
400 printf("pinctrl: Found active node %s\n", name);
401 for (i = 0; i < len; i++) {
402 scratch = OF_xref_phandle(pinctrl[i]);
403 npins = OF_getencprop(scratch, "atmel,pins", pins, sizeof(pins));
404 if (npins <= 0) {
405 printf("We're doing it wrong %s\n", name);
406 continue;
407 }
408 memset(name, 0, sizeof(name));
409 OF_getprop(scratch, "name", name, sizeof(name));
410 npins /= (4 * 4);
411 printf("----> need to cope with %d more pins for %s\n", npins, name);
412 for (j = 0; j < npins; j++) {
413 uint32_t unit = pins[j * 4];
414 uint32_t pin = pins[j * 4 + 1];
415 uint32_t periph = pins[j * 4 + 2];
416 uint32_t flags = pins[j * 4 + 3];
417 uint32_t pio = (0xfffffff & sc->ranges[0].bus) + 0x200 * unit;
418 printf("P%c%d %s %#x\n", unit + 'A', pin, periphs[periph],
419 flags);
420 switch (periph) {
421 case 0:
422 at91_pio_use_gpio(pio, 1u << pin);
423 at91_pio_gpio_pullup(pio, 1u << pin, !!(flags & 1));
424 at91_pio_gpio_high_z(pio, 1u << pin, !!(flags & 2));
425 at91_pio_gpio_set_deglitch(pio, 1u << pin, !!(flags & 4));
426 // at91_pio_gpio_pulldown(pio, 1u << pin, !!(flags & 8));
427 // at91_pio_gpio_dis_schmidt(pio, 1u << pin, !!(flags & 16));
428 break;
429 case 1:
430 at91_pio_use_periph_a(pio, 1u << pin, flags);
431 break;
432 case 2:
433 at91_pio_use_periph_b(pio, 1u << pin, flags);
434 break;
435 }
436 }
437 }
438 }
439}
440
441static void
442pinctrl_new_pass(device_t bus)
443{
444 struct pinctrl_softc *sc;
445 phandle_t node;
446
447 sc = device_get_softc(bus);
448
449 bus_generic_new_pass(bus);
450
451 if (sc->done_pinmux || bus_current_pass < BUS_PASS_PINMUX)
452 return;
453 sc->done_pinmux++;
454
455 node = OF_peer(0);
456 if (node == -1)
457 return;
458 pinctrl_walk_tree(bus, node);
459}
460
461static device_method_t at91_pinctrl_methods[] = {
462 DEVMETHOD(device_probe, at91_pinctrl_probe),
463 DEVMETHOD(device_attach, at91_pinctrl_attach),
464
465 DEVMETHOD(bus_print_child, pinctrl_print_child),
466 DEVMETHOD(bus_probe_nomatch, pinctrl_probe_nomatch),
467 DEVMETHOD(bus_setup_intr, bus_generic_setup_intr),
468 DEVMETHOD(bus_teardown_intr, bus_generic_teardown_intr),
469 DEVMETHOD(bus_alloc_resource, pinctrl_alloc_resource),
470 DEVMETHOD(bus_release_resource, bus_generic_release_resource),
471 DEVMETHOD(bus_activate_resource, bus_generic_activate_resource),
472 DEVMETHOD(bus_deactivate_resource, bus_generic_deactivate_resource),
473 DEVMETHOD(bus_adjust_resource, bus_generic_adjust_resource),
474 DEVMETHOD(bus_child_pnpinfo_str, ofw_bus_gen_child_pnpinfo_str),
475 DEVMETHOD(bus_new_pass, pinctrl_new_pass),
476
477 /* ofw_bus interface */
478 DEVMETHOD(ofw_bus_get_devinfo, pinctrl_get_devinfo),
479 DEVMETHOD(ofw_bus_get_compat, ofw_bus_gen_get_compat),
480 DEVMETHOD(ofw_bus_get_model, ofw_bus_gen_get_model),
481 DEVMETHOD(ofw_bus_get_name, ofw_bus_gen_get_name),
482 DEVMETHOD(ofw_bus_get_node, ofw_bus_gen_get_node),
483 DEVMETHOD(ofw_bus_get_type, ofw_bus_gen_get_type),
484
485 DEVMETHOD_END
486};
487
488static driver_t at91_pinctrl_driver = {
489 "at91_pinctrl",
490 at91_pinctrl_methods,
491 sizeof(struct pinctrl_softc),
492};
493
494static devclass_t at91_pinctrl_devclass;
495
496EARLY_DRIVER_MODULE(at91_pinctrl, simplebus, at91_pinctrl_driver, at91_pinctrl_devclass,
497 NULL, NULL, BUS_PASS_BUS);
498
499/*
500 * dummy driver to force pass BUS_PASS_PINMUX to happen.
501 */
502static int
503at91_pingroup_probe(device_t dev)
504{
505 return ENXIO;
506}
507
508static device_method_t at91_pingroup_methods[] = {
509 DEVMETHOD(device_probe, at91_pingroup_probe),
510
511 DEVMETHOD_END
512};
513
514
515static driver_t at91_pingroup_driver = {
516 "at91_pingroup",
517 at91_pingroup_methods,
518 0,
519};
520
521static devclass_t at91_pingroup_devclass;
522
523EARLY_DRIVER_MODULE(at91_pingroup, at91_pinctrl, at91_pingroup_driver, at91_pingroup_devclass,
524 NULL, NULL, BUS_PASS_PINMUX);
| 28
29#include <sys/param.h>
30#include <sys/bus.h>
31#include <sys/kernel.h>
32#include <sys/module.h>
33#include <sys/resource.h>
34#include <sys/systm.h>
35#include <sys/rman.h>
36
37#include <machine/bus.h>
38
39#include <arm/at91/at91var.h>
40#include <arm/at91/at91_piovar.h>
41
42#include <dev/fdt/fdt_common.h>
43#include <dev/ofw/openfirm.h>
44#include <dev/ofw/ofw_bus.h>
45#include <dev/ofw/ofw_bus_subr.h>
46
47#define BUS_PASS_PINMUX (BUS_PASS_INTERRUPT + 1)
48
49struct pinctrl_range {
50 uint64_t bus;
51 uint64_t host;
52 uint64_t size;
53};
54
55struct pinctrl_softc {
56 device_t dev;
57 phandle_t node;
58
59 struct pinctrl_range *ranges;
60 int nranges;
61
62 pcell_t acells, scells;
63 int done_pinmux;
64};
65
66struct pinctrl_devinfo {
67 struct ofw_bus_devinfo obdinfo;
68 struct resource_list rl;
69};
70
71static int
72at91_pinctrl_probe(device_t dev)
73{
74
75 if (!ofw_bus_is_compatible(dev, "atmel,at91rm9200-pinctrl"))
76 return (ENXIO);
77 device_set_desc(dev, "pincontrol bus");
78 return (0);
79}
80
81/* XXX Make this a subclass of simplebus */
82
83static struct pinctrl_devinfo *
84at91_pinctrl_setup_dinfo(device_t dev, phandle_t node)
85{
86 struct pinctrl_softc *sc;
87 struct pinctrl_devinfo *ndi;
88 uint32_t *reg, *intr, icells;
89 uint64_t phys, size;
90 phandle_t iparent;
91 int i, j, k;
92 int nintr;
93 int nreg;
94
95 sc = device_get_softc(dev);
96
97 ndi = malloc(sizeof(*ndi), M_DEVBUF, M_WAITOK | M_ZERO);
98 if (ofw_bus_gen_setup_devinfo(&ndi->obdinfo, node) != 0) {
99 free(ndi, M_DEVBUF);
100 return (NULL);
101 }
102
103 resource_list_init(&ndi->rl);
104 nreg = OF_getencprop_alloc(node, "reg", sizeof(*reg), (void **)®);
105 if (nreg == -1)
106 nreg = 0;
107 if (nreg % (sc->acells + sc->scells) != 0) {
108// if (bootverbose)
109 device_printf(dev, "Malformed reg property on <%s>\n",
110 ndi->obdinfo.obd_name);
111 nreg = 0;
112 }
113
114 for (i = 0, k = 0; i < nreg; i += sc->acells + sc->scells, k++) {
115 phys = size = 0;
116 for (j = 0; j < sc->acells; j++) {
117 phys <<= 32;
118 phys |= reg[i + j];
119 }
120 for (j = 0; j < sc->scells; j++) {
121 size <<= 32;
122 size |= reg[i + sc->acells + j];
123 }
124
125 resource_list_add(&ndi->rl, SYS_RES_MEMORY, k,
126 phys, phys + size - 1, size);
127 }
128 free(reg, M_OFWPROP);
129
130 nintr = OF_getencprop_alloc(node, "interrupts", sizeof(*intr),
131 (void **)&intr);
132 if (nintr > 0) {
133 if (OF_searchencprop(node, "interrupt-parent", &iparent,
134 sizeof(iparent)) == -1) {
135 device_printf(dev, "No interrupt-parent found, "
136 "assuming direct parent\n");
137 iparent = OF_parent(node);
138 }
139 if (OF_searchencprop(OF_xref_phandle(iparent),
140 "#interrupt-cells", &icells, sizeof(icells)) == -1) {
141 device_printf(dev, "Missing #interrupt-cells property, "
142 "assuming <1>\n");
143 icells = 1;
144 }
145 if (icells < 1 || icells > nintr) {
146 device_printf(dev, "Invalid #interrupt-cells property "
147 "value <%d>, assuming <1>\n", icells);
148 icells = 1;
149 }
150 for (i = 0, k = 0; i < nintr; i += icells, k++) {
151 intr[i] = ofw_bus_map_intr(dev, iparent, icells,
152 &intr[i]);
153 resource_list_add(&ndi->rl, SYS_RES_IRQ, k, intr[i],
154 intr[i], 1);
155 }
156 free(intr, M_OFWPROP);
157 }
158
159 return (ndi);
160}
161
162static int
163at91_pinctrl_fill_ranges(phandle_t node, struct pinctrl_softc *sc)
164{
165 int host_address_cells;
166 cell_t *base_ranges;
167 ssize_t nbase_ranges;
168 int err;
169 int i, j, k;
170
171 err = OF_searchencprop(OF_parent(node), "#address-cells",
172 &host_address_cells, sizeof(host_address_cells));
173 if (err <= 0)
174 return (-1);
175
176 nbase_ranges = OF_getproplen(node, "ranges");
177 if (nbase_ranges < 0)
178 return (-1);
179 sc->nranges = nbase_ranges / sizeof(cell_t) /
180 (sc->acells + host_address_cells + sc->scells);
181 if (sc->nranges == 0)
182 return (0);
183
184 sc->ranges = malloc(sc->nranges * sizeof(sc->ranges[0]),
185 M_DEVBUF, M_WAITOK);
186 base_ranges = malloc(nbase_ranges, M_DEVBUF, M_WAITOK);
187 OF_getencprop(node, "ranges", base_ranges, nbase_ranges);
188
189 for (i = 0, j = 0; i < sc->nranges; i++) {
190 sc->ranges[i].bus = 0;
191 for (k = 0; k < sc->acells; k++) {
192 sc->ranges[i].bus <<= 32;
193 sc->ranges[i].bus |= base_ranges[j++];
194 }
195 sc->ranges[i].host = 0;
196 for (k = 0; k < host_address_cells; k++) {
197 sc->ranges[i].host <<= 32;
198 sc->ranges[i].host |= base_ranges[j++];
199 }
200 sc->ranges[i].size = 0;
201 for (k = 0; k < sc->scells; k++) {
202 sc->ranges[i].size <<= 32;
203 sc->ranges[i].size |= base_ranges[j++];
204 }
205 }
206
207 free(base_ranges, M_DEVBUF);
208 return (sc->nranges);
209}
210
211static int
212at91_pinctrl_attach(device_t dev)
213{
214 struct pinctrl_softc *sc;
215 struct pinctrl_devinfo *di;
216 phandle_t node;
217 device_t cdev;
218
219 sc = device_get_softc(dev);
220 node = ofw_bus_get_node(dev);
221
222 sc->dev = dev;
223 sc->node = node;
224
225 /*
226 * Some important numbers
227 */
228 sc->acells = 2;
229 OF_getencprop(node, "#address-cells", &sc->acells, sizeof(sc->acells));
230 sc->scells = 1;
231 OF_getencprop(node, "#size-cells", &sc->scells, sizeof(sc->scells));
232
233 if (at91_pinctrl_fill_ranges(node, sc) < 0) {
234 device_printf(dev, "could not get ranges\n");
235 return (ENXIO);
236 }
237
238 for (node = OF_child(node); node > 0; node = OF_peer(node)) {
239 if ((di = at91_pinctrl_setup_dinfo(dev, node)) == NULL)
240 continue;
241 cdev = device_add_child(dev, NULL, -1);
242 if (cdev == NULL) {
243 device_printf(dev, "<%s>: device_add_child failed\n",
244 di->obdinfo.obd_name);
245 resource_list_free(&di->rl);
246 ofw_bus_gen_destroy_devinfo(&di->obdinfo);
247 free(di, M_DEVBUF);
248 continue;
249 }
250 device_set_ivars(cdev, di);
251 }
252
253 return (bus_generic_attach(dev));
254}
255
256static const struct ofw_bus_devinfo *
257pinctrl_get_devinfo(device_t bus __unused, device_t child)
258{
259 struct pinctrl_devinfo *ndi;
260
261 ndi = device_get_ivars(child);
262 return (&ndi->obdinfo);
263}
264
265static struct resource *
266pinctrl_alloc_resource(device_t bus, device_t child, int type, int *rid,
267 u_long start, u_long end, u_long count, u_int flags)
268{
269 struct pinctrl_softc *sc;
270 struct pinctrl_devinfo *di;
271 struct resource_list_entry *rle;
272 int j;
273
274 sc = device_get_softc(bus);
275
276 /*
277 * Request for the default allocation with a given rid: use resource
278 * list stored in the local device info.
279 */
280 if ((start == 0UL) && (end == ~0UL)) {
281 if ((di = device_get_ivars(child)) == NULL)
282 return (NULL);
283
284 if (type == SYS_RES_IOPORT)
285 type = SYS_RES_MEMORY;
286
287 rle = resource_list_find(&di->rl, type, *rid);
288 if (rle == NULL) {
289// if (bootverbose)
290 device_printf(bus, "no default resources for "
291 "rid = %d, type = %d\n", *rid, type);
292 return (NULL);
293 }
294 start = rle->start;
295 end = rle->end;
296 count = rle->count;
297 }
298
299 if (type == SYS_RES_MEMORY) {
300 /* Remap through ranges property */
301 for (j = 0; j < sc->nranges; j++) {
302 if (start >= sc->ranges[j].bus && end <
303 sc->ranges[j].bus + sc->ranges[j].size) {
304 start -= sc->ranges[j].bus;
305 start += sc->ranges[j].host;
306 end -= sc->ranges[j].bus;
307 end += sc->ranges[j].host;
308 break;
309 }
310 }
311 if (j == sc->nranges && sc->nranges != 0) {
312// if (bootverbose)
313 device_printf(bus, "Could not map resource "
314 "%#lx-%#lx\n", start, end);
315
316 return (NULL);
317 }
318 }
319
320 return (bus_generic_alloc_resource(bus, child, type, rid, start, end,
321 count, flags));
322}
323
324static int
325pinctrl_print_res(struct pinctrl_devinfo *di)
326{
327 int rv;
328
329 rv = 0;
330 rv += resource_list_print_type(&di->rl, "mem", SYS_RES_MEMORY, "%#lx");
331 rv += resource_list_print_type(&di->rl, "irq", SYS_RES_IRQ, "%ld");
332 return (rv);
333}
334
335static void
336pinctrl_probe_nomatch(device_t bus, device_t child)
337{
338 const char *name, *type, *compat;
339
340// if (!bootverbose)
341 return;
342
343 name = ofw_bus_get_name(child);
344 type = ofw_bus_get_type(child);
345 compat = ofw_bus_get_compat(child);
346
347 device_printf(bus, "<%s>", name != NULL ? name : "unknown");
348 pinctrl_print_res(device_get_ivars(child));
349 if (!ofw_bus_status_okay(child))
350 printf(" disabled");
351 if (type)
352 printf(" type %s", type);
353 if (compat)
354 printf(" compat %s", compat);
355 printf(" (no driver attached)\n");
356}
357
358static int
359pinctrl_print_child(device_t bus, device_t child)
360{
361 int rv;
362
363 rv = bus_print_child_header(bus, child);
364 rv += pinctrl_print_res(device_get_ivars(child));
365 if (!ofw_bus_status_okay(child))
366 rv += printf(" disabled");
367 rv += bus_print_child_footer(bus, child);
368 return (rv);
369}
370
371const char *periphs[] = {"gpio", "periph A", "periph B", "periph C", "periph D", "periph E" };
372
373static void
374pinctrl_walk_tree(device_t bus, phandle_t node)
375{
376 struct pinctrl_softc *sc;
377 char status[10];
378 char name[32];
379 phandle_t pinctrl[32], pins[32 * 4], scratch;
380 ssize_t len, npins;
381 int i, j;
382
383 sc = device_get_softc(bus);
384 for (node = OF_child(node); node > 0; node = OF_peer(node)) {
385 pinctrl_walk_tree(bus, node);
386 memset(status, 0, sizeof(status));
387 memset(name, 0, sizeof(name));
388 OF_getprop(node, "status", status, sizeof(status));
389 OF_getprop(node, "name", name, sizeof(name));
390 if (strcmp(status, "okay") != 0) {
391// printf("pinctrl: omitting node %s since it isn't active\n", name);
392 continue;
393 }
394 len = OF_getencprop(node, "pinctrl-0", pinctrl, sizeof(pinctrl));
395 if (len <= 0) {
396// printf("pinctrl: no pinctrl-0 property for node %s, omitting\n", name);
397 continue;
398 }
399 len /= sizeof(phandle_t);
400 printf("pinctrl: Found active node %s\n", name);
401 for (i = 0; i < len; i++) {
402 scratch = OF_xref_phandle(pinctrl[i]);
403 npins = OF_getencprop(scratch, "atmel,pins", pins, sizeof(pins));
404 if (npins <= 0) {
405 printf("We're doing it wrong %s\n", name);
406 continue;
407 }
408 memset(name, 0, sizeof(name));
409 OF_getprop(scratch, "name", name, sizeof(name));
410 npins /= (4 * 4);
411 printf("----> need to cope with %d more pins for %s\n", npins, name);
412 for (j = 0; j < npins; j++) {
413 uint32_t unit = pins[j * 4];
414 uint32_t pin = pins[j * 4 + 1];
415 uint32_t periph = pins[j * 4 + 2];
416 uint32_t flags = pins[j * 4 + 3];
417 uint32_t pio = (0xfffffff & sc->ranges[0].bus) + 0x200 * unit;
418 printf("P%c%d %s %#x\n", unit + 'A', pin, periphs[periph],
419 flags);
420 switch (periph) {
421 case 0:
422 at91_pio_use_gpio(pio, 1u << pin);
423 at91_pio_gpio_pullup(pio, 1u << pin, !!(flags & 1));
424 at91_pio_gpio_high_z(pio, 1u << pin, !!(flags & 2));
425 at91_pio_gpio_set_deglitch(pio, 1u << pin, !!(flags & 4));
426 // at91_pio_gpio_pulldown(pio, 1u << pin, !!(flags & 8));
427 // at91_pio_gpio_dis_schmidt(pio, 1u << pin, !!(flags & 16));
428 break;
429 case 1:
430 at91_pio_use_periph_a(pio, 1u << pin, flags);
431 break;
432 case 2:
433 at91_pio_use_periph_b(pio, 1u << pin, flags);
434 break;
435 }
436 }
437 }
438 }
439}
440
441static void
442pinctrl_new_pass(device_t bus)
443{
444 struct pinctrl_softc *sc;
445 phandle_t node;
446
447 sc = device_get_softc(bus);
448
449 bus_generic_new_pass(bus);
450
451 if (sc->done_pinmux || bus_current_pass < BUS_PASS_PINMUX)
452 return;
453 sc->done_pinmux++;
454
455 node = OF_peer(0);
456 if (node == -1)
457 return;
458 pinctrl_walk_tree(bus, node);
459}
460
461static device_method_t at91_pinctrl_methods[] = {
462 DEVMETHOD(device_probe, at91_pinctrl_probe),
463 DEVMETHOD(device_attach, at91_pinctrl_attach),
464
465 DEVMETHOD(bus_print_child, pinctrl_print_child),
466 DEVMETHOD(bus_probe_nomatch, pinctrl_probe_nomatch),
467 DEVMETHOD(bus_setup_intr, bus_generic_setup_intr),
468 DEVMETHOD(bus_teardown_intr, bus_generic_teardown_intr),
469 DEVMETHOD(bus_alloc_resource, pinctrl_alloc_resource),
470 DEVMETHOD(bus_release_resource, bus_generic_release_resource),
471 DEVMETHOD(bus_activate_resource, bus_generic_activate_resource),
472 DEVMETHOD(bus_deactivate_resource, bus_generic_deactivate_resource),
473 DEVMETHOD(bus_adjust_resource, bus_generic_adjust_resource),
474 DEVMETHOD(bus_child_pnpinfo_str, ofw_bus_gen_child_pnpinfo_str),
475 DEVMETHOD(bus_new_pass, pinctrl_new_pass),
476
477 /* ofw_bus interface */
478 DEVMETHOD(ofw_bus_get_devinfo, pinctrl_get_devinfo),
479 DEVMETHOD(ofw_bus_get_compat, ofw_bus_gen_get_compat),
480 DEVMETHOD(ofw_bus_get_model, ofw_bus_gen_get_model),
481 DEVMETHOD(ofw_bus_get_name, ofw_bus_gen_get_name),
482 DEVMETHOD(ofw_bus_get_node, ofw_bus_gen_get_node),
483 DEVMETHOD(ofw_bus_get_type, ofw_bus_gen_get_type),
484
485 DEVMETHOD_END
486};
487
488static driver_t at91_pinctrl_driver = {
489 "at91_pinctrl",
490 at91_pinctrl_methods,
491 sizeof(struct pinctrl_softc),
492};
493
494static devclass_t at91_pinctrl_devclass;
495
496EARLY_DRIVER_MODULE(at91_pinctrl, simplebus, at91_pinctrl_driver, at91_pinctrl_devclass,
497 NULL, NULL, BUS_PASS_BUS);
498
499/*
500 * dummy driver to force pass BUS_PASS_PINMUX to happen.
501 */
502static int
503at91_pingroup_probe(device_t dev)
504{
505 return ENXIO;
506}
507
508static device_method_t at91_pingroup_methods[] = {
509 DEVMETHOD(device_probe, at91_pingroup_probe),
510
511 DEVMETHOD_END
512};
513
514
515static driver_t at91_pingroup_driver = {
516 "at91_pingroup",
517 at91_pingroup_methods,
518 0,
519};
520
521static devclass_t at91_pingroup_devclass;
522
523EARLY_DRIVER_MODULE(at91_pingroup, at91_pinctrl, at91_pingroup_driver, at91_pingroup_devclass,
524 NULL, NULL, BUS_PASS_PINMUX);
|