/* * StrongARM SA-1100/SA-1110 emulation * * Copyright (C) 2011 Dmitry Eremin-Solenikov * * Largely based on StrongARM emulation: * Copyright (c) 2006 Openedhand Ltd. * Written by Andrzej Zaborowski * * UART code based on QEMU 16550A UART emulation * Copyright (c) 2003-2004 Fabrice Bellard * Copyright (c) 2008 Citrix Systems, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2 as * published by the Free Software Foundation. * * 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, see . * * Contributions after 2012-01-13 are licensed under the terms of the * GNU GPL, version 2 or (at your option) any later version. */ #include "qemu/osdep.h" #include "cpu.h" #include "hw/boards.h" #include "hw/sysbus.h" #include "strongarm.h" #include "qemu/error-report.h" #include "hw/arm/boot.h" #include "chardev/char-fe.h" #include "chardev/char-serial.h" #include "sysemu/sysemu.h" #include "hw/ssi/ssi.h" #include "qemu/cutils.h" #include "qemu/log.h" //#define DEBUG /* TODO - Implement cp15, c14 ? - Implement cp15, c15 !!! (idle used in L) - Implement idle mode handling/DIM - Implement sleep mode/Wake sources - Implement reset control - Implement memory control regs - PCMCIA handling - Maybe support MBGNT/MBREQ - DMA channels - GPCLK - IrDA - MCP - Enhance UART with modem signals */ #ifdef DEBUG # define DPRINTF(format, ...) printf(format , ## __VA_ARGS__) #else # define DPRINTF(format, ...) do { } while (0) #endif static struct { hwaddr io_base; int irq; } sa_serial[] = { { 0x80010000, SA_PIC_UART1 }, { 0x80030000, SA_PIC_UART2 }, { 0x80050000, SA_PIC_UART3 }, { 0, 0 } }; /* Interrupt Controller */ #define TYPE_STRONGARM_PIC "strongarm_pic" #define STRONGARM_PIC(obj) \ OBJECT_CHECK(StrongARMPICState, (obj), TYPE_STRONGARM_PIC) typedef struct StrongARMPICState { SysBusDevice parent_obj; MemoryRegion iomem; qemu_irq irq; qemu_irq fiq; uint32_t pending; uint32_t enabled; uint32_t is_fiq; uint32_t int_idle; } StrongARMPICState; #define ICIP 0x00 #define ICMR 0x04 #define ICLR 0x08 #define ICFP 0x10 #define ICPR 0x20 #define ICCR 0x0c #define SA_PIC_SRCS 32 static void strongarm_pic_update(void *opaque) { StrongARMPICState *s = opaque; /* FIXME: reflect DIM */ qemu_set_irq(s->fiq, s->pending & s->enabled & s->is_fiq); qemu_set_irq(s->irq, s->pending & s->enabled & ~s->is_fiq); } static void strongarm_pic_set_irq(void *opaque, int irq, int level) { StrongARMPICState *s = opaque; if (level) { s->pending |= 1 << irq; } else { s->pending &= ~(1 << irq); } strongarm_pic_update(s); } static uint64_t strongarm_pic_mem_read(void *opaque, hwaddr offset, unsigned size) { StrongARMPICState *s = opaque; switch (offset) { case ICIP: return s->pending & ~s->is_fiq & s->enabled; case ICMR: return s->enabled; case ICLR: return s->is_fiq; case ICCR: return s->int_idle == 0; case ICFP: return s->pending & s->is_fiq & s->enabled; case ICPR: return s->pending; default: printf("%s: Bad register offset 0x" TARGET_FMT_plx "\n", __func__, offset); return 0; } } static void strongarm_pic_mem_write(void *opaque, hwaddr offset, uint64_t value, unsigned size) { StrongARMPICState *s = opaque; switch (offset) { case ICMR: s->enabled = value; break; case ICLR: s->is_fiq = value; break; case ICCR: s->int_idle = (value & 1) ? 0 : ~0; break; default: printf("%s: Bad register offset 0x" TARGET_FMT_plx "\n", __func__, offset); break; } strongarm_pic_update(s); } static const MemoryRegionOps strongarm_pic_ops = { .read = strongarm_pic_mem_read, .write = strongarm_pic_mem_write, .endianness = DEVICE_NATIVE_ENDIAN, }; static void strongarm_pic_initfn(Object *obj) { DeviceState *dev = DEVICE(obj); StrongARMPICState *s = STRONGARM_PIC(obj); SysBusDevice *sbd = SYS_BUS_DEVICE(obj); qdev_init_gpio_in(dev, strongarm_pic_set_irq, SA_PIC_SRCS); memory_region_init_io(&s->iomem, obj, &strongarm_pic_ops, s, "pic", 0x1000); sysbus_init_mmio(sbd, &s->iomem); sysbus_init_irq(sbd, &s->irq); sysbus_init_irq(sbd, &s->fiq); } static int strongarm_pic_post_load(void *opaque, int version_id) { strongarm_pic_update(opaque); return 0; } static VMStateDescription vmstate_strongarm_pic_regs = { .name = "strongarm_pic", .version_id = 0, .minimum_version_id = 0, .post_load = strongarm_pic_post_load, .fields = (VMStateField[]) { VMSTATE_UINT32(pending, StrongARMPICState), VMSTATE_UINT32(enabled, StrongARMPICState), VMSTATE_UINT32(is_fiq, StrongARMPICState), VMSTATE_UINT32(int_idle, StrongARMPICState), VMSTATE_END_OF_LIST(), }, }; static void strongarm_pic_class_init(ObjectClass *klass, void *data) { DeviceClass *dc = DEVICE_CLASS(klass); dc->desc = "StrongARM PIC"; dc->vmsd = &vmstate_strongarm_pic_regs; } static const TypeInfo strongarm_pic_info = { .name = TYPE_STRONGARM_PIC, .parent = TYPE_SYS_BUS_DEVICE, .instance_size = sizeof(StrongARMPICState), .instance_init = strongarm_pic_initfn, .class_init = strongarm_pic_class_init, }; /* Real-Time Clock */ #define RTAR 0x00 /* RTC Alarm register */ #define RCNR 0x04 /* RTC Counter register */ #define RTTR 0x08 /* RTC Timer Trim register */ #define RTSR 0x10 /* RTC Status register */ #define RTSR_AL (1 << 0) /* RTC Alarm detected */ #define RTSR_HZ (1 << 1) /* RTC 1Hz detected */ #define RTSR_ALE (1 << 2) /* RTC Alarm enable */ #define RTSR_HZE (1 << 3) /* RTC 1Hz enable */ /* 16 LSB of RTTR are clockdiv for internal trim logic, * trim delete isn't emulated, so * f = 32 768 / (RTTR_trim + 1) */ #define TYPE_STRONGARM_RTC "strongarm-rtc" #define STRONGARM_RTC(obj) \ OBJECT_CHECK(StrongARMRTCState, (obj), TYPE_STRONGARM_RTC) typedef struct StrongARMRTCState { SysBusDevice parent_obj; MemoryRegion iomem; uint32_t rttr; uint32_t rtsr; uint32_t rtar; uint32_t last_rcnr; int64_t last_hz; QEMUTimer *rtc_alarm; QEMUTimer *rtc_hz; qemu_irq rtc_irq; qemu_irq rtc_hz_irq; } StrongARMRTCState; static inline void strongarm_rtc_int_update(StrongARMRTCState *s) { qemu_set_irq(s->rtc_irq, s->rtsr & RTSR_AL); qemu_set_irq(s->rtc_hz_irq, s->rtsr & RTSR_HZ); } static void strongarm_rtc_hzupdate(StrongARMRTCState *s) { int64_t rt = qemu_clock_get_ms(rtc_clock); s->last_rcnr += ((rt - s->last_hz) << 15) / (1000 * ((s->rttr & 0xffff) + 1)); s->last_hz = rt; } static inline void strongarm_rtc_timer_update(StrongARMRTCState *s) { if ((s->rtsr & RTSR_HZE) && !(s->rtsr & RTSR_HZ)) { timer_mod(s->rtc_hz, s->last_hz + 1000); } else { timer_del(s->rtc_hz); } if ((s->rtsr & RTSR_ALE) && !(s->rtsr & RTSR_AL)) { timer_mod(s->rtc_alarm, s->last_hz + (((s->rtar - s->last_rcnr) * 1000 * ((s->rttr & 0xffff) + 1)) >> 15)); } else { timer_del(s->rtc_alarm); } } static inline void strongarm_rtc_alarm_tick(void *opaque) { StrongARMRTCState *s = opaque; s->rtsr |= RTSR_AL; strongarm_rtc_timer_update(s); strongarm_rtc_int_update(s); } static inline void strongarm_rtc_hz_tick(void *opaque) { StrongARMRTCState *s = opaque; s->rtsr |= RTSR_HZ; strongarm_rtc_timer_update(s); strongarm_rtc_int_update(s); } static uint64_t strongarm_rtc_read(void *opaque, hwaddr addr, unsigned size) { StrongARMRTCState *s = opaque; switch (addr) { case RTTR: return s->rttr; case RTSR: return s->rtsr; case RTAR: return s->rtar; case RCNR: return s->last_rcnr + ((qemu_clock_get_ms(rtc_clock) - s->last_hz) << 15) / (1000 * ((s->rttr & 0xffff) + 1)); default: printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr); return 0; } } static void strongarm_rtc_write(void *opaque, hwaddr addr, uint64_t value, unsigned size) { StrongARMRTCState *s = opaque; uint32_t old_rtsr; switch (addr) { case RTTR: strongarm_rtc_hzupdate(s); s->rttr = value; strongarm_rtc_timer_update(s); break; case RTSR: old_rtsr = s->rtsr; s->rtsr = (value & (RTSR_ALE | RTSR_HZE)) | (s->rtsr & ~(value & (RTSR_AL | RTSR_HZ))); if (s->rtsr != old_rtsr) { strongarm_rtc_timer_update(s); } strongarm_rtc_int_update(s); break; case RTAR: s->rtar = value; strongarm_rtc_timer_update(s); break; case RCNR: strongarm_rtc_hzupdate(s); s->last_rcnr = value; strongarm_rtc_timer_update(s); break; default: printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr); } } static const MemoryRegionOps strongarm_rtc_ops = { .read = strongarm_rtc_read, .write = strongarm_rtc_write, .endianness = DEVICE_NATIVE_ENDIAN, }; static void strongarm_rtc_init(Object *obj) { StrongARMRTCState *s = STRONGARM_RTC(obj); SysBusDevice *dev = SYS_BUS_DEVICE(obj); struct tm tm; s->rttr = 0x0; s->rtsr = 0; qemu_get_timedate(&tm, 0); s->last_rcnr = (uint32_t) mktimegm(&tm); s->last_hz = qemu_clock_get_ms(rtc_clock); s->rtc_alarm = timer_new_ms(rtc_clock, strongarm_rtc_alarm_tick, s); s->rtc_hz = timer_new_ms(rtc_clock, strongarm_rtc_hz_tick, s); sysbus_init_irq(dev, &s->rtc_irq); sysbus_init_irq(dev, &s->rtc_hz_irq); memory_region_init_io(&s->iomem, obj, &strongarm_rtc_ops, s, "rtc", 0x10000); sysbus_init_mmio(dev, &s->iomem); } static int strongarm_rtc_pre_save(void *opaque) { StrongARMRTCState *s = opaque; strongarm_rtc_hzupdate(s); return 0; } static int strongarm_rtc_post_load(void *opaque, int version_id) { StrongARMRTCState *s = opaque; strongarm_rtc_timer_update(s); strongarm_rtc_int_update(s); return 0; } static const VMStateDescription vmstate_strongarm_rtc_regs = { .name = "strongarm-rtc", .version_id = 0, .minimum_version_id = 0, .pre_save = strongarm_rtc_pre_save, .post_load = strongarm_rtc_post_load, .fields = (VMStateField[]) { VMSTATE_UINT32(rttr, StrongARMRTCState), VMSTATE_UINT32(rtsr, StrongARMRTCState), VMSTATE_UINT32(rtar, StrongARMRTCState), VMSTATE_UINT32(last_rcnr, StrongARMRTCState), VMSTATE_INT64(last_hz, StrongARMRTCState), VMSTATE_END_OF_LIST(), }, }; static void strongarm_rtc_sysbus_class_init(ObjectClass *klass, void *data) { DeviceClass *dc = DEVICE_CLASS(klass); dc->desc = "StrongARM RTC Controller"; dc->vmsd = &vmstate_strongarm_rtc_regs; } static const TypeInfo strongarm_rtc_sysbus_info = { .name = TYPE_STRONGARM_RTC, .parent = TYPE_SYS_BUS_DEVICE, .instance_size = sizeof(StrongARMRTCState), .instance_init = strongarm_rtc_init, .class_init = strongarm_rtc_sysbus_class_init, }; /* GPIO */ #define GPLR 0x00 #define GPDR 0x04 #define GPSR 0x08 #define GPCR 0x0c #define GRER 0x10 #define GFER 0x14 #define GEDR 0x18 #define GAFR 0x1c #define TYPE_STRONGARM_GPIO "strongarm-gpio" #define STRONGARM_GPIO(obj) \ OBJECT_CHECK(StrongARMGPIOInfo, (obj), TYPE_STRONGARM_GPIO) typedef struct StrongARMGPIOInfo StrongARMGPIOInfo; struct StrongARMGPIOInfo { SysBusDevice busdev; MemoryRegion iomem; qemu_irq handler[28]; qemu_irq irqs[11]; qemu_irq irqX; uint32_t ilevel; uint32_t olevel; uint32_t dir; uint32_t rising; uint32_t falling; uint32_t status; uint32_t gafr; uint32_t prev_level; }; static void strongarm_gpio_irq_update(StrongARMGPIOInfo *s) { int i; for (i = 0; i < 11; i++) { qemu_set_irq(s->irqs[i], s->status & (1 << i)); } qemu_set_irq(s->irqX, (s->status & ~0x7ff)); } static void strongarm_gpio_set(void *opaque, int line, int level) { StrongARMGPIOInfo *s = opaque; uint32_t mask; mask = 1 << line; if (level) { s->status |= s->rising & mask & ~s->ilevel & ~s->dir; s->ilevel |= mask; } else { s->status |= s->falling & mask & s->ilevel & ~s->dir; s->ilevel &= ~mask; } if (s->status & mask) { strongarm_gpio_irq_update(s); } } static void strongarm_gpio_handler_update(StrongARMGPIOInfo *s) { uint32_t level, diff; int bit; level = s->olevel & s->dir; for (diff = s->prev_level ^ level; diff; diff ^= 1 << bit) { bit = ctz32(diff); qemu_set_irq(s->handler[bit], (level >> bit) & 1); } s->prev_level = level; } static uint64_t strongarm_gpio_read(void *opaque, hwaddr offset, unsigned size) { StrongARMGPIOInfo *s = opaque; switch (offset) { case GPDR: /* GPIO Pin-Direction registers */ return s->dir; case GPSR: /* GPIO Pin-Output Set registers */ qemu_log_mask(LOG_GUEST_ERROR, "strongarm GPIO: read from write only register GPSR\n"); return 0; case GPCR: /* GPIO Pin-Output Clear registers */ qemu_log_mask(LOG_GUEST_ERROR, "strongarm GPIO: read from write only register GPCR\n"); return 0; case GRER: /* GPIO Rising-Edge Detect Enable registers */ return s->rising; case GFER: /* GPIO Falling-Edge Detect Enable registers */ return s->falling; case GAFR: /* GPIO Alternate Function registers */ return s->gafr; case GPLR: /* GPIO Pin-Level registers */ return (s->olevel & s->dir) | (s->ilevel & ~s->dir); case GEDR: /* GPIO Edge Detect Status registers */ return s->status; default: printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset); } return 0; } static void strongarm_gpio_write(void *opaque, hwaddr offset, uint64_t value, unsigned size) { StrongARMGPIOInfo *s = opaque; switch (offset) { case GPDR: /* GPIO Pin-Direction registers */ s->dir = value & 0x0fffffff; strongarm_gpio_handler_update(s); break; case GPSR: /* GPIO Pin-Output Set registers */ s->olevel |= value & 0x0fffffff; strongarm_gpio_handler_update(s); break; case GPCR: /* GPIO Pin-Output Clear registers */ s->olevel &= ~value; strongarm_gpio_handler_update(s); break; case GRER: /* GPIO Rising-Edge Detect Enable registers */ s->rising = value; break; case GFER: /* GPIO Falling-Edge Detect Enable registers */ s->falling = value; break; case GAFR: /* GPIO Alternate Function registers */ s->gafr = value; break; case GEDR: /* GPIO Edge Detect Status registers */ s->status &= ~value; strongarm_gpio_irq_update(s); break; default: printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset); } } static const MemoryRegionOps strongarm_gpio_ops = { .read = strongarm_gpio_read, .write = strongarm_gpio_write, .endianness = DEVICE_NATIVE_ENDIAN, }; static DeviceState *strongarm_gpio_init(hwaddr base, DeviceState *pic) { DeviceState *dev; int i; dev = qdev_create(NULL, TYPE_STRONGARM_GPIO); qdev_init_nofail(dev); sysbus_mmio_map(SYS_BUS_DEVICE(dev), 0, base); for (i = 0; i < 12; i++) sysbus_connect_irq(SYS_BUS_DEVICE(dev), i, qdev_get_gpio_in(pic, SA_PIC_GPIO0_EDGE + i)); return dev; } static void strongarm_gpio_initfn(Object *obj) { DeviceState *dev = DEVICE(obj); StrongARMGPIOInfo *s = STRONGARM_GPIO(obj); SysBusDevice *sbd = SYS_BUS_DEVICE(obj); int i; qdev_init_gpio_in(dev, strongarm_gpio_set, 28); qdev_init_gpio_out(dev, s->handler, 28); memory_region_init_io(&s->iomem, obj, &strongarm_gpio_ops, s, "gpio", 0x1000); sysbus_init_mmio(sbd, &s->iomem); for (i = 0; i < 11; i++) { sysbus_init_irq(sbd, &s->irqs[i]); } sysbus_init_irq(sbd, &s->irqX); } static const VMStateDescription vmstate_strongarm_gpio_regs = { .name = "strongarm-gpio", .version_id = 0, .minimum_version_id = 0, .fields = (VMStateField[]) { VMSTATE_UINT32(ilevel, StrongARMGPIOInfo), VMSTATE_UINT32(olevel, StrongARMGPIOInfo), VMSTATE_UINT32(dir, StrongARMGPIOInfo), VMSTATE_UINT32(rising, StrongARMGPIOInfo), VMSTATE_UINT32(falling, StrongARMGPIOInfo), VMSTATE_UINT32(status, StrongARMGPIOInfo), VMSTATE_UINT32(gafr, StrongARMGPIOInfo), VMSTATE_UINT32(prev_level, StrongARMGPIOInfo), VMSTATE_END_OF_LIST(), }, }; static void strongarm_gpio_class_init(ObjectClass *klass, void *data) { DeviceClass *dc = DEVICE_CLASS(klass); dc->desc = "StrongARM GPIO controller"; dc->vmsd = &vmstate_strongarm_gpio_regs; } static const TypeInfo strongarm_gpio_info = { .name = TYPE_STRONGARM_GPIO, .parent = TYPE_SYS_BUS_DEVICE, .instance_size = sizeof(StrongARMGPIOInfo), .instance_init = strongarm_gpio_initfn, .class_init = strongarm_gpio_class_init, }; /* Peripheral Pin Controller */ #define PPDR 0x00 #define PPSR 0x04 #define PPAR 0x08 #define PSDR 0x0c #define PPFR 0x10 #define TYPE_STRONGARM_PPC "strongarm-ppc" #define STRONGARM_PPC(obj) \ OBJECT_CHECK(StrongARMPPCInfo, (obj), TYPE_STRONGARM_PPC) typedef struct StrongARMPPCInfo StrongARMPPCInfo; struct StrongARMPPCInfo { SysBusDevice parent_obj; MemoryRegion iomem; qemu_irq handler[28]; uint32_t ilevel; uint32_t olevel; uint32_t dir; uint32_t ppar; uint32_t psdr; uint32_t ppfr; uint32_t prev_level; }; static void strongarm_ppc_set(void *opaque, int line, int level) { StrongARMPPCInfo *s = opaque; if (level) { s->ilevel |= 1 << line; } else { s->ilevel &= ~(1 << line); } } static void strongarm_ppc_handler_update(StrongARMPPCInfo *s) { uint32_t level, diff; int bit; level = s->olevel & s->dir; for (diff = s->prev_level ^ level; diff; diff ^= 1 << bit) { bit = ctz32(diff); qemu_set_irq(s->handler[bit], (level >> bit) & 1); } s->prev_level = level; } static uint64_t strongarm_ppc_read(void *opaque, hwaddr offset, unsigned size) { StrongARMPPCInfo *s = opaque; switch (offset) { case PPDR: /* PPC Pin Direction registers */ return s->dir | ~0x3fffff; case PPSR: /* PPC Pin State registers */ return (s->olevel & s->dir) | (s->ilevel & ~s->dir) | ~0x3fffff; case PPAR: return s->ppar | ~0x41000; case PSDR: return s->psdr; case PPFR: return s->ppfr | ~0x7f001; default: printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset); } return 0; } static void strongarm_ppc_write(void *opaque, hwaddr offset, uint64_t value, unsigned size) { StrongARMPPCInfo *s = opaque; switch (offset) { case PPDR: /* PPC Pin Direction registers */ s->dir = value & 0x3fffff; strongarm_ppc_handler_update(s); break; case PPSR: /* PPC Pin State registers */ s->olevel = value & s->dir & 0x3fffff; strongarm_ppc_handler_update(s); break; case PPAR: s->ppar = value & 0x41000; break; case PSDR: s->psdr = value & 0x3fffff; break; case PPFR: s->ppfr = value & 0x7f001; break; default: printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset); } } static const MemoryRegionOps strongarm_ppc_ops = { .read = strongarm_ppc_read, .write = strongarm_ppc_write, .endianness = DEVICE_NATIVE_ENDIAN, }; static void strongarm_ppc_init(Object *obj) { DeviceState *dev = DEVICE(obj); StrongARMPPCInfo *s = STRONGARM_PPC(obj); SysBusDevice *sbd = SYS_BUS_DEVICE(obj); qdev_init_gpio_in(dev, strongarm_ppc_set, 22); qdev_init_gpio_out(dev, s->handler, 22); memory_region_init_io(&s->iomem, obj, &strongarm_ppc_ops, s, "ppc", 0x1000); sysbus_init_mmio(sbd, &s->iomem); } static const VMStateDescription vmstate_strongarm_ppc_regs = { .name = "strongarm-ppc", .version_id = 0, .minimum_version_id = 0, .fields = (VMStateField[]) { VMSTATE_UINT32(ilevel, StrongARMPPCInfo), VMSTATE_UINT32(olevel, StrongARMPPCInfo), VMSTATE_UINT32(dir, StrongARMPPCInfo), VMSTATE_UINT32(ppar, StrongARMPPCInfo), VMSTATE_UINT32(psdr, StrongARMPPCInfo), VMSTATE_UINT32(ppfr, StrongARMPPCInfo), VMSTATE_UINT32(prev_level, StrongARMPPCInfo), VMSTATE_END_OF_LIST(), }, }; static void strongarm_ppc_class_init(ObjectClass *klass, void *data) { DeviceClass *dc = DEVICE_CLASS(klass); dc->desc = "StrongARM PPC controller"; dc->vmsd = &vmstate_strongarm_ppc_regs; } static const TypeInfo strongarm_ppc_info = { .name = TYPE_STRONGARM_PPC, .parent = TYPE_SYS_BUS_DEVICE, .instance_size = sizeof(StrongARMPPCInfo), .instance_init = strongarm_ppc_init, .class_init = strongarm_ppc_class_init, }; /* UART Ports */ #define UTCR0 0x00 #define UTCR1 0x04 #define UTCR2 0x08 #define UTCR3 0x0c #define UTDR 0x14 #define UTSR0 0x1c #define UTSR1 0x20 #define UTCR0_PE (1 << 0) /* Parity enable */ #define UTCR0_OES (1 << 1) /* Even parity */ #define UTCR0_SBS (1 << 2) /* 2 stop bits */ #define UTCR0_DSS (1 << 3) /* 8-bit data */ #define UTCR3_RXE (1 << 0) /* Rx enable */ #define UTCR3_TXE (1 << 1) /* Tx enable */ #define UTCR3_BRK (1 << 2) /* Force Break */ #define UTCR3_RIE (1 << 3) /* Rx int enable */ #define UTCR3_TIE (1 << 4) /* Tx int enable */ #define UTCR3_LBM (1 << 5) /* Loopback */ #define UTSR0_TFS (1 << 0) /* Tx FIFO nearly empty */ #define UTSR0_RFS (1 << 1) /* Rx FIFO nearly full */ #define UTSR0_RID (1 << 2) /* Receiver Idle */ #define UTSR0_RBB (1 << 3) /* Receiver begin break */ #define UTSR0_REB (1 << 4) /* Receiver end break */ #define UTSR0_EIF (1 << 5) /* Error in FIFO */ #define UTSR1_RNE (1 << 1) /* Receive FIFO not empty */ #define UTSR1_TNF (1 << 2) /* Transmit FIFO not full */ #define UTSR1_PRE (1 << 3) /* Parity error */ #define UTSR1_FRE (1 << 4) /* Frame error */ #define UTSR1_ROR (1 << 5) /* Receive Over Run */ #define RX_FIFO_PRE (1 << 8) #define RX_FIFO_FRE (1 << 9) #define RX_FIFO_ROR (1 << 10) #define TYPE_STRONGARM_UART "strongarm-uart" #define STRONGARM_UART(obj) \ OBJECT_CHECK(StrongARMUARTState, (obj), TYPE_STRONGARM_UART) typedef struct StrongARMUARTState { SysBusDevice parent_obj; MemoryRegion iomem; CharBackend chr; qemu_irq irq; uint8_t utcr0; uint16_t brd; uint8_t utcr3; uint8_t utsr0; uint8_t utsr1; uint8_t tx_fifo[8]; uint8_t tx_start; uint8_t tx_len; uint16_t rx_fifo[12]; /* value + error flags in high bits */ uint8_t rx_start; uint8_t rx_len; uint64_t char_transmit_time; /* time to transmit a char in ticks*/ bool wait_break_end; QEMUTimer *rx_timeout_timer; QEMUTimer *tx_timer; } StrongARMUARTState; static void strongarm_uart_update_status(StrongARMUARTState *s) { uint16_t utsr1 = 0; if (s->tx_len != 8) { utsr1 |= UTSR1_TNF; } if (s->rx_len != 0) { uint16_t ent = s->rx_fifo[s->rx_start]; utsr1 |= UTSR1_RNE; if (ent & RX_FIFO_PRE) { s->utsr1 |= UTSR1_PRE; } if (ent & RX_FIFO_FRE) { s->utsr1 |= UTSR1_FRE; } if (ent & RX_FIFO_ROR) { s->utsr1 |= UTSR1_ROR; } } s->utsr1 = utsr1; } static void strongarm_uart_update_int_status(StrongARMUARTState *s) { uint16_t utsr0 = s->utsr0 & (UTSR0_REB | UTSR0_RBB | UTSR0_RID); int i; if ((s->utcr3 & UTCR3_TXE) && (s->utcr3 & UTCR3_TIE) && s->tx_len <= 4) { utsr0 |= UTSR0_TFS; } if ((s->utcr3 & UTCR3_RXE) && (s->utcr3 & UTCR3_RIE) && s->rx_len > 4) { utsr0 |= UTSR0_RFS; } for (i = 0; i < s->rx_len && i < 4; i++) if (s->rx_fifo[(s->rx_start + i) % 12] & ~0xff) { utsr0 |= UTSR0_EIF; break; } s->utsr0 = utsr0; qemu_set_irq(s->irq, utsr0); } static void strongarm_uart_update_parameters(StrongARMUARTState *s) { int speed, parity, data_bits, stop_bits, frame_size; QEMUSerialSetParams ssp; /* Start bit. */ frame_size = 1; if (s->utcr0 & UTCR0_PE) { /* Parity bit. */ frame_size++; if (s->utcr0 & UTCR0_OES) { parity = 'E'; } else { parity = 'O'; } } else { parity = 'N'; } if (s->utcr0 & UTCR0_SBS) { stop_bits = 2; } else { stop_bits = 1; } data_bits = (s->utcr0 & UTCR0_DSS) ? 8 : 7; frame_size += data_bits + stop_bits; speed = 3686400 / 16 / (s->brd + 1); ssp.speed = speed; ssp.parity = parity; ssp.data_bits = data_bits; ssp.stop_bits = stop_bits; s->char_transmit_time = (NANOSECONDS_PER_SECOND / speed) * frame_size; qemu_chr_fe_ioctl(&s->chr, CHR_IOCTL_SERIAL_SET_PARAMS, &ssp); DPRINTF(stderr, "%s speed=%d parity=%c data=%d stop=%d\n", s->chr->label, speed, parity, data_bits, stop_bits); } static void strongarm_uart_rx_to(void *opaque) { StrongARMUARTState *s = opaque; if (s->rx_len) { s->utsr0 |= UTSR0_RID; strongarm_uart_update_int_status(s); } } static void strongarm_uart_rx_push(StrongARMUARTState *s, uint16_t c) { if ((s->utcr3 & UTCR3_RXE) == 0) { /* rx disabled */ return; } if (s->wait_break_end) { s->utsr0 |= UTSR0_REB; s->wait_break_end = false; } if (s->rx_len < 12) { s->rx_fifo[(s->rx_start + s->rx_len) % 12] = c; s->rx_len++; } else s->rx_fifo[(s->rx_start + 11) % 12] |= RX_FIFO_ROR; } static int strongarm_uart_can_receive(void *opaque) { StrongARMUARTState *s = opaque; if (s->rx_len == 12) { return 0; } /* It's best not to get more than 2/3 of RX FIFO, so advertise that much */ if (s->rx_len < 8) { return 8 - s->rx_len; } return 1; } static void strongarm_uart_receive(void *opaque, const uint8_t *buf, int size) { StrongARMUARTState *s = opaque; int i; for (i = 0; i < size; i++) { strongarm_uart_rx_push(s, buf[i]); } /* call the timeout receive callback in 3 char transmit time */ timer_mod(s->rx_timeout_timer, qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL) + s->char_transmit_time * 3); strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); } static void strongarm_uart_event(void *opaque, int event) { StrongARMUARTState *s = opaque; if (event == CHR_EVENT_BREAK) { s->utsr0 |= UTSR0_RBB; strongarm_uart_rx_push(s, RX_FIFO_FRE); s->wait_break_end = true; strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); } } static void strongarm_uart_tx(void *opaque) { StrongARMUARTState *s = opaque; uint64_t new_xmit_ts = qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL); if (s->utcr3 & UTCR3_LBM) /* loopback */ { strongarm_uart_receive(s, &s->tx_fifo[s->tx_start], 1); } else if (qemu_chr_fe_backend_connected(&s->chr)) { /* XXX this blocks entire thread. Rewrite to use * qemu_chr_fe_write and background I/O callbacks */ qemu_chr_fe_write_all(&s->chr, &s->tx_fifo[s->tx_start], 1); } s->tx_start = (s->tx_start + 1) % 8; s->tx_len--; if (s->tx_len) { timer_mod(s->tx_timer, new_xmit_ts + s->char_transmit_time); } strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); } static uint64_t strongarm_uart_read(void *opaque, hwaddr addr, unsigned size) { StrongARMUARTState *s = opaque; uint16_t ret; switch (addr) { case UTCR0: return s->utcr0; case UTCR1: return s->brd >> 8; case UTCR2: return s->brd & 0xff; case UTCR3: return s->utcr3; case UTDR: if (s->rx_len != 0) { ret = s->rx_fifo[s->rx_start]; s->rx_start = (s->rx_start + 1) % 12; s->rx_len--; strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); return ret; } return 0; case UTSR0: return s->utsr0; case UTSR1: return s->utsr1; default: printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr); return 0; } } static void strongarm_uart_write(void *opaque, hwaddr addr, uint64_t value, unsigned size) { StrongARMUARTState *s = opaque; switch (addr) { case UTCR0: s->utcr0 = value & 0x7f; strongarm_uart_update_parameters(s); break; case UTCR1: s->brd = (s->brd & 0xff) | ((value & 0xf) << 8); strongarm_uart_update_parameters(s); break; case UTCR2: s->brd = (s->brd & 0xf00) | (value & 0xff); strongarm_uart_update_parameters(s); break; case UTCR3: s->utcr3 = value & 0x3f; if ((s->utcr3 & UTCR3_RXE) == 0) { s->rx_len = 0; } if ((s->utcr3 & UTCR3_TXE) == 0) { s->tx_len = 0; } strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); break; case UTDR: if ((s->utcr3 & UTCR3_TXE) && s->tx_len != 8) { s->tx_fifo[(s->tx_start + s->tx_len) % 8] = value; s->tx_len++; strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); if (s->tx_len == 1) { strongarm_uart_tx(s); } } break; case UTSR0: s->utsr0 = s->utsr0 & ~(value & (UTSR0_REB | UTSR0_RBB | UTSR0_RID)); strongarm_uart_update_int_status(s); break; default: printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr); } } static const MemoryRegionOps strongarm_uart_ops = { .read = strongarm_uart_read, .write = strongarm_uart_write, .endianness = DEVICE_NATIVE_ENDIAN, }; static void strongarm_uart_init(Object *obj) { StrongARMUARTState *s = STRONGARM_UART(obj); SysBusDevice *dev = SYS_BUS_DEVICE(obj); memory_region_init_io(&s->iomem, obj, &strongarm_uart_ops, s, "uart", 0x10000); sysbus_init_mmio(dev, &s->iomem); sysbus_init_irq(dev, &s->irq); s->rx_timeout_timer = timer_new_ns(QEMU_CLOCK_VIRTUAL, strongarm_uart_rx_to, s); s->tx_timer = timer_new_ns(QEMU_CLOCK_VIRTUAL, strongarm_uart_tx, s); } static void strongarm_uart_realize(DeviceState *dev, Error **errp) { StrongARMUARTState *s = STRONGARM_UART(dev); qemu_chr_fe_set_handlers(&s->chr, strongarm_uart_can_receive, strongarm_uart_receive, strongarm_uart_event, NULL, s, NULL, true); } static void strongarm_uart_reset(DeviceState *dev) { StrongARMUARTState *s = STRONGARM_UART(dev); s->utcr0 = UTCR0_DSS; /* 8 data, no parity */ s->brd = 23; /* 9600 */ /* enable send & recv - this actually violates spec */ s->utcr3 = UTCR3_TXE | UTCR3_RXE; s->rx_len = s->tx_len = 0; strongarm_uart_update_parameters(s); strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); } static int strongarm_uart_post_load(void *opaque, int version_id) { StrongARMUARTState *s = opaque; strongarm_uart_update_parameters(s); strongarm_uart_update_status(s); strongarm_uart_update_int_status(s); /* tx and restart timer */ if (s->tx_len) { strongarm_uart_tx(s); } /* restart rx timeout timer */ if (s->rx_len) { timer_mod(s->rx_timeout_timer, qemu_clock_get_ns(QEMU_CLOCK_VIRTUAL) + s->char_transmit_time * 3); } return 0; } static const VMStateDescription vmstate_strongarm_uart_regs = { .name = "strongarm-uart", .version_id = 0, .minimum_version_id = 0, .post_load = strongarm_uart_post_load, .fields = (VMStateField[]) { VMSTATE_UINT8(utcr0, StrongARMUARTState), VMSTATE_UINT16(brd, StrongARMUARTState), VMSTATE_UINT8(utcr3, StrongARMUARTState), VMSTATE_UINT8(utsr0, StrongARMUARTState), VMSTATE_UINT8_ARRAY(tx_fifo, StrongARMUARTState, 8), VMSTATE_UINT8(tx_start, StrongARMUARTState), VMSTATE_UINT8(tx_len, StrongARMUARTState), VMSTATE_UINT16_ARRAY(rx_fifo, StrongARMUARTState, 12), VMSTATE_UINT8(rx_start, StrongARMUARTState), VMSTATE_UINT8(rx_len, StrongARMUARTState), VMSTATE_BOOL(wait_break_end, StrongARMUARTState), VMSTATE_END_OF_LIST(), }, }; static Property strongarm_uart_properties[] = { DEFINE_PROP_CHR("chardev", StrongARMUARTState, chr), DEFINE_PROP_END_OF_LIST(), }; static void strongarm_uart_class_init(ObjectClass *klass, void *data) { DeviceClass *dc = DEVICE_CLASS(klass); dc->desc = "StrongARM UART controller"; dc->reset = strongarm_uart_reset; dc->vmsd = &vmstate_strongarm_uart_regs; dc->props = strongarm_uart_properties; dc->realize = strongarm_uart_realize; } static const TypeInfo strongarm_uart_info = { .name = TYPE_STRONGARM_UART, .parent = TYPE_SYS_BUS_DEVICE, .instance_size = sizeof(StrongARMUARTState), .instance_init = strongarm_uart_init, .class_init = strongarm_uart_class_init, }; /* Synchronous Serial Ports */ #define TYPE_STRONGARM_SSP "strongarm-ssp" #define STRONGARM_SSP(obj) \ OBJECT_CHECK(StrongARMSSPState, (obj), TYPE_STRONGARM_SSP) typedef struct StrongARMSSPState { SysBusDevice parent_obj; MemoryRegion iomem; qemu_irq irq; SSIBus *bus; uint16_t sscr[2]; uint16_t sssr; uint16_t rx_fifo[8]; uint8_t rx_level; uint8_t rx_start; } StrongARMSSPState; #define SSCR0 0x60 /* SSP Control register 0 */ #define SSCR1 0x64 /* SSP Control register 1 */ #define SSDR 0x6c /* SSP Data register */ #define SSSR 0x74 /* SSP Status register */ /* Bitfields for above registers */ #define SSCR0_SPI(x) (((x) & 0x30) == 0x00) #define SSCR0_SSP(x) (((x) & 0x30) == 0x10) #define SSCR0_UWIRE(x) (((x) & 0x30) == 0x20) #define SSCR0_PSP(x) (((x) & 0x30) == 0x30) #define SSCR0_SSE (1 << 7) #define SSCR0_DSS(x) (((x) & 0xf) + 1) #define SSCR1_RIE (1 << 0) #define SSCR1_TIE (1 << 1) #define SSCR1_LBM (1 << 2) #define SSSR_TNF (1 << 2) #define SSSR_RNE (1 << 3) #define SSSR_TFS (1 << 5) #define SSSR_RFS (1 << 6) #define SSSR_ROR (1 << 7) #define SSSR_RW 0x0080 static void strongarm_ssp_int_update(StrongARMSSPState *s) { int level = 0; level |= (s->sssr & SSSR_ROR); level |= (s->sssr & SSSR_RFS) && (s->sscr[1] & SSCR1_RIE); level |= (s->sssr & SSSR_TFS) && (s->sscr[1] & SSCR1_TIE); qemu_set_irq(s->irq, level); } static void strongarm_ssp_fifo_update(StrongARMSSPState *s) { s->sssr &= ~SSSR_TFS; s->sssr &= ~SSSR_TNF; if (s->sscr[0] & SSCR0_SSE) { if (s->rx_level >= 4) { s->sssr |= SSSR_RFS; } else { s->sssr &= ~SSSR_RFS; } if (s->rx_level) { s->sssr |= SSSR_RNE; } else { s->sssr &= ~SSSR_RNE; } /* TX FIFO is never filled, so it is always in underrun condition if SSP is enabled */ s->sssr |= SSSR_TFS; s->sssr |= SSSR_TNF; } strongarm_ssp_int_update(s); } static uint64_t strongarm_ssp_read(void *opaque, hwaddr addr, unsigned size) { StrongARMSSPState *s = opaque; uint32_t retval; switch (addr) { case SSCR0: return s->sscr[0]; case SSCR1: return s->sscr[1]; case SSSR: return s->sssr; case SSDR: if (~s->sscr[0] & SSCR0_SSE) { return 0xffffffff; } if (s->rx_level < 1) { printf("%s: SSP Rx Underrun\n", __func__); return 0xffffffff; } s->rx_level--; retval = s->rx_fifo[s->rx_start++]; s->rx_start &= 0x7; strongarm_ssp_fifo_update(s); return retval; default: printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr); break; } return 0; } static void strongarm_ssp_write(void *opaque, hwaddr addr, uint64_t value, unsigned size) { StrongARMSSPState *s = opaque; switch (addr) { case SSCR0: s->sscr[0] = value & 0xffbf; if ((s->sscr[0] & SSCR0_SSE) && SSCR0_DSS(value) < 4) { printf("%s: Wrong data size: %i bits\n", __func__, (int)SSCR0_DSS(value)); } if (!(value & SSCR0_SSE)) { s->sssr = 0; s->rx_level = 0; } strongarm_ssp_fifo_update(s); break; case SSCR1: s->sscr[1] = value & 0x2f; if (value & SSCR1_LBM) { printf("%s: Attempt to use SSP LBM mode\n", __func__); } strongarm_ssp_fifo_update(s); break; case SSSR: s->sssr &= ~(value & SSSR_RW); strongarm_ssp_int_update(s); break; case SSDR: if (SSCR0_UWIRE(s->sscr[0])) { value &= 0xff; } else /* Note how 32bits overflow does no harm here */ value &= (1 << SSCR0_DSS(s->sscr[0])) - 1; /* Data goes from here to the Tx FIFO and is shifted out from * there directly to the slave, no need to buffer it. */ if (s->sscr[0] & SSCR0_SSE) { uint32_t readval; if (s->sscr[1] & SSCR1_LBM) { readval = value; } else { readval = ssi_transfer(s->bus, value); } if (s->rx_level < 0x08) { s->rx_fifo[(s->rx_start + s->rx_level++) & 0x7] = readval; } else { s->sssr |= SSSR_ROR; } } strongarm_ssp_fifo_update(s); break; default: printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr); break; } } static const MemoryRegionOps strongarm_ssp_ops = { .read = strongarm_ssp_read, .write = strongarm_ssp_write, .endianness = DEVICE_NATIVE_ENDIAN, }; static int strongarm_ssp_post_load(void *opaque, int version_id) { StrongARMSSPState *s = opaque; strongarm_ssp_fifo_update(s); return 0; } static void strongarm_ssp_init(Object *obj) { SysBusDevice *sbd = SYS_BUS_DEVICE(obj); DeviceState *dev = DEVICE(sbd); StrongARMSSPState *s = STRONGARM_SSP(dev); sysbus_init_irq(sbd, &s->irq); memory_region_init_io(&s->iomem, obj, &strongarm_ssp_ops, s, "ssp", 0x1000); sysbus_init_mmio(sbd, &s->iomem); s->bus = ssi_create_bus(dev, "ssi"); } static void strongarm_ssp_reset(DeviceState *dev) { StrongARMSSPState *s = STRONGARM_SSP(dev); s->sssr = 0x03; /* 3 bit data, SPI, disabled */ s->rx_start = 0; s->rx_level = 0; } static const VMStateDescription vmstate_strongarm_ssp_regs = { .name = "strongarm-ssp", .version_id = 0, .minimum_version_id = 0, .post_load = strongarm_ssp_post_load, .fields = (VMStateField[]) { VMSTATE_UINT16_ARRAY(sscr, StrongARMSSPState, 2), VMSTATE_UINT16(sssr, StrongARMSSPState), VMSTATE_UINT16_ARRAY(rx_fifo, StrongARMSSPState, 8), VMSTATE_UINT8(rx_start, StrongARMSSPState), VMSTATE_UINT8(rx_level, StrongARMSSPState), VMSTATE_END_OF_LIST(), }, }; static void strongarm_ssp_class_init(ObjectClass *klass, void *data) { DeviceClass *dc = DEVICE_CLASS(klass); dc->desc = "StrongARM SSP controller"; dc->reset = strongarm_ssp_reset; dc->vmsd = &vmstate_strongarm_ssp_regs; } static const TypeInfo strongarm_ssp_info = { .name = TYPE_STRONGARM_SSP, .parent = TYPE_SYS_BUS_DEVICE, .instance_size = sizeof(StrongARMSSPState), .instance_init = strongarm_ssp_init, .class_init = strongarm_ssp_class_init, }; /* Main CPU functions */ StrongARMState *sa1110_init(MemoryRegion *sysmem, unsigned int sdram_size, const char *cpu_type) { StrongARMState *s; int i; s = g_new0(StrongARMState, 1); if (strncmp(cpu_type, "sa1110", 6)) { error_report("Machine requires a SA1110 processor."); exit(1); } s->cpu = ARM_CPU(cpu_create(cpu_type)); memory_region_allocate_system_memory(&s->sdram, NULL, "strongarm.sdram", sdram_size); memory_region_add_subregion(sysmem, SA_SDCS0, &s->sdram); s->pic = sysbus_create_varargs("strongarm_pic", 0x90050000, qdev_get_gpio_in(DEVICE(s->cpu), ARM_CPU_IRQ), qdev_get_gpio_in(DEVICE(s->cpu), ARM_CPU_FIQ), NULL); sysbus_create_varargs("pxa25x-timer", 0x90000000, qdev_get_gpio_in(s->pic, SA_PIC_OSTC0), qdev_get_gpio_in(s->pic, SA_PIC_OSTC1), qdev_get_gpio_in(s->pic, SA_PIC_OSTC2), qdev_get_gpio_in(s->pic, SA_PIC_OSTC3), NULL); sysbus_create_simple(TYPE_STRONGARM_RTC, 0x90010000, qdev_get_gpio_in(s->pic, SA_PIC_RTC_ALARM)); s->gpio = strongarm_gpio_init(0x90040000, s->pic); s->ppc = sysbus_create_varargs(TYPE_STRONGARM_PPC, 0x90060000, NULL); for (i = 0; sa_serial[i].io_base; i++) { DeviceState *dev = qdev_create(NULL, TYPE_STRONGARM_UART); qdev_prop_set_chr(dev, "chardev", serial_hd(i)); qdev_init_nofail(dev); sysbus_mmio_map(SYS_BUS_DEVICE(dev), 0, sa_serial[i].io_base); sysbus_connect_irq(SYS_BUS_DEVICE(dev), 0, qdev_get_gpio_in(s->pic, sa_serial[i].irq)); } s->ssp = sysbus_create_varargs(TYPE_STRONGARM_SSP, 0x80070000, qdev_get_gpio_in(s->pic, SA_PIC_SSP), NULL); s->ssp_bus = (SSIBus *)qdev_get_child_bus(s->ssp, "ssi"); return s; } static void strongarm_register_types(void) { type_register_static(&strongarm_pic_info); type_register_static(&strongarm_rtc_sysbus_info); type_register_static(&strongarm_gpio_info); type_register_static(&strongarm_ppc_info); type_register_static(&strongarm_uart_info); type_register_static(&strongarm_ssp_info); } type_init(strongarm_register_types)