LXR linux/arch/sparc/kernel/starfire.c

   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 */
  23int this_is_starfire = 0;
  24
  25void 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 */
  38struct starfire_irqinfo {
  39        unsigned long imap_slots[32];
  40        unsigned long tregs[32];
  41        struct starfire_irqinfo *next;
  42        int upaid, hwmid;
  43};
  44
  45static struct starfire_irqinfo *sflist = NULL;
  46
  47/* Beam me up Scott(McNeil)y... */
  48void 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
  77unsigned 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