/*      $NetBSD: rbus_machdep.c,v 1.17 2019/03/01 09:25:59 msaitoh Exp $        */

/*
 * Copyright (c) 2003 Takeshi Nakayama.
 * 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 ``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 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: rbus_machdep.c,v 1.17 2019/03/01 09:25:59 msaitoh Exp $");

#include <sys/param.h>
#include <sys/device.h>
#include <sys/extent.h>
#include <sys/systm.h>

#include <sys/bus.h>
#include <machine/openfirm.h>
#include <machine/promlib.h>
#include <dev/pci/pcivar.h>
#include <dev/pci/ppbreg.h>
#include <sparc64/dev/iommuvar.h>
#include <sparc64/dev/psychovar.h>

#include <dev/cardbus/rbus.h>
#include <dev/pcmcia/pcmciachip.h>
#include <dev/ic/i82365reg.h>
#include <dev/pci/pccbbreg.h>
#include <dev/pci/pccbbvar.h>

#ifdef RBUS_DEBUG
# define DPRINTF printf
#else
# define DPRINTF while (0) printf
#endif

static int pccbb_cardbus_isvalid(void *);

int
md_space_map(bus_space_tag_t t, bus_addr_t bpa, bus_size_t size, int flags,
             bus_space_handle_t *bshp)
{
        DPRINTF("md_space_map: 0x%" PRIxPTR ", 0x%" PRIx64 ", 0x%" PRIx64 "\n",
                (u_long)t->cookie, bpa, size);

        return bus_space_map(t, bpa, size, flags, bshp);
}

void
md_space_unmap(bus_space_tag_t t, bus_space_handle_t bsh, bus_size_t size, bus_addr_t *adrp)
{
        DPRINTF("md_space_unmap: 0x%" PRIxPTR ", 0x%" PRIx64 ", 0x%" PRIx64
                "\n", (u_long)t->cookie, bsh._ptr, size);

        /* return the PCI offset address if required */
        if (adrp != NULL)
                *adrp = psycho_bus_offset(t, &bsh);
        bus_space_unmap(t, bsh, size);
}

rbus_tag_t
rbus_pccbb_parent_mem(struct pci_attach_args *pa)
{
        pci_chipset_tag_t pc = pa->pa_pc;
        struct psycho_pbm *pp = pc->cookie;
        struct extent *ex = pp->pp_exmem;
        bus_addr_t start;
        bus_size_t size;

        if (ex == NULL)
                panic("rbus_pccbb_parent_mem: extent is not initialized");

        start = ex->ex_start;
        size = ex->ex_end - start;

        return rbus_new_root_share(pa->pa_memt, ex, start, size, 0);
}

rbus_tag_t
rbus_pccbb_parent_io(struct pci_attach_args *pa)
{
        pci_chipset_tag_t pc = pa->pa_pc;
        struct psycho_pbm *pp = pc->cookie;
        struct extent *ex = pp->pp_exio;
        bus_addr_t start;
        bus_size_t size;

        if (ex == NULL)
                panic("rbus_pccbb_parent_io: extent is not initialized");

        start = ex->ex_start;
        size = ex->ex_end - start;

        return rbus_new_root_share(pa->pa_iot, ex, start, size, 0);
}

/*
 * Machine dependent part for the attachment of PCI-CardBus bridge.
 * This function is called from pccbb_attach() in sys/dev/pci/pccbb.c.
 */
void
pccbb_attach_hook(device_t parent, device_t self, struct pci_attach_args *pa)
{
        pci_chipset_tag_t pc = pa->pa_pc;
        pcireg_t reg;
        int node = PCITAG_NODE(pa->pa_tag);
        int error;
        int bus, br[2], *brp;
        int len, intr;

        /*
         * bus fixup:
         *      if OBP didn't assign a bus number to the cardbus bridge,
         *      then assign it here.
         */
        brp = br;
        len = 2;
        error = prom_getprop(node, "bus-range", sizeof(*brp), &len, &brp);
        if (error == 0 && len == 2) {
                bus = br[0];
                DPRINTF("pccbb_attach_hook: bus-range %d-%d\n", br[0], br[1]);
                if (bus < 0 || bus >= 256)
                        printf("pccbb_attach_hook: broken bus %d\n", bus);
                else {
#ifdef DIAGNOSTIC
                        if ((*pc->spc_busnode)[bus].node != 0)
                                printf("pccbb_attach_hook: override bus %d"
                                       " node %08x -> %08x\n",
                                       bus, (*pc->spc_busnode)[bus].node, node);
#endif
                        (*pc->spc_busnode)[bus].arg = device_private(self);
                        (*pc->spc_busnode)[bus].valid = pccbb_cardbus_isvalid;
                        (*pc->spc_busnode)[bus].node = node;
                }
        } else {
                bus = ++pc->spc_busmax;
                DPRINTF("pccbb_attach_hook: bus %d\n", bus);
                if (bus >= 256)
                        printf("pccbb_attach_hook: 256 >= busses exist\n");
                else {
                        reg = pci_conf_read(pc, pa->pa_tag, PCI_BRIDGE_BUS_REG);
                        reg &= 0xff000000;
                        reg |= pa->pa_bus | (bus << 8) | (bus << 16);
                        pci_conf_write(pc, pa->pa_tag, PCI_BRIDGE_BUS_REG, reg);
#ifdef DIAGNOSTIC
                        if ((*pc->spc_busnode)[bus].node != 0)
                                printf("pccbb_attach_hook: override bus %d"
                                       " node %08x -> %08x\n",
                                       bus, (*pc->spc_busnode)[bus].node, node);
#endif
                        (*pc->spc_busnode)[bus].arg = device_private(self);
                        (*pc->spc_busnode)[bus].valid = pccbb_cardbus_isvalid;
                        (*pc->spc_busnode)[bus].node = node;
                }
        }

        /*
         * interrupt fixup:
         *      fake interrupt line not for giving up the probe.
         *      interrupt numbers assigned by OBP are [0x00,0x3f],
         *      so they map to [0x40,0x7f] due to inhibit the value 0x00.
         */
        if ((intr = prom_getpropint(node, "interrupts", -1)) == -1) {
                printf("pccbb_attach_hook: could not read interrupts\n");
                return;
        }

        if (OF_mapintr(node, &intr, sizeof(intr), sizeof(intr)) < 0) {
                printf("pccbb_attach_hook: OF_mapintr failed\n");
                return;
        }

        pa->pa_intrline = intr | 0x40;
        DPRINTF("pccbb_attach_hook: interrupt line %d\n", intr);
}

/*
 * Detect a validity of CardBus bus, since it occurs PCI bus error
 * when a CardBus card is not present or power-off.
 */
static int
pccbb_cardbus_isvalid(void *arg)
{
        struct pccbb_softc *sc = arg;
        bus_space_tag_t memt = sc->sc_base_memt;
        bus_space_handle_t memh = sc->sc_base_memh;
        uint32_t sockstat, sockctrl;

        /* check CardBus card is present */
        sockstat = bus_space_read_4(memt, memh, CB_SOCKET_STAT);
        DPRINTF("%s: pccbb_cardbus_isvalid: sockstat %08x\n",
                device_xname(sc->sc_dev), sockstat);
        if ((sockstat & CB_SOCKET_STAT_CB) == 0 ||
            (sockstat & CB_SOCKET_STAT_CD) != 0)
                return 0;

        /* check card is powered on */
        sockctrl = bus_space_read_4(memt, memh, CB_SOCKET_CTRL);
        DPRINTF("%s: pccbb_cardbus_isvalid: sockctrl %08x\n",
                device_xname(sc->sc_dev), sockctrl);
        if ((sockctrl & CB_SOCKET_CTRL_VCCMASK) == 0)
                return 0;

        /* card is present and powered on */
        return 1;
}