Home | History | Annotate | Line # | Download | only in pci
pcibios.c revision 1.33.2.1
      1  1.33.2.1     rmind /*	$NetBSD: pcibios.c,v 1.33.2.1 2007/03/12 05:48:38 rmind 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.33.2.1     rmind __KERNEL_RCSID(0, "$NetBSD: pcibios.c,v 1.33.2.1 2007/03/12 05:48:38 rmind Exp $");
     71       1.1   thorpej 
     72       1.1   thorpej #include "opt_pcibios.h"
     73      1.25    sekiya #include "opt_pcifixup.h"
     74       1.1   thorpej 
     75       1.1   thorpej #include <sys/param.h>
     76       1.1   thorpej #include <sys/systm.h>
     77       1.1   thorpej #include <sys/device.h>
     78       1.1   thorpej #include <sys/malloc.h>
     79       1.1   thorpej 
     80       1.1   thorpej #include <dev/isa/isareg.h>
     81       1.1   thorpej #include <machine/isa_machdep.h>
     82       1.1   thorpej 
     83       1.1   thorpej #include <dev/pci/pcireg.h>
     84       1.1   thorpej #include <dev/pci/pcivar.h>
     85       1.3       uch #include <dev/pci/pcidevs.h>
     86       1.1   thorpej 
     87       1.1   thorpej #include <i386/pci/pcibios.h>
     88      1.26    sekiya 
     89      1.26    sekiya #if 	defined(PCIBIOS_INTR_FIXUP) || defined(PCIBIOS_ADDR_FIXUP) || \
     90      1.26    sekiya 	defined(PCIBIOS_BUS_FIXUP)
     91      1.26    sekiya #error The options PCIBIOS_INTR_FIXUP, PCIBIOS_ADDR_FIXUP, and PCIBIOS_BUS_FIXUP have been obsoleted by PCI_INTR_FIXUP, PCI_ADDR_FIXUP, and PCI_BUS_FIXUP.  Please adjust your kernel configuration file.
     92      1.26    sekiya #endif
     93      1.26    sekiya 
     94      1.25    sekiya #ifdef PCI_INTR_FIXUP
     95       1.1   thorpej #include <i386/pci/pci_intr_fixup.h>
     96       1.1   thorpej #endif
     97       1.1   thorpej 
     98       1.1   thorpej #include <machine/bios32.h>
     99       1.1   thorpej 
    100       1.4      soda #ifdef PCIBIOSVERBOSE
    101       1.4      soda int	pcibiosverbose = 1;
    102       1.4      soda #endif
    103       1.4      soda 
    104       1.1   thorpej int pcibios_present;
    105       1.1   thorpej 
    106       1.1   thorpej struct pcibios_pir_header pcibios_pir_header;
    107       1.1   thorpej struct pcibios_intr_routing *pcibios_pir_table;
    108       1.1   thorpej int pcibios_pir_table_nentries;
    109       1.1   thorpej int pcibios_max_bus;
    110       1.1   thorpej 
    111       1.1   thorpej struct bios32_entry pcibios_entry;
    112       1.1   thorpej 
    113      1.16     kochi void	pcibios_pir_init(void);
    114       1.1   thorpej 
    115      1.31     perry int	pcibios_get_status(uint32_t *, uint32_t *, uint32_t *,
    116      1.31     perry 	    uint32_t *, uint32_t *, uint32_t *, uint32_t *);
    117      1.16     kochi int	pcibios_get_intr_routing(struct pcibios_intr_routing *,
    118      1.31     perry 	    int *, uint16_t *);
    119       1.1   thorpej 
    120      1.31     perry int	pcibios_return_code(uint16_t, const char *);
    121       1.1   thorpej 
    122      1.16     kochi void	pcibios_print_exclirq(void);
    123      1.18  christos 
    124      1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    125      1.18  christos /* for Libretto L2/L3 hack */
    126      1.18  christos static void	pcibios_fixup_pir_table(void);
    127      1.18  christos static void	pcibios_fixup_pir_table_mask(struct pcibios_linkmap *);
    128      1.18  christos 
    129      1.18  christos struct pcibios_linkmap pir_mask[] = {
    130      1.18  christos 	{ 2,	0x0040 },
    131      1.18  christos 	{ 7,	0x0080 },
    132      1.18  christos 	{ 8,	0x0020 },
    133      1.18  christos 	{ 0,	0x0000 }
    134      1.18  christos };
    135      1.18  christos #endif
    136      1.18  christos 
    137      1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    138      1.20  augustss static void pcibios_mm20_fixup(void);
    139      1.20  augustss #endif
    140      1.20  augustss 
    141       1.1   thorpej #ifdef PCIINTR_DEBUG
    142      1.16     kochi void	pcibios_print_pir_table(void);
    143       1.1   thorpej #endif
    144       1.1   thorpej 
    145       1.1   thorpej #define	PCI_IRQ_TABLE_START	0xf0000
    146       1.1   thorpej #define	PCI_IRQ_TABLE_END	0xfffff
    147       1.1   thorpej 
    148       1.1   thorpej void
    149      1.22     perry pcibios_init(void)
    150       1.1   thorpej {
    151       1.1   thorpej 	struct bios32_entry_info ei;
    152      1.31     perry 	uint32_t rev_maj, rev_min, mech1, mech2, scmech1, scmech2;
    153       1.1   thorpej 
    154       1.1   thorpej 	if (bios32_service(BIOS32_MAKESIG('$', 'P', 'C', 'I'),
    155       1.1   thorpej 	    &pcibios_entry, &ei) == 0) {
    156       1.1   thorpej 		/*
    157       1.1   thorpej 		 * No PCI BIOS found; will fall back on old
    158       1.1   thorpej 		 * mechanism.
    159       1.1   thorpej 		 */
    160       1.1   thorpej 		return;
    161       1.1   thorpej 	}
    162       1.1   thorpej 
    163       1.1   thorpej 	/*
    164       1.1   thorpej 	 * We've located the PCI BIOS service; get some information
    165       1.1   thorpej 	 * about it.
    166       1.1   thorpej 	 */
    167       1.1   thorpej 	if (pcibios_get_status(&rev_maj, &rev_min, &mech1, &mech2,
    168       1.1   thorpej 	    &scmech1, &scmech2, &pcibios_max_bus) != PCIBIOS_SUCCESS) {
    169       1.1   thorpej 		/*
    170       1.1   thorpej 		 * We can't use the PCI BIOS; will fall back on old
    171       1.1   thorpej 		 * mechanism.
    172       1.1   thorpej 		 */
    173       1.1   thorpej 		return;
    174       1.1   thorpej 	}
    175       1.1   thorpej 
    176      1.32   thorpej 	aprint_normal("PCI BIOS rev. %d.%d found at 0x%lx\n",
    177      1.32   thorpej 	    rev_maj, rev_min >> 4, ei.bei_entry);
    178      1.32   thorpej 	aprint_verbose("pcibios: config mechanism %s%s, special cycles %s%s, "
    179       1.1   thorpej 	    "last bus %d\n",
    180       1.1   thorpej 	    mech1 ? "[1]" : "[x]",
    181       1.1   thorpej 	    mech2 ? "[2]" : "[x]",
    182       1.1   thorpej 	    scmech1 ? "[1]" : "[x]",
    183       1.1   thorpej 	    scmech2 ? "[2]" : "[x]",
    184       1.1   thorpej 	    pcibios_max_bus);
    185       1.1   thorpej 
    186       1.1   thorpej 	/*
    187       1.1   thorpej 	 * The PCI BIOS tells us the config mechanism; fill it in now
    188       1.1   thorpej 	 * so that pci_mode_detect() doesn't have to look for it.
    189       1.1   thorpej 	 */
    190       1.1   thorpej 	pci_mode = mech1 ? 1 : 2;
    191       1.1   thorpej 
    192       1.1   thorpej 	pcibios_present = 1;
    193       1.1   thorpej 
    194       1.1   thorpej 	/*
    195       1.1   thorpej 	 * Find the PCI IRQ Routing table.
    196       1.1   thorpej 	 */
    197       1.1   thorpej 	pcibios_pir_init();
    198       1.1   thorpej 
    199      1.25    sekiya #ifdef PCI_INTR_FIXUP
    200       1.1   thorpej 	if (pcibios_pir_table != NULL) {
    201       1.1   thorpej 		int rv;
    202      1.31     perry 		uint16_t pciirq;
    203       1.1   thorpej 
    204       1.1   thorpej 		/*
    205       1.1   thorpej 		 * Fixup interrupt routing.
    206       1.1   thorpej 		 */
    207      1.11      fvdl 		rv = pci_intr_fixup(NULL, X86_BUS_SPACE_IO, &pciirq);
    208       1.1   thorpej 		switch (rv) {
    209       1.1   thorpej 		case -1:
    210       1.1   thorpej 			/* Non-fatal error. */
    211      1.32   thorpej 			aprint_error("Warning: unable to fix up PCI interrupt "
    212       1.1   thorpej 			    "routing\n");
    213       1.1   thorpej 			break;
    214       1.1   thorpej 
    215       1.1   thorpej 		case 1:
    216       1.1   thorpej 			/* Fatal error. */
    217       1.1   thorpej 			panic("pcibios_init: interrupt fixup failed");
    218       1.1   thorpej 			break;
    219       1.1   thorpej 		}
    220       1.1   thorpej 
    221       1.1   thorpej 		/*
    222       1.1   thorpej 		 * XXX Clear `pciirq' from the ISA interrupt allocation
    223       1.1   thorpej 		 * XXX mask.
    224       1.1   thorpej 		 */
    225       1.1   thorpej 	}
    226       1.2   thorpej #endif
    227       1.1   thorpej }
    228       1.1   thorpej 
    229       1.1   thorpej void
    230      1.22     perry pcibios_pir_init(void)
    231       1.1   thorpej {
    232      1.19     kochi 	char *devinfo;
    233       1.1   thorpej 	paddr_t pa;
    234  1.33.2.1     rmind 	char *p;
    235       1.1   thorpej 	unsigned char cksum;
    236      1.31     perry 	uint16_t tablesize;
    237      1.31     perry 	uint8_t rev_maj, rev_min;
    238       1.1   thorpej 	int i;
    239       1.1   thorpej 
    240       1.1   thorpej 	for (pa = PCI_IRQ_TABLE_START; pa < PCI_IRQ_TABLE_END; pa += 16) {
    241  1.33.2.1     rmind 		p = (void *)ISA_HOLE_VADDR(pa);
    242       1.9  christos 		if (*(int *)p != BIOS32_MAKESIG('$', 'P', 'I', 'R')) {
    243       1.9  christos 			/*
    244      1.12  drochner 			 * XXX: Some laptops (Toshiba/Libretto L series)
    245       1.9  christos 			 * use _PIR instead of $PIR. So we try that too.
    246       1.9  christos 			 */
    247       1.9  christos 			if (*(int *)p != BIOS32_MAKESIG('_', 'P', 'I', 'R'))
    248       1.9  christos 				continue;
    249       1.9  christos 		}
    250       1.1   thorpej 
    251       1.1   thorpej 		rev_min = *(p + 4);
    252       1.1   thorpej 		rev_maj = *(p + 5);
    253      1.31     perry 		tablesize = *(uint16_t *)(p + 6);
    254       1.1   thorpej 
    255       1.1   thorpej 		cksum = 0;
    256       1.1   thorpej 		for (i = 0; i < tablesize; i++)
    257       1.1   thorpej 			cksum += *(unsigned char *)(p + i);
    258       1.1   thorpej 
    259      1.32   thorpej 		aprint_normal(
    260      1.32   thorpej 		    "PCI IRQ Routing Table rev. %d.%d found at 0x%lx, "
    261       1.1   thorpej 		    "size %d bytes (%d entries)\n", rev_maj, rev_min, pa,
    262       1.1   thorpej 		    tablesize, (tablesize - 32) / 16);
    263       1.1   thorpej 
    264       1.1   thorpej 		if (cksum != 0) {
    265      1.32   thorpej 			aprint_error("pcibios_pir_init: bad IRQ table checksum\n");
    266       1.1   thorpej 			continue;
    267       1.1   thorpej 		}
    268       1.1   thorpej 
    269       1.1   thorpej 		if (tablesize < 32 || (tablesize % 16) != 0) {
    270      1.32   thorpej 			aprint_error("pcibios_pir_init: bad IRQ table size\n");
    271       1.1   thorpej 			continue;
    272       1.1   thorpej 		}
    273       1.1   thorpej 
    274       1.1   thorpej 		if (rev_maj != 1 || rev_min != 0) {
    275      1.32   thorpej 			aprint_error("pcibios_pir_init: unsupported IRQ table "
    276       1.1   thorpej 			    "version\n");
    277       1.1   thorpej 			continue;
    278       1.1   thorpej 		}
    279       1.1   thorpej 
    280       1.1   thorpej 		/*
    281       1.1   thorpej 		 * We can handle this table!  Make a copy of it.
    282       1.1   thorpej 		 */
    283       1.1   thorpej 		memcpy(&pcibios_pir_header, p, 32);
    284       1.1   thorpej 		pcibios_pir_table = malloc(tablesize - 32, M_DEVBUF,
    285       1.1   thorpej 		    M_NOWAIT);
    286       1.1   thorpej 		if (pcibios_pir_table == NULL) {
    287      1.32   thorpej 			aprint_error("pcibios_pir_init: no memory for $PIR\n");
    288       1.1   thorpej 			return;
    289       1.1   thorpej 		}
    290       1.1   thorpej 		memcpy(pcibios_pir_table, p + 32, tablesize - 32);
    291       1.1   thorpej 		pcibios_pir_table_nentries = (tablesize - 32) / 16;
    292       1.1   thorpej 
    293      1.32   thorpej 		aprint_verbose("PCI Interrupt Router at %03d:%02d:%01d",
    294       1.1   thorpej 		    pcibios_pir_header.router_bus,
    295       1.4      soda 		    PIR_DEVFUNC_DEVICE(pcibios_pir_header.router_devfunc),
    296       1.4      soda 		    PIR_DEVFUNC_FUNCTION(pcibios_pir_header.router_devfunc));
    297       1.1   thorpej 		if (pcibios_pir_header.compat_router != 0) {
    298      1.19     kochi 			devinfo = malloc(256, M_DEVBUF, M_NOWAIT);
    299      1.19     kochi 			if (devinfo) {
    300      1.19     kochi 				pci_devinfo(pcibios_pir_header.compat_router,
    301      1.19     kochi 				    0, 0, devinfo, 256);
    302      1.32   thorpej 				aprint_verbose(" (%s compatible)", devinfo);
    303      1.19     kochi 				free(devinfo, M_DEVBUF);
    304      1.19     kochi 			}
    305       1.1   thorpej 		}
    306      1.32   thorpej 		aprint_verbose("\n");
    307       1.1   thorpej 		pcibios_print_exclirq();
    308      1.18  christos 
    309      1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    310      1.18  christos 		/* for Libretto L2/L3 hack */
    311      1.18  christos 		pcibios_fixup_pir_table();
    312      1.18  christos #endif
    313      1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    314      1.20  augustss 		pcibios_mm20_fixup();
    315      1.20  augustss #endif
    316       1.1   thorpej #ifdef PCIINTR_DEBUG
    317       1.1   thorpej 		pcibios_print_pir_table();
    318       1.1   thorpej #endif
    319       1.1   thorpej 		return;
    320       1.1   thorpej 	}
    321       1.1   thorpej 
    322       1.1   thorpej 	/*
    323       1.1   thorpej 	 * If there was no PIR table found, try using the PCI BIOS
    324       1.1   thorpej 	 * Get Interrupt Routing call.
    325       1.1   thorpej 	 *
    326       1.1   thorpej 	 * XXX The interface to this call sucks; just allocate enough
    327       1.1   thorpej 	 * XXX room for 32 entries.
    328       1.1   thorpej 	 */
    329       1.1   thorpej 	pcibios_pir_table_nentries = 32;
    330       1.1   thorpej 	pcibios_pir_table = malloc(pcibios_pir_table_nentries *
    331       1.1   thorpej 	    sizeof(*pcibios_pir_table), M_DEVBUF, M_NOWAIT);
    332       1.1   thorpej 	if (pcibios_pir_table == NULL) {
    333      1.32   thorpej 		aprint_error("pcibios_pir_init: no memory for $PIR\n");
    334       1.1   thorpej 		return;
    335       1.1   thorpej 	}
    336       1.1   thorpej 	if (pcibios_get_intr_routing(pcibios_pir_table,
    337       1.1   thorpej 	    &pcibios_pir_table_nentries,
    338       1.1   thorpej 	    &pcibios_pir_header.exclusive_irq) != PCIBIOS_SUCCESS) {
    339      1.32   thorpej 		aprint_normal("No PCI IRQ Routing information available.\n");
    340       1.1   thorpej 		free(pcibios_pir_table, M_DEVBUF);
    341       1.1   thorpej 		pcibios_pir_table = NULL;
    342       1.1   thorpej 		pcibios_pir_table_nentries = 0;
    343       1.1   thorpej 		return;
    344       1.1   thorpej 	}
    345      1.32   thorpej 	aprint_verbose("PCI BIOS has %d Interrupt Routing table entries\n",
    346       1.1   thorpej 	    pcibios_pir_table_nentries);
    347       1.1   thorpej 	pcibios_print_exclirq();
    348      1.18  christos 
    349      1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    350      1.18  christos 	/* for Libretto L2/L3 hack */
    351      1.18  christos 	pcibios_fixup_pir_table();
    352      1.18  christos #endif
    353      1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    354      1.20  augustss 	pcibios_mm20_fixup();
    355      1.20  augustss #endif
    356       1.1   thorpej #ifdef PCIINTR_DEBUG
    357       1.1   thorpej 	pcibios_print_pir_table();
    358       1.1   thorpej #endif
    359       1.1   thorpej }
    360       1.1   thorpej 
    361       1.1   thorpej int
    362      1.31     perry pcibios_get_status(uint32_t *rev_maj, uint32_t *rev_min,
    363      1.31     perry     uint32_t *mech1, uint32_t *mech2, uint32_t *scmech1, uint32_t *scmech2,
    364      1.31     perry     uint32_t *maxbus)
    365       1.1   thorpej {
    366      1.31     perry 	uint16_t ax, bx, cx;
    367      1.31     perry 	uint32_t edx;
    368       1.1   thorpej 	int rv;
    369       1.1   thorpej 
    370      1.30     perry 	__asm volatile("lcall *(%%edi)				; \
    371       1.1   thorpej 			jc 1f						; \
    372       1.1   thorpej 			xor %%ah, %%ah					; \
    373       1.1   thorpej 		1:"
    374       1.1   thorpej 		: "=a" (ax), "=b" (bx), "=c" (cx), "=d" (edx)
    375       1.1   thorpej 		: "0" (0xb101), "D" (&pcibios_entry));
    376       1.1   thorpej 
    377       1.1   thorpej 	rv = pcibios_return_code(ax, "pcibios_get_status");
    378       1.1   thorpej 	if (rv != PCIBIOS_SUCCESS)
    379       1.1   thorpej 		return (rv);
    380       1.1   thorpej 
    381       1.1   thorpej 	if (edx != BIOS32_MAKESIG('P', 'C', 'I', ' '))
    382       1.1   thorpej 		return (PCIBIOS_SERVICE_NOT_PRESENT);	/* XXX */
    383       1.1   thorpej 
    384       1.1   thorpej 	/*
    385       1.1   thorpej 	 * Fill in the various pieces if info we're looking for.
    386       1.1   thorpej 	 */
    387       1.1   thorpej 	*mech1 = ax & 1;
    388       1.1   thorpej 	*mech2 = ax & (1 << 1);
    389       1.1   thorpej 	*scmech1 = ax & (1 << 4);
    390       1.1   thorpej 	*scmech2 = ax & (1 << 5);
    391       1.1   thorpej 	*rev_maj = (bx >> 8) & 0xff;
    392       1.1   thorpej 	*rev_min = bx & 0xff;
    393       1.1   thorpej 	*maxbus = cx & 0xff;
    394       1.1   thorpej 
    395       1.1   thorpej 	return (PCIBIOS_SUCCESS);
    396       1.1   thorpej }
    397       1.1   thorpej 
    398       1.1   thorpej int
    399      1.16     kochi pcibios_get_intr_routing(struct pcibios_intr_routing *table,
    400      1.31     perry     int *nentries, uint16_t *exclirq)
    401       1.1   thorpej {
    402      1.31     perry 	uint16_t ax, bx;
    403       1.1   thorpej 	int rv;
    404       1.1   thorpej 	struct {
    405      1.31     perry 		uint16_t size;
    406  1.33.2.1     rmind 		void *offset;
    407      1.31     perry 		uint16_t segment;
    408       1.1   thorpej 	} __attribute__((__packed__)) args;
    409       1.1   thorpej 
    410       1.1   thorpej 	args.size = *nentries * sizeof(*table);
    411  1.33.2.1     rmind 	args.offset = (void *)table;
    412       1.1   thorpej 	args.segment = GSEL(GDATA_SEL, SEL_KPL);
    413       1.1   thorpej 
    414       1.1   thorpej 	memset(table, 0, args.size);
    415       1.1   thorpej 
    416      1.30     perry 	__asm volatile("lcall *(%%esi)				; \
    417       1.1   thorpej 			jc 1f						; \
    418       1.1   thorpej 			xor %%ah, %%ah					; \
    419       1.1   thorpej 		1:	movw %w2, %%ds					; \
    420       1.1   thorpej 			movw %w2, %%es"
    421       1.1   thorpej 		: "=a" (ax), "=b" (bx)
    422       1.1   thorpej 		: "r" GSEL(GDATA_SEL, SEL_KPL), "0" (0xb10e), "1" (0),
    423       1.1   thorpej 		  "D" (&args), "S" (&pcibios_entry));
    424       1.1   thorpej 
    425       1.1   thorpej 	rv = pcibios_return_code(ax, "pcibios_get_intr_routing");
    426       1.1   thorpej 	if (rv != PCIBIOS_SUCCESS)
    427       1.1   thorpej 		return (rv);
    428       1.1   thorpej 
    429       1.1   thorpej 	*nentries = args.size / sizeof(*table);
    430       1.1   thorpej 	*exclirq = bx;
    431       1.1   thorpej 
    432       1.1   thorpej 	return (PCIBIOS_SUCCESS);
    433       1.1   thorpej }
    434       1.1   thorpej 
    435       1.1   thorpej int
    436      1.31     perry pcibios_return_code(uint16_t ax, const char *func)
    437       1.1   thorpej {
    438       1.1   thorpej 	const char *errstr;
    439       1.1   thorpej 	int rv = ax >> 8;
    440       1.1   thorpej 
    441       1.1   thorpej 	switch (rv) {
    442       1.1   thorpej 	case PCIBIOS_SUCCESS:
    443       1.1   thorpej 		return (PCIBIOS_SUCCESS);
    444       1.1   thorpej 
    445       1.1   thorpej 	case PCIBIOS_SERVICE_NOT_PRESENT:
    446       1.1   thorpej 		errstr = "service not present";
    447       1.1   thorpej 		break;
    448       1.1   thorpej 
    449       1.1   thorpej 	case PCIBIOS_FUNCTION_NOT_SUPPORTED:
    450       1.1   thorpej 		errstr = "function not supported";
    451       1.1   thorpej 		break;
    452       1.1   thorpej 
    453       1.1   thorpej 	case PCIBIOS_BAD_VENDOR_ID:
    454       1.1   thorpej 		errstr = "bad vendor ID";
    455       1.1   thorpej 		break;
    456       1.1   thorpej 
    457       1.1   thorpej 	case PCIBIOS_DEVICE_NOT_FOUND:
    458       1.1   thorpej 		errstr = "device not found";
    459       1.1   thorpej 		break;
    460       1.1   thorpej 
    461       1.1   thorpej 	case PCIBIOS_BAD_REGISTER_NUMBER:
    462       1.1   thorpej 		errstr = "bad register number";
    463       1.1   thorpej 		break;
    464       1.1   thorpej 
    465       1.1   thorpej 	case PCIBIOS_SET_FAILED:
    466       1.1   thorpej 		errstr = "set failed";
    467       1.1   thorpej 		break;
    468       1.1   thorpej 
    469       1.1   thorpej 	case PCIBIOS_BUFFER_TOO_SMALL:
    470       1.1   thorpej 		errstr = "buffer too small";
    471       1.1   thorpej 		break;
    472       1.1   thorpej 
    473       1.1   thorpej 	default:
    474      1.32   thorpej 		aprint_error("%s: unknown return code 0x%x\n", func, rv);
    475       1.1   thorpej 		return (rv);
    476       1.1   thorpej 	}
    477       1.1   thorpej 
    478      1.32   thorpej 	aprint_error("%s: %s\n", func, errstr);
    479       1.1   thorpej 	return (rv);
    480       1.1   thorpej }
    481       1.1   thorpej 
    482       1.1   thorpej void
    483      1.22     perry pcibios_print_exclirq(void)
    484       1.1   thorpej {
    485       1.1   thorpej 	int i;
    486       1.1   thorpej 
    487       1.1   thorpej 	if (pcibios_pir_header.exclusive_irq) {
    488      1.32   thorpej 		aprint_verbose("PCI Exclusive IRQs:");
    489       1.1   thorpej 		for (i = 0; i < 16; i++) {
    490       1.1   thorpej 			if (pcibios_pir_header.exclusive_irq & (1 << i))
    491      1.32   thorpej 				aprint_verbose(" %d", i);
    492       1.1   thorpej 		}
    493      1.32   thorpej 		aprint_verbose("\n");
    494       1.1   thorpej 	}
    495       1.1   thorpej }
    496       1.1   thorpej 
    497      1.18  christos #ifdef PCIBIOS_LIBRETTO_FIXUP
    498      1.18  christos /* for Libretto L2/L3 hack */
    499      1.18  christos static void
    500      1.22     perry pcibios_fixup_pir_table(void)
    501      1.18  christos {
    502      1.18  christos 	struct pcibios_linkmap *m;
    503      1.18  christos 
    504      1.18  christos 	for (m = pir_mask; m->link != 0; m++)
    505      1.18  christos 		pcibios_fixup_pir_table_mask(m);
    506      1.18  christos }
    507      1.18  christos 
    508      1.18  christos void
    509      1.22     perry pcibios_fixup_pir_table_mask(struct pcibios_linkmap *mask)
    510      1.18  christos {
    511      1.18  christos 	int i, j;
    512      1.18  christos 
    513      1.18  christos 	for (i = 0; i < pcibios_pir_table_nentries; i++) {
    514      1.18  christos 		for (j = 0; j < 4; j++) {
    515      1.18  christos 			if (pcibios_pir_table[i].linkmap[j].link == mask->link) {
    516      1.18  christos 				pcibios_pir_table[i].linkmap[j].bitmap
    517      1.18  christos 				    &= mask->bitmap;
    518      1.18  christos 			}
    519      1.18  christos 		}
    520      1.18  christos 	}
    521      1.18  christos }
    522      1.18  christos #endif
    523      1.18  christos 
    524       1.1   thorpej #ifdef PCIINTR_DEBUG
    525       1.1   thorpej void
    526      1.22     perry pcibios_print_pir_table(void)
    527       1.1   thorpej {
    528       1.1   thorpej 	int i, j;
    529       1.1   thorpej 
    530       1.1   thorpej 	for (i = 0; i < pcibios_pir_table_nentries; i++) {
    531       1.1   thorpej 		printf("PIR Entry %d:\n", i);
    532       1.1   thorpej 		printf("\tBus: %d  Device: %d\n",
    533       1.1   thorpej 		    pcibios_pir_table[i].bus,
    534       1.4      soda 		    PIR_DEVFUNC_DEVICE(pcibios_pir_table[i].device));
    535       1.1   thorpej 		for (j = 0; j < 4; j++) {
    536       1.1   thorpej 			printf("\t\tINT%c: link 0x%02x bitmap 0x%04x\n",
    537       1.1   thorpej 			    'A' + j,
    538       1.1   thorpej 			    pcibios_pir_table[i].linkmap[j].link,
    539       1.1   thorpej 			    pcibios_pir_table[i].linkmap[j].bitmap);
    540       1.1   thorpej 		}
    541       1.1   thorpej 	}
    542       1.1   thorpej }
    543       1.1   thorpej #endif
    544       1.3       uch 
    545      1.20  augustss #ifdef PCIBIOS_SHARP_MM20_FIXUP
    546      1.20  augustss /*
    547      1.20  augustss  * This is a gross hack to get the interrupt from the EHCI controller
    548      1.20  augustss  * working on a Sharp MM20.  The BIOS is just incredibly buggy.
    549      1.20  augustss  *
    550      1.20  augustss  * The story thus far:
    551      1.20  augustss  * The modern way to route the interrupt is to use ACPI.  But using
    552      1.20  augustss  * ACPI fails with an error message about an uninitialized local
    553      1.20  augustss  * variable in the AML code.  (It works in Windows, but fails in NetBSD
    554      1.20  augustss  * and Linux.)
    555      1.20  augustss  *
    556      1.20  augustss  * The second attempt is to use PCI Interrupt Routing table.  But this
    557      1.20  augustss  * fails because the table does not contain any information about the
    558      1.20  augustss  * interrupt from the EHCI controller.  This is probably due to the fact
    559      1.20  augustss  * that the table is compatible with ALi M1543, but the MM20 has an ALi M1563.
    560      1.20  augustss  * The M1563 has additional interrupt lines.  The ali1543.c code also
    561      1.20  augustss  * cannot handle the M1653's extended interrupts.  And fixing this is
    562      1.20  augustss  * difficult since getting a data sheet from ALi requires signing an NDA.
    563      1.20  augustss  *
    564      1.20  augustss  * The third attempt is to use a BIOS call to route the interrupt
    565      1.20  augustss  * (as FreeBSD does) with manually generated information.  But the BIOS call
    566      1.20  augustss  * fails because the BIOS code is not quite position independent.  It makes
    567      1.20  augustss  * some assumption about where the code segment register points.
    568      1.20  augustss  *
    569      1.20  augustss  * So the solution is to use the third attempt, but with a patched version
    570      1.20  augustss  * of the BIOS.
    571      1.20  augustss  *    -- lennart (at) augustsson.net
    572      1.20  augustss  */
    573      1.20  augustss 
    574      1.20  augustss #define	BIOS32_START	0xe0000
    575      1.20  augustss #define	BIOS32_SIZE	0x20000
    576      1.20  augustss 
    577      1.20  augustss static char pcibios_shadow[BIOS32_SIZE];
    578      1.20  augustss static struct bios32_entry pcibios_entry_shadow;
    579      1.20  augustss 
    580      1.20  augustss /*
    581      1.20  augustss  * Copy BIOS and zap offending instruction.
    582      1.20  augustss  * The bad instruction is
    583      1.20  augustss  *    mov    %cs:0x63c(%ebx),%ah
    584      1.20  augustss  * NetBSD does not have the code segment set up for this to work.
    585      1.20  augustss  * Using the value 0xff for the table entry seems to work.
    586      1.20  augustss  * The replacement is
    587      1.20  augustss  *    mov $0xff,%ah; nop; nop; nop; nop; nop
    588      1.20  augustss  */
    589      1.20  augustss static void
    590      1.20  augustss pcibios_copy_bios(void)
    591      1.20  augustss {
    592      1.31     perry 	uint8_t *bad_instr;
    593      1.20  augustss 
    594      1.20  augustss 	memcpy(pcibios_shadow, ISA_HOLE_VADDR(BIOS32_START), BIOS32_SIZE);
    595      1.20  augustss 	pcibios_entry_shadow = pcibios_entry;
    596      1.20  augustss 	pcibios_entry_shadow.offset =
    597      1.20  augustss 	    (void*)((u_long)pcibios_shadow +
    598      1.20  augustss 		    (u_long)pcibios_entry.offset -
    599      1.20  augustss 		    (u_long)ISA_HOLE_VADDR(BIOS32_START));
    600      1.20  augustss 
    601      1.31     perry 	bad_instr = (uint8_t *)pcibios_entry_shadow.offset + 0x499;
    602      1.20  augustss 	if (*bad_instr != 0x2e)
    603      1.20  augustss 		panic("bad bios");
    604      1.20  augustss 	bad_instr[0] = 0xb4; bad_instr[1] = 0xff; /* mov $0xff,%ah */
    605      1.20  augustss 	bad_instr[2] = 0x90;		/* nop */
    606      1.20  augustss 	bad_instr[3] = 0x90;		/* nop */
    607      1.20  augustss 	bad_instr[4] = 0x90;		/* nop */
    608      1.20  augustss 	bad_instr[5] = 0x90;		/* nop */
    609      1.20  augustss 	bad_instr[6] = 0x90;		/* nop */
    610      1.20  augustss }
    611      1.20  augustss 
    612      1.20  augustss /*
    613      1.20  augustss  * Call BIOS to route an interrupt.
    614      1.20  augustss  * The PCI device is identified by bus,device,func.
    615      1.20  augustss  * The interrupt is on pin PIN (A-D) and interrupt IRQ.
    616      1.20  augustss  * BIOS knows the magic for the interrupt controller.
    617      1.20  augustss  */
    618      1.20  augustss static int
    619      1.20  augustss pcibios_biosroute(int bus, int device, int func, int pin, int irq)
    620      1.20  augustss {
    621      1.31     perry 	uint16_t ax, bx, cx;
    622      1.20  augustss 	int rv;
    623      1.20  augustss 
    624      1.32   thorpej 	aprint_debug("pcibios_biosroute: b,d,f=%d,%d,%d pin=%x irq=%d\n",
    625      1.20  augustss 	       bus, device, func, pin+0xa, irq);
    626      1.20  augustss 
    627      1.20  augustss 	bx = (bus << 8) | (device << 3) | func;
    628      1.20  augustss 	cx = (irq << 8) | (0xa + pin);
    629      1.20  augustss 
    630      1.30     perry 	__asm volatile("lcall *(%%esi)				; \
    631      1.20  augustss 			jc 1f						; \
    632      1.20  augustss 			xor %%ah, %%ah					; \
    633      1.20  augustss 		1:	movw %w1, %%ds					; \
    634      1.20  augustss 			movw %w1, %%es"
    635      1.20  augustss 			 : "=a" (ax)
    636      1.20  augustss 			 : "r" GSEL(GDATA_SEL, SEL_KPL), "0" (0xb10f),
    637      1.20  augustss 			   "b" (bx), "c" (cx),
    638      1.20  augustss 		           "S" (&pcibios_entry_shadow));
    639      1.20  augustss 
    640      1.20  augustss 	rv = pcibios_return_code(ax, "pcibios_biosroute");
    641      1.20  augustss 
    642      1.20  augustss 	return rv;
    643      1.20  augustss }
    644      1.20  augustss 
    645      1.21  augustss #define MM20_PCI_BUS 0
    646      1.21  augustss #define MM20_PCI_EHCI_DEV 15
    647      1.21  augustss #define MM20_PCI_EHCI_FUNC 3
    648      1.21  augustss #define MM20_PCI_EHCI_PIN 3
    649      1.21  augustss #define MM20_PCI_EHCI_INTR 11
    650      1.21  augustss #define MM20_PCI_ISA_DEV 3
    651      1.21  augustss #define MM20_PCI_ISA_FUNC 0
    652      1.21  augustss 
    653      1.20  augustss static void
    654      1.20  augustss pcibios_mm20_fixup(void)
    655      1.20  augustss {
    656      1.21  augustss 	pci_chipset_tag_t pc;
    657      1.21  augustss 	pcitag_t tag;
    658      1.21  augustss 
    659      1.20  augustss 	/* Copy BIOS */
    660      1.20  augustss 	pcibios_copy_bios();
    661      1.20  augustss 	/* Route the interrupt for the EHCI controller. */
    662      1.21  augustss 	(void)pcibios_biosroute(MM20_PCI_BUS,
    663      1.21  augustss 				MM20_PCI_EHCI_DEV,
    664      1.21  augustss 				MM20_PCI_EHCI_FUNC,
    665      1.21  augustss 				MM20_PCI_EHCI_PIN,
    666      1.21  augustss 				MM20_PCI_EHCI_INTR);
    667      1.21  augustss 
    668      1.21  augustss 	/* Fake some tags. */
    669      1.21  augustss 	pc = NULL;
    670      1.21  augustss 	tag = pci_make_tag(pc, MM20_PCI_BUS, MM20_PCI_EHCI_DEV,
    671      1.21  augustss 			   MM20_PCI_EHCI_FUNC);
    672      1.21  augustss 	/* Set interrupt register in EHCI controller */
    673      1.33    dyoung 	pci_conf_write(pc, tag, PCI_INTERRUPT_REG,
    674      1.33    dyoung 	    0x50000400 + MM20_PCI_EHCI_INTR);
    675      1.21  augustss 	tag = pci_make_tag(pc, MM20_PCI_BUS, MM20_PCI_ISA_DEV,
    676      1.21  augustss 			   MM20_PCI_ISA_FUNC);
    677      1.21  augustss 	/* Set some unknown registers in the ISA bridge. */
    678      1.21  augustss 	pci_conf_write(pc, tag, 0x58, 0xd87f5300);
    679      1.21  augustss 	pci_conf_write(pc, tag, 0x74, 0x00000009);
    680      1.20  augustss }
    681      1.20  augustss 
    682      1.20  augustss #endif /* PCIBIOS_SHARP_MM20_FIXUP */
    683