/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 *
 * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 * Given a unum including an offset calculate the associated system
 * address.  This may be different to when the original PA to unum
 * calculation took place if interleave etc has changed.
 */

#include <sys/errno.h>
#include <sys/types.h>
#include <sys/mc.h>

#include <mcamd_api.h>
#include <mcamd_err.h>

/*
 * The submitted unum must have the MC and DIMM numbers and an offset.
 * Any cs info it has will not be used - we will reconstruct cs info.
 * This is because cs is not in the topology used for diagnosis.
 */
int
mcamd_unumtopa(struct mcamd_hdl *hdl, mcamd_node_t *root, mc_unum_t *unump,
    uint64_t *pa)
{
        mcamd_node_t *mc, *dimm;
        uint64_t num, holesz;

        mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_unumtopa: chip %d "
            "mc %d dimm %d offset 0x%llx\n", unump->unum_chip, unump->unum_mc,
            unump->unum_dimms[0], unump->unum_offset);

        if (!MCAMD_RC_OFFSET_VALID(unump->unum_offset)) {
                mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_unumtopa: offset "
                    "invalid\n");
                return (mcamd_set_errno(hdl, EMCAMD_NOADDR));
        }

        /*
         * Search current config for a MC number matching the chip in the
         * unum.
         */
        for (mc = mcamd_mc_next(hdl, root, NULL); mc != NULL;
            mc = mcamd_mc_next(hdl, root, mc)) {
                if (!mcamd_get_numprops(hdl,
                    mc, MCAMD_PROP_NUM, &num,
                    mc, MCAMD_PROP_DRAMHOLE_SIZE, &holesz,
                    NULL)) {
                        mcamd_dprintf(hdl, MCAMD_DBG_ERR, "mcamd_unumtopa: "
                            "failed to lookup num, dramhole for MC 0x%p\n", mc);
                        return (mcamd_set_errno(hdl, EMCAMD_TREEINVALID));
                }
                if (num == unump->unum_chip)
                        break;
        }
        if (mc == NULL) {
                mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_unumtopa; "
                    "no match for MC %d\n", unump->unum_chip);
                return (mcamd_set_errno(hdl, EMCAMD_NOADDR));
        }

        /*
         * Search DIMMs of this MC.  We can match against the
         * first dimm in the unum - if there is more than one they all
         * share the same chip-selects anyway and the pa we will resolve
         * to is not finer grained than the 128-bits of a dimm pair.
         */
        for (dimm = mcamd_dimm_next(hdl, mc, NULL); dimm != NULL;
            dimm = mcamd_dimm_next(hdl, mc, dimm)) {
                if (!mcamd_get_numprop(hdl, dimm, MCAMD_PROP_NUM, &num)) {
                        mcamd_dprintf(hdl, MCAMD_DBG_ERR, "mcamd_unumtopa: "
                            "failed to lookup num for dimm 0xx%p\n",
                            dimm);
                        return (mcamd_set_errno(hdl, EMCAMD_TREEINVALID));
                }
                if (num == unump->unum_dimms[0])
                        break;
        }
        if (dimm == NULL) {
                mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_unumtopa; "
                    "no match for dimm %d cs %d on MC %d\n",
                    unump->unum_dimms[0], unump->unum_cs, unump->unum_chip);
                return (mcamd_set_errno(hdl, EMCAMD_NOADDR));
        }

        mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_unumtopa: matched "
            "mc 0x%p dimm 0x%p; resolving offset 0x%llx\n",
            mc, dimm, unump->unum_offset);

        if (mc_offset_to_pa(hdl, mc, dimm, unump->unum_offset, pa) < 0) {
                mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_unumtopa: "
                    "mc_offset_to_pa failed: %s\n", mcamd_errmsg(hdl));
                return (-1);    /* errno already set */
        }

        mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_unumtopa: "
            "mc_offset_to_pa succeeded and returned pa=0x%llx: %\n",
            *pa);

        /*
         * If this MC has a dram address hole just below 4GB then we must
         * hoist all address from the hole start upwards by the hole size
         */
        if (holesz != 0) {
                if (*pa >= 0x100000000 - holesz)
                        *pa += holesz;
                mcamd_dprintf(hdl, MCAMD_DBG_FLOW, "mcamd_untopa: hoist "
                    "above dram hole of size 0x%llx to get pa=0x%llx",
                    holesz, *pa);
        }

        return (0);
}