Archipelago » qemu

/*

 * TI OMAP processors emulation.

 *

 * Copyright (C) 2006-2008 Andrzej Zaborowski  <balrog@zabor.org>

 *

 * 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 or

 * (at your option) version 3 of the License.

 *

 * 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 "hw.h"

#include "arm-misc.h"

#include "omap.h"

#include "sysemu.h"

#include "qemu-timer.h"

#include "qemu-char.h"

#include "soc_dma.h"

/* We use pc-style serial ports.  */

#include "pc.h"

/* Should signal the TCMI/GPMC */

uint32_t omap_badwidth_read8(void *opaque, target_phys_addr_t addr)

{

    uint8_t ret;

    OMAP_8B_REG(addr);

    cpu_physical_memory_read(addr, (void *) &ret, 1);

    return ret;

}

void omap_badwidth_write8(void *opaque, target_phys_addr_t addr,

                uint32_t value)

{

    uint8_t val8 = value;

    OMAP_8B_REG(addr);

    cpu_physical_memory_write(addr, (void *) &val8, 1);

}

uint32_t omap_badwidth_read16(void *opaque, target_phys_addr_t addr)

{

    uint16_t ret;

    OMAP_16B_REG(addr);

    cpu_physical_memory_read(addr, (void *) &ret, 2);

    return ret;

}

void omap_badwidth_write16(void *opaque, target_phys_addr_t addr,

                uint32_t value)

{

    uint16_t val16 = value;

    OMAP_16B_REG(addr);

    cpu_physical_memory_write(addr, (void *) &val16, 2);

}

uint32_t omap_badwidth_read32(void *opaque, target_phys_addr_t addr)

{

    uint32_t ret;

    OMAP_32B_REG(addr);

    cpu_physical_memory_read(addr, (void *) &ret, 4);

    return ret;

}

void omap_badwidth_write32(void *opaque, target_phys_addr_t addr,

                uint32_t value)

{

    OMAP_32B_REG(addr);

    cpu_physical_memory_write(addr, (void *) &value, 4);

}

/* Interrupt Handlers */

struct omap_intr_handler_bank_s {

    uint32_t irqs;

    uint32_t inputs;

    uint32_t mask;

    uint32_t fiq;

    uint32_t sens_edge;

    uint32_t swi;

    unsigned char priority[32];

};

struct omap_intr_handler_s {

    qemu_irq *pins;

    qemu_irq parent_intr[2];

    target_phys_addr_t base;

    unsigned char nbanks;

    int level_only;

    /* state */

    uint32_t new_agr[2];

    int sir_intr[2];

    int autoidle;

    uint32_t mask;

    struct omap_intr_handler_bank_s bank[];

};

static void omap_inth_sir_update(struct omap_intr_handler_s *s, int is_fiq)

{

    int i, j, sir_intr, p_intr, p, f;

    uint32_t level;

    sir_intr = 0;

    p_intr = 255;

    /* Find the interrupt line with the highest dynamic priority.

     * Note: 0 denotes the hightest priority.

     * If all interrupts have the same priority, the default order is IRQ_N,

     * IRQ_N-1,...,IRQ_0. */

    for (j = 0; j < s->nbanks; ++j) {

        level = s->bank[j].irqs & ~s->bank[j].mask &

                (is_fiq ? s->bank[j].fiq : ~s->bank[j].fiq);

        for (f = ffs(level), i = f - 1, level >>= f - 1; f; i += f,

                        level >>= f) {

            p = s->bank[j].priority[i];

            if (p <= p_intr) {

                p_intr = p;

                sir_intr = 32 * j + i;

            }

            f = ffs(level >> 1);

        }

    }

    s->sir_intr[is_fiq] = sir_intr;

}

static inline void omap_inth_update(struct omap_intr_handler_s *s, int is_fiq)

{

    int i;

    uint32_t has_intr = 0;

    for (i = 0; i < s->nbanks; ++i)

        has_intr |= s->bank[i].irqs & ~s->bank[i].mask &

                (is_fiq ? s->bank[i].fiq : ~s->bank[i].fiq);

    if (s->new_agr[is_fiq] & has_intr & s->mask) {

        s->new_agr[is_fiq] = 0;

        omap_inth_sir_update(s, is_fiq);

        qemu_set_irq(s->parent_intr[is_fiq], 1);

    }

}

#define INT_FALLING_EDGE        0

#define INT_LOW_LEVEL                1

static void omap_set_intr(void *opaque, int irq, int req)

{

    struct omap_intr_handler_s *ih = (struct omap_intr_handler_s *) opaque;

    uint32_t rise;

    struct omap_intr_handler_bank_s *bank = &ih->bank[irq >> 5];

    int n = irq & 31;

    if (req) {

        rise = ~bank->irqs & (1 << n);

        if (~bank->sens_edge & (1 << n))

            rise &= ~bank->inputs;

        bank->inputs |= (1 << n);

        if (rise) {

            bank->irqs |= rise;

            omap_inth_update(ih, 0);

            omap_inth_update(ih, 1);

        }

    } else {

        rise = bank->sens_edge & bank->irqs & (1 << n);

        bank->irqs &= ~rise;

        bank->inputs &= ~(1 << n);

    }

}

/* Simplified version with no edge detection */

static void omap_set_intr_noedge(void *opaque, int irq, int req)

{

    struct omap_intr_handler_s *ih = (struct omap_intr_handler_s *) opaque;

    uint32_t rise;

    struct omap_intr_handler_bank_s *bank = &ih->bank[irq >> 5];

    int n = irq & 31;

    if (req) {

        rise = ~bank->inputs & (1 << n);

        if (rise) {

            bank->irqs |= bank->inputs |= rise;

            omap_inth_update(ih, 0);

            omap_inth_update(ih, 1);

        }

    } else

        bank->irqs = (bank->inputs &= ~(1 << n)) | bank->swi;

}

static uint32_t omap_inth_read(void *opaque, target_phys_addr_t addr)

{

    struct omap_intr_handler_s *s = (struct omap_intr_handler_s *) opaque;

    int i, offset = addr - s->base;

    int bank_no = offset >> 8;

    int line_no;

    struct omap_intr_handler_bank_s *bank = &s->bank[bank_no];

    offset &= 0xff;

    switch (offset) {

    case 0x00:        /* ITR */

        return bank->irqs;

    case 0x04:        /* MIR */

        return bank->mask;

    case 0x10:        /* SIR_IRQ_CODE */

    case 0x14:  /* SIR_FIQ_CODE */

        if (bank_no != 0)

            break;

        line_no = s->sir_intr[(offset - 0x10) >> 2];

        bank = &s->bank[line_no >> 5];

        i = line_no & 31;

        if (((bank->sens_edge >> i) & 1) == INT_FALLING_EDGE)

            bank->irqs &= ~(1 << i);

        return line_no;

    case 0x18:        /* CONTROL_REG */

        if (bank_no != 0)

            break;

        return 0;

    case 0x1c:        /* ILR0 */

    case 0x20:        /* ILR1 */

    case 0x24:        /* ILR2 */

    case 0x28:        /* ILR3 */

    case 0x2c:        /* ILR4 */

    case 0x30:        /* ILR5 */

    case 0x34:        /* ILR6 */

    case 0x38:        /* ILR7 */

    case 0x3c:        /* ILR8 */

    case 0x40:        /* ILR9 */

    case 0x44:        /* ILR10 */

    case 0x48:        /* ILR11 */

    case 0x4c:        /* ILR12 */

    case 0x50:        /* ILR13 */

    case 0x54:        /* ILR14 */

    case 0x58:        /* ILR15 */

    case 0x5c:        /* ILR16 */

    case 0x60:        /* ILR17 */

    case 0x64:        /* ILR18 */

    case 0x68:        /* ILR19 */

    case 0x6c:        /* ILR20 */

    case 0x70:        /* ILR21 */

    case 0x74:        /* ILR22 */

    case 0x78:        /* ILR23 */

    case 0x7c:        /* ILR24 */

    case 0x80:        /* ILR25 */

    case 0x84:        /* ILR26 */

    case 0x88:        /* ILR27 */

    case 0x8c:        /* ILR28 */

    case 0x90:        /* ILR29 */

    case 0x94:        /* ILR30 */

    case 0x98:        /* ILR31 */

        i = (offset - 0x1c) >> 2;

        return (bank->priority[i] << 2) |

                (((bank->sens_edge >> i) & 1) << 1) |

                ((bank->fiq >> i) & 1);

    case 0x9c:        /* ISR */

        return 0x00000000;

    }

    OMAP_BAD_REG(addr);

    return 0;

}

static void omap_inth_write(void *opaque, target_phys_addr_t addr,

                uint32_t value)

{

    struct omap_intr_handler_s *s = (struct omap_intr_handler_s *) opaque;

    int i, offset = addr - s->base;

    int bank_no = offset >> 8;

    struct omap_intr_handler_bank_s *bank = &s->bank[bank_no];

    offset &= 0xff;

    switch (offset) {

    case 0x00:        /* ITR */

        /* Important: ignore the clearing if the IRQ is level-triggered and

           the input bit is 1 */

        bank->irqs &= value | (bank->inputs & bank->sens_edge);

        return;

    case 0x04:        /* MIR */

        bank->mask = value;

        omap_inth_update(s, 0);

        omap_inth_update(s, 1);

        return;

    case 0x10:        /* SIR_IRQ_CODE */

    case 0x14:        /* SIR_FIQ_CODE */

        OMAP_RO_REG(addr);

        break;

    case 0x18:        /* CONTROL_REG */

        if (bank_no != 0)

            break;

        if (value & 2) {

            qemu_set_irq(s->parent_intr[1], 0);

            s->new_agr[1] = ~0;

            omap_inth_update(s, 1);

        }

        if (value & 1) {

            qemu_set_irq(s->parent_intr[0], 0);

            s->new_agr[0] = ~0;

            omap_inth_update(s, 0);

        }

        return;

    case 0x1c:        /* ILR0 */

    case 0x20:        /* ILR1 */

    case 0x24:        /* ILR2 */

    case 0x28:        /* ILR3 */

    case 0x2c:        /* ILR4 */

    case 0x30:        /* ILR5 */

    case 0x34:        /* ILR6 */

    case 0x38:        /* ILR7 */

    case 0x3c:        /* ILR8 */

    case 0x40:        /* ILR9 */

    case 0x44:        /* ILR10 */

    case 0x48:        /* ILR11 */

    case 0x4c:        /* ILR12 */

    case 0x50:        /* ILR13 */

    case 0x54:        /* ILR14 */

    case 0x58:        /* ILR15 */

    case 0x5c:        /* ILR16 */

    case 0x60:        /* ILR17 */

    case 0x64:        /* ILR18 */

    case 0x68:        /* ILR19 */

    case 0x6c:        /* ILR20 */

    case 0x70:        /* ILR21 */

    case 0x74:        /* ILR22 */

    case 0x78:        /* ILR23 */

    case 0x7c:        /* ILR24 */

    case 0x80:        /* ILR25 */

    case 0x84:        /* ILR26 */

    case 0x88:        /* ILR27 */

    case 0x8c:        /* ILR28 */

    case 0x90:        /* ILR29 */

    case 0x94:        /* ILR30 */

    case 0x98:        /* ILR31 */

        i = (offset - 0x1c) >> 2;

        bank->priority[i] = (value >> 2) & 0x1f;

        bank->sens_edge &= ~(1 << i);

        bank->sens_edge |= ((value >> 1) & 1) << i;

        bank->fiq &= ~(1 << i);

        bank->fiq |= (value & 1) << i;

        return;

    case 0x9c:        /* ISR */

        for (i = 0; i < 32; i ++)

            if (value & (1 << i)) {

                omap_set_intr(s, 32 * bank_no + i, 1);

                return;

            }

        return;

    }

    OMAP_BAD_REG(addr);

}

static CPUReadMemoryFunc *omap_inth_readfn[] = {

    omap_badwidth_read32,

    omap_badwidth_read32,

    omap_inth_read,

};

static CPUWriteMemoryFunc *omap_inth_writefn[] = {

    omap_inth_write,

    omap_inth_write,

    omap_inth_write,

};

void omap_inth_reset(struct omap_intr_handler_s *s)

{

    int i;

    for (i = 0; i < s->nbanks; ++i){

        s->bank[i].irqs = 0x00000000;

        s->bank[i].mask = 0xffffffff;

        s->bank[i].sens_edge = 0x00000000;

        s->bank[i].fiq = 0x00000000;

        s->bank[i].inputs = 0x00000000;

        s->bank[i].swi = 0x00000000;

        memset(s->bank[i].priority, 0, sizeof(s->bank[i].priority));

        if (s->level_only)

            s->bank[i].sens_edge = 0xffffffff;

    }

    s->new_agr[0] = ~0;

    s->new_agr[1] = ~0;

    s->sir_intr[0] = 0;

    s->sir_intr[1] = 0;

    s->autoidle = 0;

    s->mask = ~0;

    qemu_set_irq(s->parent_intr[0], 0);

    qemu_set_irq(s->parent_intr[1], 0);

}

struct omap_intr_handler_s *omap_inth_init(target_phys_addr_t base,

                unsigned long size, unsigned char nbanks, qemu_irq **pins,

                qemu_irq parent_irq, qemu_irq parent_fiq, omap_clk clk)

{

    int iomemtype;

    struct omap_intr_handler_s *s = (struct omap_intr_handler_s *)

            qemu_mallocz(sizeof(struct omap_intr_handler_s) +

                            sizeof(struct omap_intr_handler_bank_s) * nbanks);

    s->parent_intr[0] = parent_irq;

    s->parent_intr[1] = parent_fiq;

    s->base = base;

    s->nbanks = nbanks;

    s->pins = qemu_allocate_irqs(omap_set_intr, s, nbanks * 32);

    if (pins)

        *pins = s->pins;

    omap_inth_reset(s);

    iomemtype = cpu_register_io_memory(0, omap_inth_readfn,

                    omap_inth_writefn, s);

    cpu_register_physical_memory(s->base, size, iomemtype);

    return s;

}

static uint32_t omap2_inth_read(void *opaque, target_phys_addr_t addr)

{

    struct omap_intr_handler_s *s = (struct omap_intr_handler_s *) opaque;

    int offset = addr - s->base;

    int bank_no, line_no;

    struct omap_intr_handler_bank_s *bank = 0;

    if ((offset & 0xf80) == 0x80) {

        bank_no = (offset & 0x60) >> 5;

        if (bank_no < s->nbanks) {

            offset &= ~0x60;

            bank = &s->bank[bank_no];

        }

    }

    switch (offset) {

    case 0x00:        /* INTC_REVISION */

        return 0x21;

    case 0x10:        /* INTC_SYSCONFIG */

        return (s->autoidle >> 2) & 1;

    case 0x14:        /* INTC_SYSSTATUS */

        return 1;                                                /* RESETDONE */

    case 0x40:        /* INTC_SIR_IRQ */

        return s->sir_intr[0];

    case 0x44:        /* INTC_SIR_FIQ */

        return s->sir_intr[1];

    case 0x48:        /* INTC_CONTROL */

        return (!s->mask) << 2;                                        /* GLOBALMASK */

    case 0x4c:        /* INTC_PROTECTION */

        return 0;

    case 0x50:        /* INTC_IDLE */

        return s->autoidle & 3;

    /* Per-bank registers */

    case 0x80:        /* INTC_ITR */

        return bank->inputs;

    case 0x84:        /* INTC_MIR */

        return bank->mask;

    case 0x88:        /* INTC_MIR_CLEAR */

    case 0x8c:        /* INTC_MIR_SET */

        return 0;

    case 0x90:        /* INTC_ISR_SET */

        return bank->swi;

    case 0x94:        /* INTC_ISR_CLEAR */

        return 0;

    case 0x98:        /* INTC_PENDING_IRQ */

        return bank->irqs & ~bank->mask & ~bank->fiq;

    case 0x9c:        /* INTC_PENDING_FIQ */

        return bank->irqs & ~bank->mask & bank->fiq;

    /* Per-line registers */

    case 0x100 ... 0x300:        /* INTC_ILR */

        bank_no = (offset - 0x100) >> 7;

        if (bank_no > s->nbanks)

            break;

        bank = &s->bank[bank_no];

        line_no = (offset & 0x7f) >> 2;

        return (bank->priority[line_no] << 2) |

                ((bank->fiq >> line_no) & 1);

    }

    OMAP_BAD_REG(addr);

    return 0;

}

static void omap2_inth_write(void *opaque, target_phys_addr_t addr,

                uint32_t value)

{

    struct omap_intr_handler_s *s = (struct omap_intr_handler_s *) opaque;

    int offset = addr - s->base;

    int bank_no, line_no;

    struct omap_intr_handler_bank_s *bank = 0;

    if ((offset & 0xf80) == 0x80) {

        bank_no = (offset & 0x60) >> 5;

        if (bank_no < s->nbanks) {

            offset &= ~0x60;

            bank = &s->bank[bank_no];

        }

    }

    switch (offset) {

    case 0x10:        /* INTC_SYSCONFIG */

        s->autoidle &= 4;

        s->autoidle |= (value & 1) << 2;

        if (value & 2)                                                /* SOFTRESET */

            omap_inth_reset(s);

        return;

    case 0x48:        /* INTC_CONTROL */

        s->mask = (value & 4) ? 0 : ~0;                                /* GLOBALMASK */

        if (value & 2) {                                        /* NEWFIQAGR */

            qemu_set_irq(s->parent_intr[1], 0);

            s->new_agr[1] = ~0;

            omap_inth_update(s, 1);

        }

        if (value & 1) {                                        /* NEWIRQAGR */

            qemu_set_irq(s->parent_intr[0], 0);

            s->new_agr[0] = ~0;

            omap_inth_update(s, 0);

        }

        return;

    case 0x4c:        /* INTC_PROTECTION */

        /* TODO: Make a bitmap (or sizeof(char)map) of access privileges

         * for every register, see Chapter 3 and 4 for privileged mode.  */

        if (value & 1)

            fprintf(stderr, "%s: protection mode enable attempt\n",

                            __FUNCTION__);

        return;

    case 0x50:        /* INTC_IDLE */

        s->autoidle &= ~3;

        s->autoidle |= value & 3;

        return;

    /* Per-bank registers */

    case 0x84:        /* INTC_MIR */

        bank->mask = value;

        omap_inth_update(s, 0);

        omap_inth_update(s, 1);

        return;

    case 0x88:        /* INTC_MIR_CLEAR */

        bank->mask &= ~value;

        omap_inth_update(s, 0);

        omap_inth_update(s, 1);

        return;

    case 0x8c:        /* INTC_MIR_SET */

        bank->mask |= value;

        return;

    case 0x90:        /* INTC_ISR_SET */

        bank->irqs |= bank->swi |= value;

        omap_inth_update(s, 0);

        omap_inth_update(s, 1);

        return;

    case 0x94:        /* INTC_ISR_CLEAR */

        bank->swi &= ~value;

        bank->irqs = bank->swi & bank->inputs;

        return;

    /* Per-line registers */

    case 0x100 ... 0x300:        /* INTC_ILR */

        bank_no = (offset - 0x100) >> 7;

        if (bank_no > s->nbanks)

            break;

        bank = &s->bank[bank_no];

        line_no = (offset & 0x7f) >> 2;

        bank->priority[line_no] = (value >> 2) & 0x3f;

        bank->fiq &= ~(1 << line_no);

        bank->fiq |= (value & 1) << line_no;

        return;

    case 0x00:        /* INTC_REVISION */

    case 0x14:        /* INTC_SYSSTATUS */

    case 0x40:        /* INTC_SIR_IRQ */

    case 0x44:        /* INTC_SIR_FIQ */

    case 0x80:        /* INTC_ITR */

    case 0x98:        /* INTC_PENDING_IRQ */

    case 0x9c:        /* INTC_PENDING_FIQ */

        OMAP_RO_REG(addr);

        return;

    }

    OMAP_BAD_REG(addr);

}

static CPUReadMemoryFunc *omap2_inth_readfn[] = {

    omap_badwidth_read32,

    omap_badwidth_read32,

    omap2_inth_read,

};

static CPUWriteMemoryFunc *omap2_inth_writefn[] = {

    omap2_inth_write,

    omap2_inth_write,

    omap2_inth_write,

};

struct omap_intr_handler_s *omap2_inth_init(target_phys_addr_t base,

                int size, int nbanks, qemu_irq **pins,

                qemu_irq parent_irq, qemu_irq parent_fiq,

                omap_clk fclk, omap_clk iclk)

{

    int iomemtype;

    struct omap_intr_handler_s *s = (struct omap_intr_handler_s *)

            qemu_mallocz(sizeof(struct omap_intr_handler_s) +

                            sizeof(struct omap_intr_handler_bank_s) * nbanks);

    s->parent_intr[0] = parent_irq;

    s->parent_intr[1] = parent_fiq;

    s->base = base;

    s->nbanks = nbanks;

    s->level_only = 1;

    s->pins = qemu_allocate_irqs(omap_set_intr_noedge, s, nbanks * 32);

    if (pins)

        *pins = s->pins;

    omap_inth_reset(s);

    iomemtype = cpu_register_io_memory(0, omap2_inth_readfn,

                    omap2_inth_writefn, s);

    cpu_register_physical_memory(s->base, size, iomemtype);

    return s;

}

/* MPU OS timers */

struct omap_mpu_timer_s {

    qemu_irq irq;

    omap_clk clk;

    target_phys_addr_t base;

    uint32_t val;

    int64_t time;

    QEMUTimer *timer;

    QEMUBH *tick;

    int64_t rate;

    int it_ena;

    int enable;

    int ptv;

    int ar;

    int st;

    uint32_t reset_val;

};

static inline uint32_t omap_timer_read(struct omap_mpu_timer_s *timer)

{

    uint64_t distance = qemu_get_clock(vm_clock) - timer->time;

    if (timer->st && timer->enable && timer->rate)

        return timer->val - muldiv64(distance >> (timer->ptv + 1),

                        timer->rate, ticks_per_sec);

    else

        return timer->val;

}

static inline void omap_timer_sync(struct omap_mpu_timer_s *timer)

{

    timer->val = omap_timer_read(timer);

    timer->time = qemu_get_clock(vm_clock);

}

static inline void omap_timer_update(struct omap_mpu_timer_s *timer)

{

    int64_t expires;

    if (timer->enable && timer->st && timer->rate) {

        timer->val = timer->reset_val;        /* Should skip this on clk enable */

        expires = muldiv64((uint64_t) timer->val << (timer->ptv + 1),

                        ticks_per_sec, timer->rate);

        /* If timer expiry would be sooner than in about 1 ms and

         * auto-reload isn't set, then fire immediately.  This is a hack

         * to make systems like PalmOS run in acceptable time.  PalmOS

         * sets the interval to a very low value and polls the status bit

         * in a busy loop when it wants to sleep just a couple of CPU

         * ticks.  */

        if (expires > (ticks_per_sec >> 10) || timer->ar)

            qemu_mod_timer(timer->timer, timer->time + expires);

        else

            qemu_bh_schedule(timer->tick);

    } else

        qemu_del_timer(timer->timer);

}

static void omap_timer_fire(void *opaque)

{

    struct omap_mpu_timer_s *timer = opaque;

    if (!timer->ar) {

        timer->val = 0;

        timer->st = 0;

    }

    if (timer->it_ena)

        /* Edge-triggered irq */

        qemu_irq_pulse(timer->irq);

}

static void omap_timer_tick(void *opaque)

{

    struct omap_mpu_timer_s *timer = (struct omap_mpu_timer_s *) opaque;

    omap_timer_sync(timer);

    omap_timer_fire(timer);

    omap_timer_update(timer);

}

static void omap_timer_clk_update(void *opaque, int line, int on)

{

    struct omap_mpu_timer_s *timer = (struct omap_mpu_timer_s *) opaque;

    omap_timer_sync(timer);

    timer->rate = on ? omap_clk_getrate(timer->clk) : 0;

    omap_timer_update(timer);

}

static void omap_timer_clk_setup(struct omap_mpu_timer_s *timer)

{

    omap_clk_adduser(timer->clk,

                    qemu_allocate_irqs(omap_timer_clk_update, timer, 1)[0]);

    timer->rate = omap_clk_getrate(timer->clk);

}

static uint32_t omap_mpu_timer_read(void *opaque, target_phys_addr_t addr)

{

    struct omap_mpu_timer_s *s = (struct omap_mpu_timer_s *) opaque;

    int offset = addr - s->base;

    switch (offset) {

    case 0x00:        /* CNTL_TIMER */

        return (s->enable << 5) | (s->ptv << 2) | (s->ar << 1) | s->st;

    case 0x04:        /* LOAD_TIM */

        break;

    case 0x08:        /* READ_TIM */

        return omap_timer_read(s);

    }

    OMAP_BAD_REG(addr);

    return 0;

}

static void omap_mpu_timer_write(void *opaque, target_phys_addr_t addr,

                uint32_t value)

{

    struct omap_mpu_timer_s *s = (struct omap_mpu_timer_s *) opaque;

    int offset = addr - s->base;

    switch (offset) {

    case 0x00:        /* CNTL_TIMER */

        omap_timer_sync(s);

        s->enable = (value >> 5) & 1;

        s->ptv = (value >> 2) & 7;

        s->ar = (value >> 1) & 1;

        s->st = value & 1;

        omap_timer_update(s);

        return;

    case 0x04:        /* LOAD_TIM */

        s->reset_val = value;

        return;

    case 0x08:        /* READ_TIM */

        OMAP_RO_REG(addr);

        break;

    default:

        OMAP_BAD_REG(addr);

    }

}

static CPUReadMemoryFunc *omap_mpu_timer_readfn[] = {

    omap_badwidth_read32,

    omap_badwidth_read32,

    omap_mpu_timer_read,

};

static CPUWriteMemoryFunc *omap_mpu_timer_writefn[] = {

    omap_badwidth_write32,

    omap_badwidth_write32,

    omap_mpu_timer_write,

};

static void omap_mpu_timer_reset(struct omap_mpu_timer_s *s)

{

    qemu_del_timer(s->timer);

    s->enable = 0;

    s->reset_val = 31337;

    s->val = 0;

    s->ptv = 0;

    s->ar = 0;

    s->st = 0;

    s->it_ena = 1;

}

struct omap_mpu_timer_s *omap_mpu_timer_init(target_phys_addr_t base,

                qemu_irq irq, omap_clk clk)

{

    int iomemtype;

    struct omap_mpu_timer_s *s = (struct omap_mpu_timer_s *)

            qemu_mallocz(sizeof(struct omap_mpu_timer_s));

    s->irq = irq;

    s->clk = clk;

    s->base = base;

    s->timer = qemu_new_timer(vm_clock, omap_timer_tick, s);

    s->tick = qemu_bh_new(omap_timer_fire, s);

    omap_mpu_timer_reset(s);

    omap_timer_clk_setup(s);

    iomemtype = cpu_register_io_memory(0, omap_mpu_timer_readfn,

                    omap_mpu_timer_writefn, s);

    cpu_register_physical_memory(s->base, 0x100, iomemtype);

    return s;

}

/* Watchdog timer */

struct omap_watchdog_timer_s {

    struct omap_mpu_timer_s timer;

    uint8_t last_wr;

    int mode;

    int free;

    int reset;

};

static uint32_t omap_wd_timer_read(void *opaque, target_phys_addr_t addr)

{

    struct omap_watchdog_timer_s *s = (struct omap_watchdog_timer_s *) opaque;

    int offset = addr - s->timer.base;

    switch (offset) {

    case 0x00:        /* CNTL_TIMER */

        return (s->timer.ptv << 9) | (s->timer.ar << 8) |

                (s->timer.st << 7) | (s->free << 1);

    case 0x04:        /* READ_TIMER */

        return omap_timer_read(&s->timer);