1/* $Id: starfire.c,v 1.1.1.1 2007/08/03 18:52:18 Exp $
2 * starfire.c: Starfire/E10000 support.
3 *
4 * Copyright (C) 1998 David S. Miller (davem@redhat.com)
5 * Copyright (C) 2000 Anton Blanchard (anton@samba.org)
6 */
7
8#include <linux/kernel.h>
9#include <linux/slab.h>
10
11#include <asm/page.h>
12#include <asm/oplib.h>
13#include <asm/smp.h>
14#include <asm/upa.h>
15#include <asm/starfire.h>
16
17/*
18 * A few places around the kernel check this to see if
19 * they need to call us to do things in a Starfire specific
20 * way.
21 */
22int this_is_starfire = 0;
23
24void check_if_starfire(void)
25{
26	int ssnode = prom_finddevice("/ssp-serial");
27	if (ssnode != 0 && ssnode != -1)
28		this_is_starfire = 1;
29}
30
31void starfire_cpu_setup(void)
32{
33	/* Currently, nothing to do.  */
34}
35
36int starfire_hard_smp_processor_id(void)
37{
38	return upa_readl(0x1fff40000d0UL);
39}
40
41/*
42 * Each Starfire board has 32 registers which perform translation
43 * and delivery of traditional interrupt packets into the extended
44 * Starfire hardware format.  Essentially UPAID's now have 2 more
45 * bits than in all previous Sun5 systems.
46 */
47struct starfire_irqinfo {
48	unsigned long imap_slots[32];
49	unsigned long tregs[32];
50	struct starfire_irqinfo *next;
51	int upaid, hwmid;
52};
53
54static struct starfire_irqinfo *sflist = NULL;
55
56/* Beam me up Scott(McNeil)y... */
57void starfire_hookup(int upaid)
58{
59	struct starfire_irqinfo *p;
60	unsigned long treg_base, hwmid, i;
61
62	p = kmalloc(sizeof(*p), GFP_KERNEL);
63	if (!p) {
64		prom_printf("starfire_hookup: No memory, this is insane.\n");
65		prom_halt();
66	}
67	treg_base = 0x100fc000000UL;
68	hwmid = ((upaid & 0x3c) << 1) |
69		((upaid & 0x40) >> 4) |
70		(upaid & 0x3);
71	p->hwmid = hwmid;
72	treg_base += (hwmid << 33UL);
73	treg_base += 0x200UL;
74	for (i = 0; i < 32; i++) {
75		p->imap_slots[i] = 0UL;
76		p->tregs[i] = treg_base + (i * 0x10UL);
77		/* Lets play it safe and not overwrite existing mappings */
78		if (upa_readl(p->tregs[i]) != 0)
79			p->imap_slots[i] = 0xdeadbeaf;
80	}
81	p->upaid = upaid;
82	p->next = sflist;
83	sflist = p;
84}
85
86unsigned int starfire_translate(unsigned long imap,
87				unsigned int upaid)
88{
89	struct starfire_irqinfo *p;
90	unsigned int bus_hwmid;
91	unsigned int i;
92
93	bus_hwmid = (((unsigned long)imap) >> 33) & 0x7f;
94	for (p = sflist; p != NULL; p = p->next)
95		if (p->hwmid == bus_hwmid)
96			break;
97	if (p == NULL) {
98		prom_printf("XFIRE: Cannot find irqinfo for imap %016lx\n",
99			    ((unsigned long)imap));
100		prom_halt();
101	}
102	for (i = 0; i < 32; i++) {
103		if (p->imap_slots[i] == imap ||
104		    p->imap_slots[i] == 0UL)
105			break;
106	}
107	if (i == 32) {
108		printk("starfire_translate: Are you kidding me?\n");
109		panic("Lucy in the sky....");
110	}
111	p->imap_slots[i] = imap;
112
113	/* map to real upaid */
114	upaid = (((upaid & 0x3c) << 1) |
115		 ((upaid & 0x40) >> 4) |
116		 (upaid & 0x3));
117
118	upa_writel(upaid, p->tregs[i]);
119
120	return i;
121}
122