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