/*
 * drivers/char/xhci-dbc.c
 *
 * Xen port for the xue debugger
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * 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 <http://www.gnu.org/licenses/>.
 *
 * Copyright (c) 2019 Assured Information Security.
 */

#include <xen/delay.h>
#include <xen/iommu.h>
#include <xen/mm.h>
#include <xen/param.h>
#include <xen/rangeset.h>
#include <xen/serial.h>
#include <xen/timer.h>
#include <xen/types.h>
#include <asm/fixmap.h>
#include <asm/io.h>
#include <asm/string.h>
#include <asm/system.h>

/* uncomment to have dbc_uart_dump() debug function */
/* #define DBC_DEBUG 1 */

#define DBC_POLL_INTERVAL 100 /* us */

#define DBC_PAGE_SIZE 4096U

/* Supported xHC PCI configurations */
#define DBC_XHC_CLASSC 0xC0330U

/* DbC idVendor and idProduct */
#define DBC_DBC_VENDOR 0x1D6B
#define DBC_DBC_PRODUCT 0x0010
#define DBC_DBC_PROTOCOL 0x0000

#define DBC_DOORBELL_TARGET_SHIFT 8
#define DBC_DOORBELL_TARGET_MASK (0xFF << DBC_DOORBELL_TARGET_SHIFT)

/* DCCTRL fields */
#define DBC_CTRL_DCR 0
#define DBC_CTRL_HOT 2
#define DBC_CTRL_HIT 3
#define DBC_CTRL_DRC 4
#define DBC_CTRL_DCE 31

/* DCPORTSC fields */
#define DBC_PSC_PED 1
#define DBC_PSC_CSC 17
#define DBC_PSC_PRC 21
#define DBC_PSC_PLC 22
#define DBC_PSC_CEC 23

#define DBC_PSC_ACK_MASK                                                       \
    ((1UL << DBC_PSC_CSC) | (1UL << DBC_PSC_PRC) | (1UL << DBC_PSC_PLC) |      \
     (1UL << DBC_PSC_CEC))

#define XHC_EXT_PORT_MAJOR(x)  (((x) >> 24) & 0xff)
#define PORT_RESET             (1 << 4)
#define PORT_CONNECT           (1 << 0)

#define dbc_debug(...) printk("dbc debug: " __VA_ARGS__)
#define dbc_alert(...) printk("dbc alert: " __VA_ARGS__)
#define dbc_error(...) printk("dbc error: " __VA_ARGS__)

/******************************************************************************
 * TRB ring (summarized from the manual):
 *
 * TRB rings are circular queues of TRBs shared between the xHC and the driver.
 * Each ring has one producer and one consumer. The DbC has one event
 * ring and two transfer rings; one IN and one OUT.
 *
 * The DbC hardware is the producer on the event ring, and
 * dbc driver is the consumer. This means that event TRBs are read-only from
 * the dbc driver.
 *
 * OTOH, dbc drive is the producer of transfer TRBs on the two transfer
 * rings, so dbc driver enqueues transfers, and the hardware dequeues
 * them. The dequeue pointer of a transfer ring is read by
 * dbc driver by examining the latest transfer event TRB on the event ring. The
 * transfer event TRB contains the address of the transfer TRB that generated
 * the event.
 *
 * To make each transfer ring circular, the last TRB must be a link TRB, which
 * points to the beginning of the next queue. Note that this implementation
 * does not support multiple segments, so each link TRB points back to the
 * beginning of its own segment.
 ******************************************************************************/

/* TRB types */
enum {
    XHCI_TRB_NORM = 1,
    XHCI_TRB_LINK = 6,
    XHCI_TRB_TFRE = 32,
    XHCI_TRB_PSCE = 34
};

/* TRB completion codes */
enum {
    XHCI_TRB_CC_SUCCESS = 1,
    XHCI_TRB_CC_TRB_ERR = 5,
    XHCI_TRB_CC_SHORT_PACKET = 13,
};

/* DbC endpoint types */
enum {
    XHCI_EP_BULK_OUT = 2,
    XHCI_EP_BULK_IN = 6,
};

/* DMA/MMIO structures */
struct xhci_trb {
    uint64_t params;
    uint32_t status;
    uint32_t ctrl;
};

/* log2(sizeof(struct xhci_trb)) */
#define XHCI_TRB_SHIFT 4

struct xhci_erst_segment {
    uint64_t base;
    uint16_t size;
    uint8_t rsvdz[6];
};

/* Arbitrary length, must fit every DBC_STRING_* */
#define MAX_STRING_LENGTH 16

#define DBC_STRINGS_COUNT 4
#define DBC_STRING_LANGID "\x09\x04"
#define DBC_STRING_MANUFACTURER "Xen"
#define DBC_STRING_PRODUCT "Debug console"
#define DBC_STRING_SERIAL "0"

#define XHCI_DT_STRING 3

struct xhci_string_descriptor {
    uint8_t size;
    uint8_t type;
    uint16_t string[MAX_STRING_LENGTH];
};

#define DBC_CTX_SIZE 16
#define DBC_CTX_BYTES (DBC_CTX_SIZE * 4)

struct xhci_dbc_ctx {
    union {
        uint32_t info[DBC_CTX_SIZE];
        struct {
            uint64_t string0_ptr;
            uint64_t manufacturer_ptr;
            uint64_t product_ptr;
            uint64_t serial_ptr;
            uint8_t string0_size;
            uint8_t manufacturer_size;
            uint8_t product_size;
            uint8_t serial_size;
        };
    };
    uint32_t ep_out[DBC_CTX_SIZE];
    uint32_t ep_in[DBC_CTX_SIZE];
};

struct dbc_reg {
    uint32_t id;
    uint32_t db;
    uint32_t erstsz;
    uint32_t rsvdz;
    uint64_t erstba;
    uint64_t erdp;
    uint32_t ctrl;
    uint32_t st;
    uint32_t portsc;
    uint32_t rsvdp;
    uint64_t cp;
    uint32_t ddi1;
    uint32_t ddi2;
};

#define DBC_TRB_MAX_TFR (DBC_PAGE_SIZE << 4)
#define DBC_TRB_PER_PAGE (DBC_PAGE_SIZE / sizeof(struct xhci_trb))

/* Defines the size in bytes of TRB rings as 2^DBC_TRB_RING_ORDER * 4096 */
#ifndef DBC_TRB_RING_ORDER
#define DBC_TRB_RING_ORDER 4
#endif
#define DBC_TRB_RING_CAP (DBC_TRB_PER_PAGE * (1 << DBC_TRB_RING_ORDER))
#define DBC_TRB_RING_BYTES (DBC_TRB_RING_CAP * sizeof(struct xhci_trb))
#define DBC_TRB_RING_MASK (DBC_TRB_RING_BYTES - 1U)

struct xhci_trb_ring {
    struct xhci_trb *trb; /* Array of TRBs */
    uint32_t enq; /* The offset of the enqueue ptr */
    uint32_t deq; /* The offset of the dequeue ptr */
    uint8_t cyc; /* Cycle state toggled on each wrap-around */
    uint8_t db; /* Doorbell target */
    uint64_t dma; /* Physical address (for the device) */
};

#define DBC_DB_OUT 0x0
#define DBC_DB_IN 0x1
#define DBC_DB_INVAL 0xFF

/* Defines the size in bytes of work rings as 2^DBC_WORK_RING_ORDER * 4096 */
#ifndef DBC_WORK_RING_ORDER
#define DBC_WORK_RING_ORDER 3
#endif
#define DBC_WORK_RING_CAP (DBC_PAGE_SIZE * (1 << DBC_WORK_RING_ORDER))
#define DBC_WORK_RING_BYTES DBC_WORK_RING_CAP

#if DBC_WORK_RING_CAP > DBC_TRB_MAX_TFR
#error "DBC_WORK_RING_ORDER must be at most 4"
#endif

struct dbc_work_ring {
    uint8_t *buf;
    uint32_t enq;
    uint32_t deq;
    uint64_t dma;
};

enum xhci_share {
    XHCI_SHARE_HWDOM = 0,
    XHCI_SHARE_NONE,
    XHCI_SHARE_ANY
};

struct dbc {
    struct dbc_reg __iomem *dbc_reg;
    struct xhci_dbc_ctx *dbc_ctx;
    struct xhci_erst_segment *dbc_erst;
    struct xhci_trb_ring dbc_ering;
    struct xhci_trb_ring dbc_oring;
    struct xhci_trb_ring dbc_iring;
    struct dbc_work_ring dbc_owork;
    struct dbc_work_ring dbc_iwork;
    struct xhci_string_descriptor *dbc_str;

    pci_sbdf_t sbdf;
    uint64_t bar_val;
    uint64_t xhc_dbc_offset;
    void __iomem *xhc_mmio;

    bool enable; /* whether dbgp=xhci was set at all */
    bool open;
    bool suspended;
    enum xhci_share share;
    unsigned int xhc_num; /* look for n-th xhc */
    /* state saved across suspend */
    uint16_t pci_cr;
};

static void *dbc_sys_map_xhc(uint64_t phys, size_t size)
{
    size_t i;

    if ( size > MAX_XHCI_PAGES * PAGE_SIZE )
        return NULL;

    size >>= PAGE_SHIFT;

    for ( i = FIX_XHCI_END; i > FIX_XHCI_END - size; i-- )
    {
        set_fixmap_nocache(i, phys);
        phys += PAGE_SIZE;
    }

    /*
     * The fixmap grows downward, so the lowest virt is
     * at the highest index
     */
    return fix_to_virt(FIX_XHCI_END);
}

static bool __init dbc_init_xhc(struct dbc *dbc)
{
    uint32_t bar0;
    uint64_t bar1;
    uint64_t bar_val;
    uint64_t bar_size;
    uint64_t devfn;
    uint16_t cmd;
    size_t xhc_mmio_size;

    if ( dbc->sbdf.sbdf == 0 )
    {
        /*
         * Search PCI bus 0 for the xHC. All the host controllers supported so
         * far are part of the chipset and are on bus 0.
         */
        for ( devfn = 0; devfn < 256; devfn++ )
        {
            pci_sbdf_t sbdf = PCI_SBDF(0, 0, devfn);
            uint8_t hdr = pci_conf_read8(sbdf, PCI_HEADER_TYPE);

            if ( hdr == 0 || hdr == 0x80 )
            {
                if ( (pci_conf_read32(sbdf, PCI_CLASS_REVISION) >> 8) ==
                     DBC_XHC_CLASSC )
                {
                    if ( dbc->xhc_num-- )
                        continue;
                    dbc->sbdf = sbdf;
                    break;
                }
            }
        }
    }
    else
    {
        /* Verify if selected device is really xHC */
        if ( (pci_conf_read32(dbc->sbdf, PCI_CLASS_REVISION) >> 8) !=
             DBC_XHC_CLASSC )
            dbc->sbdf.sbdf = 0;
    }

    if ( !dbc->sbdf.sbdf )
    {
        dbc_error("Compatible xHC not found on bus 0\n");
        return false;
    }

    /* ...we found it, so parse the BAR and map the registers */
    bar0 = pci_conf_read32(dbc->sbdf, PCI_BASE_ADDRESS_0);
    bar1 = pci_conf_read32(dbc->sbdf, PCI_BASE_ADDRESS_1);

    /* IO BARs not allowed; BAR must be 64-bit */
    if ( (bar0 & PCI_BASE_ADDRESS_SPACE) != PCI_BASE_ADDRESS_SPACE_MEMORY ||
         (bar0 & PCI_BASE_ADDRESS_MEM_TYPE_MASK) != PCI_BASE_ADDRESS_MEM_TYPE_64 )
        return false;

    bar_val = (bar1 << 32) | (bar0 & PCI_BASE_ADDRESS_MEM_MASK);
    if ( !bar_val || !(bar_val + (bar_val & -bar_val)) )
    {
        dbc_error("firmware initialization of MMIO BAR required\n");
        return false;
    }

    cmd = pci_conf_read16(dbc->sbdf, PCI_COMMAND);
    pci_conf_write16(dbc->sbdf, PCI_COMMAND, cmd & ~PCI_COMMAND_MEMORY);

    pci_conf_write32(dbc->sbdf, PCI_BASE_ADDRESS_0, 0xFFFFFFFFU);
    pci_conf_write32(dbc->sbdf, PCI_BASE_ADDRESS_1, 0xFFFFFFFFU);
    bar_size = pci_conf_read32(dbc->sbdf, PCI_BASE_ADDRESS_0);
    bar_size |= (uint64_t)pci_conf_read32(dbc->sbdf, PCI_BASE_ADDRESS_1) << 32;
    xhc_mmio_size = ~(bar_size & PCI_BASE_ADDRESS_MEM_MASK) + 1;
    pci_conf_write32(dbc->sbdf, PCI_BASE_ADDRESS_0, bar0);
    pci_conf_write32(dbc->sbdf, PCI_BASE_ADDRESS_1, bar1);

    pci_conf_write16(dbc->sbdf, PCI_COMMAND, cmd);

    dbc->bar_val = bar0 | (bar1 << 32);
    dbc->xhc_mmio = dbc_sys_map_xhc(dbc->bar_val & PCI_BASE_ADDRESS_MEM_MASK,
                                    xhc_mmio_size);

    if ( dbc->xhc_mmio == NULL )
        return false;

    if ( (cmd & PCI_COMMAND_MEMORY) == 0 )
        pci_conf_write16(dbc->sbdf, PCI_COMMAND, cmd | PCI_COMMAND_MEMORY);

    return true;
}

/**
 * The first register of the debug capability is found by traversing the
 * host controller's capability list (xcap) until a capability
 * with ID = 0xA is found. The xHCI capability list begins at address
 * mmio + (HCCPARAMS1[31:16] << 2).
 */
static struct dbc_reg __iomem *xhci_find_dbc(struct dbc *dbc)
{
    const uint32_t __iomem *xcap;
    uint32_t xcap_val;
    uint32_t next;
    uint32_t id = 0;
    const void __iomem *mmio = dbc->xhc_mmio;
    const uint32_t __iomem *hccp1 = mmio + 0x10;
    const uint32_t DBC_ID = 0xA;
    int ttl = 48;

    xcap = mmio;
    /*
     * This is initially an offset to the first capability. All the offsets
     * (both in HCCP1 and then next capability pointer) are dword-based.
     */
    next = readl(hccp1) >> 16;

    while ( id != DBC_ID && next && ttl-- )
    {
        xcap += next;
        xcap_val = readl(xcap);
        id = xcap_val & 0xFF;
        next = (xcap_val & 0xFF00) >> 8;
    }

    if ( id != DBC_ID )
        return NULL;

    dbc->xhc_dbc_offset = (uint64_t)xcap - (uint64_t)mmio;
    return (struct dbc_reg __iomem *)xcap;
}

/**
 * Fields with the same interpretation for every TRB type (section 4.11.1).
 * These are the fields defined in the TRB template, minus the ENT bit. That
 * bit is the toggle cycle bit in link TRBs, so it shouldn't be in the
 * template.
 */
static uint32_t xhci_trb_cyc(const struct xhci_trb *trb)
{
    return trb->ctrl & 0x1;
}

static uint32_t xhci_trb_type(const struct xhci_trb *trb)
{
    return (trb->ctrl & 0xFC00) >> 10;
}

static void xhci_trb_set_cyc(struct xhci_trb *trb, uint32_t c)
{
    trb->ctrl &= ~0x1U;
    trb->ctrl |= c;
}

static void xhci_trb_set_type(struct xhci_trb *trb, uint32_t t)
{
    trb->ctrl &= ~0xFC00U;
    trb->ctrl |= (t << 10);
}

/* Fields for normal TRBs */
static void xhci_trb_norm_set_buf(struct xhci_trb *trb, uint64_t addr)
{
    trb->params = addr;
}

static void xhci_trb_norm_set_len(struct xhci_trb *trb, uint32_t len)
{
    trb->status &= ~0x1FFFFU;
    trb->status |= len;
}

static void xhci_trb_norm_set_ioc(struct xhci_trb *trb)
{
    trb->ctrl |= 0x20;
}

static uint64_t xhci_trb_norm_buf(const struct xhci_trb *trb)
{
    return trb->params;
}

static uint32_t xhci_trb_norm_len(const struct xhci_trb *trb)
{
    return trb->status & 0x1FFFF;
}

/**
 * Fields for Transfer Event TRBs (see section 6.4.2.1). Note that event
 * TRBs are read-only from software
 */
static uint64_t xhci_trb_tfre_ptr(const struct xhci_trb *trb)
{
    return trb->params;
}

static uint32_t xhci_trb_tfre_cc(const struct xhci_trb *trb)
{
    return trb->status >> 24;
}

/* Amount of data _not_ transferred */
static uint32_t xhci_trb_tfre_len(const struct xhci_trb *trb)
{
    return trb->status & 0x1FFFF;
}

/* Fields for link TRBs (section 6.4.4.1) */
static void xhci_trb_link_set_rsp(struct xhci_trb *trb, uint64_t rsp)
{
    trb->params = rsp;
}

static void xhci_trb_link_set_tc(struct xhci_trb *trb)
{
    trb->ctrl |= 0x2;
}

static void xhci_trb_ring_init(const struct dbc *dbc,
                              struct xhci_trb_ring *ring, int producer,
                              int doorbell)
{
    memset(ring->trb, 0, DBC_TRB_RING_CAP * sizeof(ring->trb[0]));

    ring->enq = 0;
    ring->deq = 0;
    ring->cyc = 1;
    ring->db = (uint8_t)doorbell;
    ring->dma = virt_to_maddr(ring->trb);

    /*
     * Producer implies transfer ring, so we have to place a
     * link TRB at the end that points back to trb[0]
     */
    if ( producer )
    {
        struct xhci_trb *trb = &ring->trb[DBC_TRB_RING_CAP - 1];
        xhci_trb_set_type(trb, XHCI_TRB_LINK);
        xhci_trb_link_set_tc(trb);
        xhci_trb_link_set_rsp(trb, virt_to_maddr(ring->trb));
    }
}

static bool xhci_trb_ring_full(const struct xhci_trb_ring *ring)
{
    return ((ring->enq + 1) & (DBC_TRB_RING_CAP - 1)) == ring->deq;
}

static unsigned int xhci_trb_ring_size(const struct xhci_trb_ring *ring)
{
    if ( ring->enq >= ring->deq )
        return ring->enq - ring->deq;

    return DBC_TRB_RING_CAP - ring->deq + ring->enq;
}

static bool dbc_work_ring_full(const struct dbc_work_ring *ring)
{
    return ((ring->enq + 1) & (DBC_WORK_RING_CAP - 1)) == ring->deq;
}

static unsigned int dbc_work_ring_size(const struct dbc_work_ring *ring)
{
    if ( ring->enq >= ring->deq )
        return ring->enq - ring->deq;

    return DBC_WORK_RING_CAP - ring->deq + ring->enq;
}

static unsigned int dbc_work_ring_space_to_end(const struct dbc_work_ring *ring)
{
    if ( ring->enq >= ring->deq )
        return DBC_WORK_RING_CAP - ring->enq;

    return ring->deq - ring->enq;
}

static void dbc_ring_doorbell(struct dbc *dbc, int doorbell)
{
    uint32_t __iomem *db_reg = &dbc->dbc_reg->db;
    uint32_t db = (readl(db_reg) & ~DBC_DOORBELL_TARGET_MASK) |
                  (doorbell << DBC_DOORBELL_TARGET_SHIFT);

    writel(db, db_reg);
}

static void dbc_push_trb(struct dbc *dbc, struct xhci_trb_ring *ring,
                         uint64_t dma, uint64_t len)
{
    struct xhci_trb trb;

    if ( ring->enq == DBC_TRB_RING_CAP - 1 )
    {
        /*
         * We have to make sure the xHC processes the link TRB in order
         * for wrap-around to work properly. We do this by marking the
         * xHC as owner of the link TRB by setting the TRB's cycle bit
         * (just like with normal TRBs).
         */
        struct xhci_trb *link = &ring->trb[ring->enq];
        xhci_trb_set_cyc(link, ring->cyc);

        ring->enq = 0;
        ring->cyc ^= 1;
    }

    trb.params = 0;
    trb.status = 0;
    trb.ctrl = 0;

    xhci_trb_set_type(&trb, XHCI_TRB_NORM);
    xhci_trb_set_cyc(&trb, ring->cyc);

    xhci_trb_norm_set_buf(&trb, dma);
    xhci_trb_norm_set_len(&trb, (uint32_t)len);
    xhci_trb_norm_set_ioc(&trb);

    ring->trb[ring->enq++] = trb;
    cache_flush(&ring->trb[ring->enq - 1], sizeof(trb));
}

static unsigned int dbc_push_work(struct dbc *dbc, struct dbc_work_ring *ring,
                             const char *buf, unsigned int len)
{
    unsigned int i = 0;
    unsigned int end, start = ring->enq;

    while ( !dbc_work_ring_full(ring) && i < len )
    {
        ring->buf[ring->enq] = buf[i++];
        ring->enq = (ring->enq + 1) & (DBC_WORK_RING_CAP - 1);
    }

    end = ring->enq;

    if ( end > start )
        cache_flush(&ring->buf[start], end - start);
    else if ( i > 0 )
    {
        cache_flush(&ring->buf[start], DBC_WORK_RING_CAP - start);
        cache_flush(&ring->buf[0], end);
    }

    return i;
}

static void dbc_rx_trb(struct dbc *dbc, struct xhci_trb *trb,
                       uint64_t not_transferred)
{
    struct dbc_work_ring *ring = &dbc->dbc_iwork;
    unsigned int rx_len;
    unsigned int end, start = ring->enq;

    if ( xhci_trb_type(trb) != XHCI_TRB_NORM )
        /* Can be Link TRB for example. */
        return;

    ASSERT(xhci_trb_norm_buf(trb) == ring->dma + ring->enq);
    ASSERT(xhci_trb_norm_len(trb) >= not_transferred);
    rx_len = xhci_trb_norm_len(trb) - not_transferred;

    /* It can hit the ring end, but should not wrap around. */
    ASSERT(ring->enq + rx_len <= DBC_WORK_RING_CAP);
    ring->enq = (ring->enq + rx_len) & (DBC_WORK_RING_CAP - 1);

    end = ring->enq;

    if ( end > start )
        cache_flush(&ring->buf[start], end - start);
}

static void dbc_pop_events(struct dbc *dbc)
{
    struct dbc_reg *reg = dbc->dbc_reg;
    struct xhci_trb_ring *er = &dbc->dbc_ering;
    struct xhci_trb_ring *tr = &dbc->dbc_oring;
    struct xhci_trb_ring *ir = &dbc->dbc_iring;
    struct xhci_trb *event = &er->trb[er->deq];
    uint64_t erdp = readq(&reg->erdp);
    uint32_t portsc;
    uint64_t event_ptr;
    unsigned int trb_idx;

    BUILD_BUG_ON((1 << XHCI_TRB_SHIFT) != sizeof(struct xhci_trb));

    rmb();

    while ( xhci_trb_cyc(event) == er->cyc )
    {
        switch (xhci_trb_type(event))
        {
        case XHCI_TRB_TFRE:
            event_ptr = xhci_trb_tfre_ptr(event);
            /*
             * trb_idx is just completed TRB, so set the dequeue ptr one
             * position further.
             */
            if ( event_ptr - tr->dma < DBC_TRB_RING_BYTES )
            {
                trb_idx = (event_ptr - tr->dma) >> XHCI_TRB_SHIFT;
                tr->deq = (trb_idx + 1) & (DBC_TRB_RING_CAP - 1);
            }
            else if ( event_ptr - ir->dma < DBC_TRB_RING_BYTES )
            {
                trb_idx = (event_ptr - ir->dma) >> XHCI_TRB_SHIFT;
                if ( xhci_trb_tfre_cc(event) == XHCI_TRB_CC_SUCCESS ||
                     xhci_trb_tfre_cc(event) == XHCI_TRB_CC_SHORT_PACKET )
                    dbc_rx_trb(dbc, &ir->trb[trb_idx], xhci_trb_tfre_len(event));
                ir->deq = (trb_idx + 1) & (DBC_TRB_RING_CAP - 1);
            }
            else
                dbc_alert("event: TRB 0x%lx not found in any ring\n",
                          event_ptr);
            break;
        case XHCI_TRB_PSCE:
            portsc = readl(&reg->portsc);
            portsc |= DBC_PSC_ACK_MASK & portsc;
            writel(portsc, &reg->portsc);
            break;
        default:
            break;
        }

        er->cyc = (er->deq == DBC_TRB_RING_CAP - 1) ? er->cyc ^ 1 : er->cyc;
        er->deq = (er->deq + 1) & (DBC_TRB_RING_CAP - 1);
        event = &er->trb[er->deq];
    }

    erdp = er->dma + (er->deq << XHCI_TRB_SHIFT);
    wmb();
    writeq(erdp, &reg->erdp);
}

/**
 * dbc_init_ep
 *
 * Initializes the endpoint as specified in sections 7.6.3.2 and 7.6.9.2.
 * Each endpoint is Bulk, so the MaxPStreams, LSA, HID, CErr, FE,
 * Interval, Mult, and Max ESIT Payload fields are all 0.
 *
 * Max packet size: 1024
 * Max burst size: debug mbs (from dbc_reg->ctrl register)
 * EP type: 2 for OUT bulk, 6 for IN bulk
 * TR dequeue ptr: physical base address of transfer ring
 * Avg TRB length: software defined (see 4.14.1.1 for suggested defaults)
 */
static void dbc_init_ep(uint32_t *ep, uint64_t mbs, uint32_t type,
                        uint64_t ring_dma)
{
    memset(ep, 0, DBC_CTX_BYTES);

    ep[1] = (1024 << 16) | ((uint32_t)mbs << 8) | (type << 3);
    ep[2] = (uint32_t)ring_dma | 1;
    ep[3] = ring_dma >> 32;
    ep[4] = 3 * 1024;
}

static void dbc_init_string_single(struct xhci_string_descriptor *string,
                                   const char *ascii_str,
                                   uint64_t *str_ptr,
                                   uint8_t *str_size_ptr)
{
    size_t i, len = strlen(ascii_str);

    string->size = offsetof(typeof(*string), string) + len * 2;
    string->type = XHCI_DT_STRING;
    /* ASCII to UTF16 conversion */
    for ( i = 0; i < len; i++ )
        string->string[i] = ascii_str[i];
    *str_ptr = virt_to_maddr(string);
    *str_size_ptr = string->size;
}

/* Initialize the DbC info with USB string descriptor addresses */
static void dbc_init_strings(struct dbc *dbc, uint32_t *info)
{
    BUILD_BUG_ON(sizeof(DBC_STRING_LANGID) > MAX_STRING_LENGTH);
    BUILD_BUG_ON(sizeof(DBC_STRING_MANUFACTURER) > MAX_STRING_LENGTH);
    BUILD_BUG_ON(sizeof(DBC_STRING_PRODUCT) > MAX_STRING_LENGTH);
    BUILD_BUG_ON(sizeof(DBC_STRING_SERIAL) > MAX_STRING_LENGTH);

    dbc_init_string_single(&dbc->dbc_str[0], DBC_STRING_LANGID,
                           &dbc->dbc_ctx->string0_ptr,
                           &dbc->dbc_ctx->string0_size);
    dbc_init_string_single(&dbc->dbc_str[1], DBC_STRING_MANUFACTURER,
                           &dbc->dbc_ctx->manufacturer_ptr,
                           &dbc->dbc_ctx->manufacturer_size);
    dbc_init_string_single(&dbc->dbc_str[2], DBC_STRING_PRODUCT,
                           &dbc->dbc_ctx->product_ptr,
                           &dbc->dbc_ctx->product_size);
    dbc_init_string_single(&dbc->dbc_str[3], DBC_STRING_SERIAL,
                           &dbc->dbc_ctx->serial_ptr,
                           &dbc->dbc_ctx->serial_size);
}

static void dbc_do_reset_debug_port(struct dbc *dbc,
                                    unsigned int id, unsigned int count)
{
    uint32_t __iomem *ops_reg;
    uint32_t __iomem *portsc;
    uint32_t val, cap_length;
    unsigned int i;

    cap_length = readl(dbc->xhc_mmio) & 0xff;
    ops_reg = dbc->xhc_mmio + cap_length;

    id--;
    for ( i = id; i < (id + count); i++ )
    {
        portsc = ops_reg + 0x100 + i * 0x4;
        val = readl(portsc);
        if ( !(val & PORT_CONNECT) )
            writel(val | PORT_RESET, portsc);
    }
}

static void dbc_reset_debug_port(struct dbc *dbc)
{
    uint32_t val, port_offset, port_count;
    uint32_t __iomem *xcap;
    uint32_t xcap_val;
    uint32_t next;
    uint32_t id;
    uint8_t __iomem *mmio = (uint8_t *)dbc->xhc_mmio;
    uint32_t __iomem *hccp1 = (uint32_t *)(mmio + 0x10);
    const uint32_t PROTOCOL_ID = 0x2;
    int ttl = 48;

    xcap = (uint32_t *)dbc->xhc_mmio;
    /*
     * This is initially an offset to the first capability. All the offsets
     * (both in HCCP1 and then next capability pointer are dword-based.
     */
    next = readl(hccp1) >> 16;

    /*
     * Look for "supported protocol" capability, major revision 3.
     * There may be multiple of them.
     */
    while ( next && ttl-- )
    {
        xcap += next;
        xcap_val = readl(xcap);
        id = xcap_val & 0xFF;
        next = (xcap_val & 0xFF00) >> 8;

        if ( id != PROTOCOL_ID )
            continue;

        if ( XHC_EXT_PORT_MAJOR(xcap_val) != 0x3 )
            continue;

        /* extract ports offset and count from the capability structure */
        val = readl(xcap + 2);
        port_offset = val & 0xff;
        port_count = (val >> 8) & 0xff;

        /* and reset them all */
        dbc_do_reset_debug_port(dbc, port_offset, port_count);
    }
}

static void dbc_enable_dbc(struct dbc *dbc)
{
    struct dbc_reg *reg = dbc->dbc_reg;

    wmb();
    writel(readl(&reg->ctrl) | (1U << DBC_CTRL_DCE), &reg->ctrl);
    wmb();

    while ( (readl(&reg->ctrl) & (1U << DBC_CTRL_DCE)) == 0 )
        cpu_relax();

    /* reset ports on initial open, to force re-enumerating by the host */
    if ( !dbc->open )
        dbc_reset_debug_port(dbc);

    wmb();
    writel(readl(&reg->portsc) | (1U << DBC_PSC_PED), &reg->portsc);
    wmb();

    while ( (readl(&reg->ctrl) & (1U << DBC_CTRL_DCR)) == 0 )
        cpu_relax();
}

static void dbc_disable_dbc(struct dbc *dbc)
{
    struct dbc_reg *reg = dbc->dbc_reg;

    writel(readl(&reg->portsc) & ~(1U << DBC_PSC_PED), &reg->portsc);
    wmb();
    writel(readl(&reg->ctrl) & ~(1U << DBC_CTRL_DCE), &reg->ctrl);

    while ( readl(&reg->ctrl) & (1U << DBC_CTRL_DCE) )
        cpu_relax();
}

static int dbc_init_dbc(struct dbc *dbc)
{
    uint64_t erdp = 0;
    uint64_t mbs = 0;
    uint16_t cmd;
    struct dbc_reg *reg = xhci_find_dbc(dbc);

    if ( !reg )
        return 0;

    dbc->dbc_reg = reg;
    dbc_disable_dbc(dbc);

    xhci_trb_ring_init(dbc, &dbc->dbc_ering, 0, DBC_DB_INVAL);
    xhci_trb_ring_init(dbc, &dbc->dbc_oring, 1, DBC_DB_OUT);
    xhci_trb_ring_init(dbc, &dbc->dbc_iring, 1, DBC_DB_IN);

    erdp = virt_to_maddr(dbc->dbc_ering.trb);
    if ( !erdp )
        return 0;

    memset(dbc->dbc_erst, 0, sizeof(*dbc->dbc_erst));
    dbc->dbc_erst->base = erdp;
    dbc->dbc_erst->size = DBC_TRB_RING_CAP;

    mbs = (readl(&reg->ctrl) & 0xFF0000) >> 16;

    memset(dbc->dbc_ctx, 0, sizeof(*dbc->dbc_ctx));
    dbc_init_strings(dbc, dbc->dbc_ctx->info);
    dbc_init_ep(dbc->dbc_ctx->ep_out, mbs, XHCI_EP_BULK_OUT,
                dbc->dbc_oring.dma);
    dbc_init_ep(dbc->dbc_ctx->ep_in, mbs, XHCI_EP_BULK_IN,
                dbc->dbc_iring.dma);

    writel(1, &reg->erstsz);
    writeq(virt_to_maddr(dbc->dbc_erst), &reg->erstba);
    writeq(erdp, &reg->erdp);
    writeq(virt_to_maddr(dbc->dbc_ctx), &reg->cp);
    writel((DBC_DBC_VENDOR << 16) | DBC_DBC_PROTOCOL, &reg->ddi1);
    writel(DBC_DBC_PRODUCT, &reg->ddi2);

    cache_flush(dbc->dbc_ctx, sizeof(*dbc->dbc_ctx));
    cache_flush(dbc->dbc_erst, sizeof(*dbc->dbc_erst));
    cache_flush(dbc->dbc_ering.trb, DBC_TRB_RING_BYTES);
    cache_flush(dbc->dbc_oring.trb, DBC_TRB_RING_BYTES);
    cache_flush(dbc->dbc_iring.trb, DBC_TRB_RING_BYTES);
    cache_flush(dbc->dbc_owork.buf, DBC_WORK_RING_BYTES);

    cmd = pci_conf_read16(dbc->sbdf, PCI_COMMAND);
    pci_conf_write16(dbc->sbdf, PCI_COMMAND, cmd | PCI_COMMAND_MASTER);

    return 1;
}

static void dbc_init_work_ring(struct dbc *dbc,
                               struct dbc_work_ring *wrk)
{
    wrk->enq = 0;
    wrk->deq = 0;
    wrk->dma = virt_to_maddr(wrk->buf);
}

/**
 * Initialize the DbC and enable it for transfers. First map in the DbC
 * registers from the host controller's MMIO region. Then allocate and map
 * DMA for the event and transfer rings. Finally, enable the DbC for
 * the host to enumerate. On success, the DbC is ready to send packets.
 *
 * @param dbc the dbc to open (!= NULL)
 * @return true iff dbc_open succeeded
 */
static bool __init dbc_open(struct dbc *dbc)
{
    if ( !dbc )
        return false;

    if ( !dbc_init_xhc(dbc) )
        return false;

    if ( !dbc_init_dbc(dbc) )
        return false;

    dbc_init_work_ring(dbc, &dbc->dbc_owork);
    dbc_init_work_ring(dbc, &dbc->dbc_iwork);
    dbc_enable_dbc(dbc);
    dbc->open = true;

    return true;
}

/*
 * Ensure DbC is still running, handle events, and possibly
 * re-enable/re-configure if cable was re-plugged or controller was reset.
 * Returns true if DbC is operational.
 */
static bool dbc_ensure_running(struct dbc *dbc)
{
    struct dbc_reg *reg = dbc->dbc_reg;
    uint32_t ctrl;
    uint16_t cmd;

    if ( dbc->suspended )
        return false;

    if ( dbc->share != XHCI_SHARE_NONE )
    {
        /*
         * Re-enable memory decoding and later bus mastering, if dom0 (or
         * other) disabled it in the meantime.
         */
        cmd = pci_conf_read16(dbc->sbdf, PCI_COMMAND);
        if ( !(cmd & PCI_COMMAND_MEMORY) )
        {
            cmd |= PCI_COMMAND_MEMORY;
            pci_conf_write16(dbc->sbdf, PCI_COMMAND, cmd);
        }

        /*
         * FIXME: Make Linux coordinate XHCI reset, so the DbC driver can
         * prepare for it properly, instead of only detecting it after the
         * fact. See EHCI driver for similar handling.
         */
        if ( dbc->open && !(readl(&reg->ctrl) & (1U << DBC_CTRL_DCE)) )
        {
            if ( !dbc_init_dbc(dbc) )
                return false;

            dbc_init_work_ring(dbc, &dbc->dbc_owork);
            dbc_enable_dbc(dbc);
        }
        else
        {
            /*
             * dbc_init_dbc() takes care about it, so check only if it wasn't
             * called.
             */
            cmd = pci_conf_read16(dbc->sbdf, PCI_COMMAND);
            if ( !(cmd & PCI_COMMAND_MASTER) )
            {
                cmd |= PCI_COMMAND_MASTER;
                pci_conf_write16(dbc->sbdf, PCI_COMMAND, cmd);
            }
        }
    }

    dbc_pop_events(dbc);

    ctrl = readl(&reg->ctrl);
    if ( !(ctrl & (1U << DBC_CTRL_DCR)) )
    {
        return false;
    }

    if ( ctrl & (1U << DBC_CTRL_DRC) )
    {
        writel(ctrl | (1U << DBC_CTRL_DRC), &reg->ctrl);
        writel(readl(&reg->portsc) | (1U << DBC_PSC_PED), &reg->portsc);
        wmb();
        dbc_ring_doorbell(dbc, dbc->dbc_iring.db);
        dbc_ring_doorbell(dbc, dbc->dbc_oring.db);
    }

    return true;
}

/**
 * Commit the pending transfer TRBs to the DbC. This notifies
 * the DbC of any previously-queued data on the work ring and
 * rings the doorbell.
 *
 * @param dbc the dbc to flush
 * @param trb the ring containing the TRBs to transfer
 * @param wrk the work ring containing data to be flushed
 */
static void dbc_flush(struct dbc *dbc, struct xhci_trb_ring *trb,
                      struct dbc_work_ring *wrk)
{
    if ( xhci_trb_ring_full(trb) )
        return;

    if ( wrk->enq == wrk->deq )
        return;
    else if ( wrk->enq > wrk->deq )
    {
        dbc_push_trb(dbc, trb, wrk->dma + wrk->deq, wrk->enq - wrk->deq);
        wrk->deq = wrk->enq;
    }
    else
    {
        dbc_push_trb(dbc, trb, wrk->dma + wrk->deq,
                     DBC_WORK_RING_CAP - wrk->deq);
        wrk->deq = 0;
        if ( wrk->enq > 0 && !xhci_trb_ring_full(trb) )
        {
            dbc_push_trb(dbc, trb, wrk->dma, wrk->enq);
            wrk->deq = wrk->enq;
        }
    }

    wmb();
    dbc_ring_doorbell(dbc, trb->db);
}

/**
 * Ensure DbC has a pending transfer TRB to receive data into.
 *
 * @param dbc the dbc to flush
 * @param trb the ring for the TRBs to transfer
 * @param wrk the work ring to receive data into
 */
static void dbc_enqueue_in(struct dbc *dbc, struct xhci_trb_ring *trb,
                           struct dbc_work_ring *wrk)
{
    struct dbc_reg *reg = dbc->dbc_reg;
    uint32_t db = (readl(&reg->db) & 0xFFFF00FFU) | (trb->db << 8);

    /* Check if there is already queued TRB */
    if ( xhci_trb_ring_size(trb) >= 1 )
        return;

    if ( dbc_work_ring_full(wrk) )
        return;

    dbc_push_trb(dbc, trb, wrk->dma + wrk->enq,
                 dbc_work_ring_space_to_end(wrk));

    wmb();
    writel(db, &reg->db);
}

/**
 * Queue a single character to the DbC. A transfer TRB will be created
 * if the character is a newline and the DbC will be notified that data is
 * available for writing to the debug host.
 *
 * @param dbc the dbc to write to
 * @param c the character to write
 * @return the number of bytes written
 */
static int64_t dbc_putc(struct dbc *dbc, char c)
{
    if ( !dbc_push_work(dbc, &dbc->dbc_owork, &c, 1) )
        return 0;

    if ( !dbc_ensure_running(dbc) )
        return 1;

    if ( c == '\n' )
        dbc_flush(dbc, &dbc->dbc_oring, &dbc->dbc_owork);

    return 1;
}

static int dbc_getc(struct dbc *dbc, char *c)
{
    struct dbc_work_ring *wrk = &dbc->dbc_iwork;

    if ( dbc_work_ring_size(wrk) == 0 )
        return 0;

    *c = wrk->buf[wrk->deq];
    wrk->deq = (wrk->deq + 1) & (DBC_WORK_RING_CAP - 1);

    return 1;
}

struct dbc_uart {
    struct dbc dbc;
    struct timer timer;
    spinlock_t *lock;
};

static struct dbc_uart dbc_uart;

static void cf_check dbc_uart_poll(void *data)
{
    struct serial_port *port = data;
    struct dbc_uart *uart = port->uart;
    struct dbc *dbc = &uart->dbc;
    unsigned long flags = 0;

    if ( spin_trylock_irqsave(&port->tx_lock, flags) )
    {
        if ( dbc_ensure_running(dbc) )
        {
            dbc_flush(dbc, &dbc->dbc_oring, &dbc->dbc_owork);
            dbc_enqueue_in(dbc, &dbc->dbc_iring, &dbc->dbc_iwork);
        }
        spin_unlock_irqrestore(&port->tx_lock, flags);
    }

    while ( dbc_work_ring_size(&dbc->dbc_iwork) )
        serial_rx_interrupt(port);

    serial_tx_interrupt(port);

    set_timer(&uart->timer, NOW() + MICROSECS(DBC_POLL_INTERVAL));
}

static void __init cf_check dbc_uart_init_preirq(struct serial_port *port)
{
    struct dbc_uart *uart = port->uart;
    uart->lock = &port->tx_lock;
}

static void __init cf_check dbc_uart_init_postirq(struct serial_port *port)
{
    struct dbc_uart *uart = port->uart;

    serial_async_transmit(port);
    init_timer(&uart->timer, dbc_uart_poll, port, 0);
    set_timer(&uart->timer, NOW() + MILLISECS(1));

    switch ( uart->dbc.share )
    {
    case XHCI_SHARE_NONE:
        if ( pci_ro_device(0, uart->dbc.sbdf.bus, uart->dbc.sbdf.devfn) )
            printk(XENLOG_WARNING
                   "Failed to mark read-only %pp used for XHCI console\n",
                   &uart->dbc.sbdf);
        break;
    case XHCI_SHARE_HWDOM:
        if ( pci_hide_device(0, uart->dbc.sbdf.bus, uart->dbc.sbdf.devfn) )
            printk(XENLOG_WARNING
                   "Failed to hide %pp used for XHCI console\n",
                   &uart->dbc.sbdf);
        break;
    case XHCI_SHARE_ANY:
        /* Do not hide. */
        break;
    }
#ifdef CONFIG_X86
    if ( subpage_mmio_ro_add(
             (uart->dbc.bar_val & PCI_BASE_ADDRESS_MEM_MASK) +
              uart->dbc.xhc_dbc_offset,
             sizeof(*uart->dbc.dbc_reg)) )
    {
        printk(XENLOG_WARNING
               "Error while marking MMIO range of XHCI console as R/O, "
               "making the whole device R/O (share=no)\n");
        uart->dbc.share = XHCI_SHARE_NONE;
        if ( pci_ro_device(0, uart->dbc.sbdf.bus, uart->dbc.sbdf.devfn) )
            printk(XENLOG_WARNING
                   "Failed to mark read-only %pp used for XHCI console\n",
                   &uart->dbc.sbdf);
        if ( rangeset_add_range(mmio_ro_ranges,
                 PFN_DOWN((uart->dbc.bar_val & PCI_BASE_ADDRESS_MEM_MASK) +
                          uart->dbc.xhc_dbc_offset),
                 PFN_UP((uart->dbc.bar_val & PCI_BASE_ADDRESS_MEM_MASK) +
                        uart->dbc.xhc_dbc_offset +
                        sizeof(*uart->dbc.dbc_reg)) - 1) )
            printk(XENLOG_INFO
                   "Error while adding MMIO range of device to mmio_ro_ranges\n");
    }
#endif
}

static int cf_check dbc_uart_tx_ready(struct serial_port *port)
{
    struct dbc_uart *uart = port->uart;
    struct dbc *dbc = &uart->dbc;

    return DBC_WORK_RING_CAP - dbc_work_ring_size(&dbc->dbc_owork);
}

static void cf_check dbc_uart_putc(struct serial_port *port, char c)
{
    struct dbc_uart *uart = port->uart;
    dbc_putc(&uart->dbc, c);
}

static int cf_check dbc_uart_getc(struct serial_port *port, char *c)
{
    struct dbc_uart *uart = port->uart;
    return dbc_getc(&uart->dbc, c);
}

static void cf_check dbc_uart_flush(struct serial_port *port)
{
    s_time_t goal;
    struct dbc_uart *uart = port->uart;
    struct dbc *dbc = &uart->dbc;

    if ( dbc_ensure_running(dbc) )
        dbc_flush(dbc, &dbc->dbc_oring, &dbc->dbc_owork);

    goal = NOW() + MICROSECS(DBC_POLL_INTERVAL);
    if ( uart->timer.expires > goal )
        set_timer(&uart->timer, goal);
}

#ifdef CONFIG_SYSTEM_SUSPEND

static void cf_check dbc_uart_suspend(struct serial_port *port)
{
    struct dbc_uart *uart = port->uart;
    struct dbc *dbc = &uart->dbc;

    dbc_pop_events(dbc);
    stop_timer(&uart->timer);
    dbc->pci_cr = pci_conf_read16(dbc->sbdf, PCI_COMMAND);
    dbc->suspended = true;
}

static void cf_check dbc_uart_resume(struct serial_port *port)
{
    struct dbc_uart *uart = port->uart;
    struct dbc *dbc = &uart->dbc;

    pci_conf_write32(dbc->sbdf, PCI_BASE_ADDRESS_0, dbc->bar_val);
    pci_conf_write32(dbc->sbdf, PCI_BASE_ADDRESS_1, dbc->bar_val >> 32);
    pci_conf_write16(dbc->sbdf, PCI_COMMAND, dbc->pci_cr);

    if ( !dbc_init_dbc(dbc) )
    {
        dbc_error("resume failed\n");
        return;
    }

    dbc_enable_dbc(dbc);
    dbc->suspended = false;
    dbc_flush(dbc, &dbc->dbc_oring, &dbc->dbc_owork);
    set_timer(&uart->timer, NOW() + MICROSECS(DBC_POLL_INTERVAL));
}

#endif /* CONFIG_SYSTEM_SUSPEND */

static struct uart_driver dbc_uart_driver = {
    .init_preirq = dbc_uart_init_preirq,
    .init_postirq = dbc_uart_init_postirq,
    .tx_ready = dbc_uart_tx_ready,
    .putc = dbc_uart_putc,
    .getc = dbc_uart_getc,
    .flush = dbc_uart_flush,
#ifdef CONFIG_SYSTEM_SUSPEND
    .suspend = dbc_uart_suspend,
    .resume = dbc_uart_resume,
#endif
};

/* Those are accessed via DMA. */
struct dbc_dma_bufs {
    struct xhci_trb evt_trb[DBC_TRB_RING_CAP];
    struct xhci_trb out_trb[DBC_TRB_RING_CAP];
    struct xhci_trb in_trb[DBC_TRB_RING_CAP];
    uint8_t out_wrk_buf[DBC_WORK_RING_CAP];
    uint8_t in_wrk_buf[DBC_WORK_RING_CAP];
    struct xhci_erst_segment erst __aligned(16);
    struct xhci_dbc_ctx ctx __aligned(16);
    struct xhci_string_descriptor str_buf[DBC_STRINGS_COUNT];
    /*
     * Don't place anything else on this page - it will be
     * DMA-reachable by the USB controller.
     */
};
static struct dbc_dma_bufs __section(".bss.page_aligned") __aligned(PAGE_SIZE)
    dbc_dma_bufs;

static int __init cf_check xhci_parse_dbgp(const char *opt_dbgp)
{
    struct dbc_uart *uart = &dbc_uart;
    struct dbc *dbc = &uart->dbc;
    const char *e, *opt;
    int val;

    if ( strncmp(opt_dbgp, "xhci", 4) )
        return 0;

    memset(dbc, 0, sizeof(*dbc));

    e = &opt_dbgp[4];
    if ( isdigit(opt_dbgp[4]) )
    {
        dbc->xhc_num = simple_strtoul(opt_dbgp + 4, &e, 10);
    }
    else if ( strncmp(opt_dbgp + 4, "@pci", 4) == 0 )
    {
        unsigned int bus, slot, func;

        e = parse_pci(opt_dbgp + 8, NULL, &bus, &slot, &func);
        if ( !e || (*e && *e != ',') )
        {
            printk(XENLOG_ERR
                   "Invalid dbgp= PCI device spec: '%s'\n",
                   opt_dbgp + 8);
            return -EINVAL;
        }

        dbc->sbdf = PCI_SBDF(0, bus, slot, func);
    }
    opt = e;

    /* other options */
    while ( *opt == ',' )
    {
        opt++;
        e = strchr(opt, ',');
        if ( !e )
            e = strchr(opt, '\0');

        if ( (val = parse_boolean("share", opt, e)) != -1 )
        {
            if ( val == -2 && !cmdline_strcmp(opt + 6, "hwdom") )
                dbc->share = XHCI_SHARE_HWDOM;
            else if ( val == 0 )
                dbc->share = XHCI_SHARE_NONE;
            else if ( val == 1 )
                dbc->share = XHCI_SHARE_ANY;
            else
                break;
        }
        else
            break;

        opt = e;
    }

    if ( *opt )
    {
        printk(XENLOG_ERR "Invalid dbgp= parameters: '%s'\n", opt);
        return -EINVAL;
    }

    dbc->enable = true;

    return 0;
}
custom_param("dbgp", xhci_parse_dbgp);

void __init xhci_dbc_uart_init(void)
{
    struct dbc_uart *uart = &dbc_uart;
    struct dbc *dbc = &uart->dbc;

    if ( !dbc->enable )
        return;

    dbc->dbc_ctx = &dbc_dma_bufs.ctx;
    dbc->dbc_erst = &dbc_dma_bufs.erst;
    dbc->dbc_ering.trb = dbc_dma_bufs.evt_trb;
    dbc->dbc_oring.trb = dbc_dma_bufs.out_trb;
    dbc->dbc_iring.trb = dbc_dma_bufs.in_trb;
    dbc->dbc_owork.buf = dbc_dma_bufs.out_wrk_buf;
    dbc->dbc_iwork.buf = dbc_dma_bufs.in_wrk_buf;
    dbc->dbc_str = dbc_dma_bufs.str_buf;

    if ( dbc_open(dbc) )
    {
        iommu_add_extra_reserved_device_memory(
                PFN_DOWN(virt_to_maddr(&dbc_dma_bufs)),
                PFN_UP(sizeof(dbc_dma_bufs)),
                uart->dbc.sbdf,
                "XHCI console");
        serial_register_uart(SERHND_XHCI, &dbc_uart_driver, &dbc_uart);
    }
}

#ifdef DBC_DEBUG
static void dbc_dump(struct dbc *dbc)
{
    struct dbc_reg *r = dbc->dbc_reg;

    dbc_debug("XHCI DBC DUMP:\n");
    dbc_debug("    ctrl: 0x%x stat: 0x%x psc: 0x%x\n",
              readl(&r->ctrl), readl(&r->st), readl(&r->portsc));
    dbc_debug("    id: 0x%x, db: 0x%x\n",
              readl(&r->id), readl(&r->db));
    dbc_debug("    erstsz: %u, erstba: 0x%lx\n",
              readl(&r->erstsz), readq(&r->erstba));
    dbc_debug("    erdp: 0x%lx, cp: 0x%lx\n",
              readq(&r->erdp), readq(&r->cp));
    dbc_debug("    ddi1: 0x%x, ddi2: 0x%x\n",
              readl(&r->ddi1), readl(&r->ddi2));
    dbc_debug("    erstba == virt_to_dma(erst): %d\n",
              readq(&r->erstba) == virt_to_maddr(dbc->dbc_erst));
    dbc_debug("    erdp == virt_to_dma(erst[0].base): %d\n",
              readq(&r->erdp) == dbc->dbc_erst[0].base);
    dbc_debug("    cp == virt_to_dma(ctx): %d\n",
              readq(&r->cp) == virt_to_maddr(dbc->dbc_ctx));
}

static void dbc_uart_dump(void)
{
    struct dbc_uart *uart = &dbc_uart;
    struct dbc *dbc = &uart->dbc;

    dbc_dump(dbc);
}
#endif
