sys/bus/pci/pci_compat.c

   1 /*
   2  * Copyright (c) 1997, Stefan Esser <se@freebsd.org>
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice unmodified, this list of conditions, and the following
  10  *    disclaimer.
  11  * 2. Redistributions in binary form must reproduce the above copyright
  12  *    notice, this list of conditions and the following disclaimer in the
  13  *    documentation and/or other materials provided with the distribution.
  14  *
  15  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  16  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  17  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  18  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  19  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  20  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  21  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  22  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  23  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  24  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  25  *
  26  * $FreeBSD: src/sys/pci/pci_compat.c,v 1.35.2.1 2001/10/14 21:14:14 luigi Exp $
  27  * $DragonFly: src/sys/bus/pci/pci_compat.c,v 1.4 2004/01/07 18:13:19 joerg Exp $
  28  *
  29  */
  30
  31 #include "opt_bus.h"
  32
  33 /* for compatibility to FreeBSD-2.2 and 3.x versions of PCI code */
  34
  35 #include <sys/param.h>
  36 #include <sys/systm.h>
  37 #include <sys/malloc.h>
  38 #include <sys/module.h>
  39
  40 #include <vm/vm.h>
  41 #include <vm/pmap.h>
  42
  43 #include <sys/bus.h>
  44 #include <machine/bus.h>
  45 #include <sys/rman.h>
  46 #include <machine/resource.h>
  47 #include <sys/interrupt.h>
  48
  49 #include <sys/pciio.h>
  50 #include "pcireg.h"
  51 #include "pcivar.h"
  52
  53 #ifdef APIC_IO
  54 #include <machine/smp.h>
  55 #endif
  56
  57 /* ------------------------------------------------------------------------- */
  58
  59 u_long
  60 pci_conf_read(pcici_t cfg, u_long reg)
  61 {
  62         return (pci_read_config(cfg->dev, reg, 4));
  63 }
  64
  65 void
  66 pci_conf_write(pcici_t cfg, u_long reg, u_long data)
  67 {
  68         pci_write_config(cfg->dev, reg, data, 4);
  69 }
  70
  71 int
  72 pci_map_port(pcici_t cfg, u_long reg, pci_port_t* pa)
  73 {
  74         int rid;
  75         struct resource *res;
  76
  77         rid = reg;
  78         res = bus_alloc_resource(cfg->dev, SYS_RES_IOPORT, &rid,
  79                                  0, ~0, 1, RF_ACTIVE);
  80         if (res) {
  81                 *pa = rman_get_start(res);
  82                 return (1);
  83         }
  84         return (0);
  85 }
  86
  87 int
  88 pci_map_mem(pcici_t cfg, u_long reg, vm_offset_t* va, vm_offset_t* pa)
  89 {
  90         int rid;
  91         struct resource *res;
  92
  93         rid = reg;
  94         res = bus_alloc_resource(cfg->dev, SYS_RES_MEMORY, &rid,
  95                                  0, ~0, 1, RF_ACTIVE);
  96         if (res) {
  97                 *pa = rman_get_start(res);
  98                 *va = (vm_offset_t) rman_get_virtual(res);
  99                 return (1);
 100         }
 101         return (0);
 102 }
 103
 104 int
 105 pci_map_int(pcici_t cfg, pci_inthand_t *handler, void *arg, intrmask_t *maskptr)
 106 {
 107         return (pci_map_int_right(cfg, handler, arg, maskptr, 0));
 108 }
 109
 110 int
 111 pci_map_int_right(pcici_t cfg, pci_inthand_t *handler, void *arg,
 112                   intrmask_t *maskptr, u_int intflags)
 113 {
 114         int error;
 115 #ifdef APIC_IO
 116         int nextpin, muxcnt;
 117 #endif
 118         if (cfg->intpin != 0) {
 119                 int irq = cfg->intline;
 120                 int rid = 0;
 121                 struct resource *res;
 122                 int flags = 0;
 123                 int resflags = RF_SHAREABLE|RF_ACTIVE;
 124                 void *ih;
 125
 126 #ifdef INTR_FAST
 127                 if (intflags & INTR_FAST)
 128                         flags |= INTR_TYPE_FAST;
 129                 if (intflags & INTR_EXCL)
 130                         resflags &= ~RF_SHAREABLE;
 131 #endif
 132
 133                 res = bus_alloc_resource(cfg->dev, SYS_RES_IRQ, &rid,
 134                                          irq, irq, 1, resflags);
 135                 if (!res) {
 136                         printf("pci_map_int: can't allocate interrupt\n");
 137                         return 0;
 138                 }
 139
 140                 /*
 141                  * This is ugly. Translate the mask into an interrupt type.
 142                  */
 143                 if (maskptr == &tty_imask)
 144                         flags |= INTR_TYPE_TTY;
 145                 else if (maskptr == &bio_imask)
 146                         flags |= INTR_TYPE_BIO;
 147                 else if (maskptr == &net_imask)
 148                         flags |= INTR_TYPE_NET;
 149                 else if (maskptr == &cam_imask)
 150                         flags |= INTR_TYPE_CAM;
 151
 152                 error = BUS_SETUP_INTR(device_get_parent(cfg->dev), cfg->dev,
 153                                        res, flags, handler, arg, &ih);
 154                 if (error != 0)
 155                         return 0;
 156
 157 #ifdef NEW_BUS_PCI
 158                 /*
 159                  * XXX this apic stuff looks totally busted.  It should
 160                  * move to the nexus code which actually registers the
 161                  * interrupt.
 162                  */
 163 #endif
 164
 165 #ifdef APIC_IO
 166                 nextpin = next_apic_irq(irq);
 167
 168                 if (nextpin < 0)
 169                         return 1;
 170
 171                 /*
 172                  * Attempt handling of some broken mp tables.
 173                  *
 174                  * It's OK to yell (since the mp tables are broken).
 175                  *
 176                  * Hanging in the boot is not OK
 177                  */
 178
 179                 muxcnt = 2;
 180                 nextpin = next_apic_irq(nextpin);
 181                 while (muxcnt < 5 && nextpin >= 0) {
 182                         muxcnt++;
 183                         nextpin = next_apic_irq(nextpin);
 184                 }
 185                 if (muxcnt >= 5) {
 186                         printf("bogus MP table, more than 4 IO APIC pins connected to the same PCI device or ISA/EISA interrupt\n");
 187                         return 0;
 188                 }
 189
 190                 printf("bogus MP table, %d IO APIC pins connected to the same PCI device or ISA/EISA interrupt\n", muxcnt);
 191
 192                 nextpin = next_apic_irq(irq);
 193                 while (nextpin >= 0) {
 194                         rid = 0;
 195                         res = bus_alloc_resource(cfg->dev, SYS_RES_IRQ, &rid,
 196                                                  nextpin, nextpin, 1,
 197                                                  resflags);
 198                         if (!res) {
 199                                 printf("pci_map_int: can't allocate extra interrupt\n");
 200                                 return 0;
 201                         }
 202                         error = BUS_SETUP_INTR(device_get_parent(cfg->dev),
 203                                                cfg->dev, res, flags,
 204                                                handler, arg, &ih);
 205                         if (error != 0) {
 206                                 printf("pci_map_int: BUS_SETUP_INTR failed\n");
 207                                 return 0;
 208                         }
 209                         printf("Registered extra interrupt handler for int %d (in addition to int %d)\n", nextpin, irq);
 210                         nextpin = next_apic_irq(nextpin);
 211                 }
 212 #endif
 213         }
 214         return (1);
 215 }
 216
 217 int
 218 pci_unmap_int(pcici_t cfg)
 219 {
 220         return (0); /* not supported, yet, since cfg doesn't know about idesc */
 221 }
 222
 223 pcici_t
 224 pci_get_parent_from_tag(pcici_t tag)
 225 {
 226         return (pcici_t)pci_devlist_get_parent(tag);
 227 }
 228
 229 int
 230 pci_get_bus_from_tag(pcici_t tag)
 231 {
 232         return tag->bus;
 233 }
 234
 235 /*
 236  * A simple driver to wrap the old pci driver mechanism for back-compat.
 237  */
 238
 239 static int
 240 pci_compat_probe(device_t dev)
 241 {
 242         struct pci_device *dvp;
 243         struct pci_devinfo *dinfo;
 244         pcicfgregs *cfg;
 245         const char *name;
 246         int error;
 247
 248         dinfo = device_get_ivars(dev);
 249         cfg = &dinfo->cfg;
 250         dvp = device_get_driver(dev)->priv;
 251
 252         /*
 253          * Do the wrapped probe.
 254          */
 255         error = ENXIO;
 256         if (dvp && dvp->pd_probe) {
 257                 name = dvp->pd_probe(cfg, (cfg->device << 16) + cfg->vendor);
 258                 if (name) {
 259                         device_set_desc_copy(dev, name);
 260                         /* Allow newbus drivers to match "better" */
 261                         error = -200;
 262                 }
 263         }
 264
 265         return error;
 266 }
 267
 268 static int
 269 pci_compat_attach(device_t dev)
 270 {
 271         struct pci_device *dvp;
 272         struct pci_devinfo *dinfo;
 273         pcicfgregs *cfg;
 274         int unit;
 275
 276         dinfo = device_get_ivars(dev);
 277         cfg = &dinfo->cfg;
 278         dvp = device_get_driver(dev)->priv;
 279
 280         unit = device_get_unit(dev);
 281         if (unit > *dvp->pd_count)
 282                 *dvp->pd_count = unit;
 283         if (dvp->pd_attach)
 284                 dvp->pd_attach(cfg, unit);
 285         device_printf(dev, "driver is using old-style compatability shims\n");
 286         return 0;
 287 }
 288
 289 static device_method_t pci_compat_methods[] = {
 290         /* Device interface */
 291         DEVMETHOD(device_probe,         pci_compat_probe),
 292         DEVMETHOD(device_attach,        pci_compat_attach),
 293
 294         { 0, 0 }
 295 };
 296
 297 /*
 298  * Create a new style driver around each old pci driver.
 299  */
 300 int
 301 compat_pci_handler(module_t mod, int type, void *data)
 302 {
 303         struct pci_device *dvp = (struct pci_device *)data;
 304         driver_t *driver;
 305         devclass_t pci_devclass = devclass_find("pci");
 306
 307         switch (type) {
 308         case MOD_LOAD:
 309                 driver = malloc(sizeof(driver_t), M_DEVBUF, M_NOWAIT);
 310                 if (!driver)
 311                         return ENOMEM;
 312                 bzero(driver, sizeof(driver_t));
 313                 driver->name = dvp->pd_name;
 314                 driver->methods = pci_compat_methods;
 315                 driver->size = sizeof(struct pci_devinfo *);
 316                 driver->priv = dvp;
 317                 devclass_add_driver(pci_devclass, driver);
 318                 break;
 319         case MOD_UNLOAD:
 320                 printf("%s: module unload not supported!\n", dvp->pd_name);
 321                 return EOPNOTSUPP;
 322         default:
 323                 break;
 324         }
 325         return 0;
 326 }