hw/strongarm.c

   1 /*
   2  * StrongARM SA-1100/SA-1110 emulation
   3  *
   4  * Copyright (C) 2011 Dmitry Eremin-Solenikov
   5  *
   6  * Largely based on StrongARM emulation:
   7  * Copyright (c) 2006 Openedhand Ltd.
   8  * Written by Andrzej Zaborowski <balrog@zabor.org>
   9  *
  10  * UART code based on QEMU 16550A UART emulation
  11  * Copyright (c) 2003-2004 Fabrice Bellard
  12  * Copyright (c) 2008 Citrix Systems, Inc.
  13  *
  14  *  This program is free software; you can redistribute it and/or modify
  15  *  it under the terms of the GNU General Public License version 2 as
  16  *  published by the Free Software Foundation.
  17  *
  18  *  This program is distributed in the hope that it will be useful,
  19  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  *  GNU General Public License for more details.
  22  *
  23  *  You should have received a copy of the GNU General Public License along
  24  *  with this program; if not, see <http://www.gnu.org/licenses/>.
  25  *
  26  *  Contributions after 2012-01-13 are licensed under the terms of the
  27  *  GNU GPL, version 2 or (at your option) any later version.
  28  */
  29 #include "sysbus.h"
  30 #include "strongarm.h"
  31 #include "qemu-error.h"
  32 #include "arm-misc.h"
  33 #include "qemu-char.h"
  34 #include "sysemu.h"
  35 #include "ssi.h"
  36
  37 //#define DEBUG
  38
  39 /*
  40  TODO
  41  - Implement cp15, c14 ?
  42  - Implement cp15, c15 !!! (idle used in L)
  43  - Implement idle mode handling/DIM
  44  - Implement sleep mode/Wake sources
  45  - Implement reset control
  46  - Implement memory control regs
  47  - PCMCIA handling
  48  - Maybe support MBGNT/MBREQ
  49  - DMA channels
  50  - GPCLK
  51  - IrDA
  52  - MCP
  53  - Enhance UART with modem signals
  54  */
  55
  56 #ifdef DEBUG
  57 # define DPRINTF(format, ...) printf(format , ## __VA_ARGS__)
  58 #else
  59 # define DPRINTF(format, ...) do { } while (0)
  60 #endif
  61
  62 static struct {
  63     hwaddr io_base;
  64     int irq;
  65 } sa_serial[] = {
  66     { 0x80010000, SA_PIC_UART1 },
  67     { 0x80030000, SA_PIC_UART2 },
  68     { 0x80050000, SA_PIC_UART3 },
  69     { 0, 0 }
  70 };
  71
  72 /* Interrupt Controller */
  73 typedef struct {
  74     SysBusDevice busdev;
  75     MemoryRegion iomem;
  76     qemu_irq    irq;
  77     qemu_irq    fiq;
  78
  79     uint32_t pending;
  80     uint32_t enabled;
  81     uint32_t is_fiq;
  82     uint32_t int_idle;
  83 } StrongARMPICState;
  84
  85 #define ICIP    0x00
  86 #define ICMR    0x04
  87 #define ICLR    0x08
  88 #define ICFP    0x10
  89 #define ICPR    0x20
  90 #define ICCR    0x0c
  91
  92 #define SA_PIC_SRCS     32
  93
  94
  95 static void strongarm_pic_update(void *opaque)
  96 {
  97     StrongARMPICState *s = opaque;
  98
  99     /* FIXME: reflect DIM */
 100     qemu_set_irq(s->fiq, s->pending & s->enabled &  s->is_fiq);
 101     qemu_set_irq(s->irq, s->pending & s->enabled & ~s->is_fiq);
 102 }
 103
 104 static void strongarm_pic_set_irq(void *opaque, int irq, int level)
 105 {
 106     StrongARMPICState *s = opaque;
 107
 108     if (level) {
 109         s->pending |= 1 << irq;
 110     } else {
 111         s->pending &= ~(1 << irq);
 112     }
 113
 114     strongarm_pic_update(s);
 115 }
 116
 117 static uint64_t strongarm_pic_mem_read(void *opaque, hwaddr offset,
 118                                        unsigned size)
 119 {
 120     StrongARMPICState *s = opaque;
 121
 122     switch (offset) {
 123     case ICIP:
 124         return s->pending & ~s->is_fiq & s->enabled;
 125     case ICMR:
 126         return s->enabled;
 127     case ICLR:
 128         return s->is_fiq;
 129     case ICCR:
 130         return s->int_idle == 0;
 131     case ICFP:
 132         return s->pending & s->is_fiq & s->enabled;
 133     case ICPR:
 134         return s->pending;
 135     default:
 136         printf("%s: Bad register offset 0x" TARGET_FMT_plx "\n",
 137                         __func__, offset);
 138         return 0;
 139     }
 140 }
 141
 142 static void strongarm_pic_mem_write(void *opaque, hwaddr offset,
 143                                     uint64_t value, unsigned size)
 144 {
 145     StrongARMPICState *s = opaque;
 146
 147     switch (offset) {
 148     case ICMR:
 149         s->enabled = value;
 150         break;
 151     case ICLR:
 152         s->is_fiq = value;
 153         break;
 154     case ICCR:
 155         s->int_idle = (value & 1) ? 0 : ~0;
 156         break;
 157     default:
 158         printf("%s: Bad register offset 0x" TARGET_FMT_plx "\n",
 159                         __func__, offset);
 160         break;
 161     }
 162     strongarm_pic_update(s);
 163 }
 164
 165 static const MemoryRegionOps strongarm_pic_ops = {
 166     .read = strongarm_pic_mem_read,
 167     .write = strongarm_pic_mem_write,
 168     .endianness = DEVICE_NATIVE_ENDIAN,
 169 };
 170
 171 static int strongarm_pic_initfn(SysBusDevice *dev)
 172 {
 173     StrongARMPICState *s = FROM_SYSBUS(StrongARMPICState, dev);
 174
 175     qdev_init_gpio_in(&dev->qdev, strongarm_pic_set_irq, SA_PIC_SRCS);
 176     memory_region_init_io(&s->iomem, &strongarm_pic_ops, s, "pic", 0x1000);
 177     sysbus_init_mmio(dev, &s->iomem);
 178     sysbus_init_irq(dev, &s->irq);
 179     sysbus_init_irq(dev, &s->fiq);
 180
 181     return 0;
 182 }
 183
 184 static int strongarm_pic_post_load(void *opaque, int version_id)
 185 {
 186     strongarm_pic_update(opaque);
 187     return 0;
 188 }
 189
 190 static VMStateDescription vmstate_strongarm_pic_regs = {
 191     .name = "strongarm_pic",
 192     .version_id = 0,
 193     .minimum_version_id = 0,
 194     .minimum_version_id_old = 0,
 195     .post_load = strongarm_pic_post_load,
 196     .fields = (VMStateField[]) {
 197         VMSTATE_UINT32(pending, StrongARMPICState),
 198         VMSTATE_UINT32(enabled, StrongARMPICState),
 199         VMSTATE_UINT32(is_fiq, StrongARMPICState),
 200         VMSTATE_UINT32(int_idle, StrongARMPICState),
 201         VMSTATE_END_OF_LIST(),
 202     },
 203 };
 204
 205 static void strongarm_pic_class_init(ObjectClass *klass, void *data)
 206 {
 207     DeviceClass *dc = DEVICE_CLASS(klass);
 208     SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);
 209
 210     k->init = strongarm_pic_initfn;
 211     dc->desc = "StrongARM PIC";
 212     dc->vmsd = &vmstate_strongarm_pic_regs;
 213 }
 214
 215 static TypeInfo strongarm_pic_info = {
 216     .name          = "strongarm_pic",
 217     .parent        = TYPE_SYS_BUS_DEVICE,
 218     .instance_size = sizeof(StrongARMPICState),
 219     .class_init    = strongarm_pic_class_init,
 220 };
 221
 222 /* Real-Time Clock */
 223 #define RTAR 0x00 /* RTC Alarm register */
 224 #define RCNR 0x04 /* RTC Counter register */
 225 #define RTTR 0x08 /* RTC Timer Trim register */
 226 #define RTSR 0x10 /* RTC Status register */
 227
 228 #define RTSR_AL (1 << 0) /* RTC Alarm detected */
 229 #define RTSR_HZ (1 << 1) /* RTC 1Hz detected */
 230 #define RTSR_ALE (1 << 2) /* RTC Alarm enable */
 231 #define RTSR_HZE (1 << 3) /* RTC 1Hz enable */
 232
 233 /* 16 LSB of RTTR are clockdiv for internal trim logic,
 234  * trim delete isn't emulated, so
 235  * f = 32 768 / (RTTR_trim + 1) */
 236
 237 typedef struct {
 238     SysBusDevice busdev;
 239     MemoryRegion iomem;
 240     uint32_t rttr;
 241     uint32_t rtsr;
 242     uint32_t rtar;
 243     uint32_t last_rcnr;
 244     int64_t last_hz;
 245     QEMUTimer *rtc_alarm;
 246     QEMUTimer *rtc_hz;
 247     qemu_irq rtc_irq;
 248     qemu_irq rtc_hz_irq;
 249 } StrongARMRTCState;
 250
 251 static inline void strongarm_rtc_int_update(StrongARMRTCState *s)
 252 {
 253     qemu_set_irq(s->rtc_irq, s->rtsr & RTSR_AL);
 254     qemu_set_irq(s->rtc_hz_irq, s->rtsr & RTSR_HZ);
 255 }
 256
 257 static void strongarm_rtc_hzupdate(StrongARMRTCState *s)
 258 {
 259     int64_t rt = qemu_get_clock_ms(rtc_clock);
 260     s->last_rcnr += ((rt - s->last_hz) << 15) /
 261             (1000 * ((s->rttr & 0xffff) + 1));
 262     s->last_hz = rt;
 263 }
 264
 265 static inline void strongarm_rtc_timer_update(StrongARMRTCState *s)
 266 {
 267     if ((s->rtsr & RTSR_HZE) && !(s->rtsr & RTSR_HZ)) {
 268         qemu_mod_timer(s->rtc_hz, s->last_hz + 1000);
 269     } else {
 270         qemu_del_timer(s->rtc_hz);
 271     }
 272
 273     if ((s->rtsr & RTSR_ALE) && !(s->rtsr & RTSR_AL)) {
 274         qemu_mod_timer(s->rtc_alarm, s->last_hz +
 275                 (((s->rtar - s->last_rcnr) * 1000 *
 276                   ((s->rttr & 0xffff) + 1)) >> 15));
 277     } else {
 278         qemu_del_timer(s->rtc_alarm);
 279     }
 280 }
 281
 282 static inline void strongarm_rtc_alarm_tick(void *opaque)
 283 {
 284     StrongARMRTCState *s = opaque;
 285     s->rtsr |= RTSR_AL;
 286     strongarm_rtc_timer_update(s);
 287     strongarm_rtc_int_update(s);
 288 }
 289
 290 static inline void strongarm_rtc_hz_tick(void *opaque)
 291 {
 292     StrongARMRTCState *s = opaque;
 293     s->rtsr |= RTSR_HZ;
 294     strongarm_rtc_timer_update(s);
 295     strongarm_rtc_int_update(s);
 296 }
 297
 298 static uint64_t strongarm_rtc_read(void *opaque, hwaddr addr,
 299                                    unsigned size)
 300 {
 301     StrongARMRTCState *s = opaque;
 302
 303     switch (addr) {
 304     case RTTR:
 305         return s->rttr;
 306     case RTSR:
 307         return s->rtsr;
 308     case RTAR:
 309         return s->rtar;
 310     case RCNR:
 311         return s->last_rcnr +
 312                 ((qemu_get_clock_ms(rtc_clock) - s->last_hz) << 15) /
 313                 (1000 * ((s->rttr & 0xffff) + 1));
 314     default:
 315         printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr);
 316         return 0;
 317     }
 318 }
 319
 320 static void strongarm_rtc_write(void *opaque, hwaddr addr,
 321                                 uint64_t value, unsigned size)
 322 {
 323     StrongARMRTCState *s = opaque;
 324     uint32_t old_rtsr;
 325
 326     switch (addr) {
 327     case RTTR:
 328         strongarm_rtc_hzupdate(s);
 329         s->rttr = value;
 330         strongarm_rtc_timer_update(s);
 331         break;
 332
 333     case RTSR:
 334         old_rtsr = s->rtsr;
 335         s->rtsr = (value & (RTSR_ALE | RTSR_HZE)) |
 336                   (s->rtsr & ~(value & (RTSR_AL | RTSR_HZ)));
 337
 338         if (s->rtsr != old_rtsr) {
 339             strongarm_rtc_timer_update(s);
 340         }
 341
 342         strongarm_rtc_int_update(s);
 343         break;
 344
 345     case RTAR:
 346         s->rtar = value;
 347         strongarm_rtc_timer_update(s);
 348         break;
 349
 350     case RCNR:
 351         strongarm_rtc_hzupdate(s);
 352         s->last_rcnr = value;
 353         strongarm_rtc_timer_update(s);
 354         break;
 355
 356     default:
 357         printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr);
 358     }
 359 }
 360
 361 static const MemoryRegionOps strongarm_rtc_ops = {
 362     .read = strongarm_rtc_read,
 363     .write = strongarm_rtc_write,
 364     .endianness = DEVICE_NATIVE_ENDIAN,
 365 };
 366
 367 static int strongarm_rtc_init(SysBusDevice *dev)
 368 {
 369     StrongARMRTCState *s = FROM_SYSBUS(StrongARMRTCState, dev);
 370     struct tm tm;
 371
 372     s->rttr = 0x0;
 373     s->rtsr = 0;
 374
 375     qemu_get_timedate(&tm, 0);
 376
 377     s->last_rcnr = (uint32_t) mktimegm(&tm);
 378     s->last_hz = qemu_get_clock_ms(rtc_clock);
 379
 380     s->rtc_alarm = qemu_new_timer_ms(rtc_clock, strongarm_rtc_alarm_tick, s);
 381     s->rtc_hz = qemu_new_timer_ms(rtc_clock, strongarm_rtc_hz_tick, s);
 382
 383     sysbus_init_irq(dev, &s->rtc_irq);
 384     sysbus_init_irq(dev, &s->rtc_hz_irq);
 385
 386     memory_region_init_io(&s->iomem, &strongarm_rtc_ops, s, "rtc", 0x10000);
 387     sysbus_init_mmio(dev, &s->iomem);
 388
 389     return 0;
 390 }
 391
 392 static void strongarm_rtc_pre_save(void *opaque)
 393 {
 394     StrongARMRTCState *s = opaque;
 395
 396     strongarm_rtc_hzupdate(s);
 397 }
 398
 399 static int strongarm_rtc_post_load(void *opaque, int version_id)
 400 {
 401     StrongARMRTCState *s = opaque;
 402
 403     strongarm_rtc_timer_update(s);
 404     strongarm_rtc_int_update(s);
 405
 406     return 0;
 407 }
 408
 409 static const VMStateDescription vmstate_strongarm_rtc_regs = {
 410     .name = "strongarm-rtc",
 411     .version_id = 0,
 412     .minimum_version_id = 0,
 413     .minimum_version_id_old = 0,
 414     .pre_save = strongarm_rtc_pre_save,
 415     .post_load = strongarm_rtc_post_load,
 416     .fields = (VMStateField[]) {
 417         VMSTATE_UINT32(rttr, StrongARMRTCState),
 418         VMSTATE_UINT32(rtsr, StrongARMRTCState),
 419         VMSTATE_UINT32(rtar, StrongARMRTCState),
 420         VMSTATE_UINT32(last_rcnr, StrongARMRTCState),
 421         VMSTATE_INT64(last_hz, StrongARMRTCState),
 422         VMSTATE_END_OF_LIST(),
 423     },
 424 };
 425
 426 static void strongarm_rtc_sysbus_class_init(ObjectClass *klass, void *data)
 427 {
 428     DeviceClass *dc = DEVICE_CLASS(klass);
 429     SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);
 430
 431     k->init = strongarm_rtc_init;
 432     dc->desc = "StrongARM RTC Controller";
 433     dc->vmsd = &vmstate_strongarm_rtc_regs;
 434 }
 435
 436 static TypeInfo strongarm_rtc_sysbus_info = {
 437     .name          = "strongarm-rtc",
 438     .parent        = TYPE_SYS_BUS_DEVICE,
 439     .instance_size = sizeof(StrongARMRTCState),
 440     .class_init    = strongarm_rtc_sysbus_class_init,
 441 };
 442
 443 /* GPIO */
 444 #define GPLR 0x00
 445 #define GPDR 0x04
 446 #define GPSR 0x08
 447 #define GPCR 0x0c
 448 #define GRER 0x10
 449 #define GFER 0x14
 450 #define GEDR 0x18
 451 #define GAFR 0x1c
 452
 453 typedef struct StrongARMGPIOInfo StrongARMGPIOInfo;
 454 struct StrongARMGPIOInfo {
 455     SysBusDevice busdev;
 456     MemoryRegion iomem;
 457     qemu_irq handler[28];
 458     qemu_irq irqs[11];
 459     qemu_irq irqX;
 460
 461     uint32_t ilevel;
 462     uint32_t olevel;
 463     uint32_t dir;
 464     uint32_t rising;
 465     uint32_t falling;
 466     uint32_t status;
 467     uint32_t gpsr;
 468     uint32_t gafr;
 469
 470     uint32_t prev_level;
 471 };
 472
 473
 474 static void strongarm_gpio_irq_update(StrongARMGPIOInfo *s)
 475 {
 476     int i;
 477     for (i = 0; i < 11; i++) {
 478         qemu_set_irq(s->irqs[i], s->status & (1 << i));
 479     }
 480
 481     qemu_set_irq(s->irqX, (s->status & ~0x7ff));
 482 }
 483
 484 static void strongarm_gpio_set(void *opaque, int line, int level)
 485 {
 486     StrongARMGPIOInfo *s = opaque;
 487     uint32_t mask;
 488
 489     mask = 1 << line;
 490
 491     if (level) {
 492         s->status |= s->rising & mask &
 493                 ~s->ilevel & ~s->dir;
 494         s->ilevel |= mask;
 495     } else {
 496         s->status |= s->falling & mask &
 497                 s->ilevel & ~s->dir;
 498         s->ilevel &= ~mask;
 499     }
 500
 501     if (s->status & mask) {
 502         strongarm_gpio_irq_update(s);
 503     }
 504 }
 505
 506 static void strongarm_gpio_handler_update(StrongARMGPIOInfo *s)
 507 {
 508     uint32_t level, diff;
 509     int bit;
 510
 511     level = s->olevel & s->dir;
 512
 513     for (diff = s->prev_level ^ level; diff; diff ^= 1 << bit) {
 514         bit = ffs(diff) - 1;
 515         qemu_set_irq(s->handler[bit], (level >> bit) & 1);
 516     }
 517
 518     s->prev_level = level;
 519 }
 520
 521 static uint64_t strongarm_gpio_read(void *opaque, hwaddr offset,
 522                                     unsigned size)
 523 {
 524     StrongARMGPIOInfo *s = opaque;
 525
 526     switch (offset) {
 527     case GPDR:        /* GPIO Pin-Direction registers */
 528         return s->dir;
 529
 530     case GPSR:        /* GPIO Pin-Output Set registers */
 531         DPRINTF("%s: Read from a write-only register 0x" TARGET_FMT_plx "\n",
 532                         __func__, offset);
 533         return s->gpsr;    /* Return last written value.  */
 534
 535     case GPCR:        /* GPIO Pin-Output Clear registers */
 536         DPRINTF("%s: Read from a write-only register 0x" TARGET_FMT_plx "\n",
 537                         __func__, offset);
 538         return 31337;        /* Specified as unpredictable in the docs.  */
 539
 540     case GRER:        /* GPIO Rising-Edge Detect Enable registers */
 541         return s->rising;
 542
 543     case GFER:        /* GPIO Falling-Edge Detect Enable registers */
 544         return s->falling;
 545
 546     case GAFR:        /* GPIO Alternate Function registers */
 547         return s->gafr;
 548
 549     case GPLR:        /* GPIO Pin-Level registers */
 550         return (s->olevel & s->dir) |
 551                (s->ilevel & ~s->dir);
 552
 553     case GEDR:        /* GPIO Edge Detect Status registers */
 554         return s->status;
 555
 556     default:
 557         printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset);
 558     }
 559
 560     return 0;
 561 }
 562
 563 static void strongarm_gpio_write(void *opaque, hwaddr offset,
 564                                  uint64_t value, unsigned size)
 565 {
 566     StrongARMGPIOInfo *s = opaque;
 567
 568     switch (offset) {
 569     case GPDR:        /* GPIO Pin-Direction registers */
 570         s->dir = value;
 571         strongarm_gpio_handler_update(s);
 572         break;
 573
 574     case GPSR:        /* GPIO Pin-Output Set registers */
 575         s->olevel |= value;
 576         strongarm_gpio_handler_update(s);
 577         s->gpsr = value;
 578         break;
 579
 580     case GPCR:        /* GPIO Pin-Output Clear registers */
 581         s->olevel &= ~value;
 582         strongarm_gpio_handler_update(s);
 583         break;
 584
 585     case GRER:        /* GPIO Rising-Edge Detect Enable registers */
 586         s->rising = value;
 587         break;
 588
 589     case GFER:        /* GPIO Falling-Edge Detect Enable registers */
 590         s->falling = value;
 591         break;
 592
 593     case GAFR:        /* GPIO Alternate Function registers */
 594         s->gafr = value;
 595         break;
 596
 597     case GEDR:        /* GPIO Edge Detect Status registers */
 598         s->status &= ~value;
 599         strongarm_gpio_irq_update(s);
 600         break;
 601
 602     default:
 603         printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset);
 604     }
 605 }
 606
 607 static const MemoryRegionOps strongarm_gpio_ops = {
 608     .read = strongarm_gpio_read,
 609     .write = strongarm_gpio_write,
 610     .endianness = DEVICE_NATIVE_ENDIAN,
 611 };
 612
 613 static DeviceState *strongarm_gpio_init(hwaddr base,
 614                 DeviceState *pic)
 615 {
 616     DeviceState *dev;
 617     int i;
 618
 619     dev = qdev_create(NULL, "strongarm-gpio");
 620     qdev_init_nofail(dev);
 621
 622     sysbus_mmio_map(sysbus_from_qdev(dev), 0, base);
 623     for (i = 0; i < 12; i++)
 624         sysbus_connect_irq(sysbus_from_qdev(dev), i,
 625                     qdev_get_gpio_in(pic, SA_PIC_GPIO0_EDGE + i));
 626
 627     return dev;
 628 }
 629
 630 static int strongarm_gpio_initfn(SysBusDevice *dev)
 631 {
 632     StrongARMGPIOInfo *s;
 633     int i;
 634
 635     s = FROM_SYSBUS(StrongARMGPIOInfo, dev);
 636
 637     qdev_init_gpio_in(&dev->qdev, strongarm_gpio_set, 28);
 638     qdev_init_gpio_out(&dev->qdev, s->handler, 28);
 639
 640     memory_region_init_io(&s->iomem, &strongarm_gpio_ops, s, "gpio", 0x1000);
 641
 642     sysbus_init_mmio(dev, &s->iomem);
 643     for (i = 0; i < 11; i++) {
 644         sysbus_init_irq(dev, &s->irqs[i]);
 645     }
 646     sysbus_init_irq(dev, &s->irqX);
 647
 648     return 0;
 649 }
 650
 651 static const VMStateDescription vmstate_strongarm_gpio_regs = {
 652     .name = "strongarm-gpio",
 653     .version_id = 0,
 654     .minimum_version_id = 0,
 655     .minimum_version_id_old = 0,
 656     .fields = (VMStateField[]) {
 657         VMSTATE_UINT32(ilevel, StrongARMGPIOInfo),
 658         VMSTATE_UINT32(olevel, StrongARMGPIOInfo),
 659         VMSTATE_UINT32(dir, StrongARMGPIOInfo),
 660         VMSTATE_UINT32(rising, StrongARMGPIOInfo),
 661         VMSTATE_UINT32(falling, StrongARMGPIOInfo),
 662         VMSTATE_UINT32(status, StrongARMGPIOInfo),
 663         VMSTATE_UINT32(gafr, StrongARMGPIOInfo),
 664         VMSTATE_END_OF_LIST(),
 665     },
 666 };
 667
 668 static void strongarm_gpio_class_init(ObjectClass *klass, void *data)
 669 {
 670     DeviceClass *dc = DEVICE_CLASS(klass);
 671     SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);
 672
 673     k->init = strongarm_gpio_initfn;
 674     dc->desc = "StrongARM GPIO controller";
 675 }
 676
 677 static TypeInfo strongarm_gpio_info = {
 678     .name          = "strongarm-gpio",
 679     .parent        = TYPE_SYS_BUS_DEVICE,
 680     .instance_size = sizeof(StrongARMGPIOInfo),
 681     .class_init    = strongarm_gpio_class_init,
 682 };
 683
 684 /* Peripheral Pin Controller */
 685 #define PPDR 0x00
 686 #define PPSR 0x04
 687 #define PPAR 0x08
 688 #define PSDR 0x0c
 689 #define PPFR 0x10
 690
 691 typedef struct StrongARMPPCInfo StrongARMPPCInfo;
 692 struct StrongARMPPCInfo {
 693     SysBusDevice busdev;
 694     MemoryRegion iomem;
 695     qemu_irq handler[28];
 696
 697     uint32_t ilevel;
 698     uint32_t olevel;
 699     uint32_t dir;
 700     uint32_t ppar;
 701     uint32_t psdr;
 702     uint32_t ppfr;
 703
 704     uint32_t prev_level;
 705 };
 706
 707 static void strongarm_ppc_set(void *opaque, int line, int level)
 708 {
 709     StrongARMPPCInfo *s = opaque;
 710
 711     if (level) {
 712         s->ilevel |= 1 << line;
 713     } else {
 714         s->ilevel &= ~(1 << line);
 715     }
 716 }
 717
 718 static void strongarm_ppc_handler_update(StrongARMPPCInfo *s)
 719 {
 720     uint32_t level, diff;
 721     int bit;
 722
 723     level = s->olevel & s->dir;
 724
 725     for (diff = s->prev_level ^ level; diff; diff ^= 1 << bit) {
 726         bit = ffs(diff) - 1;
 727         qemu_set_irq(s->handler[bit], (level >> bit) & 1);
 728     }
 729
 730     s->prev_level = level;
 731 }
 732
 733 static uint64_t strongarm_ppc_read(void *opaque, hwaddr offset,
 734                                    unsigned size)
 735 {
 736     StrongARMPPCInfo *s = opaque;
 737
 738     switch (offset) {
 739     case PPDR:        /* PPC Pin Direction registers */
 740         return s->dir | ~0x3fffff;
 741
 742     case PPSR:        /* PPC Pin State registers */
 743         return (s->olevel & s->dir) |
 744                (s->ilevel & ~s->dir) |
 745                ~0x3fffff;
 746
 747     case PPAR:
 748         return s->ppar | ~0x41000;
 749
 750     case PSDR:
 751         return s->psdr;
 752
 753     case PPFR:
 754         return s->ppfr | ~0x7f001;
 755
 756     default:
 757         printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset);
 758     }
 759
 760     return 0;
 761 }
 762
 763 static void strongarm_ppc_write(void *opaque, hwaddr offset,
 764                                 uint64_t value, unsigned size)
 765 {
 766     StrongARMPPCInfo *s = opaque;
 767
 768     switch (offset) {
 769     case PPDR:        /* PPC Pin Direction registers */
 770         s->dir = value & 0x3fffff;
 771         strongarm_ppc_handler_update(s);
 772         break;
 773
 774     case PPSR:        /* PPC Pin State registers */
 775         s->olevel = value & s->dir & 0x3fffff;
 776         strongarm_ppc_handler_update(s);
 777         break;
 778
 779     case PPAR:
 780         s->ppar = value & 0x41000;
 781         break;
 782
 783     case PSDR:
 784         s->psdr = value & 0x3fffff;
 785         break;
 786
 787     case PPFR:
 788         s->ppfr = value & 0x7f001;
 789         break;
 790
 791     default:
 792         printf("%s: Bad offset 0x" TARGET_FMT_plx "\n", __func__, offset);
 793     }
 794 }
 795
 796 static const MemoryRegionOps strongarm_ppc_ops = {
 797     .read = strongarm_ppc_read,
 798     .write = strongarm_ppc_write,
 799     .endianness = DEVICE_NATIVE_ENDIAN,
 800 };
 801
 802 static int strongarm_ppc_init(SysBusDevice *dev)
 803 {
 804     StrongARMPPCInfo *s;
 805
 806     s = FROM_SYSBUS(StrongARMPPCInfo, dev);
 807
 808     qdev_init_gpio_in(&dev->qdev, strongarm_ppc_set, 22);
 809     qdev_init_gpio_out(&dev->qdev, s->handler, 22);
 810
 811     memory_region_init_io(&s->iomem, &strongarm_ppc_ops, s, "ppc", 0x1000);
 812
 813     sysbus_init_mmio(dev, &s->iomem);
 814
 815     return 0;
 816 }
 817
 818 static const VMStateDescription vmstate_strongarm_ppc_regs = {
 819     .name = "strongarm-ppc",
 820     .version_id = 0,
 821     .minimum_version_id = 0,
 822     .minimum_version_id_old = 0,
 823     .fields = (VMStateField[]) {
 824         VMSTATE_UINT32(ilevel, StrongARMPPCInfo),
 825         VMSTATE_UINT32(olevel, StrongARMPPCInfo),
 826         VMSTATE_UINT32(dir, StrongARMPPCInfo),
 827         VMSTATE_UINT32(ppar, StrongARMPPCInfo),
 828         VMSTATE_UINT32(psdr, StrongARMPPCInfo),
 829         VMSTATE_UINT32(ppfr, StrongARMPPCInfo),
 830         VMSTATE_END_OF_LIST(),
 831     },
 832 };
 833
 834 static void strongarm_ppc_class_init(ObjectClass *klass, void *data)
 835 {
 836     DeviceClass *dc = DEVICE_CLASS(klass);
 837     SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);
 838
 839     k->init = strongarm_ppc_init;
 840     dc->desc = "StrongARM PPC controller";
 841 }
 842
 843 static TypeInfo strongarm_ppc_info = {
 844     .name          = "strongarm-ppc",
 845     .parent        = TYPE_SYS_BUS_DEVICE,
 846     .instance_size = sizeof(StrongARMPPCInfo),
 847     .class_init    = strongarm_ppc_class_init,
 848 };
 849
 850 /* UART Ports */
 851 #define UTCR0 0x00
 852 #define UTCR1 0x04
 853 #define UTCR2 0x08
 854 #define UTCR3 0x0c
 855 #define UTDR  0x14
 856 #define UTSR0 0x1c
 857 #define UTSR1 0x20
 858
 859 #define UTCR0_PE  (1 << 0) /* Parity enable */
 860 #define UTCR0_OES (1 << 1) /* Even parity */
 861 #define UTCR0_SBS (1 << 2) /* 2 stop bits */
 862 #define UTCR0_DSS (1 << 3) /* 8-bit data */
 863
 864 #define UTCR3_RXE (1 << 0) /* Rx enable */
 865 #define UTCR3_TXE (1 << 1) /* Tx enable */
 866 #define UTCR3_BRK (1 << 2) /* Force Break */
 867 #define UTCR3_RIE (1 << 3) /* Rx int enable */
 868 #define UTCR3_TIE (1 << 4) /* Tx int enable */
 869 #define UTCR3_LBM (1 << 5) /* Loopback */
 870
 871 #define UTSR0_TFS (1 << 0) /* Tx FIFO nearly empty */
 872 #define UTSR0_RFS (1 << 1) /* Rx FIFO nearly full */
 873 #define UTSR0_RID (1 << 2) /* Receiver Idle */
 874 #define UTSR0_RBB (1 << 3) /* Receiver begin break */
 875 #define UTSR0_REB (1 << 4) /* Receiver end break */
 876 #define UTSR0_EIF (1 << 5) /* Error in FIFO */
 877
 878 #define UTSR1_RNE (1 << 1) /* Receive FIFO not empty */
 879 #define UTSR1_TNF (1 << 2) /* Transmit FIFO not full */
 880 #define UTSR1_PRE (1 << 3) /* Parity error */
 881 #define UTSR1_FRE (1 << 4) /* Frame error */
 882 #define UTSR1_ROR (1 << 5) /* Receive Over Run */
 883
 884 #define RX_FIFO_PRE (1 << 8)
 885 #define RX_FIFO_FRE (1 << 9)
 886 #define RX_FIFO_ROR (1 << 10)
 887
 888 typedef struct {
 889     SysBusDevice busdev;
 890     MemoryRegion iomem;
 891     CharDriverState *chr;
 892     qemu_irq irq;
 893
 894     uint8_t utcr0;
 895     uint16_t brd;
 896     uint8_t utcr3;
 897     uint8_t utsr0;
 898     uint8_t utsr1;
 899
 900     uint8_t tx_fifo[8];
 901     uint8_t tx_start;
 902     uint8_t tx_len;
 903     uint16_t rx_fifo[12]; /* value + error flags in high bits */
 904     uint8_t rx_start;
 905     uint8_t rx_len;
 906
 907     uint64_t char_transmit_time; /* time to transmit a char in ticks*/
 908     bool wait_break_end;
 909     QEMUTimer *rx_timeout_timer;
 910     QEMUTimer *tx_timer;
 911 } StrongARMUARTState;
 912
 913 static void strongarm_uart_update_status(StrongARMUARTState *s)
 914 {
 915     uint16_t utsr1 = 0;
 916
 917     if (s->tx_len != 8) {
 918         utsr1 |= UTSR1_TNF;
 919     }
 920
 921     if (s->rx_len != 0) {
 922         uint16_t ent = s->rx_fifo[s->rx_start];
 923
 924         utsr1 |= UTSR1_RNE;
 925         if (ent & RX_FIFO_PRE) {
 926             s->utsr1 |= UTSR1_PRE;
 927         }
 928         if (ent & RX_FIFO_FRE) {
 929             s->utsr1 |= UTSR1_FRE;
 930         }
 931         if (ent & RX_FIFO_ROR) {
 932             s->utsr1 |= UTSR1_ROR;
 933         }
 934     }
 935
 936     s->utsr1 = utsr1;
 937 }
 938
 939 static void strongarm_uart_update_int_status(StrongARMUARTState *s)
 940 {
 941     uint16_t utsr0 = s->utsr0 &
 942             (UTSR0_REB | UTSR0_RBB | UTSR0_RID);
 943     int i;
 944
 945     if ((s->utcr3 & UTCR3_TXE) &&
 946                 (s->utcr3 & UTCR3_TIE) &&
 947                 s->tx_len <= 4) {
 948         utsr0 |= UTSR0_TFS;
 949     }
 950
 951     if ((s->utcr3 & UTCR3_RXE) &&
 952                 (s->utcr3 & UTCR3_RIE) &&
 953                 s->rx_len > 4) {
 954         utsr0 |= UTSR0_RFS;
 955     }
 956
 957     for (i = 0; i < s->rx_len && i < 4; i++)
 958         if (s->rx_fifo[(s->rx_start + i) % 12] & ~0xff) {
 959             utsr0 |= UTSR0_EIF;
 960             break;
 961         }
 962
 963     s->utsr0 = utsr0;
 964     qemu_set_irq(s->irq, utsr0);
 965 }
 966
 967 static void strongarm_uart_update_parameters(StrongARMUARTState *s)
 968 {
 969     int speed, parity, data_bits, stop_bits, frame_size;
 970     QEMUSerialSetParams ssp;
 971
 972     /* Start bit. */
 973     frame_size = 1;
 974     if (s->utcr0 & UTCR0_PE) {
 975         /* Parity bit. */
 976         frame_size++;
 977         if (s->utcr0 & UTCR0_OES) {
 978             parity = 'E';
 979         } else {
 980             parity = 'O';
 981         }
 982     } else {
 983             parity = 'N';
 984     }
 985     if (s->utcr0 & UTCR0_SBS) {
 986         stop_bits = 2;
 987     } else {
 988         stop_bits = 1;
 989     }
 990
 991     data_bits = (s->utcr0 & UTCR0_DSS) ? 8 : 7;
 992     frame_size += data_bits + stop_bits;
 993     speed = 3686400 / 16 / (s->brd + 1);
 994     ssp.speed = speed;
 995     ssp.parity = parity;
 996     ssp.data_bits = data_bits;
 997     ssp.stop_bits = stop_bits;
 998     s->char_transmit_time =  (get_ticks_per_sec() / speed) * frame_size;
 999     if (s->chr) {
1000         qemu_chr_fe_ioctl(s->chr, CHR_IOCTL_SERIAL_SET_PARAMS, &ssp);
1001     }
1002
1003     DPRINTF(stderr, "%s speed=%d parity=%c data=%d stop=%d\n", s->chr->label,
1004             speed, parity, data_bits, stop_bits);
1005 }
1006
1007 static void strongarm_uart_rx_to(void *opaque)
1008 {
1009     StrongARMUARTState *s = opaque;
1010
1011     if (s->rx_len) {
1012         s->utsr0 |= UTSR0_RID;
1013         strongarm_uart_update_int_status(s);
1014     }
1015 }
1016
1017 static void strongarm_uart_rx_push(StrongARMUARTState *s, uint16_t c)
1018 {
1019     if ((s->utcr3 & UTCR3_RXE) == 0) {
1020         /* rx disabled */
1021         return;
1022     }
1023
1024     if (s->wait_break_end) {
1025         s->utsr0 |= UTSR0_REB;
1026         s->wait_break_end = false;
1027     }
1028
1029     if (s->rx_len < 12) {
1030         s->rx_fifo[(s->rx_start + s->rx_len) % 12] = c;
1031         s->rx_len++;
1032     } else
1033         s->rx_fifo[(s->rx_start + 11) % 12] |= RX_FIFO_ROR;
1034 }
1035
1036 static int strongarm_uart_can_receive(void *opaque)
1037 {
1038     StrongARMUARTState *s = opaque;
1039
1040     if (s->rx_len == 12) {
1041         return 0;
1042     }
1043     /* It's best not to get more than 2/3 of RX FIFO, so advertise that much */
1044     if (s->rx_len < 8) {
1045         return 8 - s->rx_len;
1046     }
1047     return 1;
1048 }
1049
1050 static void strongarm_uart_receive(void *opaque, const uint8_t *buf, int size)
1051 {
1052     StrongARMUARTState *s = opaque;
1053     int i;
1054
1055     for (i = 0; i < size; i++) {
1056         strongarm_uart_rx_push(s, buf[i]);
1057     }
1058
1059     /* call the timeout receive callback in 3 char transmit time */
1060     qemu_mod_timer(s->rx_timeout_timer,
1061                     qemu_get_clock_ns(vm_clock) + s->char_transmit_time * 3);
1062
1063     strongarm_uart_update_status(s);
1064     strongarm_uart_update_int_status(s);
1065 }
1066
1067 static void strongarm_uart_event(void *opaque, int event)
1068 {
1069     StrongARMUARTState *s = opaque;
1070     if (event == CHR_EVENT_BREAK) {
1071         s->utsr0 |= UTSR0_RBB;
1072         strongarm_uart_rx_push(s, RX_FIFO_FRE);
1073         s->wait_break_end = true;
1074         strongarm_uart_update_status(s);
1075         strongarm_uart_update_int_status(s);
1076     }
1077 }
1078
1079 static void strongarm_uart_tx(void *opaque)
1080 {
1081     StrongARMUARTState *s = opaque;
1082     uint64_t new_xmit_ts = qemu_get_clock_ns(vm_clock);
1083
1084     if (s->utcr3 & UTCR3_LBM) /* loopback */ {
1085         strongarm_uart_receive(s, &s->tx_fifo[s->tx_start], 1);
1086     } else if (s->chr) {
1087         qemu_chr_fe_write(s->chr, &s->tx_fifo[s->tx_start], 1);
1088     }
1089
1090     s->tx_start = (s->tx_start + 1) % 8;
1091     s->tx_len--;
1092     if (s->tx_len) {
1093         qemu_mod_timer(s->tx_timer, new_xmit_ts + s->char_transmit_time);
1094     }
1095     strongarm_uart_update_status(s);
1096     strongarm_uart_update_int_status(s);
1097 }
1098
1099 static uint64_t strongarm_uart_read(void *opaque, hwaddr addr,
1100                                     unsigned size)
1101 {
1102     StrongARMUARTState *s = opaque;
1103     uint16_t ret;
1104
1105     switch (addr) {
1106     case UTCR0:
1107         return s->utcr0;
1108
1109     case UTCR1:
1110         return s->brd >> 8;
1111
1112     case UTCR2:
1113         return s->brd & 0xff;
1114
1115     case UTCR3:
1116         return s->utcr3;
1117
1118     case UTDR:
1119         if (s->rx_len != 0) {
1120             ret = s->rx_fifo[s->rx_start];
1121             s->rx_start = (s->rx_start + 1) % 12;
1122             s->rx_len--;
1123             strongarm_uart_update_status(s);
1124             strongarm_uart_update_int_status(s);
1125             return ret;
1126         }
1127         return 0;
1128
1129     case UTSR0:
1130         return s->utsr0;
1131
1132     case UTSR1:
1133         return s->utsr1;
1134
1135     default:
1136         printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr);
1137         return 0;
1138     }
1139 }
1140
1141 static void strongarm_uart_write(void *opaque, hwaddr addr,
1142                                  uint64_t value, unsigned size)
1143 {
1144     StrongARMUARTState *s = opaque;
1145
1146     switch (addr) {
1147     case UTCR0:
1148         s->utcr0 = value & 0x7f;
1149         strongarm_uart_update_parameters(s);
1150         break;
1151
1152     case UTCR1:
1153         s->brd = (s->brd & 0xff) | ((value & 0xf) << 8);
1154         strongarm_uart_update_parameters(s);
1155         break;
1156
1157     case UTCR2:
1158         s->brd = (s->brd & 0xf00) | (value & 0xff);
1159         strongarm_uart_update_parameters(s);
1160         break;
1161
1162     case UTCR3:
1163         s->utcr3 = value & 0x3f;
1164         if ((s->utcr3 & UTCR3_RXE) == 0) {
1165             s->rx_len = 0;
1166         }
1167         if ((s->utcr3 & UTCR3_TXE) == 0) {
1168             s->tx_len = 0;
1169         }
1170         strongarm_uart_update_status(s);
1171         strongarm_uart_update_int_status(s);
1172         break;
1173
1174     case UTDR:
1175         if ((s->utcr3 & UTCR3_TXE) && s->tx_len != 8) {
1176             s->tx_fifo[(s->tx_start + s->tx_len) % 8] = value;
1177             s->tx_len++;
1178             strongarm_uart_update_status(s);
1179             strongarm_uart_update_int_status(s);
1180             if (s->tx_len == 1) {
1181                 strongarm_uart_tx(s);
1182             }
1183         }
1184         break;
1185
1186     case UTSR0:
1187         s->utsr0 = s->utsr0 & ~(value &
1188                 (UTSR0_REB | UTSR0_RBB | UTSR0_RID));
1189         strongarm_uart_update_int_status(s);
1190         break;
1191
1192     default:
1193         printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr);
1194     }
1195 }
1196
1197 static const MemoryRegionOps strongarm_uart_ops = {
1198     .read = strongarm_uart_read,
1199     .write = strongarm_uart_write,
1200     .endianness = DEVICE_NATIVE_ENDIAN,
1201 };
1202
1203 static int strongarm_uart_init(SysBusDevice *dev)
1204 {
1205     StrongARMUARTState *s = FROM_SYSBUS(StrongARMUARTState, dev);
1206
1207     memory_region_init_io(&s->iomem, &strongarm_uart_ops, s, "uart", 0x10000);
1208     sysbus_init_mmio(dev, &s->iomem);
1209     sysbus_init_irq(dev, &s->irq);
1210
1211     s->rx_timeout_timer = qemu_new_timer_ns(vm_clock, strongarm_uart_rx_to, s);
1212     s->tx_timer = qemu_new_timer_ns(vm_clock, strongarm_uart_tx, s);
1213
1214     if (s->chr) {
1215         qemu_chr_add_handlers(s->chr,
1216                         strongarm_uart_can_receive,
1217                         strongarm_uart_receive,
1218                         strongarm_uart_event,
1219                         s);
1220     }
1221
1222     return 0;
1223 }
1224
1225 static void strongarm_uart_reset(DeviceState *dev)
1226 {
1227     StrongARMUARTState *s = DO_UPCAST(StrongARMUARTState, busdev.qdev, dev);
1228
1229     s->utcr0 = UTCR0_DSS; /* 8 data, no parity */
1230     s->brd = 23;    /* 9600 */
1231     /* enable send & recv - this actually violates spec */
1232     s->utcr3 = UTCR3_TXE | UTCR3_RXE;
1233
1234     s->rx_len = s->tx_len = 0;
1235
1236     strongarm_uart_update_parameters(s);
1237     strongarm_uart_update_status(s);
1238     strongarm_uart_update_int_status(s);
1239 }
1240
1241 static int strongarm_uart_post_load(void *opaque, int version_id)
1242 {
1243     StrongARMUARTState *s = opaque;
1244
1245     strongarm_uart_update_parameters(s);
1246     strongarm_uart_update_status(s);
1247     strongarm_uart_update_int_status(s);
1248
1249     /* tx and restart timer */
1250     if (s->tx_len) {
1251         strongarm_uart_tx(s);
1252     }
1253
1254     /* restart rx timeout timer */
1255     if (s->rx_len) {
1256         qemu_mod_timer(s->rx_timeout_timer,
1257                 qemu_get_clock_ns(vm_clock) + s->char_transmit_time * 3);
1258     }
1259
1260     return 0;
1261 }
1262
1263 static const VMStateDescription vmstate_strongarm_uart_regs = {
1264     .name = "strongarm-uart",
1265     .version_id = 0,
1266     .minimum_version_id = 0,
1267     .minimum_version_id_old = 0,
1268     .post_load = strongarm_uart_post_load,
1269     .fields = (VMStateField[]) {
1270         VMSTATE_UINT8(utcr0, StrongARMUARTState),
1271         VMSTATE_UINT16(brd, StrongARMUARTState),
1272         VMSTATE_UINT8(utcr3, StrongARMUARTState),
1273         VMSTATE_UINT8(utsr0, StrongARMUARTState),
1274         VMSTATE_UINT8_ARRAY(tx_fifo, StrongARMUARTState, 8),
1275         VMSTATE_UINT8(tx_start, StrongARMUARTState),
1276         VMSTATE_UINT8(tx_len, StrongARMUARTState),
1277         VMSTATE_UINT16_ARRAY(rx_fifo, StrongARMUARTState, 12),
1278         VMSTATE_UINT8(rx_start, StrongARMUARTState),
1279         VMSTATE_UINT8(rx_len, StrongARMUARTState),
1280         VMSTATE_BOOL(wait_break_end, StrongARMUARTState),
1281         VMSTATE_END_OF_LIST(),
1282     },
1283 };
1284
1285 static Property strongarm_uart_properties[] = {
1286     DEFINE_PROP_CHR("chardev", StrongARMUARTState, chr),
1287     DEFINE_PROP_END_OF_LIST(),
1288 };
1289
1290 static void strongarm_uart_class_init(ObjectClass *klass, void *data)
1291 {
1292     DeviceClass *dc = DEVICE_CLASS(klass);
1293     SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);
1294
1295     k->init = strongarm_uart_init;
1296     dc->desc = "StrongARM UART controller";
1297     dc->reset = strongarm_uart_reset;
1298     dc->vmsd = &vmstate_strongarm_uart_regs;
1299     dc->props = strongarm_uart_properties;
1300 }
1301
1302 static TypeInfo strongarm_uart_info = {
1303     .name          = "strongarm-uart",
1304     .parent        = TYPE_SYS_BUS_DEVICE,
1305     .instance_size = sizeof(StrongARMUARTState),
1306     .class_init    = strongarm_uart_class_init,
1307 };
1308
1309 /* Synchronous Serial Ports */
1310 typedef struct {
1311     SysBusDevice busdev;
1312     MemoryRegion iomem;
1313     qemu_irq irq;
1314     SSIBus *bus;
1315
1316     uint16_t sscr[2];
1317     uint16_t sssr;
1318
1319     uint16_t rx_fifo[8];
1320     uint8_t rx_level;
1321     uint8_t rx_start;
1322 } StrongARMSSPState;
1323
1324 #define SSCR0 0x60 /* SSP Control register 0 */
1325 #define SSCR1 0x64 /* SSP Control register 1 */
1326 #define SSDR  0x6c /* SSP Data register */
1327 #define SSSR  0x74 /* SSP Status register */
1328
1329 /* Bitfields for above registers */
1330 #define SSCR0_SPI(x)    (((x) & 0x30) == 0x00)
1331 #define SSCR0_SSP(x)    (((x) & 0x30) == 0x10)
1332 #define SSCR0_UWIRE(x)  (((x) & 0x30) == 0x20)
1333 #define SSCR0_PSP(x)    (((x) & 0x30) == 0x30)
1334 #define SSCR0_SSE       (1 << 7)
1335 #define SSCR0_DSS(x)    (((x) & 0xf) + 1)
1336 #define SSCR1_RIE       (1 << 0)
1337 #define SSCR1_TIE       (1 << 1)
1338 #define SSCR1_LBM       (1 << 2)
1339 #define SSSR_TNF        (1 << 2)
1340 #define SSSR_RNE        (1 << 3)
1341 #define SSSR_TFS        (1 << 5)
1342 #define SSSR_RFS        (1 << 6)
1343 #define SSSR_ROR        (1 << 7)
1344 #define SSSR_RW         0x0080
1345
1346 static void strongarm_ssp_int_update(StrongARMSSPState *s)
1347 {
1348     int level = 0;
1349
1350     level |= (s->sssr & SSSR_ROR);
1351     level |= (s->sssr & SSSR_RFS)  &&  (s->sscr[1] & SSCR1_RIE);
1352     level |= (s->sssr & SSSR_TFS)  &&  (s->sscr[1] & SSCR1_TIE);
1353     qemu_set_irq(s->irq, level);
1354 }
1355
1356 static void strongarm_ssp_fifo_update(StrongARMSSPState *s)
1357 {
1358     s->sssr &= ~SSSR_TFS;
1359     s->sssr &= ~SSSR_TNF;
1360     if (s->sscr[0] & SSCR0_SSE) {
1361         if (s->rx_level >= 4) {
1362             s->sssr |= SSSR_RFS;
1363         } else {
1364             s->sssr &= ~SSSR_RFS;
1365         }
1366         if (s->rx_level) {
1367             s->sssr |= SSSR_RNE;
1368         } else {
1369             s->sssr &= ~SSSR_RNE;
1370         }
1371         /* TX FIFO is never filled, so it is always in underrun
1372            condition if SSP is enabled */
1373         s->sssr |= SSSR_TFS;
1374         s->sssr |= SSSR_TNF;
1375     }
1376
1377     strongarm_ssp_int_update(s);
1378 }
1379
1380 static uint64_t strongarm_ssp_read(void *opaque, hwaddr addr,
1381                                    unsigned size)
1382 {
1383     StrongARMSSPState *s = opaque;
1384     uint32_t retval;
1385
1386     switch (addr) {
1387     case SSCR0:
1388         return s->sscr[0];
1389     case SSCR1:
1390         return s->sscr[1];
1391     case SSSR:
1392         return s->sssr;
1393     case SSDR:
1394         if (~s->sscr[0] & SSCR0_SSE) {
1395             return 0xffffffff;
1396         }
1397         if (s->rx_level < 1) {
1398             printf("%s: SSP Rx Underrun\n", __func__);
1399             return 0xffffffff;
1400         }
1401         s->rx_level--;
1402         retval = s->rx_fifo[s->rx_start++];
1403         s->rx_start &= 0x7;
1404         strongarm_ssp_fifo_update(s);
1405         return retval;
1406     default:
1407         printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr);
1408         break;
1409     }
1410     return 0;
1411 }
1412
1413 static void strongarm_ssp_write(void *opaque, hwaddr addr,
1414                                 uint64_t value, unsigned size)
1415 {
1416     StrongARMSSPState *s = opaque;
1417
1418     switch (addr) {
1419     case SSCR0:
1420         s->sscr[0] = value & 0xffbf;
1421         if ((s->sscr[0] & SSCR0_SSE) && SSCR0_DSS(value) < 4) {
1422             printf("%s: Wrong data size: %i bits\n", __func__,
1423                    (int)SSCR0_DSS(value));
1424         }
1425         if (!(value & SSCR0_SSE)) {
1426             s->sssr = 0;
1427             s->rx_level = 0;
1428         }
1429         strongarm_ssp_fifo_update(s);
1430         break;
1431
1432     case SSCR1:
1433         s->sscr[1] = value & 0x2f;
1434         if (value & SSCR1_LBM) {
1435             printf("%s: Attempt to use SSP LBM mode\n", __func__);
1436         }
1437         strongarm_ssp_fifo_update(s);
1438         break;
1439
1440     case SSSR:
1441         s->sssr &= ~(value & SSSR_RW);
1442         strongarm_ssp_int_update(s);
1443         break;
1444
1445     case SSDR:
1446         if (SSCR0_UWIRE(s->sscr[0])) {
1447             value &= 0xff;
1448         } else
1449             /* Note how 32bits overflow does no harm here */
1450             value &= (1 << SSCR0_DSS(s->sscr[0])) - 1;
1451
1452         /* Data goes from here to the Tx FIFO and is shifted out from
1453          * there directly to the slave, no need to buffer it.
1454          */
1455         if (s->sscr[0] & SSCR0_SSE) {
1456             uint32_t readval;
1457             if (s->sscr[1] & SSCR1_LBM) {
1458                 readval = value;
1459             } else {
1460                 readval = ssi_transfer(s->bus, value);
1461             }
1462
1463             if (s->rx_level < 0x08) {
1464                 s->rx_fifo[(s->rx_start + s->rx_level++) & 0x7] = readval;
1465             } else {
1466                 s->sssr |= SSSR_ROR;
1467             }
1468         }
1469         strongarm_ssp_fifo_update(s);
1470         break;
1471
1472     default:
1473         printf("%s: Bad register 0x" TARGET_FMT_plx "\n", __func__, addr);
1474         break;
1475     }
1476 }
1477
1478 static const MemoryRegionOps strongarm_ssp_ops = {
1479     .read = strongarm_ssp_read,
1480     .write = strongarm_ssp_write,
1481     .endianness = DEVICE_NATIVE_ENDIAN,
1482 };
1483
1484 static int strongarm_ssp_post_load(void *opaque, int version_id)
1485 {
1486     StrongARMSSPState *s = opaque;
1487
1488     strongarm_ssp_fifo_update(s);
1489
1490     return 0;
1491 }
1492
1493 static int strongarm_ssp_init(SysBusDevice *dev)
1494 {
1495     StrongARMSSPState *s = FROM_SYSBUS(StrongARMSSPState, dev);
1496
1497     sysbus_init_irq(dev, &s->irq);
1498
1499     memory_region_init_io(&s->iomem, &strongarm_ssp_ops, s, "ssp", 0x1000);
1500     sysbus_init_mmio(dev, &s->iomem);
1501
1502     s->bus = ssi_create_bus(&dev->qdev, "ssi");
1503     return 0;
1504 }
1505
1506 static void strongarm_ssp_reset(DeviceState *dev)
1507 {
1508     StrongARMSSPState *s = DO_UPCAST(StrongARMSSPState, busdev.qdev, dev);
1509     s->sssr = 0x03; /* 3 bit data, SPI, disabled */
1510     s->rx_start = 0;
1511     s->rx_level = 0;
1512 }
1513
1514 static const VMStateDescription vmstate_strongarm_ssp_regs = {
1515     .name = "strongarm-ssp",
1516     .version_id = 0,
1517     .minimum_version_id = 0,
1518     .minimum_version_id_old = 0,
1519     .post_load = strongarm_ssp_post_load,
1520     .fields = (VMStateField[]) {
1521         VMSTATE_UINT16_ARRAY(sscr, StrongARMSSPState, 2),
1522         VMSTATE_UINT16(sssr, StrongARMSSPState),
1523         VMSTATE_UINT16_ARRAY(rx_fifo, StrongARMSSPState, 8),
1524         VMSTATE_UINT8(rx_start, StrongARMSSPState),
1525         VMSTATE_UINT8(rx_level, StrongARMSSPState),
1526         VMSTATE_END_OF_LIST(),
1527     },
1528 };
1529
1530 static void strongarm_ssp_class_init(ObjectClass *klass, void *data)
1531 {
1532     DeviceClass *dc = DEVICE_CLASS(klass);
1533     SysBusDeviceClass *k = SYS_BUS_DEVICE_CLASS(klass);
1534
1535     k->init = strongarm_ssp_init;
1536     dc->desc = "StrongARM SSP controller";
1537     dc->reset = strongarm_ssp_reset;
1538     dc->vmsd = &vmstate_strongarm_ssp_regs;
1539 }
1540
1541 static TypeInfo strongarm_ssp_info = {
1542     .name          = "strongarm-ssp",
1543     .parent        = TYPE_SYS_BUS_DEVICE,
1544     .instance_size = sizeof(StrongARMSSPState),
1545     .class_init    = strongarm_ssp_class_init,
1546 };
1547
1548 /* Main CPU functions */
1549 StrongARMState *sa1110_init(MemoryRegion *sysmem,
1550                             unsigned int sdram_size, const char *rev)
1551 {
1552     StrongARMState *s;
1553     qemu_irq *pic;
1554     int i;
1555
1556     s = g_malloc0(sizeof(StrongARMState));
1557
1558     if (!rev) {
1559         rev = "sa1110-b5";
1560     }
1561
1562     if (strncmp(rev, "sa1110", 6)) {
1563         error_report("Machine requires a SA1110 processor.");
1564         exit(1);
1565     }
1566
1567     s->cpu = cpu_arm_init(rev);
1568
1569     if (!s->cpu) {
1570         error_report("Unable to find CPU definition");
1571         exit(1);
1572     }
1573
1574     memory_region_init_ram(&s->sdram, "strongarm.sdram", sdram_size);
1575     vmstate_register_ram_global(&s->sdram);
1576     memory_region_add_subregion(sysmem, SA_SDCS0, &s->sdram);
1577
1578     pic = arm_pic_init_cpu(s->cpu);
1579     s->pic = sysbus_create_varargs("strongarm_pic", 0x90050000,
1580                     pic[ARM_PIC_CPU_IRQ], pic[ARM_PIC_CPU_FIQ], NULL);
1581
1582     sysbus_create_varargs("pxa25x-timer", 0x90000000,
1583                     qdev_get_gpio_in(s->pic, SA_PIC_OSTC0),
1584                     qdev_get_gpio_in(s->pic, SA_PIC_OSTC1),
1585                     qdev_get_gpio_in(s->pic, SA_PIC_OSTC2),
1586                     qdev_get_gpio_in(s->pic, SA_PIC_OSTC3),
1587                     NULL);
1588
1589     sysbus_create_simple("strongarm-rtc", 0x90010000,
1590                     qdev_get_gpio_in(s->pic, SA_PIC_RTC_ALARM));
1591
1592     s->gpio = strongarm_gpio_init(0x90040000, s->pic);
1593
1594     s->ppc = sysbus_create_varargs("strongarm-ppc", 0x90060000, NULL);
1595
1596     for (i = 0; sa_serial[i].io_base; i++) {
1597         DeviceState *dev = qdev_create(NULL, "strongarm-uart");
1598         qdev_prop_set_chr(dev, "chardev", serial_hds[i]);
1599         qdev_init_nofail(dev);
1600         sysbus_mmio_map(sysbus_from_qdev(dev), 0,
1601                 sa_serial[i].io_base);
1602         sysbus_connect_irq(sysbus_from_qdev(dev), 0,
1603                 qdev_get_gpio_in(s->pic, sa_serial[i].irq));
1604     }
1605
1606     s->ssp = sysbus_create_varargs("strongarm-ssp", 0x80070000,
1607                 qdev_get_gpio_in(s->pic, SA_PIC_SSP), NULL);
1608     s->ssp_bus = (SSIBus *)qdev_get_child_bus(s->ssp, "ssi");
1609
1610     return s;
1611 }
1612
1613 static void strongarm_register_types(void)
1614 {
1615     type_register_static(&strongarm_pic_info);
1616     type_register_static(&strongarm_rtc_sysbus_info);
1617     type_register_static(&strongarm_gpio_info);
1618     type_register_static(&strongarm_ppc_info);
1619     type_register_static(&strongarm_uart_info);
1620     type_register_static(&strongarm_ssp_info);
1621 }
1622
1623 type_init(strongarm_register_types)