/*      $NetBSD: amdsmn.c,v 1.18 2024/10/17 14:02:40 msaitoh Exp $      */

/*-
 * Copyright (c) 2017, 2019 Conrad Meyer <cem@FreeBSD.org>
 * All rights reserved.
 *
 * NetBSD port by Ian Clark <mrrooster@gmail.com>
 *
 * 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: amdsmn.c,v 1.18 2024/10/17 14:02:40 msaitoh Exp $ ");

/*
 * Driver for the AMD Family 15h (model 60+) and 17h CPU
 * System Management Network.
 */

#include <sys/param.h>
#include <sys/device.h>
#include <sys/errno.h>
#include <sys/mutex.h>
#include <sys/systm.h>
#include <sys/cpu.h>
#include <sys/module.h>

#include <machine/specialreg.h>

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

#include "amdsmn.h"
#include "ioconf.h"

#define F15H_SMN_ADDR_REG       0xb8
#define F15H_SMN_DATA_REG       0xbc
#define F17H_SMN_ADDR_REG       0x60
#define F17H_SMN_DATA_REG       0x64

struct amdsmn_softc {
        kmutex_t smn_lock;
        uint8_t smn_addr_reg;
        uint8_t smn_data_reg;
        struct pci_attach_args pa;
        pci_chipset_tag_t pc;
        pcitag_t pcitag;
};

static const struct pciid {
        uint16_t        amdsmn_deviceid;
        uint8_t         amdsmn_addr_reg;
        uint8_t         amdsmn_data_reg;
} amdsmn_ids[] = {
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F15_6X_RC,
                .amdsmn_addr_reg = F15H_SMN_ADDR_REG,
                .amdsmn_data_reg = F15H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F17_RC,
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F17_1X_RC,
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F17_6X_RC,
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F17_7X_RC, /* or F19_0X */
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F17_AX_RC, /* or F19_4X */
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F19_1X_RC,
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F19_6X_RC,
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F19_7X_RC,
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
        {
                .amdsmn_deviceid = PCI_PRODUCT_AMD_F1A_0X_RC,
                .amdsmn_addr_reg = F17H_SMN_ADDR_REG,
                .amdsmn_data_reg = F17H_SMN_DATA_REG,
        },
};

static int amdsmn_match(device_t, cfdata_t, void *);
static void amdsmn_attach(device_t, device_t, void *);
static int amdsmn_rescan(device_t, const char *, const int *);
static int amdsmn_detach(device_t, int);
static int amdsmn_misc_search(device_t, cfdata_t, const int *, void *);

CFATTACH_DECL3_NEW(amdsmn, sizeof(struct amdsmn_softc), amdsmn_match,
    amdsmn_attach, amdsmn_detach, NULL, amdsmn_rescan, NULL, 0);

static int
amdsmn_match(device_t parent, cfdata_t match, void *aux)
{
        struct pci_attach_args *pa = aux;
        size_t i;

        if (PCI_VENDOR(pa->pa_id) != PCI_VENDOR_AMD)
                return 0;

        for (i = 0; i < __arraycount(amdsmn_ids); i++)
                if (PCI_PRODUCT(pa->pa_id) == amdsmn_ids[i].amdsmn_deviceid)
                        return 2;

        return 0;
}

static int
amdsmn_misc_search(device_t parent, cfdata_t cf, const int *locs, void *aux)
{
        if (config_probe(parent, cf, aux))
                config_attach(parent, cf, aux, NULL,
                    CFARGS(.locators = locs));

        return 0;
}

static void
amdsmn_attach(device_t parent, device_t self, void *aux)
{
        struct amdsmn_softc *sc = device_private(self);
        struct pci_attach_args *pa = aux;
        size_t i;

        mutex_init(&sc->smn_lock, MUTEX_DEFAULT, IPL_NONE);
        sc->pa = *pa;
        sc->pc = pa->pa_pc;
        sc->pcitag = pa->pa_tag;

        for (i = 0; i < __arraycount(amdsmn_ids); i++)
                if (PCI_PRODUCT(pa->pa_id) == amdsmn_ids[i].amdsmn_deviceid) {
                        sc->smn_addr_reg = amdsmn_ids[i].amdsmn_addr_reg;
                        sc->smn_data_reg = amdsmn_ids[i].amdsmn_data_reg;
                }

        // aprint_normal(": AMD Family 17h System Management Network\n");
        aprint_normal(": AMD System Management Network\n");

        pmf_device_register(self, NULL, NULL);
        amdsmn_rescan(self, NULL, NULL);
}

static int
amdsmn_rescan(device_t self, const char *ifattr, const int *locators)
{
        struct amdsmn_softc *sc = device_private(self);

        config_search(self, &sc->pa,
            CFARGS(.search = amdsmn_misc_search));

        return 0;
}

static int
amdsmn_detach(device_t self, int flags)
{
        struct amdsmn_softc *sc = device_private(self);

        pmf_device_deregister(self);

        mutex_destroy(&sc->smn_lock);
        aprint_normal_dev(self,"detach!\n");

        return 0;
}

int
amdsmn_read(device_t dev, uint32_t addr, uint32_t *value)
{
        struct amdsmn_softc *sc = device_private(dev);

        mutex_enter(&sc->smn_lock);
        pci_conf_write(sc->pc, sc->pcitag, sc->smn_addr_reg, addr);
        *value = pci_conf_read(sc->pc, sc->pcitag, sc->smn_data_reg);
        mutex_exit(&sc->smn_lock);

        return 0;
}

int
amdsmn_write(device_t dev, uint32_t addr, uint32_t value)
{
        struct amdsmn_softc *sc = device_private(dev);

        mutex_enter(&sc->smn_lock);
        pci_conf_write(sc->pc, sc->pcitag, sc->smn_addr_reg, addr);
        pci_conf_write(sc->pc, sc->pcitag, sc->smn_data_reg, value);
        mutex_exit(&sc->smn_lock);

        return 0;
}

MODULE(MODULE_CLASS_DRIVER, amdsmn, "pci");

#ifdef _MODULE
#include "ioconf.c"
#endif

static int
amdsmn_modcmd(modcmd_t cmd, void *opaque)
{
        int error = 0;

#ifdef _MODULE
        switch (cmd) {
        case MODULE_CMD_INIT:
                error = config_init_component(cfdriver_ioconf_amdsmn,
                    cfattach_ioconf_amdsmn, cfdata_ioconf_amdsmn);
                break;
        case MODULE_CMD_FINI:
                error = config_fini_component(cfdriver_ioconf_amdsmn,
                    cfattach_ioconf_amdsmn, cfdata_ioconf_amdsmn);
                break;
        default:
                error = ENOTTY;
                break;
        }
#endif

        return error;
}