arch/sparc/kernel/leon_kernel.c

   1 /*
   2  * Copyright (C) 2009 Daniel Hellstrom (daniel@gaisler.com) Aeroflex Gaisler AB
   3  * Copyright (C) 2009 Konrad Eisele (konrad@gaisler.com) Aeroflex Gaisler AB
   4  */
   5
   6 #include <linux/kernel.h>
   7 #include <linux/module.h>
   8 #include <linux/errno.h>
   9 #include <linux/mutex.h>
  10 #include <linux/of.h>
  11 #include <linux/of_platform.h>
  12 #include <linux/interrupt.h>
  13 #include <linux/of_device.h>
  14
  15 #include <asm/oplib.h>
  16 #include <asm/timer.h>
  17 #include <asm/prom.h>
  18 #include <asm/leon.h>
  19 #include <asm/leon_amba.h>
  20 #include <asm/traps.h>
  21 #include <asm/cacheflush.h>
  22
  23 #include "prom.h"
  24 #include "irq.h"
  25
  26 struct leon3_irqctrl_regs_map *leon3_irqctrl_regs; /* interrupt controller base address */
  27 struct leon3_gptimer_regs_map *leon3_gptimer_regs; /* timer controller base address */
  28 struct amba_apb_device leon_percpu_timer_dev[16];
  29
  30 int leondebug_irq_disable;
  31 int leon_debug_irqout;
  32 static int dummy_master_l10_counter;
  33 unsigned long amba_system_id;
  34
  35 unsigned long leon3_gptimer_irq; /* interrupt controller irq number */
  36 unsigned long leon3_gptimer_idx; /* Timer Index (0..6) within Timer Core */
  37 unsigned int sparc_leon_eirq;
  38 #define LEON_IMASK ((&leon3_irqctrl_regs->mask[0]))
  39
  40 /* Return the IRQ of the pending IRQ on the extended IRQ controller */
  41 int sparc_leon_eirq_get(int eirq, int cpu)
  42 {
  43         return LEON3_BYPASS_LOAD_PA(&leon3_irqctrl_regs->intid[cpu]) & 0x1f;
  44 }
  45
  46 irqreturn_t sparc_leon_eirq_isr(int dummy, void *dev_id)
  47 {
  48         printk(KERN_ERR "sparc_leon_eirq_isr: ERROR EXTENDED IRQ\n");
  49         return IRQ_HANDLED;
  50 }
  51
  52 /* The extended IRQ controller has been found, this function registers it */
  53 void sparc_leon_eirq_register(int eirq)
  54 {
  55         int irq;
  56
  57         /* Register a "BAD" handler for this interrupt, it should never happen */
  58         irq = request_irq(eirq, sparc_leon_eirq_isr,
  59                           (IRQF_DISABLED | SA_STATIC_ALLOC), "extirq", NULL);
  60
  61         if (irq) {
  62                 printk(KERN_ERR
  63                        "sparc_leon_eirq_register: unable to attach IRQ%d\n",
  64                        eirq);
  65         } else {
  66                 sparc_leon_eirq = eirq;
  67         }
  68
  69 }
  70
  71 static inline unsigned long get_irqmask(unsigned int irq)
  72 {
  73         unsigned long mask;
  74
  75         if (!irq || ((irq > 0xf) && !sparc_leon_eirq)
  76             || ((irq > 0x1f) && sparc_leon_eirq)) {
  77                 printk(KERN_ERR
  78                        "leon_get_irqmask: false irq number: %d\n", irq);
  79                 mask = 0;
  80         } else {
  81                 mask = LEON_HARD_INT(irq);
  82         }
  83         return mask;
  84 }
  85
  86 static void leon_enable_irq(unsigned int irq_nr)
  87 {
  88         unsigned long mask, flags;
  89         mask = get_irqmask(irq_nr);
  90         local_irq_save(flags);
  91         LEON3_BYPASS_STORE_PA(LEON_IMASK,
  92                               (LEON3_BYPASS_LOAD_PA(LEON_IMASK) | (mask)));
  93         local_irq_restore(flags);
  94 }
  95
  96 static void leon_disable_irq(unsigned int irq_nr)
  97 {
  98         unsigned long mask, flags;
  99         mask = get_irqmask(irq_nr);
 100         local_irq_save(flags);
 101         LEON3_BYPASS_STORE_PA(LEON_IMASK,
 102                               (LEON3_BYPASS_LOAD_PA(LEON_IMASK) & ~(mask)));
 103         local_irq_restore(flags);
 104
 105 }
 106
 107 void __init leon_init_timers(irq_handler_t counter_fn)
 108 {
 109         int irq;
 110         struct device_node *rootnp, *np, *nnp;
 111         struct property *pp;
 112         int len;
 113         int cpu, icsel;
 114         int ampopts;
 115
 116         leondebug_irq_disable = 0;
 117         leon_debug_irqout = 0;
 118         master_l10_counter = (unsigned int *)&dummy_master_l10_counter;
 119         dummy_master_l10_counter = 0;
 120
 121         rootnp = of_find_node_by_path("/ambapp0");
 122         if (!rootnp)
 123                 goto bad;
 124
 125         /* Find System ID: GRLIB build ID and optional CHIP ID */
 126         pp = of_find_property(rootnp, "systemid", &len);
 127         if (pp)
 128                 amba_system_id = *(unsigned long *)pp->value;
 129
 130         /* Find IRQMP IRQ Controller Registers base adr otherwise bail out */
 131         np = of_find_node_by_name(rootnp, "GAISLER_IRQMP");
 132         if (!np) {
 133                 np = of_find_node_by_name(rootnp, "01_00d");
 134                 if (!np)
 135                         goto bad;
 136         }
 137         pp = of_find_property(np, "reg", &len);
 138         if (!pp)
 139                 goto bad;
 140         leon3_irqctrl_regs = *(struct leon3_irqctrl_regs_map **)pp->value;
 141
 142         /* Find GPTIMER Timer Registers base address otherwise bail out. */
 143         nnp = rootnp;
 144         do {
 145                 np = of_find_node_by_name(nnp, "GAISLER_GPTIMER");
 146                 if (!np) {
 147                         np = of_find_node_by_name(nnp, "01_011");
 148                         if (!np)
 149                                 goto bad;
 150                 }
 151
 152                 ampopts = 0;
 153                 pp = of_find_property(np, "ampopts", &len);
 154                 if (pp) {
 155                         ampopts = *(int *)pp->value;
 156                         if (ampopts == 0) {
 157                                 /* Skip this instance, resource already
 158                                  * allocated by other OS */
 159                                 nnp = np;
 160                                 continue;
 161                         }
 162                 }
 163
 164                 /* Select Timer-Instance on Timer Core. Default is zero */
 165                 leon3_gptimer_idx = ampopts & 0x7;
 166
 167                 pp = of_find_property(np, "reg", &len);
 168                 if (pp)
 169                         leon3_gptimer_regs = *(struct leon3_gptimer_regs_map **)
 170                                                 pp->value;
 171                 pp = of_find_property(np, "interrupts", &len);
 172                 if (pp)
 173                         leon3_gptimer_irq = *(unsigned int *)pp->value;
 174         } while (0);
 175
 176         if (leon3_gptimer_regs && leon3_irqctrl_regs && leon3_gptimer_irq) {
 177                 LEON3_BYPASS_STORE_PA(
 178                         &leon3_gptimer_regs->e[leon3_gptimer_idx].val, 0);
 179                 LEON3_BYPASS_STORE_PA(
 180                         &leon3_gptimer_regs->e[leon3_gptimer_idx].rld,
 181                         (((1000000 / HZ) - 1)));
 182                 LEON3_BYPASS_STORE_PA(
 183                         &leon3_gptimer_regs->e[leon3_gptimer_idx].ctrl, 0);
 184
 185 #ifdef CONFIG_SMP
 186                 leon_percpu_timer_dev[0].start = (int)leon3_gptimer_regs;
 187                 leon_percpu_timer_dev[0].irq = leon3_gptimer_irq + 1 +
 188                                                leon3_gptimer_idx;
 189
 190                 if (!(LEON3_BYPASS_LOAD_PA(&leon3_gptimer_regs->config) &
 191                       (1<<LEON3_GPTIMER_SEPIRQ))) {
 192                         prom_printf("irq timer not configured with separate irqs\n");
 193                         BUG();
 194                 }
 195
 196                 LEON3_BYPASS_STORE_PA(
 197                         &leon3_gptimer_regs->e[leon3_gptimer_idx+1].val, 0);
 198                 LEON3_BYPASS_STORE_PA(
 199                         &leon3_gptimer_regs->e[leon3_gptimer_idx+1].rld,
 200                         (((1000000/HZ) - 1)));
 201                 LEON3_BYPASS_STORE_PA(
 202                         &leon3_gptimer_regs->e[leon3_gptimer_idx+1].ctrl, 0);
 203 # endif
 204
 205                 /*
 206                  * The IRQ controller may (if implemented) consist of multiple
 207                  * IRQ controllers, each mapped on a 4Kb boundary.
 208                  * Each CPU may be routed to different IRQCTRLs, however
 209                  * we assume that all CPUs (in SMP system) is routed to the
 210                  * same IRQ Controller, and for non-SMP only one IRQCTRL is
 211                  * accessed anyway.
 212                  * In AMP systems, Linux must run on CPU0 for the time being.
 213                  */
 214                 cpu = sparc_leon3_cpuid();
 215                 icsel = LEON3_BYPASS_LOAD_PA(&leon3_irqctrl_regs->icsel[cpu/8]);
 216                 icsel = (icsel >> ((7 - (cpu&0x7)) * 4)) & 0xf;
 217                 leon3_irqctrl_regs += icsel;
 218         } else {
 219                 goto bad;
 220         }
 221
 222         irq = request_irq(leon3_gptimer_irq+leon3_gptimer_idx,
 223                           counter_fn,
 224                           (IRQF_DISABLED | SA_STATIC_ALLOC), "timer", NULL);
 225
 226         if (irq) {
 227                 printk(KERN_ERR "leon_time_init: unable to attach IRQ%d\n",
 228                        LEON_INTERRUPT_TIMER1);
 229                 prom_halt();
 230         }
 231
 232 # ifdef CONFIG_SMP
 233         {
 234                 unsigned long flags;
 235                 struct tt_entry *trap_table = &sparc_ttable[SP_TRAP_IRQ1 + (leon_percpu_timer_dev[0].irq - 1)];
 236
 237                 /* For SMP we use the level 14 ticker, however the bootup code
 238                  * has copied the firmwares level 14 vector into boot cpu's
 239                  * trap table, we must fix this now or we get squashed.
 240                  */
 241                 local_irq_save(flags);
 242
 243                 patchme_maybe_smp_msg[0] = 0x01000000; /* NOP out the branch */
 244
 245                 /* Adjust so that we jump directly to smpleon_ticker */
 246                 trap_table->inst_three += smpleon_ticker - real_irq_entry;
 247
 248                 local_flush_cache_all();
 249                 local_irq_restore(flags);
 250         }
 251 # endif
 252
 253         if (leon3_gptimer_regs) {
 254                 LEON3_BYPASS_STORE_PA(&leon3_gptimer_regs->e[leon3_gptimer_idx].ctrl,
 255                                       LEON3_GPTIMER_EN |
 256                                       LEON3_GPTIMER_RL |
 257                                       LEON3_GPTIMER_LD | LEON3_GPTIMER_IRQEN);
 258
 259 #ifdef CONFIG_SMP
 260                 LEON3_BYPASS_STORE_PA(&leon3_gptimer_regs->e[leon3_gptimer_idx+1].ctrl,
 261                                       LEON3_GPTIMER_EN |
 262                                       LEON3_GPTIMER_RL |
 263                                       LEON3_GPTIMER_LD |
 264                                       LEON3_GPTIMER_IRQEN);
 265 #endif
 266
 267         }
 268         return;
 269 bad:
 270         printk(KERN_ERR "No Timer/irqctrl found\n");
 271         BUG();
 272         return;
 273 }
 274
 275 void leon_clear_clock_irq(void)
 276 {
 277 }
 278
 279 void leon_load_profile_irq(int cpu, unsigned int limit)
 280 {
 281         BUG();
 282 }
 283
 284
 285
 286
 287 void __init leon_trans_init(struct device_node *dp)
 288 {
 289         if (strcmp(dp->type, "cpu") == 0 && strcmp(dp->name, "<NULL>") == 0) {
 290                 struct property *p;
 291                 p = of_find_property(dp, "mid", (void *)0);
 292                 if (p) {
 293                         int mid;
 294                         dp->name = prom_early_alloc(5 + 1);
 295                         memcpy(&mid, p->value, p->length);
 296                         sprintf((char *)dp->name, "cpu%.2d", mid);
 297                 }
 298         }
 299 }
 300
 301 void __initdata (*prom_amba_init)(struct device_node *dp, struct device_node ***nextp) = 0;
 302
 303 void __init leon_node_init(struct device_node *dp, struct device_node ***nextp)
 304 {
 305         if (prom_amba_init &&
 306             strcmp(dp->type, "ambapp") == 0 &&
 307             strcmp(dp->name, "ambapp0") == 0) {
 308                 prom_amba_init(dp, nextp);
 309         }
 310 }
 311
 312 #ifdef CONFIG_SMP
 313
 314 void leon_set_cpu_int(int cpu, int level)
 315 {
 316         unsigned long mask;
 317         mask = get_irqmask(level);
 318         LEON3_BYPASS_STORE_PA(&leon3_irqctrl_regs->force[cpu], mask);
 319 }
 320
 321 static void leon_clear_ipi(int cpu, int level)
 322 {
 323         unsigned long mask;
 324         mask = get_irqmask(level);
 325         LEON3_BYPASS_STORE_PA(&leon3_irqctrl_regs->force[cpu], mask<<16);
 326 }
 327
 328 static void leon_set_udt(int cpu)
 329 {
 330 }
 331
 332 void leon_clear_profile_irq(int cpu)
 333 {
 334 }
 335
 336 void leon_enable_irq_cpu(unsigned int irq_nr, unsigned int cpu)
 337 {
 338         unsigned long mask, flags, *addr;
 339         mask = get_irqmask(irq_nr);
 340         local_irq_save(flags);
 341         addr = (unsigned long *)&(leon3_irqctrl_regs->mask[cpu]);
 342         LEON3_BYPASS_STORE_PA(addr, (LEON3_BYPASS_LOAD_PA(addr) | (mask)));
 343         local_irq_restore(flags);
 344 }
 345
 346 #endif
 347
 348 void __init leon_init_IRQ(void)
 349 {
 350         sparc_irq_config.init_timers = leon_init_timers;
 351
 352         BTFIXUPSET_CALL(enable_irq, leon_enable_irq, BTFIXUPCALL_NORM);
 353         BTFIXUPSET_CALL(disable_irq, leon_disable_irq, BTFIXUPCALL_NORM);
 354         BTFIXUPSET_CALL(enable_pil_irq, leon_enable_irq, BTFIXUPCALL_NORM);
 355         BTFIXUPSET_CALL(disable_pil_irq, leon_disable_irq, BTFIXUPCALL_NORM);
 356
 357         BTFIXUPSET_CALL(clear_clock_irq, leon_clear_clock_irq,
 358                         BTFIXUPCALL_NORM);
 359         BTFIXUPSET_CALL(load_profile_irq, leon_load_profile_irq,
 360                         BTFIXUPCALL_NOP);
 361
 362 #ifdef CONFIG_SMP
 363         BTFIXUPSET_CALL(set_cpu_int, leon_set_cpu_int, BTFIXUPCALL_NORM);
 364         BTFIXUPSET_CALL(clear_cpu_int, leon_clear_ipi, BTFIXUPCALL_NORM);
 365         BTFIXUPSET_CALL(set_irq_udt, leon_set_udt, BTFIXUPCALL_NORM);
 366 #endif
 367
 368 }
 369
 370 void __init leon_init(void)
 371 {
 372         of_pdt_build_more = &leon_node_init;
 373 }