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