2007-09-17 05:08:06 +08:00
|
|
|
/*
|
2006-04-09 09:32:52 +08:00
|
|
|
* Arm PrimeCell PL011 UART
|
|
|
|
*
|
|
|
|
* Copyright (c) 2006 CodeSourcery.
|
|
|
|
* Written by Paul Brook
|
|
|
|
*
|
|
|
|
* This code is licenced under the GPL.
|
|
|
|
*/
|
|
|
|
|
2009-05-15 05:35:07 +08:00
|
|
|
#include "sysbus.h"
|
2007-11-18 01:14:51 +08:00
|
|
|
#include "qemu-char.h"
|
2006-04-09 09:32:52 +08:00
|
|
|
|
|
|
|
typedef struct {
|
2009-05-15 05:35:07 +08:00
|
|
|
SysBusDevice busdev;
|
2006-04-09 09:32:52 +08:00
|
|
|
uint32_t readbuff;
|
|
|
|
uint32_t flags;
|
|
|
|
uint32_t lcr;
|
|
|
|
uint32_t cr;
|
|
|
|
uint32_t dmacr;
|
|
|
|
uint32_t int_enabled;
|
|
|
|
uint32_t int_level;
|
|
|
|
uint32_t read_fifo[16];
|
|
|
|
uint32_t ilpr;
|
|
|
|
uint32_t ibrd;
|
|
|
|
uint32_t fbrd;
|
|
|
|
uint32_t ifl;
|
|
|
|
int read_pos;
|
|
|
|
int read_count;
|
|
|
|
int read_trigger;
|
|
|
|
CharDriverState *chr;
|
2007-04-08 02:14:41 +08:00
|
|
|
qemu_irq irq;
|
2009-05-15 05:35:07 +08:00
|
|
|
const unsigned char *id;
|
2006-04-09 09:32:52 +08:00
|
|
|
} pl011_state;
|
|
|
|
|
|
|
|
#define PL011_INT_TX 0x20
|
|
|
|
#define PL011_INT_RX 0x10
|
|
|
|
|
|
|
|
#define PL011_FLAG_TXFE 0x80
|
|
|
|
#define PL011_FLAG_RXFF 0x40
|
|
|
|
#define PL011_FLAG_TXFF 0x20
|
|
|
|
#define PL011_FLAG_RXFE 0x10
|
|
|
|
|
2009-05-15 05:35:07 +08:00
|
|
|
static const unsigned char pl011_id_arm[8] =
|
|
|
|
{ 0x11, 0x10, 0x14, 0x00, 0x0d, 0xf0, 0x05, 0xb1 };
|
|
|
|
static const unsigned char pl011_id_luminary[8] =
|
|
|
|
{ 0x11, 0x00, 0x18, 0x01, 0x0d, 0xf0, 0x05, 0xb1 };
|
2006-04-09 09:32:52 +08:00
|
|
|
|
|
|
|
static void pl011_update(pl011_state *s)
|
|
|
|
{
|
|
|
|
uint32_t flags;
|
2007-09-17 16:09:54 +08:00
|
|
|
|
2006-04-09 09:32:52 +08:00
|
|
|
flags = s->int_level & s->int_enabled;
|
2007-04-08 02:14:41 +08:00
|
|
|
qemu_set_irq(s->irq, flags != 0);
|
2006-04-09 09:32:52 +08:00
|
|
|
}
|
|
|
|
|
2009-10-02 05:12:16 +08:00
|
|
|
static uint32_t pl011_read(void *opaque, target_phys_addr_t offset)
|
2006-04-09 09:32:52 +08:00
|
|
|
{
|
|
|
|
pl011_state *s = (pl011_state *)opaque;
|
|
|
|
uint32_t c;
|
|
|
|
|
|
|
|
if (offset >= 0xfe0 && offset < 0x1000) {
|
2009-05-15 05:35:07 +08:00
|
|
|
return s->id[(offset - 0xfe0) >> 2];
|
2006-04-09 09:32:52 +08:00
|
|
|
}
|
|
|
|
switch (offset >> 2) {
|
|
|
|
case 0: /* UARTDR */
|
|
|
|
s->flags &= ~PL011_FLAG_RXFF;
|
|
|
|
c = s->read_fifo[s->read_pos];
|
|
|
|
if (s->read_count > 0) {
|
|
|
|
s->read_count--;
|
|
|
|
if (++s->read_pos == 16)
|
|
|
|
s->read_pos = 0;
|
|
|
|
}
|
|
|
|
if (s->read_count == 0) {
|
|
|
|
s->flags |= PL011_FLAG_RXFE;
|
|
|
|
}
|
|
|
|
if (s->read_count == s->read_trigger - 1)
|
|
|
|
s->int_level &= ~ PL011_INT_RX;
|
|
|
|
pl011_update(s);
|
2007-11-25 08:55:06 +08:00
|
|
|
qemu_chr_accept_input(s->chr);
|
2006-04-09 09:32:52 +08:00
|
|
|
return c;
|
|
|
|
case 1: /* UARTCR */
|
|
|
|
return 0;
|
|
|
|
case 6: /* UARTFR */
|
|
|
|
return s->flags;
|
|
|
|
case 8: /* UARTILPR */
|
|
|
|
return s->ilpr;
|
|
|
|
case 9: /* UARTIBRD */
|
|
|
|
return s->ibrd;
|
|
|
|
case 10: /* UARTFBRD */
|
|
|
|
return s->fbrd;
|
|
|
|
case 11: /* UARTLCR_H */
|
|
|
|
return s->lcr;
|
|
|
|
case 12: /* UARTCR */
|
|
|
|
return s->cr;
|
|
|
|
case 13: /* UARTIFLS */
|
|
|
|
return s->ifl;
|
|
|
|
case 14: /* UARTIMSC */
|
|
|
|
return s->int_enabled;
|
|
|
|
case 15: /* UARTRIS */
|
|
|
|
return s->int_level;
|
|
|
|
case 16: /* UARTMIS */
|
|
|
|
return s->int_level & s->int_enabled;
|
|
|
|
case 18: /* UARTDMACR */
|
|
|
|
return s->dmacr;
|
|
|
|
default:
|
2009-05-08 09:35:15 +08:00
|
|
|
hw_error("pl011_read: Bad offset %x\n", (int)offset);
|
2006-04-09 09:32:52 +08:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void pl011_set_read_trigger(pl011_state *s)
|
|
|
|
{
|
|
|
|
#if 0
|
|
|
|
/* The docs say the RX interrupt is triggered when the FIFO exceeds
|
|
|
|
the threshold. However linux only reads the FIFO in response to an
|
|
|
|
interrupt. Triggering the interrupt when the FIFO is non-empty seems
|
|
|
|
to make things work. */
|
|
|
|
if (s->lcr & 0x10)
|
|
|
|
s->read_trigger = (s->ifl >> 1) & 0x1c;
|
|
|
|
else
|
|
|
|
#endif
|
|
|
|
s->read_trigger = 1;
|
|
|
|
}
|
|
|
|
|
2009-10-02 05:12:16 +08:00
|
|
|
static void pl011_write(void *opaque, target_phys_addr_t offset,
|
2006-04-09 09:32:52 +08:00
|
|
|
uint32_t value)
|
|
|
|
{
|
|
|
|
pl011_state *s = (pl011_state *)opaque;
|
|
|
|
unsigned char ch;
|
|
|
|
|
|
|
|
switch (offset >> 2) {
|
|
|
|
case 0: /* UARTDR */
|
|
|
|
/* ??? Check if transmitter is enabled. */
|
|
|
|
ch = value;
|
|
|
|
if (s->chr)
|
|
|
|
qemu_chr_write(s->chr, &ch, 1);
|
|
|
|
s->int_level |= PL011_INT_TX;
|
|
|
|
pl011_update(s);
|
|
|
|
break;
|
|
|
|
case 1: /* UARTCR */
|
|
|
|
s->cr = value;
|
|
|
|
break;
|
2007-11-11 08:04:49 +08:00
|
|
|
case 6: /* UARTFR */
|
|
|
|
/* Writes to Flag register are ignored. */
|
|
|
|
break;
|
2006-04-09 09:32:52 +08:00
|
|
|
case 8: /* UARTUARTILPR */
|
|
|
|
s->ilpr = value;
|
|
|
|
break;
|
|
|
|
case 9: /* UARTIBRD */
|
|
|
|
s->ibrd = value;
|
|
|
|
break;
|
|
|
|
case 10: /* UARTFBRD */
|
|
|
|
s->fbrd = value;
|
|
|
|
break;
|
|
|
|
case 11: /* UARTLCR_H */
|
|
|
|
s->lcr = value;
|
|
|
|
pl011_set_read_trigger(s);
|
|
|
|
break;
|
|
|
|
case 12: /* UARTCR */
|
|
|
|
/* ??? Need to implement the enable and loopback bits. */
|
|
|
|
s->cr = value;
|
|
|
|
break;
|
|
|
|
case 13: /* UARTIFS */
|
|
|
|
s->ifl = value;
|
|
|
|
pl011_set_read_trigger(s);
|
|
|
|
break;
|
|
|
|
case 14: /* UARTIMSC */
|
|
|
|
s->int_enabled = value;
|
|
|
|
pl011_update(s);
|
|
|
|
break;
|
|
|
|
case 17: /* UARTICR */
|
|
|
|
s->int_level &= ~value;
|
|
|
|
pl011_update(s);
|
|
|
|
break;
|
|
|
|
case 18: /* UARTDMACR */
|
|
|
|
s->dmacr = value;
|
|
|
|
if (value & 3)
|
2009-05-08 09:35:15 +08:00
|
|
|
hw_error("PL011: DMA not implemented\n");
|
2006-04-09 09:32:52 +08:00
|
|
|
break;
|
|
|
|
default:
|
2009-05-08 09:35:15 +08:00
|
|
|
hw_error("pl011_write: Bad offset %x\n", (int)offset);
|
2006-04-09 09:32:52 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2007-07-12 06:48:58 +08:00
|
|
|
static int pl011_can_receive(void *opaque)
|
2006-04-09 09:32:52 +08:00
|
|
|
{
|
|
|
|
pl011_state *s = (pl011_state *)opaque;
|
|
|
|
|
|
|
|
if (s->lcr & 0x10)
|
|
|
|
return s->read_count < 16;
|
|
|
|
else
|
|
|
|
return s->read_count < 1;
|
|
|
|
}
|
|
|
|
|
2008-04-09 03:51:43 +08:00
|
|
|
static void pl011_put_fifo(void *opaque, uint32_t value)
|
2006-04-09 09:32:52 +08:00
|
|
|
{
|
|
|
|
pl011_state *s = (pl011_state *)opaque;
|
|
|
|
int slot;
|
|
|
|
|
|
|
|
slot = s->read_pos + s->read_count;
|
|
|
|
if (slot >= 16)
|
|
|
|
slot -= 16;
|
2008-04-09 03:51:43 +08:00
|
|
|
s->read_fifo[slot] = value;
|
2006-04-09 09:32:52 +08:00
|
|
|
s->read_count++;
|
|
|
|
s->flags &= ~PL011_FLAG_RXFE;
|
|
|
|
if (s->cr & 0x10 || s->read_count == 16) {
|
|
|
|
s->flags |= PL011_FLAG_RXFF;
|
|
|
|
}
|
|
|
|
if (s->read_count == s->read_trigger) {
|
|
|
|
s->int_level |= PL011_INT_RX;
|
|
|
|
pl011_update(s);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2008-04-09 03:51:43 +08:00
|
|
|
static void pl011_receive(void *opaque, const uint8_t *buf, int size)
|
|
|
|
{
|
|
|
|
pl011_put_fifo(opaque, *buf);
|
|
|
|
}
|
|
|
|
|
2006-04-09 09:32:52 +08:00
|
|
|
static void pl011_event(void *opaque, int event)
|
|
|
|
{
|
2008-04-09 03:51:43 +08:00
|
|
|
if (event == CHR_EVENT_BREAK)
|
|
|
|
pl011_put_fifo(opaque, 0x400);
|
2006-04-09 09:32:52 +08:00
|
|
|
}
|
|
|
|
|
2009-08-26 02:29:31 +08:00
|
|
|
static CPUReadMemoryFunc * const pl011_readfn[] = {
|
2006-04-09 09:32:52 +08:00
|
|
|
pl011_read,
|
|
|
|
pl011_read,
|
|
|
|
pl011_read
|
|
|
|
};
|
|
|
|
|
2009-08-26 02:29:31 +08:00
|
|
|
static CPUWriteMemoryFunc * const pl011_writefn[] = {
|
2006-04-09 09:32:52 +08:00
|
|
|
pl011_write,
|
|
|
|
pl011_write,
|
|
|
|
pl011_write
|
|
|
|
};
|
|
|
|
|
2008-07-03 00:48:32 +08:00
|
|
|
static void pl011_save(QEMUFile *f, void *opaque)
|
|
|
|
{
|
|
|
|
pl011_state *s = (pl011_state *)opaque;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
qemu_put_be32(f, s->readbuff);
|
|
|
|
qemu_put_be32(f, s->flags);
|
|
|
|
qemu_put_be32(f, s->lcr);
|
|
|
|
qemu_put_be32(f, s->cr);
|
|
|
|
qemu_put_be32(f, s->dmacr);
|
|
|
|
qemu_put_be32(f, s->int_enabled);
|
|
|
|
qemu_put_be32(f, s->int_level);
|
|
|
|
for (i = 0; i < 16; i++)
|
|
|
|
qemu_put_be32(f, s->read_fifo[i]);
|
|
|
|
qemu_put_be32(f, s->ilpr);
|
|
|
|
qemu_put_be32(f, s->ibrd);
|
|
|
|
qemu_put_be32(f, s->fbrd);
|
|
|
|
qemu_put_be32(f, s->ifl);
|
|
|
|
qemu_put_be32(f, s->read_pos);
|
|
|
|
qemu_put_be32(f, s->read_count);
|
|
|
|
qemu_put_be32(f, s->read_trigger);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int pl011_load(QEMUFile *f, void *opaque, int version_id)
|
|
|
|
{
|
|
|
|
pl011_state *s = (pl011_state *)opaque;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
if (version_id != 1)
|
|
|
|
return -EINVAL;
|
|
|
|
|
|
|
|
s->readbuff = qemu_get_be32(f);
|
|
|
|
s->flags = qemu_get_be32(f);
|
|
|
|
s->lcr = qemu_get_be32(f);
|
|
|
|
s->cr = qemu_get_be32(f);
|
|
|
|
s->dmacr = qemu_get_be32(f);
|
|
|
|
s->int_enabled = qemu_get_be32(f);
|
|
|
|
s->int_level = qemu_get_be32(f);
|
|
|
|
for (i = 0; i < 16; i++)
|
|
|
|
s->read_fifo[i] = qemu_get_be32(f);
|
|
|
|
s->ilpr = qemu_get_be32(f);
|
|
|
|
s->ibrd = qemu_get_be32(f);
|
|
|
|
s->fbrd = qemu_get_be32(f);
|
|
|
|
s->ifl = qemu_get_be32(f);
|
|
|
|
s->read_pos = qemu_get_be32(f);
|
|
|
|
s->read_count = qemu_get_be32(f);
|
|
|
|
s->read_trigger = qemu_get_be32(f);
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2009-08-14 16:36:05 +08:00
|
|
|
static int pl011_init(SysBusDevice *dev, const unsigned char *id)
|
2006-04-09 09:32:52 +08:00
|
|
|
{
|
|
|
|
int iomemtype;
|
2009-05-15 05:35:07 +08:00
|
|
|
pl011_state *s = FROM_SYSBUS(pl011_state, dev);
|
2006-04-09 09:32:52 +08:00
|
|
|
|
2009-06-14 16:38:51 +08:00
|
|
|
iomemtype = cpu_register_io_memory(pl011_readfn,
|
2010-12-08 19:05:37 +08:00
|
|
|
pl011_writefn, s,
|
|
|
|
DEVICE_NATIVE_ENDIAN);
|
2009-05-15 05:35:07 +08:00
|
|
|
sysbus_init_mmio(dev, 0x1000,iomemtype);
|
|
|
|
sysbus_init_irq(dev, &s->irq);
|
|
|
|
s->id = id;
|
|
|
|
s->chr = qdev_init_chardev(&dev->qdev);
|
|
|
|
|
2006-04-09 09:32:52 +08:00
|
|
|
s->read_trigger = 1;
|
|
|
|
s->ifl = 0x12;
|
|
|
|
s->cr = 0x300;
|
|
|
|
s->flags = 0x90;
|
2009-05-15 05:35:07 +08:00
|
|
|
if (s->chr) {
|
|
|
|
qemu_chr_add_handlers(s->chr, pl011_can_receive, pl011_receive,
|
2007-01-28 07:46:43 +08:00
|
|
|
pl011_event, s);
|
2006-04-09 09:32:52 +08:00
|
|
|
}
|
2010-06-26 01:09:07 +08:00
|
|
|
register_savevm(&dev->qdev, "pl011_uart", -1, 1, pl011_save, pl011_load, s);
|
2009-08-14 16:36:05 +08:00
|
|
|
return 0;
|
2006-04-09 09:32:52 +08:00
|
|
|
}
|
2009-05-15 05:35:07 +08:00
|
|
|
|
2009-08-14 16:36:05 +08:00
|
|
|
static int pl011_init_arm(SysBusDevice *dev)
|
2009-05-15 05:35:07 +08:00
|
|
|
{
|
2009-08-14 16:36:05 +08:00
|
|
|
return pl011_init(dev, pl011_id_arm);
|
2009-05-15 05:35:07 +08:00
|
|
|
}
|
|
|
|
|
2009-08-14 16:36:05 +08:00
|
|
|
static int pl011_init_luminary(SysBusDevice *dev)
|
2009-05-15 05:35:07 +08:00
|
|
|
{
|
2009-08-14 16:36:05 +08:00
|
|
|
return pl011_init(dev, pl011_id_luminary);
|
2009-05-15 05:35:07 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
static void pl011_register_devices(void)
|
|
|
|
{
|
|
|
|
sysbus_register_dev("pl011", sizeof(pl011_state),
|
|
|
|
pl011_init_arm);
|
|
|
|
sysbus_register_dev("pl011_luminary", sizeof(pl011_state),
|
|
|
|
pl011_init_luminary);
|
|
|
|
}
|
|
|
|
|
|
|
|
device_init(pl011_register_devices)
|