Home | History | Annotate | Line # | Download | only in pci
pcibios.c revision 1.24
      1  1.24    sekiya /*	$NetBSD: pcibios.c,v 1.24 2005/06/21 06:51:29 sekiya Exp $	*/
      2   1.1   thorpej 
      3   1.1   thorpej /*-
      4   1.1   thorpej  * Copyright (c) 1999 The NetBSD Foundation, Inc.
      5   1.1   thorpej  * All rights reserved.
      6   1.1   thorpej  *
      7   1.1   thorpej  * This code is derived from software contributed to The NetBSD Foundation
      8   1.1   thorpej  * by Jason R. Thorpe of the Numerical Aerospace Simulation Facility,
      9   1.1   thorpej  * NASA Ames Research Center.
     10   1.1   thorpej  *
     11   1.1   thorpej  * Redistribution and use in source and binary forms, with or without
     12   1.1   thorpej  * modification, are permitted provided that the following conditions
     13   1.1   thorpej  * are met:
     14   1.1   thorpej  * 1. Redistributions of source code must retain the above copyright
     15   1.1   thorpej  *    notice, this list of conditions and the following disclaimer.
     16   1.1   thorpej  * 2. Redistributions in binary form must reproduce the above copyright
     17   1.1   thorpej  *    notice, this list of conditions and the following disclaimer in the
     18   1.1   thorpej  *    documentation and/or other materials provided with the distribution.
     19   1.1   thorpej  * 3. All advertising materials mentioning features or use of this software
     20   1.1   thorpej  *    must display the following acknowledgement:
     21   1.1   thorpej  *	This product includes software developed by the NetBSD
     22   1.1   thorpej  *	Foundation, Inc. and its contributors.
     23   1.1   thorpej  * 4. Neither the name of The NetBSD Foundation nor the names of its
     24   1.1   thorpej  *    contributors may be used to endorse or promote products derived
     25   1.1   thorpej  *    from this software without specific prior written permission.
     26   1.1   thorpej  *
     27   1.1   thorpej  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     28   1.1   thorpej  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     29   1.1   thorpej  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     30   1.1   thorpej  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     31   1.1   thorpej  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     32   1.1   thorpej  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     33   1.1   thorpej  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     34   1.1   thorpej  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     35   1.1   thorpej  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     36   1.1   thorpej  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     37   1.1   thorpej  * POSSIBILITY OF SUCH DAMAGE.
     38   1.1   thorpej  */
     39   1.1   thorpej 
     40   1.1   thorpej /*
     41   1.1   thorpej  * Copyright (c) 1999, by UCHIYAMA Yasushi
     42   1.1   thorpej  * All rights reserved.
     43   1.1   thorpej  *
     44   1.1   thorpej  * Redistribution and use in source and binary forms, with or without
     45   1.1   thorpej  * modification, are permitted provided that the following conditions
     46   1.1   thorpej  * are met:
     47   1.1   thorpej  * 1. Redistributions of source code must retain the above copyright
     48   1.1   thorpej  *    notice, this list of conditions and the following disclaimer.
     49   1.1   thorpej  * 2. The name of the developer may NOT be used to endorse or promote products
     50   1.1   thorpej  *    derived from this software without specific prior written permission.
     51   1.1   thorpej  *
     52   1.1   thorpej  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
     53   1.1   thorpej  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     54   1.1   thorpej  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     55   1.1   thorpej  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
     56   1.1   thorpej  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     57   1.1   thorpej  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     58   1.1   thorpej  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     59   1.1   thorpej  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     60   1.1   thorpej  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     61   1.1   thorpej  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     62   1.1   thorpej  * SUCH DAMAGE.
     63   1.1   thorpej  */
     64   1.1   thorpej 
     65   1.1   thorpej /*
     66   1.1   thorpej  * Interface to the PCI BIOS and PCI Interrupt Routing table.
     67   1.1   thorpej  */
     68   1.7     lukem 
     69   1.7     lukem #include <sys/cdefs.h>
     70  1.24    sekiya __KERNEL_RCSID(0, "$NetBSD: pcibios.c,v 1.24 2005/06/21 06:51:29 sekiya Exp $");
     71   1.1   thorpej 
     72   1.1   thorpej #include "opt_pcibios.h"
     73   1.1   thorpej 
     74   1.1   thorpej #include <sys/param.h>
     75   1.1   thorpej #include <sys/systm.h>
     76   1.1   thorpej #include <sys/device.h>
     77   1.1   thorpej #include <sys/malloc.h>
     78   1.1   thorpej 
     79   1.1   thorpej #include <dev/isa/isareg.h>
     80   1.1   thorpej #include <machine/isa_machdep.h>
     81   1.1   thorpej 
     82   1.1   thorpej #include <dev/pci/pcireg.h>
     83   1.1   thorpej #include <dev/pci/pcivar.h>
     84   1.3       uch #include <dev/pci/pcidevs.h>
     85   1.1   thorpej 
     86   1.1   thorpej #include <i386/pci/pcibios.h>
     87   1.1   thorpej #ifdef PCIBIOS_INTR_FIXUP
     88   1.1   thorpej #include <i386/pci/pci_intr_fixup.h>
     89   1.1   thorpej #endif
     90   1.2   thorpej #ifdef PCIBIOS_BUS_FIXUP
     91   1.2   thorpej #include <i386/pci/pci_bus_fixup.h>
     92   1.2   thorpej #endif
     93   1.3       uch #ifdef PCIBIOS_ADDR_FIXUP
     94   1.3       uch #include <i386/pci/pci_addr_fixup.h>
     95   1.3       uch #endif
     96   1.1   thorpej 
     97   1.1   thorpej #include <machine/bios32.h>
     98   1.1   thorpej 
     99   1.4      soda #ifdef PCIBIOSVERBOSE
    100   1.4      soda int	pcibiosverbose = 1;
    101   1.4      soda #endif
    102   1.4      soda 
    103   1.1   thorpej int pcibios_present;
    104   1.1   thorpej 
    105   1.1   thorpej struct pcibios_pir_header pcibios_pir_header;
    106   1.1   thorpej struct pcibios_intr_routing *pcibios_pir_table;
    107   1.1   thorpej int pcibios_pir_table_nentries;
    108   1.1   thorpej int pcibios_max_bus;
    109   1.1   thorpej 
    110   1.1   thorpej struct bios32_entry pcibios_entry;
    111   1.1   thorpej 
    112  1.16     kochi void	pcibios_pir_init(void);
    113   1.1   thorpej 
    114  1.16     kochi int	pcibios_get_status(u_int32_t *, u_int32_t *, u_int32_t *,
    115  1.16     kochi 	    u_int32_t *, u_int32_t *, u_int32_t *, u_int32_t *);
    116  1.16     kochi int	pcibios_get_intr_routing(struct pcibios_intr_routing *,
    117  1.16     kochi 	    int *, u_int16_t *);
    118   1.1   thorpej 
    119  1.16     kochi int	pcibios_return_code(u_int16_t, const char *);
    120   1.1   thorpej 
    121  1.16     kochi void	pcibios_print_exclirq(void);
    122  1.18  christos 
    123  1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    124  1.18  christos /* for Libretto L2/L3 hack */
    125  1.18  christos static void	pcibios_fixup_pir_table(void);
    126  1.18  christos static void	pcibios_fixup_pir_table_mask(struct pcibios_linkmap *);
    127  1.18  christos 
    128  1.18  christos struct pcibios_linkmap pir_mask[] = {
    129  1.18  christos 	{ 2,	0x0040 },
    130  1.18  christos 	{ 7,	0x0080 },
    131  1.18  christos 	{ 8,	0x0020 },
    132  1.18  christos 	{ 0,	0x0000 }
    133  1.18  christos };
    134  1.18  christos #endif
    135  1.18  christos 
    136  1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    137  1.20  augustss static void pcibios_mm20_fixup(void);
    138  1.20  augustss #endif
    139  1.20  augustss 
    140   1.1   thorpej #ifdef PCIINTR_DEBUG
    141  1.16     kochi void	pcibios_print_pir_table(void);
    142   1.1   thorpej #endif
    143   1.1   thorpej 
    144   1.1   thorpej #define	PCI_IRQ_TABLE_START	0xf0000
    145   1.1   thorpej #define	PCI_IRQ_TABLE_END	0xfffff
    146   1.1   thorpej 
    147   1.1   thorpej void
    148  1.22     perry pcibios_init(void)
    149   1.1   thorpej {
    150   1.1   thorpej 	struct bios32_entry_info ei;
    151   1.1   thorpej 	u_int32_t rev_maj, rev_min, mech1, mech2, scmech1, scmech2;
    152   1.1   thorpej 
    153  1.24    sekiya #if defined(PCIBIOS_ADDR_FIXUP)
    154  1.24    sekiya 	/*
    155  1.24    sekiya 	 * Initialize pointers used by rbus routines here.  That way, if
    156  1.24    sekiya 	 * PCIBIOS initialization fails, the rbus code doesn't break
    157  1.24    sekiya 	 * spectacularly when PCIBIOS_ADDR_FIXUP is defined.
    158  1.24    sekiya 	 */
    159  1.24    sekiya 
    160  1.24    sekiya 	pciaddr.extent_port = NULL;
    161  1.24    sekiya 	pciaddr.extent_mem = NULL;
    162  1.24    sekiya #endif
    163  1.24    sekiya 
    164   1.1   thorpej 	if (bios32_service(BIOS32_MAKESIG('$', 'P', 'C', 'I'),
    165   1.1   thorpej 	    &pcibios_entry, &ei) == 0) {
    166   1.1   thorpej 		/*
    167   1.1   thorpej 		 * No PCI BIOS found; will fall back on old
    168   1.1   thorpej 		 * mechanism.
    169   1.1   thorpej 		 */
    170   1.1   thorpej 		return;
    171   1.1   thorpej 	}
    172   1.1   thorpej 
    173   1.1   thorpej 	/*
    174   1.1   thorpej 	 * We've located the PCI BIOS service; get some information
    175   1.1   thorpej 	 * about it.
    176   1.1   thorpej 	 */
    177   1.1   thorpej 	if (pcibios_get_status(&rev_maj, &rev_min, &mech1, &mech2,
    178   1.1   thorpej 	    &scmech1, &scmech2, &pcibios_max_bus) != PCIBIOS_SUCCESS) {
    179   1.1   thorpej 		/*
    180   1.1   thorpej 		 * We can't use the PCI BIOS; will fall back on old
    181   1.1   thorpej 		 * mechanism.
    182   1.1   thorpej 		 */
    183   1.1   thorpej 		return;
    184   1.1   thorpej 	}
    185   1.1   thorpej 
    186   1.1   thorpej 	printf("PCI BIOS rev. %d.%d found at 0x%lx\n", rev_maj, rev_min >> 4,
    187   1.1   thorpej 	    ei.bei_entry);
    188   1.1   thorpej #ifdef PCIBIOSVERBOSE
    189   1.1   thorpej 	printf("pcibios: config mechanism %s%s, special cycles %s%s, "
    190   1.1   thorpej 	    "last bus %d\n",
    191   1.1   thorpej 	    mech1 ? "[1]" : "[x]",
    192   1.1   thorpej 	    mech2 ? "[2]" : "[x]",
    193   1.1   thorpej 	    scmech1 ? "[1]" : "[x]",
    194   1.1   thorpej 	    scmech2 ? "[2]" : "[x]",
    195   1.1   thorpej 	    pcibios_max_bus);
    196   1.1   thorpej 
    197   1.1   thorpej #endif
    198   1.1   thorpej 
    199   1.1   thorpej 	/*
    200   1.1   thorpej 	 * The PCI BIOS tells us the config mechanism; fill it in now
    201   1.1   thorpej 	 * so that pci_mode_detect() doesn't have to look for it.
    202   1.1   thorpej 	 */
    203   1.1   thorpej 	pci_mode = mech1 ? 1 : 2;
    204   1.1   thorpej 
    205   1.1   thorpej 	pcibios_present = 1;
    206   1.1   thorpej 
    207   1.1   thorpej 	/*
    208   1.1   thorpej 	 * Find the PCI IRQ Routing table.
    209   1.1   thorpej 	 */
    210   1.1   thorpej 	pcibios_pir_init();
    211   1.1   thorpej 
    212   1.1   thorpej #ifdef PCIBIOS_INTR_FIXUP
    213   1.1   thorpej 	if (pcibios_pir_table != NULL) {
    214   1.1   thorpej 		int rv;
    215   1.1   thorpej 		u_int16_t pciirq;
    216   1.1   thorpej 
    217   1.1   thorpej 		/*
    218   1.1   thorpej 		 * Fixup interrupt routing.
    219   1.1   thorpej 		 */
    220  1.11      fvdl 		rv = pci_intr_fixup(NULL, X86_BUS_SPACE_IO, &pciirq);
    221   1.1   thorpej 		switch (rv) {
    222   1.1   thorpej 		case -1:
    223   1.1   thorpej 			/* Non-fatal error. */
    224   1.1   thorpej 			printf("Warning: unable to fix up PCI interrupt "
    225   1.1   thorpej 			    "routing\n");
    226   1.1   thorpej 			break;
    227   1.1   thorpej 
    228   1.1   thorpej 		case 1:
    229   1.1   thorpej 			/* Fatal error. */
    230   1.1   thorpej 			panic("pcibios_init: interrupt fixup failed");
    231   1.1   thorpej 			break;
    232   1.1   thorpej 		}
    233   1.1   thorpej 
    234   1.1   thorpej 		/*
    235   1.1   thorpej 		 * XXX Clear `pciirq' from the ISA interrupt allocation
    236   1.1   thorpej 		 * XXX mask.
    237   1.1   thorpej 		 */
    238   1.1   thorpej 	}
    239   1.2   thorpej #endif
    240   1.2   thorpej 
    241   1.2   thorpej #ifdef PCIBIOS_BUS_FIXUP
    242   1.2   thorpej 	pcibios_max_bus = pci_bus_fixup(NULL, 0);
    243   1.2   thorpej #ifdef PCIBIOSVERBOSE
    244   1.2   thorpej 	printf("PCI bus #%d is the last bus\n", pcibios_max_bus);
    245   1.2   thorpej #endif
    246   1.1   thorpej #endif
    247   1.3       uch 
    248   1.3       uch #ifdef PCIBIOS_ADDR_FIXUP
    249   1.5       uch 	pci_addr_fixup(NULL, pcibios_max_bus);
    250   1.3       uch #endif
    251   1.1   thorpej }
    252   1.1   thorpej 
    253   1.1   thorpej void
    254  1.22     perry pcibios_pir_init(void)
    255   1.1   thorpej {
    256  1.19     kochi 	char *devinfo;
    257   1.1   thorpej 	paddr_t pa;
    258   1.1   thorpej 	caddr_t p;
    259   1.1   thorpej 	unsigned char cksum;
    260   1.1   thorpej 	u_int16_t tablesize;
    261   1.1   thorpej 	u_int8_t rev_maj, rev_min;
    262   1.1   thorpej 	int i;
    263   1.1   thorpej 
    264   1.1   thorpej 	for (pa = PCI_IRQ_TABLE_START; pa < PCI_IRQ_TABLE_END; pa += 16) {
    265   1.1   thorpej 		p = (caddr_t)ISA_HOLE_VADDR(pa);
    266   1.9  christos 		if (*(int *)p != BIOS32_MAKESIG('$', 'P', 'I', 'R')) {
    267   1.9  christos 			/*
    268  1.12  drochner 			 * XXX: Some laptops (Toshiba/Libretto L series)
    269   1.9  christos 			 * use _PIR instead of $PIR. So we try that too.
    270   1.9  christos 			 */
    271   1.9  christos 			if (*(int *)p != BIOS32_MAKESIG('_', 'P', 'I', 'R'))
    272   1.9  christos 				continue;
    273   1.9  christos 		}
    274   1.1   thorpej 
    275   1.1   thorpej 		rev_min = *(p + 4);
    276   1.1   thorpej 		rev_maj = *(p + 5);
    277   1.1   thorpej 		tablesize = *(u_int16_t *)(p + 6);
    278   1.1   thorpej 
    279   1.1   thorpej 		cksum = 0;
    280   1.1   thorpej 		for (i = 0; i < tablesize; i++)
    281   1.1   thorpej 			cksum += *(unsigned char *)(p + i);
    282   1.1   thorpej 
    283   1.1   thorpej 		printf("PCI IRQ Routing Table rev. %d.%d found at 0x%lx, "
    284   1.1   thorpej 		    "size %d bytes (%d entries)\n", rev_maj, rev_min, pa,
    285   1.1   thorpej 		    tablesize, (tablesize - 32) / 16);
    286   1.1   thorpej 
    287   1.1   thorpej 		if (cksum != 0) {
    288   1.1   thorpej 			printf("pcibios_pir_init: bad IRQ table checksum\n");
    289   1.1   thorpej 			continue;
    290   1.1   thorpej 		}
    291   1.1   thorpej 
    292   1.1   thorpej 		if (tablesize < 32 || (tablesize % 16) != 0) {
    293   1.1   thorpej 			printf("pcibios_pir_init: bad IRQ table size\n");
    294   1.1   thorpej 			continue;
    295   1.1   thorpej 		}
    296   1.1   thorpej 
    297   1.1   thorpej 		if (rev_maj != 1 || rev_min != 0) {
    298   1.1   thorpej 			printf("pcibios_pir_init: unsupported IRQ table "
    299   1.1   thorpej 			    "version\n");
    300   1.1   thorpej 			continue;
    301   1.1   thorpej 		}
    302   1.1   thorpej 
    303   1.1   thorpej 		/*
    304   1.1   thorpej 		 * We can handle this table!  Make a copy of it.
    305   1.1   thorpej 		 */
    306   1.1   thorpej 		memcpy(&pcibios_pir_header, p, 32);
    307   1.1   thorpej 		pcibios_pir_table = malloc(tablesize - 32, M_DEVBUF,
    308   1.1   thorpej 		    M_NOWAIT);
    309   1.1   thorpej 		if (pcibios_pir_table == NULL) {
    310   1.1   thorpej 			printf("pcibios_pir_init: no memory for $PIR\n");
    311   1.1   thorpej 			return;
    312   1.1   thorpej 		}
    313   1.1   thorpej 		memcpy(pcibios_pir_table, p + 32, tablesize - 32);
    314   1.1   thorpej 		pcibios_pir_table_nentries = (tablesize - 32) / 16;
    315   1.1   thorpej 
    316   1.1   thorpej 		printf("PCI Interrupt Router at %03d:%02d:%01d",
    317   1.1   thorpej 		    pcibios_pir_header.router_bus,
    318   1.4      soda 		    PIR_DEVFUNC_DEVICE(pcibios_pir_header.router_devfunc),
    319   1.4      soda 		    PIR_DEVFUNC_FUNCTION(pcibios_pir_header.router_devfunc));
    320   1.1   thorpej 		if (pcibios_pir_header.compat_router != 0) {
    321  1.19     kochi 			devinfo = malloc(256, M_DEVBUF, M_NOWAIT);
    322  1.19     kochi 			if (devinfo) {
    323  1.19     kochi 				pci_devinfo(pcibios_pir_header.compat_router,
    324  1.19     kochi 				    0, 0, devinfo, 256);
    325  1.19     kochi 				printf(" (%s compatible)", devinfo);
    326  1.19     kochi 				free(devinfo, M_DEVBUF);
    327  1.19     kochi 			}
    328   1.1   thorpej 		}
    329   1.1   thorpej 		printf("\n");
    330   1.1   thorpej 		pcibios_print_exclirq();
    331  1.18  christos 
    332  1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    333  1.18  christos 		/* for Libretto L2/L3 hack */
    334  1.18  christos 		pcibios_fixup_pir_table();
    335  1.18  christos #endif
    336  1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    337  1.20  augustss 		pcibios_mm20_fixup();
    338  1.20  augustss #endif
    339   1.1   thorpej #ifdef PCIINTR_DEBUG
    340   1.1   thorpej 		pcibios_print_pir_table();
    341   1.1   thorpej #endif
    342   1.1   thorpej 		return;
    343   1.1   thorpej 	}
    344   1.1   thorpej 
    345   1.1   thorpej 	/*
    346   1.1   thorpej 	 * If there was no PIR table found, try using the PCI BIOS
    347   1.1   thorpej 	 * Get Interrupt Routing call.
    348   1.1   thorpej 	 *
    349   1.1   thorpej 	 * XXX The interface to this call sucks; just allocate enough
    350   1.1   thorpej 	 * XXX room for 32 entries.
    351   1.1   thorpej 	 */
    352   1.1   thorpej 	pcibios_pir_table_nentries = 32;
    353   1.1   thorpej 	pcibios_pir_table = malloc(pcibios_pir_table_nentries *
    354   1.1   thorpej 	    sizeof(*pcibios_pir_table), M_DEVBUF, M_NOWAIT);
    355   1.1   thorpej 	if (pcibios_pir_table == NULL) {
    356   1.1   thorpej 		printf("pcibios_pir_init: no memory for $PIR\n");
    357   1.1   thorpej 		return;
    358   1.1   thorpej 	}
    359   1.1   thorpej 	if (pcibios_get_intr_routing(pcibios_pir_table,
    360   1.1   thorpej 	    &pcibios_pir_table_nentries,
    361   1.1   thorpej 	    &pcibios_pir_header.exclusive_irq) != PCIBIOS_SUCCESS) {
    362   1.1   thorpej 		printf("No PCI IRQ Routing information available.\n");
    363   1.1   thorpej 		free(pcibios_pir_table, M_DEVBUF);
    364   1.1   thorpej 		pcibios_pir_table = NULL;
    365   1.1   thorpej 		pcibios_pir_table_nentries = 0;
    366   1.1   thorpej 		return;
    367   1.1   thorpej 	}
    368   1.1   thorpej 	printf("PCI BIOS has %d Interrupt Routing table entries\n",
    369   1.1   thorpej 	    pcibios_pir_table_nentries);
    370   1.1   thorpej 	pcibios_print_exclirq();
    371  1.18  christos 
    372  1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    373  1.18  christos 	/* for Libretto L2/L3 hack */
    374  1.18  christos 	pcibios_fixup_pir_table();
    375  1.18  christos #endif
    376  1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    377  1.20  augustss 	pcibios_mm20_fixup();
    378  1.20  augustss #endif
    379   1.1   thorpej #ifdef PCIINTR_DEBUG
    380   1.1   thorpej 	pcibios_print_pir_table();
    381   1.1   thorpej #endif
    382   1.1   thorpej }
    383   1.1   thorpej 
    384   1.1   thorpej int
    385  1.16     kochi pcibios_get_status(u_int32_t *rev_maj, u_int32_t *rev_min,
    386  1.16     kochi     u_int32_t *mech1, u_int32_t *mech2, u_int32_t *scmech1, u_int32_t *scmech2,
    387  1.16     kochi     u_int32_t *maxbus)
    388   1.1   thorpej {
    389   1.1   thorpej 	u_int16_t ax, bx, cx;
    390   1.1   thorpej 	u_int32_t edx;
    391   1.1   thorpej 	int rv;
    392   1.1   thorpej 
    393  1.10      fvdl 	__asm __volatile("lcall *(%%edi)				; \
    394   1.1   thorpej 			jc 1f						; \
    395   1.1   thorpej 			xor %%ah, %%ah					; \
    396   1.1   thorpej 		1:"
    397   1.1   thorpej 		: "=a" (ax), "=b" (bx), "=c" (cx), "=d" (edx)
    398   1.1   thorpej 		: "0" (0xb101), "D" (&pcibios_entry));
    399   1.1   thorpej 
    400   1.1   thorpej 	rv = pcibios_return_code(ax, "pcibios_get_status");
    401   1.1   thorpej 	if (rv != PCIBIOS_SUCCESS)
    402   1.1   thorpej 		return (rv);
    403   1.1   thorpej 
    404   1.1   thorpej 	if (edx != BIOS32_MAKESIG('P', 'C', 'I', ' '))
    405   1.1   thorpej 		return (PCIBIOS_SERVICE_NOT_PRESENT);	/* XXX */
    406   1.1   thorpej 
    407   1.1   thorpej 	/*
    408   1.1   thorpej 	 * Fill in the various pieces if info we're looking for.
    409   1.1   thorpej 	 */
    410   1.1   thorpej 	*mech1 = ax & 1;
    411   1.1   thorpej 	*mech2 = ax & (1 << 1);
    412   1.1   thorpej 	*scmech1 = ax & (1 << 4);
    413   1.1   thorpej 	*scmech2 = ax & (1 << 5);
    414   1.1   thorpej 	*rev_maj = (bx >> 8) & 0xff;
    415   1.1   thorpej 	*rev_min = bx & 0xff;
    416   1.1   thorpej 	*maxbus = cx & 0xff;
    417   1.1   thorpej 
    418   1.1   thorpej 	return (PCIBIOS_SUCCESS);
    419   1.1   thorpej }
    420   1.1   thorpej 
    421   1.1   thorpej int
    422  1.16     kochi pcibios_get_intr_routing(struct pcibios_intr_routing *table,
    423  1.16     kochi     int *nentries, u_int16_t *exclirq)
    424   1.1   thorpej {
    425   1.1   thorpej 	u_int16_t ax, bx;
    426   1.1   thorpej 	int rv;
    427   1.1   thorpej 	struct {
    428   1.1   thorpej 		u_int16_t size;
    429   1.1   thorpej 		caddr_t offset;
    430   1.1   thorpej 		u_int16_t segment;
    431   1.1   thorpej 	} __attribute__((__packed__)) args;
    432   1.1   thorpej 
    433   1.1   thorpej 	args.size = *nentries * sizeof(*table);
    434   1.1   thorpej 	args.offset = (caddr_t)table;
    435   1.1   thorpej 	args.segment = GSEL(GDATA_SEL, SEL_KPL);
    436   1.1   thorpej 
    437   1.1   thorpej 	memset(table, 0, args.size);
    438   1.1   thorpej 
    439  1.10      fvdl 	__asm __volatile("lcall *(%%esi)				; \
    440   1.1   thorpej 			jc 1f						; \
    441   1.1   thorpej 			xor %%ah, %%ah					; \
    442   1.1   thorpej 		1:	movw %w2, %%ds					; \
    443   1.1   thorpej 			movw %w2, %%es"
    444   1.1   thorpej 		: "=a" (ax), "=b" (bx)
    445   1.1   thorpej 		: "r" GSEL(GDATA_SEL, SEL_KPL), "0" (0xb10e), "1" (0),
    446   1.1   thorpej 		  "D" (&args), "S" (&pcibios_entry));
    447   1.1   thorpej 
    448   1.1   thorpej 	rv = pcibios_return_code(ax, "pcibios_get_intr_routing");
    449   1.1   thorpej 	if (rv != PCIBIOS_SUCCESS)
    450   1.1   thorpej 		return (rv);
    451   1.1   thorpej 
    452   1.1   thorpej 	*nentries = args.size / sizeof(*table);
    453   1.1   thorpej 	*exclirq = bx;
    454   1.1   thorpej 
    455   1.1   thorpej 	return (PCIBIOS_SUCCESS);
    456   1.1   thorpej }
    457   1.1   thorpej 
    458   1.1   thorpej int
    459  1.16     kochi pcibios_return_code(u_int16_t ax, const char *func)
    460   1.1   thorpej {
    461   1.1   thorpej 	const char *errstr;
    462   1.1   thorpej 	int rv = ax >> 8;
    463   1.1   thorpej 
    464   1.1   thorpej 	switch (rv) {
    465   1.1   thorpej 	case PCIBIOS_SUCCESS:
    466   1.1   thorpej 		return (PCIBIOS_SUCCESS);
    467   1.1   thorpej 
    468   1.1   thorpej 	case PCIBIOS_SERVICE_NOT_PRESENT:
    469   1.1   thorpej 		errstr = "service not present";
    470   1.1   thorpej 		break;
    471   1.1   thorpej 
    472   1.1   thorpej 	case PCIBIOS_FUNCTION_NOT_SUPPORTED:
    473   1.1   thorpej 		errstr = "function not supported";
    474   1.1   thorpej 		break;
    475   1.1   thorpej 
    476   1.1   thorpej 	case PCIBIOS_BAD_VENDOR_ID:
    477   1.1   thorpej 		errstr = "bad vendor ID";
    478   1.1   thorpej 		break;
    479   1.1   thorpej 
    480   1.1   thorpej 	case PCIBIOS_DEVICE_NOT_FOUND:
    481   1.1   thorpej 		errstr = "device not found";
    482   1.1   thorpej 		break;
    483   1.1   thorpej 
    484   1.1   thorpej 	case PCIBIOS_BAD_REGISTER_NUMBER:
    485   1.1   thorpej 		errstr = "bad register number";
    486   1.1   thorpej 		break;
    487   1.1   thorpej 
    488   1.1   thorpej 	case PCIBIOS_SET_FAILED:
    489   1.1   thorpej 		errstr = "set failed";
    490   1.1   thorpej 		break;
    491   1.1   thorpej 
    492   1.1   thorpej 	case PCIBIOS_BUFFER_TOO_SMALL:
    493   1.1   thorpej 		errstr = "buffer too small";
    494   1.1   thorpej 		break;
    495   1.1   thorpej 
    496   1.1   thorpej 	default:
    497   1.1   thorpej 		printf("%s: unknown return code 0x%x\n", func, rv);
    498   1.1   thorpej 		return (rv);
    499   1.1   thorpej 	}
    500   1.1   thorpej 
    501   1.1   thorpej 	printf("%s: %s\n", func, errstr);
    502   1.1   thorpej 	return (rv);
    503   1.1   thorpej }
    504   1.1   thorpej 
    505   1.1   thorpej void
    506  1.22     perry pcibios_print_exclirq(void)
    507   1.1   thorpej {
    508   1.1   thorpej 	int i;
    509   1.1   thorpej 
    510   1.1   thorpej 	if (pcibios_pir_header.exclusive_irq) {
    511   1.1   thorpej 		printf("PCI Exclusive IRQs:");
    512   1.1   thorpej 		for (i = 0; i < 16; i++) {
    513   1.1   thorpej 			if (pcibios_pir_header.exclusive_irq & (1 << i))
    514   1.1   thorpej 				printf(" %d", i);
    515   1.1   thorpej 		}
    516   1.1   thorpej 		printf("\n");
    517   1.1   thorpej 	}
    518   1.1   thorpej }
    519   1.1   thorpej 
    520  1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    521  1.18  christos /* for Libretto L2/L3 hack */
    522  1.18  christos static void
    523  1.22     perry pcibios_fixup_pir_table(void)
    524  1.18  christos {
    525  1.18  christos 	struct pcibios_linkmap *m;
    526  1.18  christos 
    527  1.18  christos 	for (m = pir_mask; m->link != 0; m++)
    528  1.18  christos 		pcibios_fixup_pir_table_mask(m);
    529  1.18  christos }
    530  1.18  christos 
    531  1.18  christos void
    532  1.22     perry pcibios_fixup_pir_table_mask(struct pcibios_linkmap *mask)
    533  1.18  christos {
    534  1.18  christos 	int i, j;
    535  1.18  christos 
    536  1.18  christos 	for (i = 0; i < pcibios_pir_table_nentries; i++) {
    537  1.18  christos 		for (j = 0; j < 4; j++) {
    538  1.18  christos 			if (pcibios_pir_table[i].linkmap[j].link == mask->link) {
    539  1.18  christos 				pcibios_pir_table[i].linkmap[j].bitmap
    540  1.18  christos 				    &= mask->bitmap;
    541  1.18  christos 			}
    542  1.18  christos 		}
    543  1.18  christos 	}
    544  1.18  christos }
    545  1.18  christos #endif
    546  1.18  christos 
    547   1.1   thorpej #ifdef PCIINTR_DEBUG
    548   1.1   thorpej void
    549  1.22     perry pcibios_print_pir_table(void)
    550   1.1   thorpej {
    551   1.1   thorpej 	int i, j;
    552   1.1   thorpej 
    553   1.1   thorpej 	for (i = 0; i < pcibios_pir_table_nentries; i++) {
    554   1.1   thorpej 		printf("PIR Entry %d:\n", i);
    555   1.1   thorpej 		printf("\tBus: %d  Device: %d\n",
    556   1.1   thorpej 		    pcibios_pir_table[i].bus,
    557   1.4      soda 		    PIR_DEVFUNC_DEVICE(pcibios_pir_table[i].device));
    558   1.1   thorpej 		for (j = 0; j < 4; j++) {
    559   1.1   thorpej 			printf("\t\tINT%c: link 0x%02x bitmap 0x%04x\n",
    560   1.1   thorpej 			    'A' + j,
    561   1.1   thorpej 			    pcibios_pir_table[i].linkmap[j].link,
    562   1.1   thorpej 			    pcibios_pir_table[i].linkmap[j].bitmap);
    563   1.1   thorpej 		}
    564   1.1   thorpej 	}
    565   1.1   thorpej }
    566   1.1   thorpej #endif
    567   1.3       uch 
    568  1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    569  1.20  augustss /*
    570  1.20  augustss  * This is a gross hack to get the interrupt from the EHCI controller
    571  1.20  augustss  * working on a Sharp MM20.  The BIOS is just incredibly buggy.
    572  1.20  augustss  *
    573  1.20  augustss  * The story thus far:
    574  1.20  augustss  * The modern way to route the interrupt is to use ACPI.  But using
    575  1.20  augustss  * ACPI fails with an error message about an uninitialized local
    576  1.20  augustss  * variable in the AML code.  (It works in Windows, but fails in NetBSD
    577  1.20  augustss  * and Linux.)
    578  1.20  augustss  *
    579  1.20  augustss  * The second attempt is to use PCI Interrupt Routing table.  But this
    580  1.20  augustss  * fails because the table does not contain any information about the
    581  1.20  augustss  * interrupt from the EHCI controller.  This is probably due to the fact
    582  1.20  augustss  * that the table is compatible with ALi M1543, but the MM20 has an ALi M1563.
    583  1.20  augustss  * The M1563 has additional interrupt lines.  The ali1543.c code also
    584  1.20  augustss  * cannot handle the M1653's extended interrupts.  And fixing this is
    585  1.20  augustss  * difficult since getting a data sheet from ALi requires signing an NDA.
    586  1.20  augustss  *
    587  1.20  augustss  * The third attempt is to use a BIOS call to route the interrupt
    588  1.20  augustss  * (as FreeBSD does) with manually generated information.  But the BIOS call
    589  1.20  augustss  * fails because the BIOS code is not quite position independent.  It makes
    590  1.20  augustss  * some assumption about where the code segment register points.
    591  1.20  augustss  *
    592  1.20  augustss  * So the solution is to use the third attempt, but with a patched version
    593  1.20  augustss  * of the BIOS.
    594  1.20  augustss  *    -- lennart (at) augustsson.net
    595  1.20  augustss  */
    596  1.20  augustss 
    597  1.20  augustss #define	BIOS32_START	0xe0000
    598  1.20  augustss #define	BIOS32_SIZE	0x20000
    599  1.20  augustss 
    600  1.20  augustss static char pcibios_shadow[BIOS32_SIZE];
    601  1.20  augustss static struct bios32_entry pcibios_entry_shadow;
    602  1.20  augustss 
    603  1.20  augustss /*
    604  1.20  augustss  * Copy BIOS and zap offending instruction.
    605  1.20  augustss  * The bad instruction is
    606  1.20  augustss  *    mov    %cs:0x63c(%ebx),%ah
    607  1.20  augustss  * NetBSD does not have the code segment set up for this to work.
    608  1.20  augustss  * Using the value 0xff for the table entry seems to work.
    609  1.20  augustss  * The replacement is
    610  1.20  augustss  *    mov $0xff,%ah; nop; nop; nop; nop; nop
    611  1.20  augustss  */
    612  1.20  augustss static void
    613  1.20  augustss pcibios_copy_bios(void)
    614  1.20  augustss {
    615  1.20  augustss 	u_int8_t *bad_instr;
    616  1.20  augustss 
    617  1.20  augustss 	memcpy(pcibios_shadow, ISA_HOLE_VADDR(BIOS32_START), BIOS32_SIZE);
    618  1.20  augustss 	pcibios_entry_shadow = pcibios_entry;
    619  1.20  augustss 	pcibios_entry_shadow.offset =
    620  1.20  augustss 	    (void*)((u_long)pcibios_shadow +
    621  1.20  augustss 		    (u_long)pcibios_entry.offset -
    622  1.20  augustss 		    (u_long)ISA_HOLE_VADDR(BIOS32_START));
    623  1.20  augustss 
    624  1.20  augustss 	bad_instr = (u_int8_t *)pcibios_entry_shadow.offset + 0x499;
    625  1.20  augustss 	if (*bad_instr != 0x2e)
    626  1.20  augustss 		panic("bad bios");
    627  1.20  augustss 	bad_instr[0] = 0xb4; bad_instr[1] = 0xff; /* mov $0xff,%ah */
    628  1.20  augustss 	bad_instr[2] = 0x90;		/* nop */
    629  1.20  augustss 	bad_instr[3] = 0x90;		/* nop */
    630  1.20  augustss 	bad_instr[4] = 0x90;		/* nop */
    631  1.20  augustss 	bad_instr[5] = 0x90;		/* nop */
    632  1.20  augustss 	bad_instr[6] = 0x90;		/* nop */
    633  1.20  augustss }
    634  1.20  augustss 
    635  1.20  augustss /*
    636  1.20  augustss  * Call BIOS to route an interrupt.
    637  1.20  augustss  * The PCI device is identified by bus,device,func.
    638  1.20  augustss  * The interrupt is on pin PIN (A-D) and interrupt IRQ.
    639  1.20  augustss  * BIOS knows the magic for the interrupt controller.
    640  1.20  augustss  */
    641  1.20  augustss static int
    642  1.20  augustss pcibios_biosroute(int bus, int device, int func, int pin, int irq)
    643  1.20  augustss {
    644  1.20  augustss 	u_int16_t ax, bx, cx;
    645  1.20  augustss 	int rv;
    646  1.20  augustss 
    647  1.20  augustss 	printf("pcibios_biosroute: b,d,f=%d,%d,%d pin=%x irq=%d\n",
    648  1.20  augustss 	       bus, device, func, pin+0xa, irq);
    649  1.20  augustss 
    650  1.20  augustss 	bx = (bus << 8) | (device << 3) | func;
    651  1.20  augustss 	cx = (irq << 8) | (0xa + pin);
    652  1.20  augustss 
    653  1.20  augustss 	__asm __volatile("lcall *(%%esi)				; \
    654  1.20  augustss 			jc 1f						; \
    655  1.20  augustss 			xor %%ah, %%ah					; \
    656  1.20  augustss 		1:	movw %w1, %%ds					; \
    657  1.20  augustss 			movw %w1, %%es"
    658  1.20  augustss 			 : "=a" (ax)
    659  1.20  augustss 			 : "r" GSEL(GDATA_SEL, SEL_KPL), "0" (0xb10f),
    660  1.20  augustss 			   "b" (bx), "c" (cx),
    661  1.20  augustss 		           "S" (&pcibios_entry_shadow));
    662  1.20  augustss 
    663  1.20  augustss 	rv = pcibios_return_code(ax, "pcibios_biosroute");
    664  1.20  augustss 
    665  1.20  augustss 	return rv;
    666  1.20  augustss }
    667  1.20  augustss 
    668  1.21  augustss #define MM20_PCI_BUS 0
    669  1.21  augustss #define MM20_PCI_EHCI_DEV 15
    670  1.21  augustss #define MM20_PCI_EHCI_FUNC 3
    671  1.21  augustss #define MM20_PCI_EHCI_PIN 3
    672  1.21  augustss #define MM20_PCI_EHCI_INTR 11
    673  1.21  augustss #define MM20_PCI_ISA_DEV 3
    674  1.21  augustss #define MM20_PCI_ISA_FUNC 0
    675  1.21  augustss 
    676  1.20  augustss static void
    677  1.20  augustss pcibios_mm20_fixup(void)
    678  1.20  augustss {
    679  1.21  augustss 	pci_chipset_tag_t pc;
    680  1.21  augustss 	pcitag_t tag;
    681  1.21  augustss 
    682  1.20  augustss 	/* Copy BIOS */
    683  1.20  augustss 	pcibios_copy_bios();
    684  1.20  augustss 	/* Route the interrupt for the EHCI controller. */
    685  1.21  augustss 	(void)pcibios_biosroute(MM20_PCI_BUS,
    686  1.21  augustss 				MM20_PCI_EHCI_DEV,
    687  1.21  augustss 				MM20_PCI_EHCI_FUNC,
    688  1.21  augustss 				MM20_PCI_EHCI_PIN,
    689  1.21  augustss 				MM20_PCI_EHCI_INTR);
    690  1.21  augustss 
    691  1.21  augustss 	/* Fake some tags. */
    692  1.21  augustss 	pc = NULL;
    693  1.21  augustss 	tag = pci_make_tag(pc, MM20_PCI_BUS, MM20_PCI_EHCI_DEV,
    694  1.21  augustss 			   MM20_PCI_EHCI_FUNC);
    695  1.21  augustss 	/* Set interrupt register in EHCI controller */
    696  1.21  augustss 	pci_conf_write(pc, tag, 0x3c, 0x50000400 + MM20_PCI_EHCI_INTR);
    697  1.21  augustss 	tag = pci_make_tag(pc, MM20_PCI_BUS, MM20_PCI_ISA_DEV,
    698  1.21  augustss 			   MM20_PCI_ISA_FUNC);
    699  1.21  augustss 	/* Set some unknown registers in the ISA bridge. */
    700  1.21  augustss 	pci_conf_write(pc, tag, 0x58, 0xd87f5300);
    701  1.21  augustss 	pci_conf_write(pc, tag, 0x74, 0x00000009);
    702  1.20  augustss }
    703  1.20  augustss 
    704  1.20  augustss #endif /* PCIBIOS_SHARP_MM20_FIXUP */
    705