/* $NetBSD: irongate.c,v 1.22 2023/12/04 00:32:10 thorpej Exp $ */

/*-
 * Copyright (c) 2000, 2001 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Jason R. Thorpe of Wasabi Systems, Inc.
 *
 * 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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: irongate.c,v 1.22 2023/12/04 00:32:10 thorpej Exp $");

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

#include <machine/autoconf.h>
#include <machine/rpb.h>
#include <machine/sysarch.h>

#include <dev/isa/isareg.h>
#include <dev/isa/isavar.h>
#include <dev/pci/pcireg.h>
#include <dev/pci/pcivar.h>
#include <dev/pci/agpvar.h>

#include <alpha/pci/irongatereg.h>
#include <alpha/pci/irongatevar.h>

static int      irongate_match(device_t, cfdata_t, void *);
static void     irongate_attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(irongate, sizeof(struct irongate_softc),
    irongate_match, irongate_attach, NULL, NULL);

extern struct cfdriver irongate_cd;

/* There can be only one. */
struct irongate_config irongate_configuration;
static int irongate_found;

static int      irongate_bus_get_window(int, int,
                    struct alpha_bus_space_translation *);

/*
 * Set up the chipset's function pointers.
 */
void
irongate_init(struct irongate_config *icp)
{
        pcitag_t tag;
        pcireg_t reg;

        /*
         * Set up PCI configuration space; we can only read the
         * revision info through configuration space.
         */
        irongate_pci_init(&icp->ic_pc, icp);
        alpha_pci_chipset = &icp->ic_pc;

        tag = pci_make_tag(&icp->ic_pc, 0, IRONGATE_PCIHOST_DEV, 0);

        /* Read the revision. */
        reg = irongate_conf_read0(icp, tag, PCI_CLASS_REG);
        icp->ic_rev = PCI_REVISION(reg);

        if (icp->ic_initted == 0) {
                /* Don't do these twice, since they set up extents. */
                irongate_bus_io_init(&icp->ic_iot, icp);
                irongate_bus_mem_init(&icp->ic_memt, icp);

                /* Only one each PCI I/O and MEM window. */
                alpha_bus_window_count[ALPHA_BUS_TYPE_PCI_IO] = 1;
                alpha_bus_window_count[ALPHA_BUS_TYPE_PCI_MEM] = 1;
                
                alpha_bus_get_window = irongate_bus_get_window;
        }

        icp->ic_initted = 1;
}

static int
irongate_match(device_t parent, cfdata_t match, void *aux)
{
        struct mainbus_attach_args *ma = aux;

        /* Make sure we're looking for an Irongate. */
        if (strcmp(ma->ma_name, irongate_cd.cd_name) != 0)
                return (0);

        if (irongate_found)
                return (0);

        return (1);
}

static void
irongate_attach(device_t parent, device_t self, void *aux)
{
        struct irongate_softc *sc = device_private(self);
        struct irongate_config *icp;
        struct pcibus_attach_args pba;
        struct agpbus_attach_args apa;
        pcitag_t tag;

        /* Note that we've attached the chipset; can't have 2 Irongates. */
        irongate_found = 1;
        sc->sc_dev = self;

        /*
         * Set up the chipset's info; done once at console init time
         * (maybe), but we must do it here as well to take care of things
         * that need to use memory allocation.
         */
        icp = sc->sc_icp = &irongate_configuration;
        irongate_init(icp);

        printf(": AMD 751 Core Logic + AGP Chipset, rev. %d\n", icp->ic_rev);

        irongate_dma_init(icp);

        /*
         * Do PCI memory initialization that needs to be deferred until
         * malloc is safe.
         */
        irongate_bus_mem_init2(&icp->ic_memt, icp);

        alpha_pci_intr_init(icp, &icp->ic_iot, &icp->ic_memt, &icp->ic_pc);

        tag = pci_make_tag(&icp->ic_pc, 0, IRONGATE_PCIHOST_DEV, 0);

        pba.pba_iot = &icp->ic_iot;
        pba.pba_memt = &icp->ic_memt;
        pba.pba_dmat =
            alphabus_dma_get_tag(&icp->ic_dmat_pci, ALPHA_BUS_PCI);
        pba.pba_dmat64 = NULL;
        pba.pba_pc = &icp->ic_pc;
        pba.pba_bus = 0;
        pba.pba_bridgetag = NULL;
        pba.pba_flags = PCI_FLAGS_IO_OKAY | PCI_FLAGS_MEM_OKAY |
            PCI_FLAGS_MRL_OKAY | PCI_FLAGS_MRM_OKAY | PCI_FLAGS_MWI_OKAY;

        if (pci_get_capability(&icp->ic_pc, tag, PCI_CAP_AGP,
            NULL, NULL) != 0) {
                apa.apa_pci_args.pa_iot = pba.pba_iot;
                apa.apa_pci_args.pa_memt = pba.pba_memt;
                apa.apa_pci_args.pa_dmat = pba.pba_dmat;
                apa.apa_pci_args.pa_pc = pba.pba_pc;
                apa.apa_pci_args.pa_bus = pba.pba_bus;
                apa.apa_pci_args.pa_device = IRONGATE_PCIHOST_DEV;
                apa.apa_pci_args.pa_function = 0;
                apa.apa_pci_args.pa_tag = tag;
                apa.apa_pci_args.pa_id =
                    irongate_conf_read0(icp, tag, PCI_ID_REG);
                apa.apa_pci_args.pa_class =
                    irongate_conf_read0(icp, tag, PCI_CLASS_REG);
                apa.apa_pci_args.pa_flags = pba.pba_flags;

                config_found(self, &apa, agpbusprint,
                    CFARGS(.iattr = "agpbus"));
        }

        config_found(self, &pba, pcibusprint,
            CFARGS(.iattr = "pcibus"));
}

static int
irongate_bus_get_window(int type, int window,
    struct alpha_bus_space_translation *abst)
{
        struct irongate_config *icp = &irongate_configuration;
        bus_space_tag_t st;
        int error;

        switch (type) {
        case ALPHA_BUS_TYPE_PCI_IO:
                st = &icp->ic_iot;
                break;

        case ALPHA_BUS_TYPE_PCI_MEM:
                st = &icp->ic_memt;
                break;

        default:
                panic("irongate_bus_get_window");
        }

        error = alpha_bus_space_get_window(st, window, abst);
        if (error)
                return (error);

        abst->abst_sys_start = IRONGATE_PHYSADDR(abst->abst_sys_start);
        abst->abst_sys_end = IRONGATE_PHYSADDR(abst->abst_sys_end);

        return (0);
}