/*
 * (C) Copyright 2007
 * Daniel Hellstrom, Gaisler Research, daniel@gaisler.com
 *
 * (C) Copyright 2006
 * Detlev Zundel, DENX Software Engineering, dzu@denx.de
 *
 * (C) Copyright -2003
 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
 *
 * (C) Copyright 2001
 * Josh Huber <huber@mclx.com>, Mission Critical Linux, Inc.
 *
 * See file CREDITS for list of people who contributed to this
 * project.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 * MA 02111-1307 USA
 */

#include <asm/stack.h>
#include <common.h>
#include <asm/io.h>
#include <asm/processor.h>
#include <command.h>
#include <asm/irq.h>

#include <asm/leon.h>

/* 15 normal irqs and a non maskable interrupt */
#define NR_IRQS 15

struct irq_action {
        interrupt_handler_t *handler;
        void *arg;
        unsigned int count;
};

static struct irq_action irq_handlers[NR_IRQS] = { {0}, };
static int spurious_irq_cnt = 0;
static int spurious_irq = 0;

static inline unsigned int leon2_get_irqmask(unsigned int irq)
{
        if ((irq < 0) || (irq >= NR_IRQS)) {
                return 0;
        } else {
                return (1 << irq);
        }
}

static void leon2_ic_disable(unsigned int irq)
{
        unsigned int mask, pil;
        LEON2_regs *leon2 = (LEON2_regs *) LEON2_PREGS;

        pil = intLock();

        /* get mask of interrupt */
        mask = leon2_get_irqmask(irq);

        /* set int level */
        leon2->Interrupt_Mask =
            SPARC_NOCACHE_READ(&leon2->Interrupt_Mask) & (~mask);

        intUnlock(pil);
}

static void leon2_ic_enable(unsigned int irq)
{
        unsigned int mask, pil;
        LEON2_regs *leon2 = (LEON2_regs *) LEON2_PREGS;

        pil = intLock();

        /* get mask of interrupt */
        mask = leon2_get_irqmask(irq);

        /* set int level */
        leon2->Interrupt_Mask =
            SPARC_NOCACHE_READ(&leon2->Interrupt_Mask) | mask;

        intUnlock(pil);
}

void handler_irq(int irq, struct pt_regs *regs)
{
        if (irq_handlers[irq].handler) {
                if (((unsigned int)irq_handlers[irq].handler > CONFIG_SYS_RAM_END) ||
                    ((unsigned int)irq_handlers[irq].handler < CONFIG_SYS_RAM_BASE)
                    ) {
                        printf("handler_irq: bad handler: %x, irq number %d\n",
                               (unsigned int)irq_handlers[irq].handler, irq);
                        return;
                }
                irq_handlers[irq].handler(irq_handlers[irq].arg);
                irq_handlers[irq].count++;
        } else {
                spurious_irq_cnt++;
                spurious_irq = irq;
        }
}

void leon2_force_int(int irq)
{
        LEON2_regs *leon2 = (LEON2_regs *) LEON2_PREGS;

        if ((irq >= NR_IRQS) || (irq < 0))
                return;
        printf("Forcing interrupt %d\n", irq);

        leon2->Interrupt_Force =
            SPARC_NOCACHE_READ(&leon2->Interrupt_Force) | (1 << irq);
}

/****************************************************************************/

int interrupt_init_cpu(void)
{
        return (0);
}

/****************************************************************************/

/* Handle Timer 0 IRQ */
void timer_interrupt_cpu(void *arg)
{
        LEON2_regs *leon2 = (LEON2_regs *) LEON2_PREGS;

        leon2->Timer_Control_1 =
            (LEON2_TIMER_CTRL_EN | LEON2_TIMER_CTRL_RS | LEON2_TIMER_CTRL_LD);

        /* nothing to do here */
        return;
}

/****************************************************************************/

/*
 * Install and free a interrupt handler.
 */

void irq_install_handler(int irq, interrupt_handler_t * handler, void *arg)
{
        if (irq < 0 || irq >= NR_IRQS) {
                printf("irq_install_handler: bad irq number %d\n", irq);
                return;
        }

        if (irq_handlers[irq].handler != NULL)
                printf("irq_install_handler: 0x%08lx replacing 0x%08lx\n",
                       (ulong) handler, (ulong) irq_handlers[irq].handler);

        if (((unsigned int)handler > CONFIG_SYS_RAM_END) ||
            ((unsigned int)handler < CONFIG_SYS_RAM_BASE)
            ) {
                printf("irq_install_handler: bad handler: %x, irq number %d\n",
                       (unsigned int)handler, irq);
                return;
        }
        irq_handlers[irq].handler = handler;
        irq_handlers[irq].arg = arg;

        /* enable irq on LEON2 hardware */
        leon2_ic_enable(irq);

}

void irq_free_handler(int irq)
{
        if (irq < 0 || irq >= NR_IRQS) {
                printf("irq_free_handler: bad irq number %d\n", irq);
                return;
        }

        /* disable irq on LEON2 hardware */
        leon2_ic_disable(irq);

        irq_handlers[irq].handler = NULL;
        irq_handlers[irq].arg = NULL;
}

/****************************************************************************/

#if defined(CONFIG_CMD_IRQ)
void do_irqinfo(cmd_tbl_t * cmdtp, bd_t * bd, int flag, int argc, char *argv[])
{
        int irq;
        unsigned int pil = get_pil();
        printf("PIL level: %u\n\r", pil);
        printf("Spurious IRQ: %u, last unknown IRQ: %d\n",
               spurious_irq_cnt, spurious_irq);

        puts("\nInterrupt-Information:\n" "Nr  Routine   Arg       Count\n");

        for (irq = 0; irq < NR_IRQS; irq++) {
                if (irq_handlers[irq].handler != NULL) {
                        printf("%02d  %08lx  %08lx  %ld\n", irq,
                               (unsigned int)irq_handlers[irq].handler,
                               (unsigned int)irq_handlers[irq].arg,
                               irq_handlers[irq].count);
                }
        }
}
#endif