Submitted by: Wolfgang Stanglmeier <wolf@dentaro.GUN.de> + Stefan Esser <se>

Directory for PCI autoconfigure and device driver code.

1 files changed, 598 insertions, 0 deletions

diff --git a/sys/pci/pci.c b/sys/pci/pci.c
new file mode 100644
index 0000000..f072284
--- /dev/null
+++ b/sys/pci/pci.c
@@ -0,0 +1,598 @@
+/**************************************************************************
+**
+**  $Id: pci.c,v 2.0.0.8 94/08/21 19:57:39 wolf Exp $
+**
+**  General subroutines for the PCI bus on 80*86 systems.
+**  pci_configure ()
+**
+**  386bsd / FreeBSD
+**
+**-------------------------------------------------------------------------
+**
+** Copyright (c) 1994 Wolfgang Stanglmeier.  All rights reserved.
+**
+** Redistribution and use in source and binary forms, with or without
+** modification, are permitted provided that the following conditions
+** are met:
+** 1. Redistributions of source code must retain the above copyright
+**    notice, this list of conditions and the following disclaimer.
+** 2. Redistributions in binary form must reproduce the above copyright
+**    notice, this list of conditions and the following disclaimer in the
+**    documentation and/or other materials provided with the distribution.
+** 3. The name of the author may not be used to endorse or promote products
+**    derived from this software without specific prior written permission.
+**
+** THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+** IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+** OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+** IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+** NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+** THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+**
+**-------------------------------------------------------------------------
+**
+**  $Log:	pci.c,v $
+**  Revision 2.0.0.8  94/08/21  19:57:39  wolf
+**  Unneeded declarations removed (FreeBSD2.0)
+**  
+**  Revision 2.0.0.7  94/08/21  19:25:54  wolf
+**  pci_intr simplified.
+**  new not_supported() function.
+**  Vendor and device ids moved into tables.
+**  
+**  Revision 2.0.0.6  94/08/18  22:58:23  wolf
+**  Symbolic names for pci configuration space registers.
+**  last_device: from configuration mode
+**  last_bus: from pcibios.
+**  PCI_MAX_DPI: changed to 4 (settable by config)
+**  interrupt configuration by line or pin
+**  
+**  Revision 2.0.0.5  94/08/11  19:04:10  wolf
+**  display of interrupt line configuration register.
+**  
+**  Revision 2.0.0.4  94/08/01  20:36:28  wolf
+**  Tiny clean up.
+**  
+**  Revision 2.0.0.3  94/08/01  18:52:33  wolf
+**  New vendor entry:  S3.
+**  Scan pci busses #0..#255 as default.
+**  Number of scanned busses and devices settable as option.
+**  Show these numbers before starting the scan.
+**  
+**  Revision 2.0.0.2  94/07/27  09:27:19  wolf
+**  New option PCI_QUIET: suppress log messages.
+**  
+**  Revision 2.0.0.1  94/07/19  19:06:44  wolf
+**  New vendor entry:  MATROX
+**  
+**  Revision 2.0  94/07/10  15:53:29  wolf
+**  FreeBSD release.
+**  
+**  Revision 1.0  94/06/07  20:02:19  wolf
+**  Beta release.
+**  
+***************************************************************************
+*/
+
+#include <pci.h>
+#if NPCI > 0
+
+/*========================================================
+**
+**	Configuration
+**
+**========================================================
+*/
+
+/*
+**	maximum number of devices which share one interrupt line
+*/
+
+#ifndef PCI_MAX_DPI
+#define PCI_MAX_DPI	(4)
+#endif  /*PCI_MAX_DPI*/
+
+
+/*========================================================
+**
+**	#includes  and  declarations
+**
+**========================================================
+*/
+
+#include <types.h>
+#include <cdefs.h>
+#include <errno.h>
+#include <param.h>
+
+#include <vm/vm.h>
+#include <vm/vm_param.h>
+
+#include <i386/isa/icu.h>
+#include <i386/isa/isa.h>
+#include <i386/isa/isa_device.h>
+
+#include <i386/pci/pci.h>
+#include <i386/pci/pci_device.h>
+#include <i386/pci/pcibios.h>
+
+
+char ident_pci_c[] =
+	"\n$Id: pci.c,v 2.0.0.8 94/08/21 19:57:39 wolf Exp $\n"
+	"Copyright (c) 1994, Wolfgang Stanglmeier\n";
+
+/*
+**	Function prototypes missing in system headers
+*/
+
+extern int printf();
+extern int ffs();
+#if ! (__FreeBSD__ >= 2)
+extern pmap_t pmap_kernel(void);
+#endif
+
+
+/*========================================================
+**
+**	Autoconfiguration (of isa bus)
+**
+**========================================================
+*/
+
+/*
+**      per device (interrupt) data structure.
+*/
+
+static struct {
+	u_short number;
+	u_short isanum;
+	struct {
+		int (*proc)(int dev);
+		dev_t unit;
+	} vector[PCI_MAX_DPI];
+} pcidata [NPCI];
+
+/*
+**	check device ready
+*/
+static int pciprobe (struct isa_device *dev)
+{
+	if (dev->id_unit >= NPCI)
+		return (0);
+
+	if (!pci_conf_mode())
+		return (0);
+
+	return (-1);
+}
+
+/*
+**	initialize the driver structure
+*/
+static int pciattach (struct isa_device *isdp)
+{
+	pcidata[isdp->id_unit].number = 0;
+	pcidata[isdp->id_unit].isanum = ffs(isdp->id_irq)-1;
+	return (1);
+}
+
+/*
+**      ISA driver structure
+*/
+
+struct isa_driver pcidriver = {
+	pciprobe,
+	pciattach,
+	"pci"
+};
+
+/*========================================================
+**
+**	Interrupt forward from isa to pci devices.
+**
+**========================================================
+*/
+
+
+void pciintr (int unit)
+{
+	u_short i;
+	if (unit >= NPCI) return;
+	for (i=0; i<pcidata[unit].number; i++) {
+		(void)(*pcidata[unit].vector[i].proc)(pcidata[unit].vector[i].unit);
+	};
+}
+
+
+/*========================================================
+**
+**	Autoconfiguration of pci devices.
+**
+**	This is reverse to the isa configuration.
+**	(1) find a pci device.
+**	(2) look for a driver.
+**
+**========================================================
+*/
+
+/*--------------------------------------------------------
+**
+**	The pci devices can be mapped to any address.
+**	As default we start at the last gigabyte.
+**
+**--------------------------------------------------------
+*/
+
+#ifndef PCI_PMEM_START
+#define PCI_PMEM_START 0xc0000000
+#endif
+
+static vm_offset_t pci_paddr = PCI_PMEM_START;
+
+/*---------------------------------------------------------
+**
+**	pci_configure ()
+**
+**---------------------------------------------------------
+*/
+
+static void not_supported (pcici_t tag, u_long type);
+
+void pci_configure()
+{
+	u_char	device,last_device;
+	u_short	bus,last_bus;
+	pcici_t	tag;
+	pcidi_t type;
+	u_long	data;
+	int	unit;
+	int	intpin;
+	int	isanum;
+	int	pci_mode;
+
+	struct pci_driver *drp;
+	struct pci_device *dvp;
+
+	/*
+	**	check pci bus present
+	*/
+
+	pci_mode = pci_conf_mode ();
+	if (!pci_mode) return;
+	last_bus = pci_last_bus ();
+	last_device = pci_mode==1 ? 31 : 15;
+
+	/*
+	**	hello world ..
+	*/
+
+#ifndef PCI_QUIET
+	printf ("PCI configuration mode %d.\n", pci_mode);
+	printf ("Scanning device 0..%d on pci bus 0..%d "
+		"($Revision: 2.0.0.8 $)\n",
+		last_device, last_bus);
+#endif
+
+	for (bus=0;bus<=last_bus; bus++)
+	    for (device=0; device<=last_device; device ++) {
+		tag = pcitag (bus, device, 0);
+		type = pci_conf_read (tag, PCI_ID_REG);
+
+		if ((!type) || (type==0xfffffffful)) continue;
+
+		/*
+		**	lookup device in ioconfiguration:
+		*/
+
+		for (dvp = pci_devtab; drp=dvp->pd_driver; dvp++) {
+			if (drp->device_id == type) break;
+		};
+
+#ifdef PCI_QUIET
+		if (!drp) continue;
+#endif
+		printf ("on pci%d:%d ", bus, device);
+#ifndef PCI_QUIET
+		if (!drp) {
+			not_supported (tag, type);
+			continue;
+		};
+#endif
+
+		/*
+		**	found it.
+		**	probe returns the device unit.
+		*/
+
+		printf ("<%s>", drp -> vendor);
+
+		unit = (*drp->probe) (tag);
+
+		if (unit<0) {
+			printf (" probe failed.\n");
+			continue;
+		};
+
+		/*
+		**	install interrupts
+		*/
+
+		data = pci_conf_read (tag, PCI_INTERRUPT_REG);
+		intpin = PCI_INTERRUPT_PIN_EXTRACT(data);
+		if (intpin) {
+			int idx=NPCI;
+
+			/*
+			**  Usage of int line register (if set by bios)
+			**  Matt Thomas	<thomas@lkg.dec.com>
+			*/
+
+			isanum = PCI_INTERRUPT_LINE_EXTRACT(data);
+			if (isanum) {
+				printf (" il=%d", isanum);
+				for (idx = 0; idx < NPCI; idx++) {
+					if (pcidata[idx].isanum == isanum)
+						break;
+				};
+			};
+
+			/*
+			**	Or believe to the interrupt pin register.
+			*/
+
+			if (idx >= NPCI) idx = intpin-1;
+
+			/*
+			**	And install the interrupt.
+			*/
+
+			if (idx<NPCI) {
+				u_short entry = pcidata[idx].number;
+				printf (" irq %c", 0x60+intpin);
+				if (entry < PCI_MAX_DPI) {
+					pcidata[idx].vector[entry].proc = drp->intr;
+					pcidata[idx].vector[entry].unit = unit;
+					entry++;
+				};
+				printf (" isa=%d [%d]",pcidata[idx].isanum, entry);
+				pcidata[idx].number=entry;
+			} else {
+				printf (" not installed");
+			};
+		};
+
+		/*
+		**	enable memory access
+		*/
+		data = pci_conf_read (tag, PCI_COMMAND_STATUS_REG)
+			& 0xffff | PCI_COMMAND_MEM_ENABLE;
+		pci_conf_write (tag, (u_char) PCI_COMMAND_STATUS_REG, data);
+
+		/*
+		**	attach device
+		**	may produce additional log messages,
+		**	i.e. when installing subdevices.
+		*/
+
+		printf (" as %s%d\n", drp->name,unit);
+		(void) (*drp->attach) (tag);
+
+	};
+
+	printf ("pci uses physical addresses from %x to %x\n",
+			PCI_PMEM_START, pci_paddr);
+}
+
+/*-----------------------------------------------------------------------
+**
+**	Map device into port space.
+**
+**	PCI-Specification:  6.2.5.1: address maps
+**
+**-----------------------------------------------------------------------
+*/
+
+extern vm_map_t kernel_map;
+
+int pci_map_port (pcici_t tag, u_long reg, u_short* pa)
+{
+	/*
+	**	@MAPIO@ not yet implemented.
+	*/
+	return (ENOSYS);
+}
+
+/*-----------------------------------------------------------------------
+**
+**	Map device into virtual and physical space
+**
+**	PCI-Specification:  6.2.5.1: address maps
+**
+**-----------------------------------------------------------------------
+*/
+
+int pci_map_mem (pcici_t tag, u_long reg, vm_offset_t* va, vm_offset_t* pa)
+{
+	u_long data, result;
+	vm_size_t vsize;
+	vm_offset_t vaddr;
+
+	/*
+	**	sanity check
+	*/
+
+	if (reg <= PCI_MAP_REG_START || reg >= PCI_MAP_REG_END || (reg & 3))
+		return (EINVAL);
+
+	/*
+	**	get size and type of memory
+	**
+	**	type is in the lowest four bits.
+	**	If device requires 2^n bytes, the next
+	**	n-4 bits are read as 0.
+	*/
+
+	pci_conf_write (tag, reg, 0xfffffffful);
+	data = pci_conf_read (tag, reg);
+
+	switch (data & 0x0f) {
+
+	case PCI_MAP_MEMORY_TYPE_32BIT:	/* 32 bit non cachable */
+		break;
+
+	default:	/* unknown */
+		return (EINVAL);
+	};
+
+	/*
+	**	mask out the type,
+	**	and round up to a page size
+	*/
+
+	vsize = round_page (-(data &  PCI_MAP_MEMORY_ADDRESS_MASK));
+
+	printf ("          memory size=0x%x", vsize);
+
+	if (!vsize) return (EINVAL);
+
+	/*
+	**	try to map device to virtual space
+	*/
+
+	vaddr  = vm_map_min (kernel_map);
+
+	result = vm_map_find (kernel_map, (void*)0, (vm_offset_t) 0,
+				&vaddr, vsize, TRUE);
+
+	if (result != KERN_SUCCESS) {
+		printf (" vm_map_find failed(%d)\n", result);
+		return (ENOMEM);
+	};
+
+	/*
+	**	align physical address to virtual size
+	*/
+
+	if (data = pci_paddr % vsize)
+		pci_paddr += vsize - data;
+
+	/*
+	**	display values.
+	*/
+
+	printf (" virtual=0x%x physical=0x%x\n", vaddr, pci_paddr);
+
+	/*
+	**	return them to the driver
+	*/
+
+	*va = vaddr;
+	*pa = pci_paddr;
+
+	/*
+	**	set device address
+	*/
+
+	pci_conf_write (tag, reg, pci_paddr);
+
+	/*
+	**	map physical
+	*/
+
+	while (vsize >= NBPG) {
+		pmap_enter (pmap_kernel(), vaddr, pci_paddr,
+				VM_PROT_READ|VM_PROT_WRITE, TRUE);
+		vaddr     += NBPG;
+		pci_paddr += NBPG;
+		vsize     -= NBPG;
+	};
+
+	return (0);
+}
+
+struct vt {
+	u_short	ident;
+	char*	name;
+};
+
+struct dt {
+	u_long	ident;
+	char*	name;
+};
+
+static struct vt VendorTable[] = {
+	{0x1002, "ATI TECHNOLOGIES INC"},
+	{0x1011, "DIGITAL EQUIPMENT COMPANY"},
+	{0x101A, "NCR"},
+	{0x102B, "MATROX"},
+	{0x1045, "OPTI"},
+	{0x5333, "S3 INC."},
+	{0x8086, "INTEL CORPORATION"},
+	{0,0}
+};
+
+static struct dt DeviceTable[] = {
+	{0x04848086, " 82378IB pci-isa bridge"},
+	{0x04838086, " 82424ZX cache dram controller"},
+	{0x04828086, " 82375EB pci-eisa bridge"},
+	{0x04A38086, " 82434LX pci cache memory controller"},
+	{0,0}
+};
+
+void not_supported (pcici_t tag, u_long type)
+{
+	u_char	reg;
+	u_long	data;
+	struct vt * vp;
+	struct dt * dp;
+
+	/*
+	**	lookup the names.
+	*/
+
+	for (vp=VendorTable; vp->ident; vp++)
+		if (vp->ident == (type & 0xffff))
+			break;
+
+	for (dp=DeviceTable; dp->ident; dp++)
+		if (dp->ident == type)
+			break;
+
+	/*
+	**	and display them.
+	*/
+
+	if (vp->ident) printf (vp->name);
+		else   printf ("vendor=%x", type & 0xffff);
+
+	if (dp->ident) printf (dp->name);
+		else   printf (", device=%x", type >> 16);
+
+	printf (" [not supported]\n");
+
+	for (reg=PCI_MAP_REG_START; reg<PCI_MAP_REG_END; reg+=4) {
+		data = pci_conf_read (tag, reg);
+		if (!data) continue;
+		switch (data&7) {
+
+		case 1:
+		case 5:
+			printf ("	map(%x): io(%x)\n", reg, data & ~3);
+			break;
+		case 0:
+			printf ("	map(%x): mem32(%x)\n", reg, data & ~7);
+			break;
+		case 2:
+			printf ("	map(%x): mem20(%x)\n", reg, data & ~7);
+			break;
+		case 4:
+			printf ("	map(%x): mem64(%x)\n", reg, data & ~7);
+			break;
+		};
+	};
+}
+#endif