// SPDX-License-Identifier: GPL-2.0
/*
 * Copyright 2004 Koninklijke Philips Electronics NV
 *
 * Conversion to platform driver and DT:
 * Copyright 2014 Linaro Ltd.
 *
 * 14/04/2005 Initial version, colin.king@philips.com
 */
#include <linux/kernel.h>
#include <linux/module.h>
#include <linux/of_address.h>
#include <linux/of_pci.h>
#include <linux/of_platform.h>
#include <linux/pci.h>
#include <linux/platform_device.h>

#include "../pci.h"

static void __iomem *versatile_pci_base;
static void __iomem *versatile_cfg_base[2];

#define PCI_IMAP(m)             (versatile_pci_base + ((m) * 4))
#define PCI_SMAP(m)             (versatile_pci_base + 0x14 + ((m) * 4))
#define PCI_SELFID              (versatile_pci_base + 0xc)

#define VP_PCI_DEVICE_ID                0x030010ee
#define VP_PCI_CLASS_ID                 0x0b400000

static u32 pci_slot_ignore;

static int __init versatile_pci_slot_ignore(char *str)
{
        int slot;

        while (get_option(&str, &slot)) {
                if ((slot < 0) || (slot > 31))
                        pr_err("Illegal slot value: %d\n", slot);
                else
                        pci_slot_ignore |= (1 << slot);
        }
        return 1;
}
__setup("pci_slot_ignore=", versatile_pci_slot_ignore);


static void __iomem *versatile_map_bus(struct pci_bus *bus,
                                       unsigned int devfn, int offset)
{
        unsigned int busnr = bus->number;

        if (pci_slot_ignore & (1 << PCI_SLOT(devfn)))
                return NULL;

        return versatile_cfg_base[1] + ((busnr << 16) | (devfn << 8) | offset);
}

static struct pci_ops pci_versatile_ops = {
        .map_bus = versatile_map_bus,
        .read   = pci_generic_config_read32,
        .write  = pci_generic_config_write,
};

static int versatile_pci_probe(struct platform_device *pdev)
{
        struct device *dev = &pdev->dev;
        struct resource *res;
        struct resource_entry *entry;
        int i, myslot = -1, mem = 1;
        u32 val;
        void __iomem *local_pci_cfg_base;
        struct pci_host_bridge *bridge;

        bridge = devm_pci_alloc_host_bridge(dev, 0);
        if (!bridge)
                return -ENOMEM;

        versatile_pci_base = devm_platform_ioremap_resource(pdev, 0);
        if (IS_ERR(versatile_pci_base))
                return PTR_ERR(versatile_pci_base);

        versatile_cfg_base[0] = devm_platform_ioremap_resource(pdev, 1);
        if (IS_ERR(versatile_cfg_base[0]))
                return PTR_ERR(versatile_cfg_base[0]);

        res = platform_get_resource(pdev, IORESOURCE_MEM, 2);
        versatile_cfg_base[1] = devm_pci_remap_cfg_resource(dev, res);
        if (IS_ERR(versatile_cfg_base[1]))
                return PTR_ERR(versatile_cfg_base[1]);

        resource_list_for_each_entry(entry, &bridge->windows) {
                if (resource_type(entry->res) == IORESOURCE_MEM) {
                        writel(entry->res->start >> 28, PCI_IMAP(mem));
                        writel(__pa(PAGE_OFFSET) >> 28, PCI_SMAP(mem));
                        mem++;
                }
        }

        /*
         * We need to discover the PCI core first to configure itself
         * before the main PCI probing is performed
         */
        for (i = 0; i < 32; i++) {
                if ((readl(versatile_cfg_base[0] + (i << 11) + PCI_VENDOR_ID) == VP_PCI_DEVICE_ID) &&
                    (readl(versatile_cfg_base[0] + (i << 11) + PCI_CLASS_REVISION) == VP_PCI_CLASS_ID)) {
                        myslot = i;
                        break;
                }
        }
        if (myslot == -1) {
                dev_err(dev, "Cannot find PCI core!\n");
                return -EIO;
        }
        /*
         * Do not to map Versatile FPGA PCI device into memory space
         */
        pci_slot_ignore |= (1 << myslot);

        dev_info(dev, "PCI core found (slot %d)\n", myslot);

        writel(myslot, PCI_SELFID);
        local_pci_cfg_base = versatile_cfg_base[1] + (myslot << 11);

        val = readl(local_pci_cfg_base + PCI_COMMAND);
        val |= PCI_COMMAND_MEMORY | PCI_COMMAND_MASTER | PCI_COMMAND_INVALIDATE;
        writel(val, local_pci_cfg_base + PCI_COMMAND);

        /*
         * Configure the PCI inbound memory windows to be 1:1 mapped to SDRAM
         */
        writel(__pa(PAGE_OFFSET), local_pci_cfg_base + PCI_BASE_ADDRESS_0);
        writel(__pa(PAGE_OFFSET), local_pci_cfg_base + PCI_BASE_ADDRESS_1);
        writel(__pa(PAGE_OFFSET), local_pci_cfg_base + PCI_BASE_ADDRESS_2);

        /*
         * For many years the kernel and QEMU were symbiotically buggy
         * in that they both assumed the same broken IRQ mapping.
         * QEMU therefore attempts to auto-detect old broken kernels
         * so that they still work on newer QEMU as they did on old
         * QEMU. Since we now use the correct (ie matching-hardware)
         * IRQ mapping we write a definitely different value to a
         * PCI_INTERRUPT_LINE register to tell QEMU that we expect
         * real hardware behaviour and it need not be backwards
         * compatible for us. This write is harmless on real hardware.
         */
        writel(0, versatile_cfg_base[0] + PCI_INTERRUPT_LINE);

        pci_add_flags(PCI_REASSIGN_ALL_BUS);

        bridge->ops = &pci_versatile_ops;

        return pci_host_probe(bridge);
}

static const struct of_device_id versatile_pci_of_match[] = {
        { .compatible = "arm,versatile-pci", },
        { },
};
MODULE_DEVICE_TABLE(of, versatile_pci_of_match);

static struct platform_driver versatile_pci_driver = {
        .driver = {
                .name = "versatile-pci",
                .of_match_table = versatile_pci_of_match,
                .suppress_bind_attrs = true,
        },
        .probe = versatile_pci_probe,
};
module_platform_driver(versatile_pci_driver);

MODULE_DESCRIPTION("Versatile PCI driver");