ebus.c 9.17 KB
Newer Older
Linus Torvalds's avatar
Linus Torvalds committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
/* $Id: ebus.c,v 1.20 2002/01/05 01:13:43 davem Exp $
 * ebus.c: PCI to EBus bridge device.
 *
 * Copyright (C) 1997  Eddie C. Dost  (ecd@skynet.be)
 *
 * Adopted for sparc by V. Roganov and G. Raiko.
 * Fixes for different platforms by Pete Zaitcev.
 */

#include <linux/config.h>
#include <linux/kernel.h>
#include <linux/types.h>
#include <linux/init.h>
#include <linux/slab.h>
#include <linux/string.h>

#include <asm/system.h>
#include <asm/page.h>
#include <asm/pbm.h>
#include <asm/ebus.h>
#include <asm/io.h>
#include <asm/oplib.h>
23
#include <asm/prom.h>
Linus Torvalds's avatar
Linus Torvalds committed
24 25
#include <asm/bpp.h>

26
struct linux_ebus *ebus_chain = NULL;
Linus Torvalds's avatar
Linus Torvalds committed
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

/* We are together with pcic.c under CONFIG_PCI. */
extern unsigned int pcic_pin_to_irq(unsigned int, char *name);

/*
 * IRQ Blacklist
 * Here we list PROMs and systems that are known to supply crap as IRQ numbers.
 */
struct ebus_device_irq {
	char *name;
	unsigned int pin;
};

struct ebus_system_entry {
	char *esname;
	struct ebus_device_irq *ipt;
};

static struct ebus_device_irq je1_1[] = {
	{ "8042",		 3 },
	{ "SUNW,CS4231",	 0 },
	{ "parallel",		 0 },
	{ "se",			 2 },
50
	{ NULL, 0 }
Linus Torvalds's avatar
Linus Torvalds committed
51 52 53 54 55 56 57 58
};

/*
 * Gleb's JE1 supplied reasonable pin numbers, but mine did not (OBP 2.32).
 * Blacklist the sucker... Note that Gleb's system will work.
 */
static struct ebus_system_entry ebus_blacklist[] = {
	{ "SUNW,JavaEngine1", je1_1 },
59
	{ NULL, NULL }
Linus Torvalds's avatar
Linus Torvalds committed
60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
};

static struct ebus_device_irq *ebus_blackp = NULL;

/*
 */
static inline unsigned long ebus_alloc(size_t size)
{
	return (unsigned long)kmalloc(size, GFP_ATOMIC);
}

/*
 */
int __init ebus_blacklist_irq(char *name)
{
	struct ebus_device_irq *dp;

	if ((dp = ebus_blackp) != NULL) {
		for (; dp->name != NULL; dp++) {
			if (strcmp(name, dp->name) == 0) {
				return pcic_pin_to_irq(dp->pin, name);
			}
		}
	}
	return 0;
}

87 88
void __init fill_ebus_child(struct device_node *dp,
			    struct linux_ebus_child *dev)
Linus Torvalds's avatar
Linus Torvalds committed
89
{
90 91
	int *regs;
	int *irqs;
Linus Torvalds's avatar
Linus Torvalds committed
92 93
	int i, len;

94 95 96 97
	dev->prom_node = dp;
	regs = of_get_property(dp, "reg", &len);
	if (!regs)
		len = 0;
Linus Torvalds's avatar
Linus Torvalds committed
98 99 100 101 102
	dev->num_addrs = len / sizeof(regs[0]);

	for (i = 0; i < dev->num_addrs; i++) {
		if (regs[i] >= dev->parent->num_addrs) {
			prom_printf("UGH: property for %s was %d, need < %d\n",
103 104
				    dev->prom_node->name, len,
				    dev->parent->num_addrs);
Linus Torvalds's avatar
Linus Torvalds committed
105 106
			panic(__FUNCTION__);
		}
107 108 109 110

		/* XXX resource */
		dev->resource[i].start =
			dev->parent->resource[regs[i]].start;
Linus Torvalds's avatar
Linus Torvalds committed
111 112 113 114 115
	}

	for (i = 0; i < PROMINTR_MAX; i++)
		dev->irqs[i] = PCI_IRQ_NONE;

116
	if ((dev->irqs[0] = ebus_blacklist_irq(dev->prom_node->name)) != 0) {
Linus Torvalds's avatar
Linus Torvalds committed
117 118
		dev->num_irqs = 1;
	} else {
119 120
		irqs = of_get_property(dp, "interrupts", &len);
		if (!irqs) {
Linus Torvalds's avatar
Linus Torvalds committed
121 122
			dev->num_irqs = 0;
			dev->irqs[0] = 0;
123 124 125 126
			if (dev->parent->num_irqs != 0) {
				dev->num_irqs = 1;
				dev->irqs[0] = dev->parent->irqs[0];
			}
Linus Torvalds's avatar
Linus Torvalds committed
127
		} else {
128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
			dev->num_irqs = len / sizeof(irqs[0]);
			if (irqs[0] == 0 || irqs[0] >= 8) {
				/*
				 * XXX Zero is a valid pin number...
				 * This works as long as Ebus is not wired
				 * to INTA#.
				 */
				printk("EBUS: %s got bad irq %d from PROM\n",
				       dev->prom_node->name, irqs[0]);
				dev->num_irqs = 0;
				dev->irqs[0] = 0;
			} else {
				dev->irqs[0] =
					pcic_pin_to_irq(irqs[0],
							dev->prom_node->name);
			}
Linus Torvalds's avatar
Linus Torvalds committed
144 145 146 147
		}
	}
}

148
void __init fill_ebus_device(struct device_node *dp, struct linux_ebus_device *dev)
Linus Torvalds's avatar
Linus Torvalds committed
149
{
150
	struct linux_prom_registers *regs;
Linus Torvalds's avatar
Linus Torvalds committed
151
	struct linux_ebus_child *child;
152
	int *irqs;
Linus Torvalds's avatar
Linus Torvalds committed
153 154 155
	int i, n, len;
	unsigned long baseaddr;

156
	dev->prom_node = dp;
Linus Torvalds's avatar
Linus Torvalds committed
157

158
	regs = of_get_property(dp, "reg", &len);
Linus Torvalds's avatar
Linus Torvalds committed
159 160
	if (len % sizeof(struct linux_prom_registers)) {
		prom_printf("UGH: proplen for %s was %d, need multiple of %d\n",
161
			    dev->prom_node->name, len,
Linus Torvalds's avatar
Linus Torvalds committed
162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202
			    (int)sizeof(struct linux_prom_registers));
		panic(__FUNCTION__);
	}
	dev->num_addrs = len / sizeof(struct linux_prom_registers);

	for (i = 0; i < dev->num_addrs; i++) {
		/*
		 * XXX Collect JE-1 PROM
		 * 
		 * Example - JS-E with 3.11:
		 *  /ebus
		 *      regs 
		 *        0x00000000, 0x0, 0x00000000, 0x0, 0x00000000,
		 *        0x82000010, 0x0, 0xf0000000, 0x0, 0x01000000,
		 *        0x82000014, 0x0, 0x38800000, 0x0, 0x00800000,
		 *      ranges
		 *        0x00, 0x00000000, 0x02000010, 0x0, 0x0, 0x01000000,
		 *        0x01, 0x01000000, 0x02000014, 0x0, 0x0, 0x00800000,
		 *  /ebus/8042
		 *      regs
		 *        0x00000001, 0x00300060, 0x00000008,
		 *        0x00000001, 0x00300060, 0x00000008,
		 */
		n = regs[i].which_io;
		if (n >= 4) {
			/* XXX This is copied from old JE-1 by Gleb. */
			n = (regs[i].which_io - 0x10) >> 2;
		} else {
			;
		}

/*
 * XXX Now as we have regions, why don't we make an on-demand allocation...
 */
		dev->resource[i].start = 0;
		if ((baseaddr = dev->bus->self->resource[n].start +
		    regs[i].phys_addr) != 0) {
			/* dev->resource[i].name = dev->prom_name; */
			if ((baseaddr = (unsigned long) ioremap(baseaddr,
			    regs[i].reg_size)) == 0) {
				panic("ebus: unable to remap dev %s",
203
				      dev->prom_node->name);
Linus Torvalds's avatar
Linus Torvalds committed
204 205 206 207 208 209 210 211
			}
		}
		dev->resource[i].start = baseaddr;	/* XXX Unaligned */
	}

	for (i = 0; i < PROMINTR_MAX; i++)
		dev->irqs[i] = PCI_IRQ_NONE;

212
	if ((dev->irqs[0] = ebus_blacklist_irq(dev->prom_node->name)) != 0) {
Linus Torvalds's avatar
Linus Torvalds committed
213 214
		dev->num_irqs = 1;
	} else {
215 216
		irqs = of_get_property(dp, "interrupts", &len);
		if (!irqs) {
Linus Torvalds's avatar
Linus Torvalds committed
217
			dev->num_irqs = 0;
218 219 220 221
			if ((dev->irqs[0] = dev->bus->self->irq) != 0) {
				dev->num_irqs = 1;
/* P3 */ /* printk("EBUS: child %s irq %d from parent\n", dev->prom_name, dev->irqs[0]); */
			}
Linus Torvalds's avatar
Linus Torvalds committed
222
		} else {
223 224 225 226 227 228 229 230 231 232 233 234
			dev->num_irqs = 1;  /* dev->num_irqs = len / sizeof(irqs[0]); */
			if (irqs[0] == 0 || irqs[0] >= 8) {
				/* See above for the parent. XXX */
				printk("EBUS: %s got bad irq %d from PROM\n",
				       dev->prom_node->name, irqs[0]);
				dev->num_irqs = 0;
				dev->irqs[0] = 0;
			} else {
				dev->irqs[0] =
					pcic_pin_to_irq(irqs[0],
							dev->prom_node->name);
			}
Linus Torvalds's avatar
Linus Torvalds committed
235 236 237
		}
	}

238 239 240 241 242 243 244 245 246 247
	dev->ofdev.node = dp;
	dev->ofdev.dev.parent = &dev->bus->ofdev.dev;
	dev->ofdev.dev.bus = &ebus_bus_type;
	strcpy(dev->ofdev.dev.bus_id, dp->path_component_name);

	/* Register with core */
	if (of_device_register(&dev->ofdev) != 0)
		printk(KERN_DEBUG "ebus: device registration error for %s!\n",
		       dev->ofdev.dev.bus_id);

248
	if ((dp = dp->child) != NULL) {
Linus Torvalds's avatar
Linus Torvalds committed
249 250 251 252
		dev->children = (struct linux_ebus_child *)
			ebus_alloc(sizeof(struct linux_ebus_child));

		child = dev->children;
253
		child->next = NULL;
Linus Torvalds's avatar
Linus Torvalds committed
254 255
		child->parent = dev;
		child->bus = dev->bus;
256
		fill_ebus_child(dp, child);
Linus Torvalds's avatar
Linus Torvalds committed
257

258
		while ((dp = dp->sibling) != NULL) {
Linus Torvalds's avatar
Linus Torvalds committed
259 260 261 262
			child->next = (struct linux_ebus_child *)
				ebus_alloc(sizeof(struct linux_ebus_child));

			child = child->next;
263
			child->next = NULL;
Linus Torvalds's avatar
Linus Torvalds committed
264 265
			child->parent = dev;
			child->bus = dev->bus;
266
			fill_ebus_child(dp, child);
Linus Torvalds's avatar
Linus Torvalds committed
267 268 269 270 271 272
		}
	}
}

void __init ebus_init(void)
{
273
	struct linux_prom_pci_registers *regs;
Linus Torvalds's avatar
Linus Torvalds committed
274 275 276 277 278 279
	struct linux_pbm_info *pbm;
	struct linux_ebus_device *dev;
	struct linux_ebus *ebus;
	struct ebus_system_entry *sp;
	struct pci_dev *pdev;
	struct pcidev_cookie *cookie;
280
	struct device_node *dp;
Linus Torvalds's avatar
Linus Torvalds committed
281 282
	unsigned long addr, *base;
	unsigned short pci_command;
283
	int len, reg, nreg;
Linus Torvalds's avatar
Linus Torvalds committed
284 285
	int num_ebus = 0;

286
	dp = of_find_node_by_path("/");
Linus Torvalds's avatar
Linus Torvalds committed
287
	for (sp = ebus_blacklist; sp->esname != NULL; sp++) {
288
		if (strcmp(dp->name, sp->esname) == 0) {
Linus Torvalds's avatar
Linus Torvalds committed
289 290 291 292 293
			ebus_blackp = sp->ipt;
			break;
		}
	}

294
	pdev = pci_get_device(PCI_VENDOR_ID_SUN, PCI_DEVICE_ID_SUN_EBUS, NULL);
295
	if (!pdev)
Linus Torvalds's avatar
Linus Torvalds committed
296
		return;
297

Linus Torvalds's avatar
Linus Torvalds committed
298
	cookie = pdev->sysdata;
299
	dp = cookie->prom_node;
Linus Torvalds's avatar
Linus Torvalds committed
300 301 302

	ebus_chain = ebus = (struct linux_ebus *)
			ebus_alloc(sizeof(struct linux_ebus));
303
	ebus->next = NULL;
Linus Torvalds's avatar
Linus Torvalds committed
304

305 306
	while (dp) {
		struct device_node *nd;
Linus Torvalds's avatar
Linus Torvalds committed
307

308
		ebus->prom_node = dp;
Linus Torvalds's avatar
Linus Torvalds committed
309 310 311 312 313 314 315 316
		ebus->self = pdev;
		ebus->parent = pbm = cookie->pbm;

		/* Enable BUS Master. */
		pci_read_config_word(pdev, PCI_COMMAND, &pci_command);
		pci_command |= PCI_COMMAND_MASTER;
		pci_write_config_word(pdev, PCI_COMMAND, pci_command);

317 318
		regs = of_get_property(dp, "reg", &len);
		if (!regs) {
Linus Torvalds's avatar
Linus Torvalds committed
319 320 321 322 323 324 325 326 327 328 329 330 331 332 333
			prom_printf("%s: can't find reg property\n",
				    __FUNCTION__);
			prom_halt();
		}
		nreg = len / sizeof(struct linux_prom_pci_registers);

		base = &ebus->self->resource[0].start;
		for (reg = 0; reg < nreg; reg++) {
			if (!(regs[reg].which_io & 0x03000000))
				continue;

			addr = regs[reg].phys_lo;
			*base++ = addr;
		}

334 335 336 337 338 339 340 341 342 343 344
		ebus->ofdev.node = dp;
		ebus->ofdev.dev.parent = &pdev->dev;
		ebus->ofdev.dev.bus = &ebus_bus_type;
		strcpy(ebus->ofdev.dev.bus_id, dp->path_component_name);

		/* Register with core */
		if (of_device_register(&ebus->ofdev) != 0)
			printk(KERN_DEBUG "ebus: device registration error for %s!\n",
			       ebus->ofdev.dev.bus_id);


345
		nd = dp->child;
Linus Torvalds's avatar
Linus Torvalds committed
346 347 348 349 350 351 352
		if (!nd)
			goto next_ebus;

		ebus->devices = (struct linux_ebus_device *)
				ebus_alloc(sizeof(struct linux_ebus_device));

		dev = ebus->devices;
353 354
		dev->next = NULL;
		dev->children = NULL;
Linus Torvalds's avatar
Linus Torvalds committed
355 356 357
		dev->bus = ebus;
		fill_ebus_device(nd, dev);

358
		while ((nd = nd->sibling) != NULL) {
Linus Torvalds's avatar
Linus Torvalds committed
359 360 361 362
			dev->next = (struct linux_ebus_device *)
				ebus_alloc(sizeof(struct linux_ebus_device));

			dev = dev->next;
363 364
			dev->next = NULL;
			dev->children = NULL;
Linus Torvalds's avatar
Linus Torvalds committed
365 366 367 368 369 370 371 372 373 374 375
			dev->bus = ebus;
			fill_ebus_device(nd, dev);
		}

	next_ebus:
		pdev = pci_get_device(PCI_VENDOR_ID_SUN,
				       PCI_DEVICE_ID_SUN_EBUS, pdev);
		if (!pdev)
			break;

		cookie = pdev->sysdata;
376
		dp = cookie->prom_node;
Linus Torvalds's avatar
Linus Torvalds committed
377 378 379 380

		ebus->next = (struct linux_ebus *)
			ebus_alloc(sizeof(struct linux_ebus));
		ebus = ebus->next;
381
		ebus->next = NULL;
Linus Torvalds's avatar
Linus Torvalds committed
382 383 384 385 386
		++num_ebus;
	}
	if (pdev)
		pci_dev_put(pdev);
}