/* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License (the "License"). * You may not use this file except in compliance with the License. * * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE * or http://www.opensolaris.org/os/licensing. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at usr/src/OPENSOLARIS.LICENSE. * If applicable, add the following below this CDDL HEADER, with the * fields enclosed by brackets "[]" replaced with your own identifying * information: Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END */ /* * Copyright 2014 Garrett D'Amore * Copyright (c) 2012 Gary Mills * Copyright (c) 1992, 2010, Oracle and/or its affiliates. All rights reserved. * Copyright 2023 Oxide Computer Company */ /* * ISA bus nexus driver */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #if defined(__xpv) #include #include extern int console_hypervisor_dev_type(int *); #endif extern int pseudo_isa; extern int isa_resource_setup(void); extern int (*psm_intr_ops)(dev_info_t *, ddi_intr_handle_impl_t *, psm_intr_op_t, int *); extern void pci_register_isa_resources(int, uint32_t, uint32_t); static void isa_enumerate(int); static void enumerate_BIOS_serial(dev_info_t *); static void adjust_prtsz(dev_info_t *isa_dip); static void isa_create_ranges_prop(dev_info_t *); #define USED_RESOURCES "used-resources" /* * The following typedef is used to represent an entry in the "ranges" * property of a pci-isa bridge device node. */ typedef struct { uint32_t child_high; uint32_t child_low; uint32_t parent_high; uint32_t parent_mid; uint32_t parent_low; uint32_t size; } pib_ranges_t; typedef struct { uint32_t base; uint32_t len; } used_ranges_t; #define USED_CELL_SIZE 2 /* 1 byte addr, 1 byte size */ #define ISA_ADDR_IO 1 /* IO address space */ #define ISA_ADDR_MEM 0 /* memory adress space */ /* * #define ISA_DEBUG 1 */ #define num_BIOS_serial 4 /* number of BIOS serial ports to look at */ #define min_BIOS_serial 2 /* minimum number of BIOS serial ports */ #define COM_ISR 2 /* 16550 intr status register */ #define COM_SCR 7 /* 16550 scratch register */ /* * For serial ports not enumerated by ACPI, and parallel ports with * illegal size. Typically, a system can have as many as 4 serial * ports and 3 parallel ports. */ #define MAX_EXTRA_RESOURCE 7 static struct regspec isa_extra_resource[MAX_EXTRA_RESOURCE]; static int isa_extra_count = 0; /* Register definitions for COM1 to COM4. */ static struct regspec asy_regs[] = { {1, 0x3f8, 0x8}, {1, 0x2f8, 0x8}, {1, 0x3e8, 0x8}, {1, 0x2e8, 0x8} }; /* Serial port interrupt vectors for COM1 to COM4. */ static int asy_intrs[] = {0x4, 0x3, 0x4, 0x3}; /* Bitfield indicating which interrupts are overridden by eeprom config */ static uchar_t asy_intr_override = 0; /* * Local data */ static ddi_dma_attr_t ISA_dma_attr = { DMA_ATTR_V0, (unsigned long long)0, (unsigned long long)0x00ffffff, 0x0000ffff, 1, 1, 1, (unsigned long long)0xffffffff, (unsigned long long)0x0000ffff, 1, 1, 0 }; /* * Config information */ static int isa_bus_map(dev_info_t *dip, dev_info_t *rdip, ddi_map_req_t *mp, off_t offset, off_t len, caddr_t *vaddrp); static int isa_dma_allochdl(dev_info_t *, dev_info_t *, ddi_dma_attr_t *, int (*waitfp)(caddr_t), caddr_t arg, ddi_dma_handle_t *); static int isa_dma_mctl(dev_info_t *, dev_info_t *, ddi_dma_handle_t, enum ddi_dma_ctlops, off_t *, size_t *, caddr_t *, uint_t); static int isa_ctlops(dev_info_t *, dev_info_t *, ddi_ctl_enum_t, void *, void *); static int isa_intr_ops(dev_info_t *pdip, dev_info_t *rdip, ddi_intr_op_t intr_op, ddi_intr_handle_impl_t *hdlp, void *result); static int isa_alloc_intr_fixed(dev_info_t *, ddi_intr_handle_impl_t *, void *); static int isa_free_intr_fixed(dev_info_t *, ddi_intr_handle_impl_t *); struct bus_ops isa_bus_ops = { BUSO_REV, isa_bus_map, NULL, NULL, NULL, i_ddi_map_fault, NULL, isa_dma_allochdl, ddi_dma_freehdl, ddi_dma_bindhdl, ddi_dma_unbindhdl, ddi_dma_flush, ddi_dma_win, isa_dma_mctl, isa_ctlops, ddi_bus_prop_op, NULL, /* (*bus_get_eventcookie)(); */ NULL, /* (*bus_add_eventcall)(); */ NULL, /* (*bus_remove_eventcall)(); */ NULL, /* (*bus_post_event)(); */ NULL, /* (*bus_intr_ctl)(); */ NULL, /* (*bus_config)(); */ NULL, /* (*bus_unconfig)(); */ NULL, /* (*bus_fm_init)(); */ NULL, /* (*bus_fm_fini)(); */ NULL, /* (*bus_fm_access_enter)(); */ NULL, /* (*bus_fm_access_exit)(); */ NULL, /* (*bus_power)(); */ isa_intr_ops /* (*bus_intr_op)(); */ }; static int isa_attach(dev_info_t *devi, ddi_attach_cmd_t cmd); /* * Internal isa ctlops support routines */ static int isa_initchild(dev_info_t *child); struct dev_ops isa_ops = { DEVO_REV, /* devo_rev, */ 0, /* refcnt */ ddi_no_info, /* info */ nulldev, /* identify */ nulldev, /* probe */ isa_attach, /* attach */ nulldev, /* detach */ nodev, /* reset */ (struct cb_ops *)0, /* driver operations */ &isa_bus_ops, /* bus operations */ NULL, /* power */ ddi_quiesce_not_needed, /* quiesce */ }; /* * Module linkage information for the kernel. */ static struct modldrv modldrv = { &mod_driverops, /* Type of module. This is ISA bus driver */ "isa nexus driver for 'ISA'", &isa_ops, /* driver ops */ }; static struct modlinkage modlinkage = { MODREV_1, &modldrv, NULL }; int _init(void) { int err; char tty_irq_param[9] = "ttyX-irq"; char *tty_irq; int i; if ((err = mod_install(&modlinkage)) != 0) return (err); /* Check if any tty irqs are overridden by eeprom config */ for (i = 0; i < num_BIOS_serial; i++) { tty_irq_param[3] = 'a' + i; if (ddi_prop_lookup_string(DDI_DEV_T_ANY, ddi_root_node(), DDI_PROP_DONTPASS, tty_irq_param, &tty_irq) == DDI_PROP_SUCCESS) { long data; if (ddi_strtol(tty_irq, NULL, 0, &data) == 0) { asy_intrs[i] = (int)data; asy_intr_override |= 1<child_high = (ctyp); \ (rng_p)->child_low = (rng_p)->parent_low = (used_p)->base; \ (rng_p)->parent_high = (ptyp); \ (rng_p)->parent_mid = 0; \ (rng_p)->size = (used_p)->len; \ _NOTE(CONSTCOND) } while (0) static uint_t isa_used_to_ranges(int ctype, int *array, uint_t size, pib_ranges_t *ranges) { used_ranges_t *used_p; pib_ranges_t *rng_p = ranges; uint_t i, ptype; ptype = (ctype == ISA_ADDR_IO) ? PCI_ADDR_IO : PCI_ADDR_MEM32; ptype |= PCI_REG_REL_M; size /= USED_CELL_SIZE; used_p = (used_ranges_t *)array; SET_RNGS(rng_p, used_p, ctype, ptype); for (i = 1, used_p++; i < size; i++, used_p++) { /* merge ranges record if applicable */ if (rng_p->child_low + rng_p->size == used_p->base) rng_p->size += used_p->len; else { rng_p++; SET_RNGS(rng_p, used_p, ctype, ptype); } } return (rng_p - ranges + 1); } void isa_remove_res_from_pci(int type, int *array, uint_t size) { int i; used_ranges_t *used_p; size /= USED_CELL_SIZE; used_p = (used_ranges_t *)array; for (i = 0; i < size; i++, used_p++) pci_register_isa_resources(type, used_p->base, used_p->len); } static void isa_create_ranges_prop(dev_info_t *dip) { dev_info_t *used; int *ioarray, *memarray, status; uint_t nio = 0, nmem = 0, nrng = 0, n; pib_ranges_t *ranges; used = ddi_find_devinfo(USED_RESOURCES, -1, 0); if (used == NULL) { cmn_err(CE_WARN, "Failed to find used-resources <%s>\n", ddi_get_name(dip)); return; } status = ddi_prop_lookup_int_array(DDI_DEV_T_ANY, used, DDI_PROP_DONTPASS, "io-space", &ioarray, &nio); if (status != DDI_PROP_SUCCESS && status != DDI_PROP_NOT_FOUND) { cmn_err(CE_WARN, "io-space property failure for %s (%x)\n", ddi_get_name(used), status); return; } status = ddi_prop_lookup_int_array(DDI_DEV_T_ANY, used, DDI_PROP_DONTPASS, "device-memory", &memarray, &nmem); if (status != DDI_PROP_SUCCESS && status != DDI_PROP_NOT_FOUND) { cmn_err(CE_WARN, "device-memory property failure for %s (%x)\n", ddi_get_name(used), status); return; } n = (nio + nmem) / USED_CELL_SIZE; ranges = (pib_ranges_t *)kmem_zalloc(sizeof (pib_ranges_t) * n, KM_SLEEP); if (nio != 0) { nrng = isa_used_to_ranges(ISA_ADDR_IO, ioarray, nio, ranges); isa_remove_res_from_pci(ISA_ADDR_IO, ioarray, nio); ddi_prop_free(ioarray); } if (nmem != 0) { nrng += isa_used_to_ranges(ISA_ADDR_MEM, memarray, nmem, ranges + nrng); isa_remove_res_from_pci(ISA_ADDR_MEM, memarray, nmem); ddi_prop_free(memarray); } if (!pseudo_isa) (void) ndi_prop_update_int_array(DDI_DEV_T_NONE, dip, "ranges", (int *)ranges, nrng * sizeof (pib_ranges_t) / sizeof (int)); kmem_free(ranges, sizeof (pib_ranges_t) * n); } /*ARGSUSED*/ static int isa_apply_range(dev_info_t *dip, struct regspec *isa_reg_p, pci_regspec_t *pci_reg_p) { pib_ranges_t *ranges, *rng_p; int len, i, offset, nrange; if (ddi_getlongprop(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS, "ranges", (caddr_t)&ranges, &len) != DDI_SUCCESS) { cmn_err(CE_WARN, "Can't get %s ranges property", ddi_get_name(dip)); return (DDI_ME_REGSPEC_RANGE); } nrange = len / sizeof (pib_ranges_t); rng_p = ranges; for (i = 0; i < nrange; i++, rng_p++) { /* Check for correct space */ if (isa_reg_p->regspec_bustype != rng_p->child_high) continue; /* Detect whether request entirely fits within a range */ if (isa_reg_p->regspec_addr < rng_p->child_low) continue; if ((isa_reg_p->regspec_addr + isa_reg_p->regspec_size - 1) > (rng_p->child_low + rng_p->size - 1)) continue; offset = isa_reg_p->regspec_addr - rng_p->child_low; pci_reg_p->pci_phys_hi = rng_p->parent_high; pci_reg_p->pci_phys_mid = 0; pci_reg_p->pci_phys_low = rng_p->parent_low + offset; pci_reg_p->pci_size_hi = 0; pci_reg_p->pci_size_low = isa_reg_p->regspec_size; break; } kmem_free(ranges, len); if (i < nrange) return (DDI_SUCCESS); /* * Check extra resource range specially for serial and parallel * devices, which are treated differently from all other ISA * devices. On some machines, serial ports are not enumerated * by ACPI but by BIOS, with io base addresses noted in legacy * BIOS data area. Parallel port on some machines comes with * illegal size. */ if (isa_reg_p->regspec_bustype != ISA_ADDR_IO) { cmn_err(CE_WARN, "Bus type not ISA I/O\n"); return (DDI_ME_REGSPEC_RANGE); } for (i = 0; i < isa_extra_count; i++) { struct regspec *reg_p = &isa_extra_resource[i]; if (isa_reg_p->regspec_addr < reg_p->regspec_addr) continue; if ((isa_reg_p->regspec_addr + isa_reg_p->regspec_size) > (reg_p->regspec_addr + reg_p->regspec_size)) continue; pci_reg_p->pci_phys_hi = PCI_ADDR_IO | PCI_REG_REL_M; pci_reg_p->pci_phys_mid = 0; pci_reg_p->pci_phys_low = isa_reg_p->regspec_addr; pci_reg_p->pci_size_hi = 0; pci_reg_p->pci_size_low = isa_reg_p->regspec_size; break; } if (i < isa_extra_count) return (DDI_SUCCESS); cmn_err(CE_WARN, "isa_apply_range: Out of range base <0x%x>, size <%d>", isa_reg_p->regspec_addr, isa_reg_p->regspec_size); return (DDI_ME_REGSPEC_RANGE); } static int isa_bus_map(dev_info_t *dip, dev_info_t *rdip, ddi_map_req_t *mp, off_t offset, off_t len, caddr_t *vaddrp) { struct regspec tmp_reg, *rp; pci_regspec_t vreg; ddi_map_req_t mr = *mp; /* Get private copy of request */ int error; if (pseudo_isa) return (i_ddi_bus_map(dip, rdip, mp, offset, len, vaddrp)); mp = &mr; /* * First, if given an rnumber, convert it to a regspec... */ if (mp->map_type == DDI_MT_RNUMBER) { int rnumber = mp->map_obj.rnumber; rp = i_ddi_rnumber_to_regspec(rdip, rnumber); if (rp == (struct regspec *)0) return (DDI_ME_RNUMBER_RANGE); /* * Convert the given ddi_map_req_t from rnumber to regspec... */ mp->map_type = DDI_MT_REGSPEC; mp->map_obj.rp = rp; } /* * Adjust offset and length correspnding to called values... * XXX: A non-zero length means override the one in the regspec. * XXX: (Regardless of what's in the parent's range) */ tmp_reg = *(mp->map_obj.rp); /* Preserve underlying data */ rp = mp->map_obj.rp = &tmp_reg; /* Use tmp_reg in request */ rp->regspec_addr += (uint_t)offset; if (len != 0) rp->regspec_size = (uint_t)len; if ((error = isa_apply_range(dip, rp, &vreg)) != 0) return (error); mp->map_obj.rp = (struct regspec *)&vreg; /* * Call my parents bus_map function with modified values... */ return (ddi_map(dip, mp, (off_t)0, (off_t)0, vaddrp)); } static int isa_dma_allochdl(dev_info_t *dip, dev_info_t *rdip, ddi_dma_attr_t *dma_attr, int (*waitfp)(caddr_t), caddr_t arg, ddi_dma_handle_t *handlep) { ddi_dma_attr_merge(dma_attr, &ISA_dma_attr); return (ddi_dma_allochdl(dip, rdip, dma_attr, waitfp, arg, handlep)); } static int isa_dma_mctl(dev_info_t *dip, dev_info_t *rdip, ddi_dma_handle_t handle, enum ddi_dma_ctlops request, off_t *offp, size_t *lenp, caddr_t *objp, uint_t flags) { int rval; int arg = (int)(uintptr_t)objp; switch (request) { case DDI_DMA_E_PROG: return (i_dmae_prog(rdip, (struct ddi_dmae_req *)offp, (ddi_dma_cookie_t *)lenp, arg)); case DDI_DMA_E_ACQUIRE: return (i_dmae_acquire(rdip, arg, (int(*)(caddr_t))offp, (caddr_t)lenp)); case DDI_DMA_E_FREE: return (i_dmae_free(rdip, arg)); case DDI_DMA_E_STOP: i_dmae_stop(rdip, arg); return (DDI_SUCCESS); case DDI_DMA_E_ENABLE: i_dmae_enable(rdip, arg); return (DDI_SUCCESS); case DDI_DMA_E_DISABLE: i_dmae_disable(rdip, arg); return (DDI_SUCCESS); case DDI_DMA_E_GETCNT: i_dmae_get_chan_stat(rdip, arg, NULL, (int *)lenp); return (DDI_SUCCESS); case DDI_DMA_E_SWSETUP: return (i_dmae_swsetup(rdip, (struct ddi_dmae_req *)offp, (ddi_dma_cookie_t *)lenp, arg)); case DDI_DMA_E_SWSTART: i_dmae_swstart(rdip, arg); return (DDI_SUCCESS); case DDI_DMA_E_GETATTR: bcopy(&ISA_dma_attr, objp, sizeof (ddi_dma_attr_t)); return (DDI_SUCCESS); case DDI_DMA_E_1STPTY: { struct ddi_dmae_req req1stpty = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; if (arg == 0) { req1stpty.der_command = DMAE_CMD_TRAN; req1stpty.der_trans = DMAE_TRANS_DMND; } else { req1stpty.der_trans = DMAE_TRANS_CSCD; } return (i_dmae_prog(rdip, &req1stpty, NULL, arg)); } default: /* * We pass to rootnex, but it turns out that rootnex will just * return failure, as we don't use ddi_dma_mctl() except * for DMA engine (ISA) and DVMA (SPARC). Arguably we could * just return an error direclty here, instead. */ rval = ddi_dma_mctl(dip, rdip, handle, request, offp, lenp, objp, flags); } return (rval); } /* * Check if driver should be treated as an old pre 2.6 driver */ static int old_driver(dev_info_t *dip) { extern int ignore_hardware_nodes; /* force flag from ddi_impl.c */ if (ndi_dev_is_persistent_node(dip)) { if (ignore_hardware_nodes) return (1); if (ddi_getprop(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS, "ignore-hardware-nodes", -1) != -1) return (1); } return (0); } typedef struct { uint32_t phys_hi; uint32_t phys_lo; uint32_t size; } isa_regs_t; /* * Return non-zero if device in tree is a PnP isa device */ static int is_pnpisa(dev_info_t *dip) { isa_regs_t *isa_regs; int proplen, pnpisa; if (ddi_getlongprop(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS, "reg", (caddr_t)&isa_regs, &proplen) != DDI_PROP_SUCCESS) { return (0); } pnpisa = isa_regs[0].phys_hi & 0x80000000; /* * free the memory allocated by ddi_getlongprop(). */ kmem_free(isa_regs, proplen); if (pnpisa) return (1); else return (0); } /*ARGSUSED*/ static int isa_ctlops(dev_info_t *dip, dev_info_t *rdip, ddi_ctl_enum_t ctlop, void *arg, void *result) { int rn; struct ddi_parent_private_data *pdp; switch (ctlop) { case DDI_CTLOPS_REPORTDEV: if (rdip == (dev_info_t *)0) return (DDI_FAILURE); cmn_err(CE_CONT, "?ISA-device: %s%d\n", ddi_driver_name(rdip), ddi_get_instance(rdip)); return (DDI_SUCCESS); case DDI_CTLOPS_INITCHILD: /* * older drivers aren't expecting the "standard" device * node format used by the hardware nodes. these drivers * only expect their own properties set in their driver.conf * files. so they tell us not to call them with hardware * nodes by setting the property "ignore-hardware-nodes". */ if (old_driver((dev_info_t *)arg)) { return (DDI_NOT_WELL_FORMED); } return (isa_initchild((dev_info_t *)arg)); case DDI_CTLOPS_UNINITCHILD: impl_ddi_sunbus_removechild((dev_info_t *)arg); return (DDI_SUCCESS); case DDI_CTLOPS_SIDDEV: if (ndi_dev_is_persistent_node(rdip)) return (DDI_SUCCESS); /* * All ISA devices need to do confirming probes * unless they are PnP ISA. */ if (is_pnpisa(rdip)) return (DDI_SUCCESS); else return (DDI_FAILURE); case DDI_CTLOPS_REGSIZE: case DDI_CTLOPS_NREGS: if (rdip == (dev_info_t *)0) return (DDI_FAILURE); if ((pdp = ddi_get_parent_data(rdip)) == NULL) return (DDI_FAILURE); if (ctlop == DDI_CTLOPS_NREGS) { *(int *)result = pdp->par_nreg; } else { rn = *(int *)arg; if (rn >= pdp->par_nreg) return (DDI_FAILURE); *(off_t *)result = (off_t)pdp->par_reg[rn].regspec_size; } return (DDI_SUCCESS); case DDI_CTLOPS_ATTACH: case DDI_CTLOPS_DETACH: case DDI_CTLOPS_PEEK: case DDI_CTLOPS_POKE: return (DDI_FAILURE); default: return (ddi_ctlops(dip, rdip, ctlop, arg, result)); } } static struct intrspec * isa_get_ispec(dev_info_t *rdip, int inum) { struct ddi_parent_private_data *pdp = ddi_get_parent_data(rdip); /* Validate the interrupt number */ if (inum >= pdp->par_nintr) return (NULL); /* Get the interrupt structure pointer and return that */ return ((struct intrspec *)&pdp->par_intr[inum]); } static int isa_intr_ops(dev_info_t *pdip, dev_info_t *rdip, ddi_intr_op_t intr_op, ddi_intr_handle_impl_t *hdlp, void *result) { struct intrspec *ispec; #if defined(__xpv) int cons, ttyn; cons = console_hypervisor_dev_type(&ttyn); #endif if (pseudo_isa) return (i_ddi_intr_ops(pdip, rdip, intr_op, hdlp, result)); /* Process the interrupt operation */ switch (intr_op) { case DDI_INTROP_GETCAP: /* First check with pcplusmp */ if (psm_intr_ops == NULL) return (DDI_FAILURE); if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_GET_CAP, result)) { *(int *)result = 0; return (DDI_FAILURE); } break; case DDI_INTROP_SETCAP: if (psm_intr_ops == NULL) return (DDI_FAILURE); if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_SET_CAP, result)) return (DDI_FAILURE); break; case DDI_INTROP_ALLOC: ASSERT(hdlp->ih_type == DDI_INTR_TYPE_FIXED); return (isa_alloc_intr_fixed(rdip, hdlp, result)); case DDI_INTROP_FREE: ASSERT(hdlp->ih_type == DDI_INTR_TYPE_FIXED); return (isa_free_intr_fixed(rdip, hdlp)); case DDI_INTROP_GETPRI: if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL) return (DDI_FAILURE); *(int *)result = ispec->intrspec_pri; break; case DDI_INTROP_SETPRI: /* Validate the interrupt priority passed to us */ if (*(int *)result > LOCK_LEVEL) return (DDI_FAILURE); /* Ensure that PSM is all initialized and ispec is ok */ if ((psm_intr_ops == NULL) || ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL)) return (DDI_FAILURE); /* update the ispec with the new priority */ ispec->intrspec_pri = *(int *)result; break; case DDI_INTROP_ADDISR: if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL) return (DDI_FAILURE); ispec->intrspec_func = hdlp->ih_cb_func; break; case DDI_INTROP_REMISR: if (hdlp->ih_type != DDI_INTR_TYPE_FIXED) return (DDI_FAILURE); if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL) return (DDI_FAILURE); ispec->intrspec_func = (uint_t (*)()) 0; break; case DDI_INTROP_ENABLE: if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL) return (DDI_FAILURE); /* Call psmi to translate irq with the dip */ if (psm_intr_ops == NULL) return (DDI_FAILURE); #if defined(__xpv) /* * if the hypervisor is using an isa serial port for the * console, make sure we don't try to use that interrupt as * it will cause us to panic when xen_bind_pirq() fails. */ if (cons == CONS_TTY && ispec->intrspec_vec == asy_intrs[ttyn]) return (DDI_FAILURE); #endif ((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec; if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_XLATE_VECTOR, (int *)&hdlp->ih_vector) == PSM_FAILURE) return (DDI_FAILURE); /* Add the interrupt handler */ if (!add_avintr((void *)hdlp, ispec->intrspec_pri, hdlp->ih_cb_func, DEVI(rdip)->devi_name, hdlp->ih_vector, hdlp->ih_cb_arg1, hdlp->ih_cb_arg2, NULL, rdip)) return (DDI_FAILURE); break; case DDI_INTROP_DISABLE: if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL) return (DDI_FAILURE); /* Call psm_ops() to translate irq with the dip */ if (psm_intr_ops == NULL) return (DDI_FAILURE); ((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec; (void) (*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_XLATE_VECTOR, (int *)&hdlp->ih_vector); /* Remove the interrupt handler */ rem_avintr((void *)hdlp, ispec->intrspec_pri, hdlp->ih_cb_func, hdlp->ih_vector); break; case DDI_INTROP_SETMASK: if (psm_intr_ops == NULL) return (DDI_FAILURE); if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_SET_MASK, NULL)) return (DDI_FAILURE); break; case DDI_INTROP_CLRMASK: if (psm_intr_ops == NULL) return (DDI_FAILURE); if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_CLEAR_MASK, NULL)) return (DDI_FAILURE); break; case DDI_INTROP_GETPENDING: if (psm_intr_ops == NULL) return (DDI_FAILURE); if ((*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_GET_PENDING, result)) { *(int *)result = 0; return (DDI_FAILURE); } break; case DDI_INTROP_NAVAIL: case DDI_INTROP_NINTRS: *(int *)result = i_ddi_get_intx_nintrs(rdip); if (*(int *)result == 0) { return (DDI_FAILURE); } break; case DDI_INTROP_SUPPORTED_TYPES: *(int *)result = DDI_INTR_TYPE_FIXED; /* Always ... */ break; default: return (DDI_FAILURE); } return (DDI_SUCCESS); } /* * Allocate interrupt vector for FIXED (legacy) type. */ static int isa_alloc_intr_fixed(dev_info_t *rdip, ddi_intr_handle_impl_t *hdlp, void *result) { struct intrspec *ispec; ddi_intr_handle_impl_t info_hdl; int ret; int free_phdl = 0; apic_get_type_t type_info; if (psm_intr_ops == NULL) return (DDI_FAILURE); if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL) return (DDI_FAILURE); /* * If the PSM module is "APIX" then pass the request for it * to allocate the vector now. */ bzero(&info_hdl, sizeof (ddi_intr_handle_impl_t)); info_hdl.ih_private = &type_info; if ((*psm_intr_ops)(NULL, &info_hdl, PSM_INTR_OP_APIC_TYPE, NULL) == PSM_SUCCESS && strcmp(type_info.avgi_type, APIC_APIX_NAME) == 0) { if (hdlp->ih_private == NULL) { /* allocate phdl structure */ free_phdl = 1; i_ddi_alloc_intr_phdl(hdlp); } ((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec; ret = (*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_ALLOC_VECTORS, result); if (free_phdl) { /* free up the phdl structure */ free_phdl = 0; i_ddi_free_intr_phdl(hdlp); hdlp->ih_private = NULL; } } else { /* * No APIX module; fall back to the old scheme where the * interrupt vector is allocated during ddi_enable_intr() call. */ hdlp->ih_pri = ispec->intrspec_pri; *(int *)result = hdlp->ih_scratch1; ret = DDI_SUCCESS; } return (ret); } /* * Free up interrupt vector for FIXED (legacy) type. */ static int isa_free_intr_fixed(dev_info_t *rdip, ddi_intr_handle_impl_t *hdlp) { struct intrspec *ispec; ddi_intr_handle_impl_t info_hdl; int ret; apic_get_type_t type_info; if (psm_intr_ops == NULL) return (DDI_FAILURE); /* * If the PSM module is "APIX" then pass the request for it * to free up the vector now. */ bzero(&info_hdl, sizeof (ddi_intr_handle_impl_t)); info_hdl.ih_private = &type_info; if ((*psm_intr_ops)(NULL, &info_hdl, PSM_INTR_OP_APIC_TYPE, NULL) == PSM_SUCCESS && strcmp(type_info.avgi_type, APIC_APIX_NAME) == 0) { if ((ispec = isa_get_ispec(rdip, hdlp->ih_inum)) == NULL) return (DDI_FAILURE); ((ihdl_plat_t *)hdlp->ih_private)->ip_ispecp = ispec; ret = (*psm_intr_ops)(rdip, hdlp, PSM_INTR_OP_FREE_VECTORS, NULL); } else { /* * No APIX module; fall back to the old scheme where * the interrupt vector was already freed during * ddi_disable_intr() call. */ ret = DDI_SUCCESS; } return (ret); } static void isa_vendor(uint32_t id, char *vendor) { vendor[0] = '@' + ((id >> 26) & 0x1f); vendor[1] = '@' + ((id >> 21) & 0x1f); vendor[2] = '@' + ((id >> 16) & 0x1f); vendor[3] = 0; } /* * Name a child */ static int isa_name_child(dev_info_t *child, char *name, int namelen) { char vendor[8]; int device; uint32_t serial; int func; int bustype; uint32_t base; int proplen; int pnpisa = 0; isa_regs_t *isa_regs; void make_ddi_ppd(dev_info_t *, struct ddi_parent_private_data **); /* * older drivers aren't expecting the "standard" device * node format used by the hardware nodes. these drivers * only expect their own properties set in their driver.conf * files. so they tell us not to call them with hardware * nodes by setting the property "ignore-hardware-nodes". */ if (old_driver(child)) return (DDI_FAILURE); /* * Fill in parent-private data */ if (ddi_get_parent_data(child) == NULL) { struct ddi_parent_private_data *pdptr; make_ddi_ppd(child, &pdptr); ddi_set_parent_data(child, pdptr); } if (ndi_dev_is_persistent_node(child) == 0) { /* * For .conf nodes, generate name from parent private data */ name[0] = '\0'; if (sparc_pd_getnreg(child) > 0) { (void) snprintf(name, namelen, "%x,%x", (uint_t)sparc_pd_getreg(child, 0)->regspec_bustype, (uint_t)sparc_pd_getreg(child, 0)->regspec_addr); } return (DDI_SUCCESS); } /* * For hw nodes, look up "reg" property */ if (ddi_getlongprop(DDI_DEV_T_ANY, child, DDI_PROP_DONTPASS, "reg", (caddr_t)&isa_regs, &proplen) != DDI_PROP_SUCCESS) { return (DDI_FAILURE); } /* * extract the device identifications */ pnpisa = isa_regs[0].phys_hi & 0x80000000; if (pnpisa) { isa_vendor(isa_regs[0].phys_hi, vendor); device = isa_regs[0].phys_hi & 0xffff; serial = isa_regs[0].phys_lo; func = (isa_regs[0].size >> 24) & 0xff; if (func != 0) (void) snprintf(name, namelen, "pnp%s,%04x,%x,%x", vendor, device, serial, func); else (void) snprintf(name, namelen, "pnp%s,%04x,%x", vendor, device, serial); } else { bustype = isa_regs[0].phys_hi; base = isa_regs[0].phys_lo; (void) sprintf(name, "%x,%x", bustype, base); } /* * free the memory allocated by ddi_getlongprop(). */ kmem_free(isa_regs, proplen); return (DDI_SUCCESS); } static int isa_initchild(dev_info_t *child) { char name[80]; if (isa_name_child(child, name, 80) != DDI_SUCCESS) return (DDI_FAILURE); ddi_set_name_addr(child, name); if (ndi_dev_is_persistent_node(child) != 0) return (DDI_SUCCESS); /* * This is a .conf node, try merge properties onto a * hw node with the same name. */ if (ndi_merge_node(child, isa_name_child) == DDI_SUCCESS) { /* * Return failure to remove node */ impl_ddi_sunbus_removechild(child); return (DDI_FAILURE); } /* * Cannot merge node, permit pseudo children */ return (DDI_SUCCESS); } /* * called when ACPI enumeration is not used */ static void add_known_used_resources(void) { /* needs to be in increasing order */ int intr[] = {0x1, 0x3, 0x4, 0x6, 0x7, 0xc}; int dma[] = {0x2}; int io[] = {0x60, 0x1, 0x64, 0x1, 0x2f8, 0x8, 0x378, 0x8, 0x3f0, 0x10, 0x778, 0x4}; dev_info_t *usedrdip; usedrdip = ddi_find_devinfo(USED_RESOURCES, -1, 0); if (usedrdip == NULL) { (void) ndi_devi_alloc_sleep(ddi_root_node(), USED_RESOURCES, (pnode_t)DEVI_SID_NODEID, &usedrdip); } (void) ndi_prop_update_int_array(DDI_DEV_T_NONE, usedrdip, "interrupts", (int *)intr, (int)(sizeof (intr) / sizeof (int))); (void) ndi_prop_update_int_array(DDI_DEV_T_NONE, usedrdip, "io-space", (int *)io, (int)(sizeof (io) / sizeof (int))); (void) ndi_prop_update_int_array(DDI_DEV_T_NONE, usedrdip, "dma-channels", (int *)dma, (int)(sizeof (dma) / sizeof (int))); (void) ndi_devi_bind_driver(usedrdip, 0); } /* * Return non-zero if UART device exists. */ static int uart_exists(ushort_t port) { outb(port + COM_SCR, (char)0x5a); outb(port + COM_ISR, (char)0x00); return (inb(port + COM_SCR) == (char)0x5a); } static void isa_enumerate(int reprogram) { int i; dev_info_t *xdip; dev_info_t *isa_dip = ddi_find_devinfo("isa", -1, 0); struct regspec i8042_regs[] = { {1, 0x60, 0x1}, {1, 0x64, 0x1} }; int i8042_intrs[] = {0x1, 0xc}; char *acpi_prop; int acpi_enum = 1; /* ACPI is default to be on */ #if defined(__xpv) int cons, ttyn; cons = console_hypervisor_dev_type(&ttyn); #endif if (reprogram || !isa_dip) return; bzero(isa_extra_resource, MAX_EXTRA_RESOURCE * sizeof (struct regspec)); ndi_devi_enter(isa_dip); /* * Check whether ACPI enumeration is disabled. * * Note this property may also be set if ACPI ISA enumeration has * failed, to communicate that to the i8042 nexus. */ if (ddi_prop_lookup_string(DDI_DEV_T_ANY, ddi_root_node(), DDI_PROP_DONTPASS, "acpi-enum", &acpi_prop) == DDI_PROP_SUCCESS) { /* 0 == match == false */ acpi_enum = strcmp("off", acpi_prop); ddi_prop_free(acpi_prop); } if (acpi_enum != 0) { if (acpi_isa_device_enum(isa_dip)) { ndi_devi_exit(isa_dip); if (isa_resource_setup() != NDI_SUCCESS) { cmn_err(CE_WARN, "isa nexus: isa " "resource setup failed"); } /* serial ports? */ enumerate_BIOS_serial(isa_dip); /* adjust parallel port size */ adjust_prtsz(isa_dip); isa_create_ranges_prop(isa_dip); return; } cmn_err(CE_NOTE, "!Solaris did not detect ACPI BIOS"); } cmn_err(CE_NOTE, "!ACPI is off"); /* serial ports */ for (i = 0; i < min_BIOS_serial; i++) { ushort_t addr = asy_regs[i].regspec_addr; if (!uart_exists(addr)) continue; #if defined(__xpv) if (cons == CONS_TTY && ttyn == i) continue; #endif ndi_devi_alloc_sleep(isa_dip, "asy", (pnode_t)DEVI_SID_NODEID, &xdip); (void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip, "compatible", "pnpPNP,500"); (void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip, "model", "Standard PC COM port"); (void) ndi_prop_update_int_array(DDI_DEV_T_NONE, xdip, "reg", (int *)&asy_regs[i], 3); (void) ndi_prop_update_int(DDI_DEV_T_NONE, xdip, "interrupts", asy_intrs[i]); (void) ndi_devi_bind_driver(xdip, 0); /* Adjusting isa_extra here causes a kernel dump later. */ } /* i8042 node */ ndi_devi_alloc_sleep(isa_dip, "i8042", (pnode_t)DEVI_SID_NODEID, &xdip); (void) ndi_prop_update_int_array(DDI_DEV_T_NONE, xdip, "reg", (int *)i8042_regs, 6); (void) ndi_prop_update_int_array(DDI_DEV_T_NONE, xdip, "interrupts", (int *)i8042_intrs, 2); (void) ndi_prop_update_string(DDI_DEV_T_NONE, xdip, "unit-address", "1,60"); (void) ndi_devi_bind_driver(xdip, 0); add_known_used_resources(); ndi_devi_exit(isa_dip); isa_create_ranges_prop(isa_dip); } /* * On some machines, serial port 2 isn't listed in the ACPI table. * This function goes through the base I/O addresses and makes sure all * the serial ports there are in the dev_info tree. If any are missing, * this function will add them. */ static void enumerate_BIOS_serial(dev_info_t *isa_dip) { int i; dev_info_t *xdip; int found; int ret; struct regspec *tmpregs; int tmpregs_len; #if defined(__xpv) int cons, ttyn; cons = console_hypervisor_dev_type(&ttyn); #endif /* * Scan the base I/O addresses of the first four serial ports. */ for (i = 0; i < num_BIOS_serial; i++) { ushort_t addr = asy_regs[i].regspec_addr; /* Look for it in the dev_info tree */ found = 0; for (xdip = ddi_get_child(isa_dip); xdip != NULL; xdip = ddi_get_next_sibling(xdip)) { if (strncmp(ddi_node_name(xdip), "asy", 3) != 0) { /* skip non asy */ continue; } /* Match by addr */ ret = ddi_prop_lookup_int_array(DDI_DEV_T_ANY, xdip, DDI_PROP_DONTPASS, "reg", (int **)&tmpregs, (uint_t *)&tmpregs_len); if (ret != DDI_PROP_SUCCESS) { /* error */ continue; } if (tmpregs->regspec_addr == addr) found = 1; /* * Free the memory allocated by * ddi_prop_lookup_int_array(). */ ddi_prop_free(tmpregs); if (found) { if (asy_intr_override & 1<regspec_bustype = ISA_ADDR_IO; extreg_p->regspec_addr = regs_p[i].regspec_addr; extreg_p->regspec_size = DEFAULT_PRT_SIZE; } ddi_prop_free(regs_p); } }