xref: /titanic_41/usr/src/uts/i86pc/io/isa.c (revision ad2de4358b2074634b0f2355c34b0986da0e95f9)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright (c) 2012 Gary Mills
23  * Copyright (c) 1992, 2010, Oracle and/or its affiliates. All rights reserved.
24  * Copyright 2012 Garrett D'Amore <garrett@damore.org>.  All rights reserved.
25  */
26 
27 /*
28  *	ISA bus nexus driver
29  */
30 
31 #include <sys/types.h>
32 #include <sys/cmn_err.h>
33 #include <sys/conf.h>
34 #include <sys/modctl.h>
35 #include <sys/autoconf.h>
36 #include <sys/errno.h>
37 #include <sys/debug.h>
38 #include <sys/kmem.h>
39 #include <sys/psm.h>
40 #include <sys/ddidmareq.h>
41 #include <sys/ddi_impldefs.h>
42 #include <sys/ddi_subrdefs.h>
43 #include <sys/dma_engine.h>
44 #include <sys/ddi.h>
45 #include <sys/sunddi.h>
46 #include <sys/sunndi.h>
47 #include <sys/acpi/acpi_enum.h>
48 #include <sys/mach_intr.h>
49 #include <sys/pci.h>
50 #include <sys/note.h>
51 #include <sys/boot_console.h>
52 #include <sys/apic.h>
53 #if defined(__xpv)
54 #include <sys/hypervisor.h>
55 #include <sys/evtchn_impl.h>
56 
57 extern int console_hypervisor_dev_type(int *);
58 #endif
59 
60 
61 extern int pseudo_isa;
62 extern int isa_resource_setup(void);
63 extern int (*psm_intr_ops)(dev_info_t *, ddi_intr_handle_impl_t *,
64     psm_intr_op_t, int *);
65 extern void pci_register_isa_resources(int, uint32_t, uint32_t);
66 static void isa_enumerate(int);
67 static void enumerate_BIOS_serial(dev_info_t *);
68 static void adjust_prtsz(dev_info_t *isa_dip);
69 static void isa_create_ranges_prop(dev_info_t *);
70 
71 #define	USED_RESOURCES	"used-resources"
72 
73 /*
74  * The following typedef is used to represent an entry in the "ranges"
75  * property of a pci-isa bridge device node.
76  */
77 typedef struct {
78 	uint32_t child_high;
79 	uint32_t child_low;
80 	uint32_t parent_high;
81 	uint32_t parent_mid;
82 	uint32_t parent_low;
83 	uint32_t size;
84 } pib_ranges_t;
85 
86 typedef struct {
87 	uint32_t base;
88 	uint32_t len;
89 } used_ranges_t;
90 
91 #define	USED_CELL_SIZE	2	/* 1 byte addr, 1 byte size */
92 #define	ISA_ADDR_IO	1	/* IO address space */
93 #define	ISA_ADDR_MEM	0	/* memory adress space */
94 
95 /*
96  * #define ISA_DEBUG 1
97  */
98 
99 #define	num_BIOS_serial	4	/* number of BIOS serial ports to look at */
100 #define	min_BIOS_serial	2	/* minimum number of BIOS serial ports */
101 #define	COM_ISR		2	/* 16550 intr status register */
102 #define	COM_SCR		7	/* 16550 scratch register */
103 
104 /*
105  * For serial ports not enumerated by ACPI, and parallel ports with
106  * illegal size. Typically, a system can have as many as 4 serial
107  * ports and 3 parallel ports.
108  */
109 #define	MAX_EXTRA_RESOURCE	7
110 static struct regspec isa_extra_resource[MAX_EXTRA_RESOURCE];
111 static int isa_extra_count = 0;
112 
113 /* Register definitions for COM1 to COM4. */
114 static struct regspec asy_regs[] = {
115 	{1, 0x3f8, 0x8},
116 	{1, 0x2f8, 0x8},
117 	{1, 0x3e8, 0x8},
118 	{1, 0x2e8, 0x8}
119 };
120 
121 /* Serial port interrupt vectors for COM1 to COM4. */
122 static int asy_intrs[] = {0x4, 0x3, 0x4, 0x3};
123 
124 /*
125  *      Local data
126  */
127 static ddi_dma_lim_t ISA_dma_limits = {
128 	0,		/* address low				*/
129 	0x00ffffff,	/* address high				*/
130 	0,		/* counter max				*/
131 	1,		/* burstsize				*/
132 	DMA_UNIT_8,	/* minimum xfer				*/
133 	0,		/* dma speed				*/
134 	(uint_t)DMALIM_VER0, /* version				*/
135 	0x0000ffff,	/* address register			*/
136 	0x0000ffff,	/* counter register			*/
137 	1,		/* sector size				*/
138 	0x00000001,	/* scatter/gather list length		*/
139 	(uint_t)0xffffffff /* request size			*/
140 };
141 
142 static ddi_dma_attr_t ISA_dma_attr = {
143 	DMA_ATTR_V0,
144 	(unsigned long long)0,
145 	(unsigned long long)0x00ffffff,
146 	0x0000ffff,
147 	1,
148 	1,
149 	1,
150 	(unsigned long long)0xffffffff,
151 	(unsigned long long)0x0000ffff,
152 	1,
153 	1,
154 	0
155 };
156 
157 
158 /*
159  * Config information
160  */
161 
162 static int
163 isa_bus_map(dev_info_t *dip, dev_info_t *rdip, ddi_map_req_t *mp,
164     off_t offset, off_t len, caddr_t *vaddrp);
165 
166 static int
167 isa_dma_allochdl(dev_info_t *, dev_info_t *, ddi_dma_attr_t *,
168     int (*waitfp)(caddr_t), caddr_t arg, ddi_dma_handle_t *);
169 
170 static int
171 isa_dma_mctl(dev_info_t *, dev_info_t *, ddi_dma_handle_t, enum ddi_dma_ctlops,
172     off_t *, size_t *, caddr_t *, uint_t);
173 
174 static int
175 isa_ctlops(dev_info_t *, dev_info_t *, ddi_ctl_enum_t, void *, void *);
176 
177 static int
178 isa_intr_ops(dev_info_t *pdip, dev_info_t *rdip, ddi_intr_op_t intr_op,
179     ddi_intr_handle_impl_t *hdlp, void *result);
180 static int isa_alloc_intr_fixed(dev_info_t *, ddi_intr_handle_impl_t *, void *);
181 static int isa_free_intr_fixed(dev_info_t *, ddi_intr_handle_impl_t *);
182 
183 struct bus_ops isa_bus_ops = {
184 	BUSO_REV,
185 	isa_bus_map,
186 	NULL,
187 	NULL,
188 	NULL,
189 	i_ddi_map_fault,
190 	NULL,
191 	isa_dma_allochdl,
192 	ddi_dma_freehdl,
193 	ddi_dma_bindhdl,
194 	ddi_dma_unbindhdl,
195 	ddi_dma_flush,
196 	ddi_dma_win,
197 	isa_dma_mctl,
198 	isa_ctlops,
199 	ddi_bus_prop_op,
200 	NULL,		/* (*bus_get_eventcookie)();	*/
201 	NULL,		/* (*bus_add_eventcall)();	*/
202 	NULL,		/* (*bus_remove_eventcall)();	*/
203 	NULL,		/* (*bus_post_event)();		*/
204 	NULL,		/* (*bus_intr_ctl)(); */
205 	NULL,		/* (*bus_config)(); */
206 	NULL,		/* (*bus_unconfig)(); */
207 	NULL,		/* (*bus_fm_init)(); */
208 	NULL,		/* (*bus_fm_fini)(); */
209 	NULL,		/* (*bus_fm_access_enter)(); */
210 	NULL,		/* (*bus_fm_access_exit)(); */
211 	NULL,		/* (*bus_power)(); */
212 	isa_intr_ops	/* (*bus_intr_op)(); */
213 };
214 
215 
216 static int isa_attach(dev_info_t *devi, ddi_attach_cmd_t cmd);
217 
218 /*
219  * Internal isa ctlops support routines
220  */
221 static int isa_initchild(dev_info_t *child);
222 
223 struct dev_ops isa_ops = {
224 	DEVO_REV,		/* devo_rev, */
225 	0,			/* refcnt  */
226 	ddi_no_info,		/* info */
227 	nulldev,		/* identify */
228 	nulldev,		/* probe */
229 	isa_attach,		/* attach */
230 	nulldev,		/* detach */
231 	nodev,			/* reset */
232 	(struct cb_ops *)0,	/* driver operations */
233 	&isa_bus_ops,		/* bus operations */
234 	NULL,			/* power */
235 	ddi_quiesce_not_needed,		/* quiesce */
236 };
237 
238 /*
239  * Module linkage information for the kernel.
240  */
241 
242 static struct modldrv modldrv = {
243 	&mod_driverops, /* Type of module.  This is ISA bus driver */
244 	"isa nexus driver for 'ISA'",
245 	&isa_ops,	/* driver ops */
246 };
247 
248 static struct modlinkage modlinkage = {
249 	MODREV_1,
250 	&modldrv,
251 	NULL
252 };
253 
254 int
255 _init(void)
256 {
257 	int	err;
258 
259 	if ((err = mod_install(&modlinkage)) != 0)
260 		return (err);
261 
262 	impl_bus_add_probe(isa_enumerate);
263 	return (0);
264 }
265 
266 int
267 _fini(void)
268 {
269 	int	err;
270 
271 	impl_bus_delete_probe(isa_enumerate);
272 
273 	if ((err = mod_remove(&modlinkage)) != 0)
274 		return (err);
275 
276 	return (0);
277 }
278 
279 int
280 _info(struct modinfo *modinfop)
281 {
282 	return (mod_info(&modlinkage, modinfop));
283 }
284 
285 static int
286 isa_attach(dev_info_t *devi, ddi_attach_cmd_t cmd)
287 {
288 	int rval;
289 
290 #if defined(__xpv)
291 	/*
292 	 * don't allow isa to attach in domU. this can happen if someone sets
293 	 * the console wrong, etc. ISA devices assume the H/W is there and
294 	 * will cause the domU to panic.
295 	 */
296 	if (!DOMAIN_IS_INITDOMAIN(xen_info)) {
297 		return (DDI_FAILURE);
298 	}
299 #endif
300 
301 	switch (cmd) {
302 	case DDI_ATTACH:
303 		break;
304 	case DDI_RESUME:
305 		return (DDI_SUCCESS);
306 	default:
307 		return (DDI_FAILURE);
308 	}
309 
310 	if ((rval = i_dmae_init(devi)) == DDI_SUCCESS)
311 		ddi_report_dev(devi);
312 
313 	return (rval);
314 }
315 
316 #define	SET_RNGS(rng_p, used_p, ctyp, ptyp) do {			\
317 		(rng_p)->child_high = (ctyp);				\
318 		(rng_p)->child_low = (rng_p)->parent_low = (used_p)->base; \
319 		(rng_p)->parent_high = (ptyp);				\
320 		(rng_p)->parent_mid = 0;				\
321 		(rng_p)->size = (used_p)->len;				\
322 		_NOTE(CONSTCOND) } while (0)
323 static uint_t
324 isa_used_to_ranges(int ctype, int *array, uint_t size, pib_ranges_t *ranges)
325 {
326 	used_ranges_t *used_p;
327 	pib_ranges_t *rng_p = ranges;
328 	uint_t	i, ptype;
329 
330 	ptype = (ctype == ISA_ADDR_IO) ? PCI_ADDR_IO : PCI_ADDR_MEM32;
331 	ptype |= PCI_REG_REL_M;
332 	size /= USED_CELL_SIZE;
333 	used_p = (used_ranges_t *)array;
334 	SET_RNGS(rng_p, used_p, ctype, ptype);
335 	for (i = 1, used_p++; i < size; i++, used_p++) {
336 		/* merge ranges record if applicable */
337 		if (rng_p->child_low + rng_p->size == used_p->base)
338 			rng_p->size += used_p->len;
339 		else {
340 			rng_p++;
341 			SET_RNGS(rng_p, used_p, ctype, ptype);
342 		}
343 	}
344 	return (rng_p - ranges + 1);
345 }
346 
347 void
348 isa_remove_res_from_pci(int type, int *array, uint_t size)
349 {
350 	int i;
351 	used_ranges_t *used_p;
352 
353 	size /= USED_CELL_SIZE;
354 	used_p = (used_ranges_t *)array;
355 	for (i = 0; i < size; i++, used_p++)
356 		pci_register_isa_resources(type, used_p->base, used_p->len);
357 }
358 
359 static void
360 isa_create_ranges_prop(dev_info_t *dip)
361 {
362 	dev_info_t *used;
363 	int *ioarray, *memarray, status;
364 	uint_t nio = 0, nmem = 0, nrng = 0, n;
365 	pib_ranges_t *ranges;
366 
367 	used = ddi_find_devinfo(USED_RESOURCES, -1, 0);
368 	if (used == NULL) {
369 		cmn_err(CE_WARN, "Failed to find used-resources <%s>\n",
370 		    ddi_get_name(dip));
371 		return;
372 	}
373 	status = ddi_prop_lookup_int_array(DDI_DEV_T_ANY, used,
374 	    DDI_PROP_DONTPASS, "io-space", &ioarray, &nio);
375 	if (status != DDI_PROP_SUCCESS && status != DDI_PROP_NOT_FOUND) {
376 		cmn_err(CE_WARN, "io-space property failure for %s (%x)\n",
377 		    ddi_get_name(used), status);
378 		return;
379 	}
380 	status = ddi_prop_lookup_int_array(DDI_DEV_T_ANY, used,
381 	    DDI_PROP_DONTPASS, "device-memory", &memarray, &nmem);
382 	if (status != DDI_PROP_SUCCESS && status != DDI_PROP_NOT_FOUND) {
383 		cmn_err(CE_WARN, "device-memory property failure for %s (%x)\n",
384 		    ddi_get_name(used), status);
385 		return;
386 	}
387 	n = (nio + nmem) / USED_CELL_SIZE;
388 	ranges =  (pib_ranges_t *)kmem_zalloc(sizeof (pib_ranges_t) * n,
389 	    KM_SLEEP);
390 
391 	if (nio != 0) {
392 		nrng = isa_used_to_ranges(ISA_ADDR_IO, ioarray, nio, ranges);
393 		isa_remove_res_from_pci(ISA_ADDR_IO, ioarray, nio);
394 		ddi_prop_free(ioarray);
395 	}
396 	if (nmem != 0) {
397 		nrng += isa_used_to_ranges(ISA_ADDR_MEM, memarray, nmem,
398 		    ranges + nrng);
399 		isa_remove_res_from_pci(ISA_ADDR_MEM, memarray, nmem);
400 		ddi_prop_free(memarray);
401 	}
402 
403 	if (!pseudo_isa)
404 		(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, dip, "ranges",
405 		    (int *)ranges, nrng * sizeof (pib_ranges_t) / sizeof (int));
406 	kmem_free(ranges, sizeof (pib_ranges_t) * n);
407 }
408 
409 /*ARGSUSED*/
410 static int
411 isa_apply_range(dev_info_t *dip, struct regspec *isa_reg_p,
412     pci_regspec_t *pci_reg_p)
413 {
414 	pib_ranges_t *ranges, *rng_p;
415 	int len, i, offset, nrange;
416 
417 	if (ddi_getlongprop(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS,
418 	    "ranges", (caddr_t)&ranges, &len) != DDI_SUCCESS) {
419 		cmn_err(CE_WARN, "Can't get %s ranges property",
420 		    ddi_get_name(dip));
421 		return (DDI_ME_REGSPEC_RANGE);
422 	}
423 	nrange = len / sizeof (pib_ranges_t);
424 	rng_p = ranges;
425 	for (i = 0; i < nrange; i++, rng_p++) {
426 		/* Check for correct space */
427 		if (isa_reg_p->regspec_bustype != rng_p->child_high)
428 			continue;
429 
430 		/* Detect whether request entirely fits within a range */
431 		if (isa_reg_p->regspec_addr < rng_p->child_low)
432 			continue;
433 		if ((isa_reg_p->regspec_addr + isa_reg_p->regspec_size - 1) >
434 		    (rng_p->child_low + rng_p->size - 1))
435 			continue;
436 
437 		offset = isa_reg_p->regspec_addr - rng_p->child_low;
438 
439 		pci_reg_p->pci_phys_hi = rng_p->parent_high;
440 		pci_reg_p->pci_phys_mid = 0;
441 		pci_reg_p->pci_phys_low = rng_p->parent_low + offset;
442 		pci_reg_p->pci_size_hi = 0;
443 		pci_reg_p->pci_size_low = isa_reg_p->regspec_size;
444 
445 		break;
446 	}
447 	kmem_free(ranges, len);
448 
449 	if (i < nrange)
450 		return (DDI_SUCCESS);
451 
452 	/*
453 	 * Check extra resource range specially for serial and parallel
454 	 * devices, which are treated differently from all other ISA
455 	 * devices. On some machines, serial ports are not enumerated
456 	 * by ACPI but by BIOS, with io base addresses noted in legacy
457 	 * BIOS data area. Parallel port on some machines comes with
458 	 * illegal size.
459 	 */
460 	if (isa_reg_p->regspec_bustype != ISA_ADDR_IO) {
461 		cmn_err(CE_WARN, "Bus type not ISA I/O\n");
462 		return (DDI_ME_REGSPEC_RANGE);
463 	}
464 
465 	for (i = 0; i < isa_extra_count; i++) {
466 		struct regspec *reg_p = &isa_extra_resource[i];
467 
468 		if (isa_reg_p->regspec_addr < reg_p->regspec_addr)
469 			continue;
470 		if ((isa_reg_p->regspec_addr + isa_reg_p->regspec_size) >
471 		    (reg_p->regspec_addr + reg_p->regspec_size))
472 			continue;
473 
474 		pci_reg_p->pci_phys_hi = PCI_ADDR_IO | PCI_REG_REL_M;
475 		pci_reg_p->pci_phys_mid = 0;
476 		pci_reg_p->pci_phys_low = isa_reg_p->regspec_addr;
477 		pci_reg_p->pci_size_hi = 0;
478 		pci_reg_p->pci_size_low = isa_reg_p->regspec_size;
479 		break;
480 	}
481 	if (i < isa_extra_count)
482 		return (DDI_SUCCESS);
483 
484 	cmn_err(CE_WARN, "isa_apply_range: Out of range base <0x%x>, size <%d>",
485 	    isa_reg_p->regspec_addr, isa_reg_p->regspec_size);
486 	return (DDI_ME_REGSPEC_RANGE);
487 }
488 
489 static int
490 isa_bus_map(dev_info_t *dip, dev_info_t *rdip, ddi_map_req_t *mp,
491     off_t offset, off_t len, caddr_t *vaddrp)
492 {
493 	struct regspec tmp_reg, *rp;
494 	pci_regspec_t vreg;
495 	ddi_map_req_t mr = *mp;		/* Get private copy of request */
496 	int error;
497 
498 	if (pseudo_isa)
499 		return (i_ddi_bus_map(dip, rdip, mp, offset, len, vaddrp));
500 
501 	mp = &mr;
502 
503 	/*
504 	 * First, if given an rnumber, convert it to a regspec...
505 	 */
506 	if (mp->map_type == DDI_MT_RNUMBER)  {
507 
508 		int rnumber = mp->map_obj.rnumber;
509 
510 		rp = i_ddi_rnumber_to_regspec(rdip, rnumber);
511 		if (rp == (struct regspec *)0)
512 			return (DDI_ME_RNUMBER_RANGE);
513 
514 		/*
515 		 * Convert the given ddi_map_req_t from rnumber to regspec...
516 		 */
517 		mp->map_type = DDI_MT_REGSPEC;
518 		mp->map_obj.rp = rp;
519 	}
520 
521 	/*
522 	 * Adjust offset and length correspnding to called values...
523 	 * XXX: A non-zero length means override the one in the regspec.
524 	 * XXX: (Regardless of what's in the parent's range)
525 	 */
526 
527 	tmp_reg = *(mp->map_obj.rp);		/* Preserve underlying data */
528 	rp = mp->map_obj.rp = &tmp_reg;		/* Use tmp_reg in request */
529 
530 	rp->regspec_addr += (uint_t)offset;
531 	if (len != 0)
532 		rp->regspec_size = (uint_t)len;
533 
534 	if ((error = isa_apply_range(dip, rp, &vreg)) != 0)
535 		return (error);
536 	mp->map_obj.rp = (struct regspec *)&vreg;
537 
538 	/*
539 	 * Call my parents bus_map function with modified values...
540 	 */
541 
542 	return (ddi_map(dip, mp, (off_t)0, (off_t)0, vaddrp));
543 }
544 
545 static int
546 isa_dma_allochdl(dev_info_t *dip, dev_info_t *rdip, ddi_dma_attr_t *dma_attr,
547     int (*waitfp)(caddr_t), caddr_t arg, ddi_dma_handle_t *handlep)
548 {
549 	ddi_dma_attr_merge(dma_attr, &ISA_dma_attr);
550 	return (ddi_dma_allochdl(dip, rdip, dma_attr, waitfp, arg, handlep));
551 }
552 
553 static int
554 isa_dma_mctl(dev_info_t *dip, dev_info_t *rdip,
555     ddi_dma_handle_t handle, enum ddi_dma_ctlops request,
556     off_t *offp, size_t *lenp, caddr_t *objp, uint_t flags)
557 {
558 	int rval;
559 	ddi_dma_lim_t defalt;
560 	int arg = (int)(uintptr_t)objp;
561 
562 	switch (request) {
563 
564 	case DDI_DMA_E_PROG:
565 		return (i_dmae_prog(rdip, (struct ddi_dmae_req *)offp,
566 		    (ddi_dma_cookie_t *)lenp, arg));
567 
568 	case DDI_DMA_E_ACQUIRE:
569 		return (i_dmae_acquire(rdip, arg, (int(*)(caddr_t))offp,
570 		    (caddr_t)lenp));
571 
572 	case DDI_DMA_E_FREE:
573 		return (i_dmae_free(rdip, arg));
574 
575 	case DDI_DMA_E_STOP:
576 		i_dmae_stop(rdip, arg);
577 		return (DDI_SUCCESS);
578 
579 	case DDI_DMA_E_ENABLE:
580 		i_dmae_enable(rdip, arg);
581 		return (DDI_SUCCESS);
582 
583 	case DDI_DMA_E_DISABLE:
584 		i_dmae_disable(rdip, arg);
585 		return (DDI_SUCCESS);
586 
587 	case DDI_DMA_E_GETCNT:
588 		i_dmae_get_chan_stat(rdip, arg, NULL, (int *)lenp);
589 		return (DDI_SUCCESS);
590 
591 	case DDI_DMA_E_SWSETUP:
592 		return (i_dmae_swsetup(rdip, (struct ddi_dmae_req *)offp,
593 		    (ddi_dma_cookie_t *)lenp, arg));
594 
595 	case DDI_DMA_E_SWSTART:
596 		i_dmae_swstart(rdip, arg);
597 		return (DDI_SUCCESS);
598 
599 	case DDI_DMA_E_GETLIM:
600 		bcopy(&ISA_dma_limits, objp, sizeof (ddi_dma_lim_t));
601 		return (DDI_SUCCESS);
602 
603 	case DDI_DMA_E_GETATTR:
604 		bcopy(&ISA_dma_attr, objp, sizeof (ddi_dma_attr_t));
605 		return (DDI_SUCCESS);
606 
607 	case DDI_DMA_E_1STPTY:
608 		{
609 			struct ddi_dmae_req req1stpty =
610 			    { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
611 			if (arg == 0) {
612 				req1stpty.der_command = DMAE_CMD_TRAN;
613 				req1stpty.der_trans = DMAE_TRANS_DMND;
614 			} else {
615 				req1stpty.der_trans = DMAE_TRANS_CSCD;
616 			}
617 			return (i_dmae_prog(rdip, &req1stpty, NULL, arg));
618 		}
619 
620 	case DDI_DMA_IOPB_ALLOC:	/* get contiguous DMA-able memory */
621 	case DDI_DMA_SMEM_ALLOC:
622 		if (!offp) {
623 			defalt = ISA_dma_limits;
624 			offp = (off_t *)&defalt;
625 		}
626 		/*FALLTHROUGH*/
627 	default:
628 		rval = ddi_dma_mctl(dip, rdip, handle, request, offp,
629 		    lenp, objp, flags);
630 	}
631 	return (rval);
632 }
633 
634 /*
635  * Check if driver should be treated as an old pre 2.6 driver
636  */
637 static int
638 old_driver(dev_info_t *dip)
639 {
640 	extern int ignore_hardware_nodes;	/* force flag from ddi_impl.c */
641 
642 	if (ndi_dev_is_persistent_node(dip)) {
643 		if (ignore_hardware_nodes)
644 			return (1);
645 		if (ddi_getprop(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS,
646 		    "ignore-hardware-nodes", -1) != -1)
647 			return (1);
648 	}
649 	return (0);
650 }
651 
652 typedef struct {
653 	uint32_t phys_hi;
654 	uint32_t phys_lo;
655 	uint32_t size;
656 } isa_regs_t;
657 
658 /*
659  * Return non-zero if device in tree is a PnP isa device
660  */
661 static int
662 is_pnpisa(dev_info_t *dip)
663 {
664 	isa_regs_t *isa_regs;
665 	int proplen, pnpisa;
666 
667 	if (ddi_getlongprop(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS, "reg",
668 	    (caddr_t)&isa_regs, &proplen) != DDI_PROP_SUCCESS) {
669 		return (0);
670 	}
671 	pnpisa = isa_regs[0].phys_hi & 0x80000000;
672 	/*
673 	 * free the memory allocated by ddi_getlongprop().
674 	 */
675 	kmem_free(isa_regs, proplen);
676 	if (pnpisa)
677 		return (1);
678 	else
679 		return (0);
680 }
681 
682 /*ARGSUSED*/
683 static int
684 isa_ctlops(dev_info_t *dip, dev_info_t *rdip,
685 	ddi_ctl_enum_t ctlop, void *arg, void *result)
686 {
687 	int rn;
688 	struct ddi_parent_private_data *pdp;
689 
690 	switch (ctlop) {
691 	case DDI_CTLOPS_REPORTDEV:
692 		if (rdip == (dev_info_t *)0)
693 			return (DDI_FAILURE);
694 		cmn_err(CE_CONT, "?ISA-device: %s%d\n",
695 		    ddi_driver_name(rdip), ddi_get_instance(rdip));
696 		return (DDI_SUCCESS);
697 
698 	case DDI_CTLOPS_INITCHILD:
699 		/*
700 		 * older drivers aren't expecting the "standard" device
701 		 * node format used by the hardware nodes.  these drivers
702 		 * only expect their own properties set in their driver.conf
703 		 * files.  so they tell us not to call them with hardware
704 		 * nodes by setting the property "ignore-hardware-nodes".
705 		 */
706 		if (old_driver((dev_info_t *)arg)) {
707 			return (DDI_NOT_WELL_FORMED);
708 		}
709 
710 		return (isa_initchild((dev_info_t *)arg));
711 
712 	case DDI_CTLOPS_UNINITCHILD:
713 		impl_ddi_sunbus_removechild((dev_info_t *)arg);
714 		return (DDI_SUCCESS);
715 
716 	case DDI_CTLOPS_SIDDEV:
717 		if (ndi_dev_is_persistent_node(rdip))
718 			return (DDI_SUCCESS);
719 		/*
720 		 * All ISA devices need to do confirming probes
721 		 * unless they are PnP ISA.
722 		 */
723 		if (is_pnpisa(rdip))
724 			return (DDI_SUCCESS);
725 		else
726 			return (DDI_FAILURE);
727 
728 	case DDI_CTLOPS_REGSIZE:
729 	case DDI_CTLOPS_NREGS:
730 		if (rdip == (dev_info_t *)0)
731 			return (DDI_FAILURE);
732 
733 		if ((pdp = ddi_get_parent_data(rdip)) == NULL)
734 			return (DDI_FAILURE);
735 
736 		if (ctlop == DDI_CTLOPS_NREGS) {
737 			*(int *)result = pdp->par_nreg;
738 		} else {
739 			rn = *(int *)arg;
740 			if (rn >= pdp->par_nreg)
741 				return (DDI_FAILURE);
742 			*(off_t *)result = (off_t)pdp->par_reg[rn].regspec_size;
743 		}
744 		return (DDI_SUCCESS);
745 
746 	case DDI_CTLOPS_ATTACH:
747 	case DDI_CTLOPS_DETACH:
748 	case DDI_CTLOPS_PEEK:
749 	case DDI_CTLOPS_POKE:
750 		return (DDI_FAILURE);
751 
752 	default:
753 		return (ddi_ctlops(dip, rdip, ctlop, arg, result));
754 	}
755 }
756 
757 static struct intrspec *
758 isa_get_ispec(dev_info_t *rdip, int inum)
759 {
760 	struct ddi_parent_private_data *pdp = ddi_get_parent_data(rdip);
761 
762 	/* Validate the interrupt number */
763 	if (inum >= pdp->par_nintr)
764 		return (NULL);
765 
766 	/* Get the interrupt structure pointer and return that */
767 	return ((struct intrspec *)&pdp->par_intr[inum]);
768 }
769 
770 static int
771 isa_intr_ops(dev_info_t *pdip, dev_info_t *rdip, ddi_intr_op_t intr_op,
772     ddi_intr_handle_impl_t *hdlp, void *result)
773 {
774 	struct intrspec *ispec;
775 #if defined(__xpv)
776 	int cons, ttyn;
777 
778 	cons = console_hypervisor_dev_type(&ttyn);
779 #endif
780 	if (pseudo_isa)
781 		return (i_ddi_intr_ops(pdip, rdip, intr_op, hdlp, result));
782 
783 
784 	/* Process the interrupt operation */
785 	switch (intr_op) {
786 	case DDI_INTROP_GETCAP:
787 		/* First check with pcplusmp */
788 		if (psm_intr_ops == NULL)
789 			return (DDI_FAILURE);
790 
791 		if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_GET_CAP, result)) {
792 			*(int *)result = 0;
793 			return (DDI_FAILURE);
794 		}
795 		break;
796 	case DDI_INTROP_SETCAP:
797 		if (psm_intr_ops == NULL)
798 			return (DDI_FAILURE);
799 
800 		if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_SET_CAP, result))
801 			return (DDI_FAILURE);
802 		break;
803 	case DDI_INTROP_ALLOC:
804 		ASSERT(hdlp->ih_type == DDI_INTR_TYPE_FIXED);
805 		return (isa_alloc_intr_fixed(rdip, hdlp, result));
806 	case DDI_INTROP_FREE:
807 		ASSERT(hdlp->ih_type == DDI_INTR_TYPE_FIXED);
808 		return (isa_free_intr_fixed(rdip, hdlp));
809 	case DDI_INTROP_GETPRI:
810 		if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)
811 			return (DDI_FAILURE);
812 		*(int *)result = ispec->intrspec_pri;
813 		break;
814 	case DDI_INTROP_SETPRI:
815 		/* Validate the interrupt priority passed to us */
816 		if (*(int *)result > LOCK_LEVEL)
817 			return (DDI_FAILURE);
818 
819 		/* Ensure that PSM is all initialized and ispec is ok */
820 		if ((psm_intr_ops == NULL) ||
821 		    ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL))
822 			return (DDI_FAILURE);
823 
824 		/* update the ispec with the new priority */
825 		ispec->intrspec_pri =  *(int *)result;
826 		break;
827 	case DDI_INTROP_ADDISR:
828 		if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)
829 			return (DDI_FAILURE);
830 		ispec->intrspec_func = hdlp->ih_cb_func;
831 		break;
832 	case DDI_INTROP_REMISR:
833 		if (hdlp->ih_type != DDI_INTR_TYPE_FIXED)
834 			return (DDI_FAILURE);
835 		if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)
836 			return (DDI_FAILURE);
837 		ispec->intrspec_func = (uint_t (*)()) 0;
838 		break;
839 	case DDI_INTROP_ENABLE:
840 		if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)
841 			return (DDI_FAILURE);
842 
843 		/* Call psmi to translate irq with the dip */
844 		if (psm_intr_ops == NULL)
845 			return (DDI_FAILURE);
846 
847 #if defined(__xpv)
848 		/*
849 		 * if the hypervisor is using an isa serial port for the
850 		 * console, make sure we don't try to use that interrupt as
851 		 * it will cause us to panic when xen_bind_pirq() fails.
852 		 */
853 		if (cons == CONS_TTY && ispec->intrspec_vec == asy_intrs[ttyn])
854 			return (DDI_FAILURE);
855 #endif
856 		((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec;
857 		if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_XLATE_VECTOR,
858 		    (int *)&hdlp->ih_vector) == PSM_FAILURE)
859 			return (DDI_FAILURE);
860 
861 		/* Add the interrupt handler */
862 		if (!add_avintr((void *)hdlp, ispec->intrspec_pri,
863 		    hdlp->ih_cb_func, DEVI(rdip)->devi_name, hdlp->ih_vector,
864 		    hdlp->ih_cb_arg1, hdlp->ih_cb_arg2, NULL, rdip))
865 			return (DDI_FAILURE);
866 		break;
867 	case DDI_INTROP_DISABLE:
868 		if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)
869 			return (DDI_FAILURE);
870 
871 		/* Call psm_ops() to translate irq with the dip */
872 		if (psm_intr_ops == NULL)
873 			return (DDI_FAILURE);
874 
875 		((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec;
876 		(void) (*psm_intr_ops)(rdip, hdlp,
877 		    PSM_INTR_OP_XLATE_VECTOR, (int *)&hdlp->ih_vector);
878 
879 		/* Remove the interrupt handler */
880 		rem_avintr((void *)hdlp, ispec->intrspec_pri,
881 		    hdlp->ih_cb_func, hdlp->ih_vector);
882 		break;
883 	case DDI_INTROP_SETMASK:
884 		if (psm_intr_ops == NULL)
885 			return (DDI_FAILURE);
886 
887 		if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_SET_MASK, NULL))
888 			return (DDI_FAILURE);
889 		break;
890 	case DDI_INTROP_CLRMASK:
891 		if (psm_intr_ops == NULL)
892 			return (DDI_FAILURE);
893 
894 		if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_CLEAR_MASK, NULL))
895 			return (DDI_FAILURE);
896 		break;
897 	case DDI_INTROP_GETPENDING:
898 		if (psm_intr_ops == NULL)
899 			return (DDI_FAILURE);
900 
901 		if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_GET_PENDING,
902 		    result)) {
903 			*(int *)result = 0;
904 			return (DDI_FAILURE);
905 		}
906 		break;
907 	case DDI_INTROP_NAVAIL:
908 	case DDI_INTROP_NINTRS:
909 		*(int *)result = i_ddi_get_intx_nintrs(rdip);
910 		if (*(int *)result == 0) {
911 			return (DDI_FAILURE);
912 		}
913 		break;
914 	case DDI_INTROP_SUPPORTED_TYPES:
915 		*(int *)result = DDI_INTR_TYPE_FIXED;	/* Always ... */
916 		break;
917 	default:
918 		return (DDI_FAILURE);
919 	}
920 
921 	return (DDI_SUCCESS);
922 }
923 
924 /*
925  * Allocate interrupt vector for FIXED (legacy) type.
926  */
927 static int
928 isa_alloc_intr_fixed(dev_info_t *rdip, ddi_intr_handle_impl_t *hdlp,
929     void *result)
930 {
931 	struct intrspec		*ispec;
932 	ddi_intr_handle_impl_t	info_hdl;
933 	int			ret;
934 	int			free_phdl = 0;
935 	apic_get_type_t		type_info;
936 
937 	if (psm_intr_ops == NULL)
938 		return (DDI_FAILURE);
939 
940 	if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)
941 		return (DDI_FAILURE);
942 
943 	/*
944 	 * If the PSM module is "APIX" then pass the request for it
945 	 * to allocate the vector now.
946 	 */
947 	bzero(&info_hdl, sizeof (ddi_intr_handle_impl_t));
948 	info_hdl.ih_private = &type_info;
949 	if ((*psm_intr_ops)(NULL, &info_hdl, PSM_INTR_OP_APIC_TYPE, NULL) ==
950 	    PSM_SUCCESS && strcmp(type_info.avgi_type, APIC_APIX_NAME) == 0) {
951 		if (hdlp->ih_private == NULL) { /* allocate phdl structure */
952 			free_phdl = 1;
953 			i_ddi_alloc_intr_phdl(hdlp);
954 		}
955 		((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec;
956 		ret = (*psm_intr_ops)(rdip, hdlp,
957 		    PSM_INTR_OP_ALLOC_VECTORS, result);
958 		if (free_phdl) { /* free up the phdl structure */
959 			free_phdl = 0;
960 			i_ddi_free_intr_phdl(hdlp);
961 			hdlp->ih_private = NULL;
962 		}
963 	} else {
964 		/*
965 		 * No APIX module; fall back to the old scheme where the
966 		 * interrupt vector is allocated during ddi_enable_intr() call.
967 		 */
968 		hdlp->ih_pri = ispec->intrspec_pri;
969 		*(int *)result = hdlp->ih_scratch1;
970 		ret = DDI_SUCCESS;
971 	}
972 
973 	return (ret);
974 }
975 
976 /*
977  * Free up interrupt vector for FIXED (legacy) type.
978  */
979 static int
980 isa_free_intr_fixed(dev_info_t *rdip, ddi_intr_handle_impl_t *hdlp)
981 {
982 	struct intrspec			*ispec;
983 	ddi_intr_handle_impl_t		info_hdl;
984 	int				ret;
985 	apic_get_type_t			type_info;
986 
987 	if (psm_intr_ops == NULL)
988 		return (DDI_FAILURE);
989 
990 	/*
991 	 * If the PSM module is "APIX" then pass the request for it
992 	 * to free up the vector now.
993 	 */
994 	bzero(&info_hdl, sizeof (ddi_intr_handle_impl_t));
995 	info_hdl.ih_private = &type_info;
996 	if ((*psm_intr_ops)(NULL, &info_hdl, PSM_INTR_OP_APIC_TYPE, NULL) ==
997 	    PSM_SUCCESS && strcmp(type_info.avgi_type, APIC_APIX_NAME) == 0) {
998 		if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)
999 			return (DDI_FAILURE);
1000 		((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec;
1001 		ret = (*psm_intr_ops)(rdip, hdlp,
1002 		    PSM_INTR_OP_FREE_VECTORS, NULL);
1003 	} else {
1004 		/*
1005 		 * No APIX module; fall back to the old scheme where
1006 		 * the interrupt vector was already freed during
1007 		 * ddi_disable_intr() call.
1008 		 */
1009 		ret = DDI_SUCCESS;
1010 	}
1011 
1012 	return (ret);
1013 }
1014 
1015 static void
1016 isa_vendor(uint32_t id, char *vendor)
1017 {
1018 	vendor[0] = '@' + ((id >> 26) & 0x1f);
1019 	vendor[1] = '@' + ((id >> 21) & 0x1f);
1020 	vendor[2] = '@' + ((id >> 16) & 0x1f);
1021 	vendor[3] = 0;
1022 }
1023 
1024 /*
1025  * Name a child
1026  */
1027 static int
1028 isa_name_child(dev_info_t *child, char *name, int namelen)
1029 {
1030 	char vendor[8];
1031 	int device;
1032 	uint32_t serial;
1033 	int func;
1034 	int bustype;
1035 	uint32_t base;
1036 	int proplen;
1037 	int pnpisa = 0;
1038 	isa_regs_t *isa_regs;
1039 
1040 	void make_ddi_ppd(dev_info_t *, struct ddi_parent_private_data **);
1041 
1042 	/*
1043 	 * older drivers aren't expecting the "standard" device
1044 	 * node format used by the hardware nodes.  these drivers
1045 	 * only expect their own properties set in their driver.conf
1046 	 * files.  so they tell us not to call them with hardware
1047 	 * nodes by setting the property "ignore-hardware-nodes".
1048 	 */
1049 	if (old_driver(child))
1050 		return (DDI_FAILURE);
1051 
1052 	/*
1053 	 * Fill in parent-private data
1054 	 */
1055 	if (ddi_get_parent_data(child) == NULL) {
1056 		struct ddi_parent_private_data *pdptr;
1057 		make_ddi_ppd(child, &pdptr);
1058 		ddi_set_parent_data(child, pdptr);
1059 	}
1060 
1061 	if (ndi_dev_is_persistent_node(child) == 0) {
1062 		/*
1063 		 * For .conf nodes, generate name from parent private data
1064 		 */
1065 		name[0] = '\0';
1066 		if (sparc_pd_getnreg(child) > 0) {
1067 			(void) snprintf(name, namelen, "%x,%x",
1068 			    (uint_t)sparc_pd_getreg(child, 0)->regspec_bustype,
1069 			    (uint_t)sparc_pd_getreg(child, 0)->regspec_addr);
1070 		}
1071 		return (DDI_SUCCESS);
1072 	}
1073 
1074 	/*
1075 	 * For hw nodes, look up "reg" property
1076 	 */
1077 	if (ddi_getlongprop(DDI_DEV_T_ANY, child, DDI_PROP_DONTPASS, "reg",
1078 	    (caddr_t)&isa_regs, &proplen) != DDI_PROP_SUCCESS) {
1079 		return (DDI_FAILURE);
1080 	}
1081 
1082 	/*
1083 	 * extract the device identifications
1084 	 */
1085 	pnpisa = isa_regs[0].phys_hi & 0x80000000;
1086 	if (pnpisa) {
1087 		isa_vendor(isa_regs[0].phys_hi, vendor);
1088 		device = isa_regs[0].phys_hi & 0xffff;
1089 		serial = isa_regs[0].phys_lo;
1090 		func = (isa_regs[0].size >> 24) & 0xff;
1091 		if (func != 0)
1092 			(void) snprintf(name, namelen, "pnp%s,%04x,%x,%x",
1093 			    vendor, device, serial, func);
1094 		else
1095 			(void) snprintf(name, namelen, "pnp%s,%04x,%x",
1096 			    vendor, device, serial);
1097 	} else {
1098 		bustype = isa_regs[0].phys_hi;
1099 		base = isa_regs[0].phys_lo;
1100 		(void) sprintf(name, "%x,%x", bustype, base);
1101 	}
1102 
1103 	/*
1104 	 * free the memory allocated by ddi_getlongprop().
1105 	 */
1106 	kmem_free(isa_regs, proplen);
1107 
1108 	return (DDI_SUCCESS);
1109 }
1110 
1111 static int
1112 isa_initchild(dev_info_t *child)
1113 {
1114 	char name[80];
1115 
1116 	if (isa_name_child(child, name, 80) != DDI_SUCCESS)
1117 		return (DDI_FAILURE);
1118 	ddi_set_name_addr(child, name);
1119 
1120 	if (ndi_dev_is_persistent_node(child) != 0)
1121 		return (DDI_SUCCESS);
1122 
1123 	/*
1124 	 * This is a .conf node, try merge properties onto a
1125 	 * hw node with the same name.
1126 	 */
1127 	if (ndi_merge_node(child, isa_name_child) == DDI_SUCCESS) {
1128 		/*
1129 		 * Return failure to remove node
1130 		 */
1131 		impl_ddi_sunbus_removechild(child);
1132 		return (DDI_FAILURE);
1133 	}
1134 	/*
1135 	 * Cannot merge node, permit pseudo children
1136 	 */
1137 	return (DDI_SUCCESS);
1138 }
1139 
1140 /*
1141  * called when ACPI enumeration is not used
1142  */
1143 static void
1144 add_known_used_resources(void)
1145 {
1146 	/* needs to be in increasing order */
1147 	int intr[] = {0x1, 0x3, 0x4, 0x6, 0x7, 0xc};
1148 	int dma[] = {0x2};
1149 	int io[] = {0x60, 0x1, 0x64, 0x1, 0x2f8, 0x8, 0x378, 0x8, 0x3f0, 0x10,
1150 	    0x778, 0x4};
1151 	dev_info_t *usedrdip;
1152 
1153 	usedrdip = ddi_find_devinfo(USED_RESOURCES, -1, 0);
1154 
1155 	if (usedrdip == NULL) {
1156 		(void) ndi_devi_alloc_sleep(ddi_root_node(), USED_RESOURCES,
1157 		    (pnode_t)DEVI_SID_NODEID, &usedrdip);
1158 	}
1159 
1160 	(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, usedrdip,
1161 	    "interrupts", (int *)intr, (int)(sizeof (intr) / sizeof (int)));
1162 	(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, usedrdip,
1163 	    "io-space", (int *)io, (int)(sizeof (io) / sizeof (int)));
1164 	(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, usedrdip,
1165 	    "dma-channels", (int *)dma, (int)(sizeof (dma) / sizeof (int)));
1166 	(void) ndi_devi_bind_driver(usedrdip, 0);
1167 
1168 }
1169 
1170 /*
1171  * Return non-zero if UART device exists.
1172  */
1173 static int
1174 uart_exists(ushort_t port)
1175 {
1176 	outb(port + COM_SCR, (char)0x5a);
1177 	outb(port + COM_ISR, (char)0x00);
1178 	return (inb(port + COM_SCR) == (char)0x5a);
1179 }
1180 
1181 static void
1182 isa_enumerate(int reprogram)
1183 {
1184 	int circ, i;
1185 	dev_info_t *xdip;
1186 	dev_info_t *isa_dip = ddi_find_devinfo("isa", -1, 0);
1187 
1188 	struct regspec i8042_regs[] = {
1189 		{1, 0x60, 0x1},
1190 		{1, 0x64, 0x1}
1191 	};
1192 	int i8042_intrs[] = {0x1, 0xc};
1193 	char *acpi_prop;
1194 	int acpi_enum = 1; /* ACPI is default to be on */
1195 #if defined(__xpv)
1196 	int cons, ttyn;
1197 
1198 	cons = console_hypervisor_dev_type(&ttyn);
1199 #endif
1200 	if (reprogram || !isa_dip)
1201 		return;
1202 
1203 	bzero(isa_extra_resource, MAX_EXTRA_RESOURCE * sizeof (struct regspec));
1204 
1205 	ndi_devi_enter(isa_dip, &circ);
1206 
1207 	if (ddi_prop_lookup_string(DDI_DEV_T_ANY, ddi_root_node(),
1208 	    DDI_PROP_DONTPASS, "acpi-enum", &acpi_prop) == DDI_PROP_SUCCESS) {
1209 		acpi_enum = strcmp("off", acpi_prop);
1210 		ddi_prop_free(acpi_prop);
1211 	}
1212 
1213 	if (acpi_enum) {
1214 		if (acpi_isa_device_enum(isa_dip)) {
1215 			ndi_devi_exit(isa_dip, circ);
1216 			if (isa_resource_setup() != NDI_SUCCESS) {
1217 				cmn_err(CE_WARN, "isa nexus: isa "
1218 				    "resource setup failed");
1219 			}
1220 
1221 			/* serial ports? */
1222 			enumerate_BIOS_serial(isa_dip);
1223 
1224 			/* adjust parallel port size  */
1225 			adjust_prtsz(isa_dip);
1226 
1227 			isa_create_ranges_prop(isa_dip);
1228 			return;
1229 		}
1230 		cmn_err(CE_NOTE, "!Solaris did not detect ACPI BIOS");
1231 	}
1232 	cmn_err(CE_NOTE, "!ACPI is off");
1233 
1234 	/* serial ports */
1235 	for (i = 0; i < min_BIOS_serial; i++) {
1236 		ushort_t addr = asy_regs[i].regspec_addr;
1237 		if (!uart_exists(addr))
1238 			continue;
1239 #if defined(__xpv)
1240 		if (cons == CONS_TTY && ttyn == i)
1241 			continue;
1242 #endif
1243 		ndi_devi_alloc_sleep(isa_dip, "asy",
1244 		    (pnode_t)DEVI_SID_NODEID, &xdip);
1245 		(void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip,
1246 		    "compatible", "PNP0500");
1247 		/* This should be gotten from master file: */
1248 		(void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip,
1249 		    "model", "Standard PC COM port");
1250 		(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, xdip,
1251 		    "reg", (int *)&asy_regs[i], 3);
1252 		(void) ndi_prop_update_int(DDI_DEV_T_NONE, xdip,
1253 		    "interrupts", asy_intrs[i]);
1254 		(void) ndi_devi_bind_driver(xdip, 0);
1255 		/* Adjusting isa_extra here causes a kernel dump later. */
1256 	}
1257 
1258 	/* i8042 node */
1259 	ndi_devi_alloc_sleep(isa_dip, "i8042",
1260 	    (pnode_t)DEVI_SID_NODEID, &xdip);
1261 	(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, xdip,
1262 	    "reg", (int *)i8042_regs, 6);
1263 	(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, xdip,
1264 	    "interrupts", (int *)i8042_intrs, 2);
1265 	(void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip,
1266 	    "unit-address", "1,60");
1267 	(void) ndi_devi_bind_driver(xdip, 0);
1268 
1269 	add_known_used_resources();
1270 
1271 	ndi_devi_exit(isa_dip, circ);
1272 
1273 	isa_create_ranges_prop(isa_dip);
1274 }
1275 
1276 /*
1277  * On some machines, serial port 2 isn't listed in the ACPI table.
1278  * This function goes through the base I/O addresses and makes sure all
1279  * the serial ports there are in the dev_info tree.  If any are missing,
1280  * this function will add them.
1281  */
1282 
1283 static void
1284 enumerate_BIOS_serial(dev_info_t *isa_dip)
1285 {
1286 	int i;
1287 	dev_info_t *xdip;
1288 	int found;
1289 	int ret;
1290 	struct regspec *tmpregs;
1291 	int tmpregs_len;
1292 #if defined(__xpv)
1293 	int cons, ttyn;
1294 
1295 	cons = console_hypervisor_dev_type(&ttyn);
1296 #endif
1297 
1298 	/*
1299 	 * Scan the base I/O addresses of the first four serial ports.
1300 	 */
1301 	for (i = 0; i < num_BIOS_serial; i++) {
1302 		ushort_t addr = asy_regs[i].regspec_addr;
1303 
1304 		/* Look for it in the dev_info tree */
1305 		found = 0;
1306 		for (xdip = ddi_get_child(isa_dip); xdip != NULL;
1307 		    xdip = ddi_get_next_sibling(xdip)) {
1308 			if (strncmp(ddi_node_name(xdip), "asy", 3) != 0) {
1309 				/* skip non asy */
1310 				continue;
1311 			}
1312 
1313 			/* Match by addr */
1314 			ret = ddi_prop_lookup_int_array(DDI_DEV_T_ANY, xdip,
1315 			    DDI_PROP_DONTPASS, "reg", (int **)&tmpregs,
1316 			    (uint_t *)&tmpregs_len);
1317 			if (ret != DDI_PROP_SUCCESS) {
1318 				/* error */
1319 				continue;
1320 			}
1321 
1322 			if (tmpregs->regspec_addr == addr)
1323 				found = 1;
1324 
1325 			/*
1326 			 * Free the memory allocated by
1327 			 * ddi_prop_lookup_int_array().
1328 			 */
1329 			ddi_prop_free(tmpregs);
1330 
1331 			if (found)
1332 				break;
1333 		}
1334 
1335 		/* If not found, then add it */
1336 		if (!found && uart_exists(addr)) {
1337 			ndi_devi_alloc_sleep(isa_dip, "asy",
1338 			    (pnode_t)DEVI_SID_NODEID, &xdip);
1339 			(void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip,
1340 			    "compatible", "PNP0500");
1341 			/* This should be gotten from master file: */
1342 			(void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip,
1343 			    "model", "Standard PC COM port");
1344 			(void) ndi_prop_update_int_array(DDI_DEV_T_NONE, xdip,
1345 			    "reg", (int *)&asy_regs[i], 3);
1346 			(void) ndi_prop_update_int(DDI_DEV_T_NONE, xdip,
1347 			    "interrupts", asy_intrs[i]);
1348 			(void) ndi_devi_bind_driver(xdip, 0);
1349 
1350 			ASSERT(isa_extra_count < MAX_EXTRA_RESOURCE);
1351 			bcopy(&asy_regs[i],
1352 			    isa_extra_resource + isa_extra_count,
1353 			    sizeof (struct regspec));
1354 			isa_extra_count++;
1355 		}
1356 	}
1357 
1358 	/*
1359 	 * An asy node may have been attached via ACPI enumeration, or
1360 	 * directly from this file.  Check each serial port to see if it
1361 	 * is in use by the hypervisor.  If it is in use, then remove
1362 	 * the node from the device tree.
1363 	 */
1364 #if defined(__xpv)
1365 	i = 0;
1366 
1367 	for (xdip = ddi_get_child(isa_dip); xdip != NULL; ) {
1368 		dev_info_t *curdip;
1369 
1370 		curdip = xdip;
1371 		xdip = ddi_get_next_sibling(xdip);
1372 
1373 		if (strncmp(ddi_node_name(curdip), "asy", 3) != 0)
1374 			continue;
1375 
1376 		if (cons == CONS_TTY && ttyn == i) {
1377 			ret = ndi_devi_free(curdip);
1378 			if (ret != DDI_SUCCESS) {
1379 				cmn_err(CE_WARN,
1380 				    "could not remove asy%d node", i);
1381 			}
1382 
1383 			cmn_err(CE_NOTE, "!asy%d unavailable, reserved"
1384 			    " to hypervisor", i);
1385 		}
1386 
1387 		i++;
1388 	}
1389 #endif
1390 
1391 }
1392 
1393 /*
1394  * Some machine comes with an illegal parallel port size of 3
1395  * bytes in ACPI, even parallel port mode is ECP.
1396  */
1397 #define	DEFAULT_PRT_SIZE	8
1398 static void
1399 adjust_prtsz(dev_info_t *isa_dip)
1400 {
1401 	dev_info_t *cdip;
1402 	struct regspec *regs_p, *extreg_p;
1403 	int regs_len, nreg, i;
1404 	char *name;
1405 
1406 	for (cdip = ddi_get_child(isa_dip); cdip != NULL;
1407 	    cdip = ddi_get_next_sibling(cdip)) {
1408 		name = ddi_node_name(cdip);
1409 		if ((strncmp(name, "lp", 2) != 0) || (strnlen(name, 3) != 2))
1410 			continue;	/* skip non parallel */
1411 
1412 		if (ddi_prop_lookup_int_array(DDI_DEV_T_ANY, cdip,
1413 		    DDI_PROP_DONTPASS, "reg", (int **)&regs_p,
1414 		    (uint_t *)&regs_len) != DDI_PROP_SUCCESS)
1415 			continue;
1416 
1417 		nreg = regs_len / (sizeof (struct regspec) / sizeof (int));
1418 		for (i = 0; i < nreg; i++) {
1419 			if (regs_p[i].regspec_size == DEFAULT_PRT_SIZE)
1420 				continue;
1421 
1422 			ASSERT(isa_extra_count < MAX_EXTRA_RESOURCE);
1423 			extreg_p = &isa_extra_resource[isa_extra_count++];
1424 			extreg_p->regspec_bustype = ISA_ADDR_IO;
1425 			extreg_p->regspec_addr = regs_p[i].regspec_addr;
1426 			extreg_p->regspec_size = DEFAULT_PRT_SIZE;
1427 		}
1428 
1429 		ddi_prop_free(regs_p);
1430 	}
1431 }
1432