/*      $NetBSD: pci_machdep.c,v 1.38 2015/10/02 05:22:50 msaitoh Exp $ */

/*
 * Copyright (c) 2000 Soren S. Jorvang.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions, and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: pci_machdep.c,v 1.38 2015/10/02 05:22:50 msaitoh Exp $");

#define _MIPS_BUS_DMA_PRIVATE

#include <sys/param.h>
#include <sys/bus.h>
#include <sys/cpu.h>
#include <sys/device.h>
#include <sys/errno.h>
#include <sys/extent.h>
#include <sys/intr.h>
#include <sys/systm.h>
#include <sys/time.h>

#include <dev/pci/pcivar.h>
#include <dev/pci/pcireg.h>
#include <dev/pci/pcidevs.h>
#include <dev/pci/pciconf.h>
#include <dev/pci/pciide_apollo_reg.h>

#include <cobalt/dev/gtreg.h>

/*
 * PCI doesn't have any special needs; just use
 * the generic versions of these functions.
 */
struct mips_bus_dma_tag pci_bus_dma_tag = {
        ._dmamap_ops = _BUS_DMAMAP_OPS_INITIALIZER,
        ._dmamem_ops = _BUS_DMAMEM_OPS_INITIALIZER,
        ._dmatag_ops = _BUS_DMATAG_OPS_INITIALIZER,
};

void
pci_attach_hook(device_t parent, device_t self, struct pcibus_attach_args *pba)
{
        /* XXX */

        return;
}

int
pci_bus_maxdevs(pci_chipset_tag_t pc, int busno)
{

        return 32;
}

pcitag_t
pci_make_tag(pci_chipset_tag_t pc, int bus, int device, int function)
{

        return (bus << 16) | (device << 11) | (function << 8);
}

void
pci_decompose_tag(pci_chipset_tag_t pc, pcitag_t tag, int *bp, int *dp, int *fp)
{

        if (bp != NULL)
                *bp = (tag >> 16) & 0xff;
        if (dp != NULL)
                *dp = (tag >> 11) & 0x1f;
        if (fp != NULL)
                *fp = (tag >> 8) & 0x07;
}

pcireg_t
pci_conf_read(pci_chipset_tag_t pc, pcitag_t tag, int reg)
{
        pcireg_t data;
        int bus, dev, func;

        KASSERT(pc != NULL);

        if ((unsigned int)reg >= PCI_CONF_SIZE)
                return (pcireg_t) -1;

        pci_decompose_tag(pc, tag, &bus, &dev, &func);

        /*
         * 2700 hardware wedges on accesses to device 6.
         */
        if (bus == 0 && dev == 6)
                return 0;
        /*
         * 2800 hardware wedges on accesses to device 31.
         */
        if (bus == 0 && dev == 31)
                return 0;

        bus_space_write_4(pc->pc_bst, pc->pc_bsh, GT_PCICFG_ADDR,
            PCICFG_ENABLE | tag | reg);
        data = bus_space_read_4(pc->pc_bst, pc->pc_bsh, GT_PCICFG_DATA);
        bus_space_write_4(pc->pc_bst, pc->pc_bsh, GT_PCICFG_ADDR, 0);

        return data;
}

void
pci_conf_write(pci_chipset_tag_t pc, pcitag_t tag, int reg, pcireg_t data)
{

        if ((unsigned int)reg >= PCI_CONF_SIZE)
                return;

        bus_space_write_4(pc->pc_bst, pc->pc_bsh, GT_PCICFG_ADDR,
            PCICFG_ENABLE | tag | reg);
        bus_space_write_4(pc->pc_bst, pc->pc_bsh, GT_PCICFG_DATA, data);
        bus_space_write_4(pc->pc_bst, pc->pc_bsh, GT_PCICFG_ADDR, 0);
}

int
pci_intr_map(const struct pci_attach_args *pa, pci_intr_handle_t *ihp)
{
        pci_chipset_tag_t pc = pa->pa_pc;
        pcitag_t intrtag = pa->pa_intrtag;
        int pin = pa->pa_intrpin;
        int line = pa->pa_intrline;
        int bus, dev, func;

        pci_decompose_tag(pc, intrtag, &bus, &dev, &func);

        /*
         * The interrupt lines of the internal Tulips are connected
         * directly to the CPU.
         */
        if (cobalt_id == COBALT_ID_QUBE2700) {
                if (bus == 0 && dev == 7 && pin == PCI_INTERRUPT_PIN_A) {
                        /* tulip is connected to CPU INT2 on Qube2700 */
                        *ihp = NICU_INT + 2;
                        return 0;
                }
        } else {
                if (bus == 0 && dev == 7 && pin == PCI_INTERRUPT_PIN_A) {
                        /* the primary tulip is connected to CPU INT1 */
                        *ihp = NICU_INT + 1;
                        return 0;
                }
                if (bus == 0 && dev == 12 && pin == PCI_INTERRUPT_PIN_A) {
                        /* the secondary tulip is connected to CPU INT2 */
                        *ihp = NICU_INT + 2;
                        return 0;
                }
        }

        /* sanity check */
        if (line == 0 || line >= NICU_INT)
                return -1;

        *ihp = line;
        return 0;
}

const char *
pci_intr_string(pci_chipset_tag_t pc, pci_intr_handle_t ih, char *buf, size_t len)
{
        if (ih >= NICU_INT)
                snprintf(buf, len, "level %d", ih - NICU_INT);
        else
                snprintf(buf, len, "irq %d", ih);

        return buf;
}

const struct evcnt *
pci_intr_evcnt(pci_chipset_tag_t pc, pci_intr_handle_t ih)
{

        /* XXX for now, no evcnt parent reported */
        return NULL;
}

int
pci_intr_setattr(pci_chipset_tag_t pc, pci_intr_handle_t *ih,
                 int attr, uint64_t data)
{

        switch (attr) {
        case PCI_INTR_MPSAFE:
                return 0;
        default:
                return ENODEV;
        }
}

void *
pci_intr_establish(pci_chipset_tag_t pc, pci_intr_handle_t ih, int level,
    int (*func)(void *), void *arg)
{

        if (ih >= NICU_INT)
                return cpu_intr_establish(ih - NICU_INT, level, func, arg);
        else
                return icu_intr_establish(ih, IST_LEVEL, level, func, arg);
}

void
pci_intr_disestablish(pci_chipset_tag_t pc, void *cookie)
{

        /* Try both, only the valid one will disestablish. */
        cpu_intr_disestablish(cookie);
        icu_intr_disestablish(cookie);
}

void
pci_conf_interrupt(pci_chipset_tag_t pc, int bus, int dev, int pin, int swiz,
    int *iline)
{

        /*
         * Use irq 9 on all devices on the Qube's PCI slot.
         * XXX doesn't handle devices over PCI-PCI bridges
         */
        if (bus == 0 && dev == 10 && pin != PCI_INTERRUPT_PIN_NONE)
                *iline = 9;
}

int
pci_conf_hook(pci_chipset_tag_t pc, int bus, int dev, int func, pcireg_t id)
{

        /* ignore bogus IDs */
        if (PCI_VENDOR(id) == 0)
                return 0;

        /* 2700 hardware wedges on accesses to device 6. */
        if (bus == 0 && dev == 6)
                return 0;

        /* 2800 hardware wedges on accesses to device 31. */
        if (bus == 0 && dev == 31)
                return 0;

        /* Don't configure the bridge and PCI probe. */
        if (PCI_VENDOR(id) == PCI_VENDOR_MARVELL &&
            PCI_PRODUCT(id) == PCI_PRODUCT_MARVELL_GT64011)
                return 0;

        /* Don't configure on-board VIA VT82C586 (pcib, uhci) */
        if (bus == 0 && dev == 9 && (func == 0 || func == 2))
                return 0;

        /* Enable viaide secondary port. Some firmware doesn't enable it. */
        if (bus == 0 && dev == 9 && func == 1) {
                pcitag_t tag;
                pcireg_t csr;

#define APO_VIAIDECONF  (APO_VIA_REGBASE + 0x00)

                tag = pci_make_tag(pc, bus, dev, func);
                csr = pci_conf_read(pc, tag, APO_VIAIDECONF);
                pci_conf_write(pc, tag, APO_VIAIDECONF,
                    csr | APO_IDECONF_EN(1));
        }
        return PCI_CONF_DEFAULT & ~(PCI_COMMAND_SERR_ENABLE |
            PCI_COMMAND_PARITY_ENABLE);
}