159 lines
		
	
	
		
			4.3 KiB
		
	
	
	
		
			C
		
	
	
	
			
		
		
	
	
			159 lines
		
	
	
		
			4.3 KiB
		
	
	
	
		
			C
		
	
	
	
/*
 | 
						|
 * QEMU ETRAX Interrupt Controller.
 | 
						|
 *
 | 
						|
 * Copyright (c) 2008 Edgar E. Iglesias, Axis Communications AB.
 | 
						|
 *
 | 
						|
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 | 
						|
 * of this software and associated documentation files (the "Software"), to deal
 | 
						|
 * in the Software without restriction, including without limitation the rights
 | 
						|
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 | 
						|
 * copies of the Software, and to permit persons to whom the Software is
 | 
						|
 * furnished to do so, subject to the following conditions:
 | 
						|
 *
 | 
						|
 * The above copyright notice and this permission notice shall be included in
 | 
						|
 * all copies or substantial portions of the Software.
 | 
						|
 *
 | 
						|
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 | 
						|
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 | 
						|
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 | 
						|
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 | 
						|
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 | 
						|
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 | 
						|
 * THE SOFTWARE.
 | 
						|
 */
 | 
						|
 | 
						|
#include "sysbus.h"
 | 
						|
#include "hw.h"
 | 
						|
//#include "pc.h"
 | 
						|
//#include "etraxfs.h"
 | 
						|
 | 
						|
#define D(x)
 | 
						|
 | 
						|
#define R_RW_MASK   0
 | 
						|
#define R_R_VECT    1
 | 
						|
#define R_R_MASKED_VECT 2
 | 
						|
#define R_R_NMI     3
 | 
						|
#define R_R_GURU    4
 | 
						|
#define R_MAX       5
 | 
						|
 | 
						|
struct etrax_pic
 | 
						|
{
 | 
						|
    SysBusDevice busdev;
 | 
						|
    uint32_t *interrupt_vector;
 | 
						|
    qemu_irq parent_irq;
 | 
						|
    qemu_irq parent_nmi;
 | 
						|
    uint32_t regs[R_MAX];
 | 
						|
};
 | 
						|
 | 
						|
static void pic_update(struct etrax_pic *fs)
 | 
						|
{   
 | 
						|
    uint32_t vector = 0;
 | 
						|
    int i;
 | 
						|
 | 
						|
    fs->regs[R_R_MASKED_VECT] = fs->regs[R_R_VECT] & fs->regs[R_RW_MASK];
 | 
						|
 | 
						|
    /* The ETRAX interrupt controller signals interrupts to teh core
 | 
						|
       through an interrupt request wire and an irq vector bus. If 
 | 
						|
       multiple interrupts are simultaneously active it chooses vector 
 | 
						|
       0x30 and lets the sw choose the priorities.  */
 | 
						|
    if (fs->regs[R_R_MASKED_VECT]) {
 | 
						|
        uint32_t mv = fs->regs[R_R_MASKED_VECT];
 | 
						|
        for (i = 0; i < 31; i++) {
 | 
						|
            if (mv & 1) {
 | 
						|
                vector = 0x31 + i;
 | 
						|
                /* Check for multiple interrupts.  */
 | 
						|
                if (mv > 1)
 | 
						|
                    vector = 0x30;
 | 
						|
                break;
 | 
						|
            }
 | 
						|
            mv >>= 1;
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    if (fs->interrupt_vector) {
 | 
						|
        *fs->interrupt_vector = vector;
 | 
						|
    }
 | 
						|
    qemu_set_irq(fs->parent_irq, !!vector);
 | 
						|
}
 | 
						|
 | 
						|
static uint32_t pic_readl (void *opaque, target_phys_addr_t addr)
 | 
						|
{
 | 
						|
    struct etrax_pic *fs = opaque;
 | 
						|
    uint32_t rval;
 | 
						|
 | 
						|
    rval = fs->regs[addr >> 2];
 | 
						|
    D(printf("%s %x=%x\n", __func__, addr, rval));
 | 
						|
    return rval;
 | 
						|
}
 | 
						|
 | 
						|
static void
 | 
						|
pic_writel (void *opaque, target_phys_addr_t addr, uint32_t value)
 | 
						|
{
 | 
						|
    struct etrax_pic *fs = opaque;
 | 
						|
    D(printf("%s addr=%x val=%x\n", __func__, addr, value));
 | 
						|
 | 
						|
    if (addr == R_RW_MASK) {
 | 
						|
        fs->regs[R_RW_MASK] = value;
 | 
						|
        pic_update(fs);
 | 
						|
    }
 | 
						|
}
 | 
						|
 | 
						|
static CPUReadMemoryFunc *pic_read[] = {
 | 
						|
    NULL, NULL,
 | 
						|
    &pic_readl,
 | 
						|
};
 | 
						|
 | 
						|
static CPUWriteMemoryFunc *pic_write[] = {
 | 
						|
    NULL, NULL,
 | 
						|
    &pic_writel,
 | 
						|
};
 | 
						|
 | 
						|
static void nmi_handler(void *opaque, int irq, int level)
 | 
						|
{   
 | 
						|
    struct etrax_pic *fs = (void *)opaque;
 | 
						|
    uint32_t mask;
 | 
						|
 | 
						|
    mask = 1 << irq;
 | 
						|
    if (level)
 | 
						|
        fs->regs[R_R_NMI] |= mask;
 | 
						|
    else
 | 
						|
        fs->regs[R_R_NMI] &= ~mask;
 | 
						|
 | 
						|
    qemu_set_irq(fs->parent_nmi, !!fs->regs[R_R_NMI]);
 | 
						|
}
 | 
						|
 | 
						|
static void irq_handler(void *opaque, int irq, int level)
 | 
						|
{   
 | 
						|
    struct etrax_pic *fs = (void *)opaque;
 | 
						|
 | 
						|
    if (irq >= 30)
 | 
						|
        return nmi_handler(opaque, irq, level);
 | 
						|
 | 
						|
    irq -= 1;
 | 
						|
    fs->regs[R_R_VECT] &= ~(1 << irq);
 | 
						|
    fs->regs[R_R_VECT] |= (!!level << irq);
 | 
						|
    pic_update(fs);
 | 
						|
}
 | 
						|
 | 
						|
static void etraxfs_pic_init(SysBusDevice *dev)
 | 
						|
{
 | 
						|
    struct etrax_pic *s = FROM_SYSBUS(typeof (*s), dev);
 | 
						|
    int intr_vect_regs;
 | 
						|
 | 
						|
    s->interrupt_vector = qdev_get_prop_ptr(&dev->qdev, "interrupt_vector");
 | 
						|
    qdev_init_gpio_in(&dev->qdev, irq_handler, 32);
 | 
						|
    sysbus_init_irq(dev, &s->parent_irq);
 | 
						|
    sysbus_init_irq(dev, &s->parent_nmi);
 | 
						|
 | 
						|
    intr_vect_regs = cpu_register_io_memory(pic_read, pic_write, s);
 | 
						|
    sysbus_init_mmio(dev, R_MAX * 4, intr_vect_regs);
 | 
						|
}
 | 
						|
 | 
						|
static void etraxfs_pic_register(void)
 | 
						|
{
 | 
						|
    sysbus_register_dev("etraxfs,pic", sizeof (struct etrax_pic),
 | 
						|
                        etraxfs_pic_init);
 | 
						|
}
 | 
						|
 | 
						|
device_init(etraxfs_pic_register)
 |