serengeti/io/sbdp.c

/*
 * 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 2009 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <sys/types.h>
#include <sys/cmn_err.h>
#include <sys/conf.h>
#include <sys/ddi_impldefs.h>
#include <sys/autoconf.h>
#include <sys/systm.h>
#include <sys/modctl.h>
#include <sys/ddi.h>
#include <sys/sunddi.h>
#include <sys/sunndi.h>
#include <sys/ndi_impldefs.h>
#include <sys/promif.h>
#include <sys/stat.h>
#include <sys/kmem.h>
#include <sys/promif.h>
#include <sys/conf.h>
#include <sys/obpdefs.h>
#include <sys/cpuvar.h>
#include <vm/seg_kmem.h>
#include <sys/prom_plat.h>
#include <sys/machsystm.h>
#include <sys/note.h>
#include <sys/memlist.h>
#include <sys/ssm.h>

#include <sys/sbd_ioctl.h>
#include <sys/sbd.h>
#include <sys/sbdp_priv.h>
#include <sys/sbdp_mem.h>
#include <sys/sbdp_error.h>
#include <sys/serengeti.h>

#include <sys/sgsbbc.h>     /* To get fn_t type definition */

/*
 * Config information
 */
#ifdef DEBUG
uint_t sbdp_debug = 0x0;
#endif /* DEBUG */

/*
 * Enable or disable dr
 */
int sbdp_dr_available = 1;

/* name properties for some Serengeti device nodes */
#define CMP_DEVNAME     "cmp"
#define MEM_DEVNAME     "memory"
#define CPU_DEVNAME     "cpu"
#define IO_PCI_DEVNAME      "pci"
#define IO_SGHSC_DEVNAME    "sghsc"
#define IO_WCI_DEVNAME      "wci"

static  sbd_devattr_t   sbdp_devattr[] = {
    { CMP_DEVNAME,      "cmp",          SBD_COMP_CMP },
    { MEM_DEVNAME,      "memory-controller",    SBD_COMP_MEM },
    { CPU_DEVNAME,      "cpu",          SBD_COMP_CPU },
    { IO_PCI_DEVNAME,   "pci",          SBD_COMP_IO },
    { IO_SGHSC_DEVNAME, "sghsc",        SBD_COMP_IO },
    { IO_WCI_DEVNAME,   "wci",          SBD_COMP_IO },
    /* last item must be blank */
    { NULL,         NULL,           SBD_COMP_UNKNOWN }
};

/*
 * In the case of a busy mbox, if a status cmd comes in we return a cached
 * copy.  This cache is a link list of wnodes that contains bd structs with
 * the appropriate info.  When a new wnode is created a whole entry is added
 * to the list.
 */
sbdp_wnode_t    *first_node = NULL; /* first wnode. Entry to the link list */
int     cur_num_wnodes = 0; /* how many nodes are currently running */

/* Macros to access fields in the previous array */
#define SBDP_CT(i)      sbdp_devattr[i].s_dnodetype
#define SBDP_DEVNAME(i)     sbdp_devattr[(i)].s_devname
#define SBDP_OTYPE(i)       sbdp_devattr[(i)].s_obp_type

/*
 * Prototypes
 */
sbdp_wnode_t *sbdp_get_wnodep(int);

/*
 * Module linkage information for the kernel.
 */

static struct modlmisc modlmisc = {
    &mod_miscops,
    "Serengeti sbdp",
};

static struct modlinkage modlinkage = {
    MODREV_1,
    (void *)&modlmisc,
    NULL
};

/*
 * VA area used during CPU shutdown.
 */
caddr_t sbdp_shutdown_va;

/*
 * Mutex to protect our inventory
 */
kmutex_t    sbdp_wnode_mutex;

int
_init(void)
{
    int e;

    e = mod_install(&modlinkage);
    if (e != 0)
        return (e);

    sbdp_shutdown_va = vmem_alloc(heap_arena, PAGESIZE, VM_SLEEP);
    ASSERT(sbdp_shutdown_va != NULL);
    sbdp_valp = (uint64_t *)vmem_alloc(static_alloc_arena,
        sizeof (uint64_t), VM_SLEEP);

    mutex_init(&sbdp_wnode_mutex, NULL, MUTEX_DRIVER, NULL);
    return (e);
}

int
_fini(void)
{
    int e;

    /*
     * Remove the module.
     */
    e = mod_remove(&modlinkage);
    if (e != 0)
        return (e);

    vmem_free(heap_arena, sbdp_shutdown_va, PAGESIZE);
    sbdp_shutdown_va = NULL;
    vmem_free(static_alloc_arena, (void *)sbdp_valp, sizeof (uint64_t));
    sbdp_valp = NULL;

    mutex_destroy(&sbdp_wnode_mutex);
    return (e);
}

int
_info(struct modinfo *modinfop)
{
    return (mod_info(&modlinkage, modinfop));
}

int
sbdp_get_bd_and_wnode_num(pnode_t nodeid, int *bd, int *wnode)
{
    int portid;
    static fn_t f = "sbdp_get_bd_and_wnode_num";
    extern int  get_portid(pnode_t node, pnode_t *cmpp);

    SBDP_DBG_FUNC("%s\n", f);

    if (sbdp_is_node_bad(nodeid))
        return (-1);

    if ((portid = get_portid(nodeid, NULL)) == -1)
        return (-1);

    /*
     * decode the board number
     */
    *bd = SG_PORTID_TO_BOARD_NUM(portid);
    *wnode = SG_PORTID_TO_NODEID(portid);

    return (0);
}

int
sbdp_get_board_num(sbdp_handle_t *hp, dev_info_t *dip)
{
    _NOTE(ARGUNUSED(hp))

    pnode_t     nodeid;
    int     bd, wnode;
    static fn_t f = "sbdp_get_board_num";

    SBDP_DBG_FUNC("%s\n", f);

    if (dip == NULL)
        return (-1);

    nodeid = ddi_get_nodeid(dip);

    /*
     * Portid has encoded the nodeid and the agent id.  The top
     * 4 bits are correspond to the wcnodeid and the lower 5 are the
     * agent id.
     * Each agent id represents a physical location hence we can
     * obtain the board number
     */
    if (sbdp_get_bd_and_wnode_num(nodeid, &bd, &wnode) < 0)
        return (-1);

    return (bd);
}


sbd_devattr_t *
sbdp_get_devattr(void)
{
    return (&sbdp_devattr[0]);
}

int
sbdp_portid_to_cpu_unit(int cmp, int core)
{
    return (SG_PORTID_TO_CPU_UNIT(cmp, core));
}

int
sbdp_get_unit_num(sbdp_handle_t *hp, dev_info_t *dip)
{
    int     unit = -1;
    int     portid;
    processorid_t   cpuid;
    sbd_comp_type_t type;
    char        dev_type[OBP_MAXPROPNAME];
    int     i;
    pnode_t     nodeid;
    static fn_t f = "sbdp_get_unit_num";

    SBDP_DBG_FUNC("%s\n", f);

    if (dip == NULL)
        return (-1);

    nodeid = ddi_get_nodeid(dip);

    if (sbdp_is_node_bad(nodeid))
        return (-1);

    if (prom_getprop(nodeid, "device_type", (caddr_t)dev_type) < 0) {
        SBDP_DBG_MISC("%s: couldn't get device_type\n", f);
        return (-1);
    }

    for (i = 0; SBDP_CT(i) != SBD_COMP_UNKNOWN; i++) {
        if (strcmp(dev_type, SBDP_OTYPE(i)) != 0)
            continue;
        type = SBDP_CT(i);
    }

    switch (type) {
    case SBD_COMP_CPU:
        if ((cpuid = sbdp_get_cpuid(hp, dip)) != -1) {
            unit = SG_CPUID_TO_CPU_UNIT(cpuid);
        }
        break;
    case SBD_COMP_MEM:
        unit = 0;
        break;
    case SBD_COMP_IO: {
        regspace_t  regs[3];
        int     len = 0;

        /*
         * Check to see if this is a cpci node
         * cpci nodes are assign unit nums of 5 for now
         * So they don't conflict with the pci unit nums
         */

        if (strcmp(dev_type, "sghsc") == 0) {
            SBDP_DBG_MISC("it is a sghsc\n");
            return (4);
        }

        if (prom_getprop(nodeid, "portid", (caddr_t)&portid) <= 0) {
            SBDP_DBG_MISC("%s: couldn't get portid\n", f);
            return (-1);
        }

        len = prom_getproplen(nodeid, "reg");
        if (len <= 0) {
            SBDP_DBG_MISC("%s: couldn't get length\n", f);
            return (-1);
        }

        if (prom_getprop(nodeid, "reg", (caddr_t)regs) < 0) {
            SBDP_DBG_MISC("%s: couldn't get registers\n", f);
            return (-1);
        }

        if ((portid % 2) != 0)
            if ((regs[0].regspec_addr_lo & 0x700000) ==
                0x700000)
                unit = 0;
            else
                unit = 1;
        else
            if ((regs[0].regspec_addr_lo & 0x700000) ==
                0x700000)
                unit = 2;
            else
                unit = 3;

        SBDP_DBG_MISC("unit is %d\n", unit);
        break;
    }
    default:
        break;

    }

    return (unit);
}

struct sbdp_mem_dip {
    sbdp_bd_t   *bdp;
    dev_info_t  *dip;
};

static int
sbdp_get_mem_dip(pnode_t node, void *arg, uint_t flags)
{
    _NOTE(ARGUNUSED(flags))

    struct sbdp_mem_dip *smdp = (struct sbdp_mem_dip *)arg;
    mem_op_t    mem = {0};

    if (node == OBP_NONODE || node == OBP_BADNODE)
        return (DDI_FAILURE);

    mem.nodes = smdp->bdp->nodes;
    mem.board = smdp->bdp->bd;
    mem.nmem  = smdp->bdp->nnum;

    (void) sbdp_is_mem(node, &mem);

    /*
     * We need to find the dip only for the first nodeid
     */
    if (smdp->bdp->nnum == 0 && mem.nmem == 1) {
        ASSERT(smdp->dip == NULL);
        smdp->dip = e_ddi_nodeid_to_dip(node);
    }

    smdp->bdp->nnum = mem.nmem;

    return (DDI_SUCCESS);
}


/*
 * Update the board info.  Required after a copy rename
 */
void
sbdp_update_bd_info(sbdp_bd_t *bdp)
{
    attach_pkt_t        apkt, *apktp = &apkt;
    struct sbdp_mem_dip smd = {0};
    static fn_t f = "sbdp_update_bd_info";

    SBDP_DBG_FUNC("%s\n", f);

    if (bdp == NULL) {
        return;
    }
    /*
     * Grab the lock
     */
    mutex_enter(&bdp->bd_mutex);

    /*
     * we get the top nodes here.  This will have a side effect of
     * updating the present bit for cpus
     */
    apktp->node = bdp->wnode;
    apktp->board = bdp->bd;
    apktp->num_of_nodes = 0;
    apktp->flags = 0;
    sbdp_walk_prom_tree(prom_rootnode(), sbdp_select_top_nodes,
        (void *) apktp);

    /*
     * We need to clear nnum since we are looking again for the
     * nodes
     */
    bdp->nnum = 0;
    smd.bdp = bdp;

    /*
     * If a dip is found by sbdp_get_mem_dip(), it will be
     * returned held
     */
    sbdp_walk_prom_tree(prom_rootnode(), sbdp_get_mem_dip, &smd);
    if (smd.dip != NULL) {
        sbdp_handle_t       *hp;

        hp = kmem_zalloc(sizeof (sbdp_handle_t), KM_SLEEP);
        hp->h_board = bdp->bd;
        hp->h_wnode = bdp->wnode;
        hp->h_err = kmem_zalloc(sizeof (*hp->h_err), KM_SLEEP);
        if (bdp->ml != NULL) {
            (void) sbdp_del_memlist(hp, bdp->ml);
        }
        bdp->ml = sbdp_get_memlist(hp, (dev_info_t *)NULL);
        /*
         * if the board doesn't have banks initialize them,
         * otherwise we assume they have been updated if
         * necessary
         */
        if (bdp->banks == NULL) {
            sbdp_init_bd_banks(bdp);
        }
#ifdef DEBUG
        sbdp_print_bd_banks(bdp);
#endif

        if (sbdphw_get_base_physaddr(hp, smd.dip, &bdp->bpa))
            bdp->bpa = -1;
        ddi_release_devi(smd.dip);
        kmem_free(hp->h_err, sizeof (*hp->h_err));
        kmem_free(hp, sizeof (sbdp_handle_t));
    }
    mutex_exit(&bdp->bd_mutex);
}

/*
 * Initialize the board struct.  This remains cached.  We update it
 * every time we have a successful show_board and after a copy-rename
 */
void
sbdp_bd_init(sbdp_bd_t *bdp, int bd, int wnode)
{
    static fn_t f = "sbdp_bd_init";

    SBDP_DBG_FUNC("%s\n", f);

    bdp->bd = bd;
    bdp->wnode = wnode;

    SBDP_UNSET_ALL_CPUS_IN_RESET(bdp);

    bdp->cpus_present = 0;

    sbdp_update_bd_info(bdp);

    mutex_init(&bdp->bd_mutex, NULL, MUTEX_DRIVER, NULL);
    bdp->bd_sc = (show_board_t *)kmem_zalloc(sizeof (show_board_t),
        KM_SLEEP);
    bdp->valid_cp = -1;
}

/*
 * This entry is going away.  Clean up
 */
void
sbdp_bd_fini(sbdp_bd_t *bdp)
{
    static fn_t f = "sbdp_bd_fini";

    SBDP_DBG_FUNC("%s\n", f);

    sbdp_cleanup_bd(bdp->wnode, bdp->bd);
    kmem_free(bdp->bd_sc, sizeof (show_board_t));
    bdp->bd_sc = NULL;
    mutex_destroy(&bdp->bd_mutex);
#ifdef DEBUG
    sbdp_print_all_segs();
#endif
}

/*
 * A new wnode has arrived.  Initialize the struct and create
 * the board structures.
 */
void
sbdp_wnode_init(sbdp_wnode_t *wnodep, int wnode, int boards)
{
    int     i;
    static fn_t f = "sbdp_wnode_init";

    SBDP_DBG_FUNC("%s\n", f);

    wnodep->wnode = wnode;
    wnodep->nbds = boards;
    wnodep->bds = kmem_zalloc(sizeof (sbdp_bd_t) * boards, KM_SLEEP);
    wnodep->next = wnodep->prev = NULL;

    for (i = 0; i < boards; i++)
        sbdp_bd_init(&wnodep->bds[i], i, wnode);
}

/*
 * Wnode got DRed out.  Clean up all the node stuff including the boards
 */
void
sbdp_wnode_fini(sbdp_wnode_t *wnodep)
{
    int boards;
    int i;
    static fn_t f = "sbdp_wnode_fini";

    SBDP_DBG_FUNC("%s\n", f);

    boards = wnodep->nbds;

    for (i = 0; i < boards; i++)
        sbdp_bd_fini(&wnodep->bds[i]);

    kmem_free(wnodep->bds, sizeof (sbdp_bd_t) * boards);
    wnodep->next = wnodep->prev = NULL;
    kmem_free(wnodep, sizeof (sbdp_wnode_t));
}

/*
 * Add all the necessary fields to this board's struct
 */
void
sbdp_add_new_bd_info(int wnode, int board)
{
    sbdp_wnode_t    *cur;
    static fn_t f = "sbdp_add_new_bd_info";

    SBDP_DBG_FUNC("%s\n", f);

    cur = sbdp_get_wnodep(wnode);

    SBDP_DBG_MISC("adding new board info %d\n", board);

    sbdp_update_bd_info(&cur->bds[board]);

}

/*
 * This board has gone away.  Clean the necessary fields
 */
void
sbdp_cleanup_bd(int wnode, int board)
{
    sbdp_wnode_t    *cur;
    sbdp_handle_t   handle, *hp;
    sbdp_bd_t   *bdp;
    int     i;
    static fn_t f = "sbdp_cleanup_bd";

    SBDP_DBG_FUNC("%s\n", f);

    cur = sbdp_get_wnodep(wnode);

    SBDP_DBG_MISC("cleaning up bd info for bd %d\n", board);
    if (cur == NULL) {
        SBDP_DBG_MISC("cur is null\n");
        return;
    }

    bdp = &cur->bds[board];

    /*
     * Grab the lock
     */
    mutex_enter(&bdp->bd_mutex);

    for (i = 0; i < bdp->nnum; i++)
        bdp->nodes[i] = (pnode_t)0;
    bdp->nnum = 0;

    sbdp_fini_bd_banks(bdp);

    hp = &handle;
    hp->h_board = bdp->bd;
    hp->h_wnode = bdp->wnode;
    if (bdp->ml) {
        (void) sbdp_del_memlist(hp, bdp->ml);
    }

    bdp->ml = NULL;

    bdp->bpa = -1;

    sbdp_cpu_in_reset(wnode, bdp->bd, SBDP_ALL_CPUS, 0);

    bdp->cpus_present = 0;

    mutex_exit(&bdp->bd_mutex);
}

/*
 *  Traverse the list looking for wnode. Return it when found
 */
sbdp_wnode_t *
sbdp_get_wnodep(int wnode)
{
    sbdp_wnode_t    *cur;
    int     i;
    static fn_t f = "sbdp_get_wnodep";

    SBDP_DBG_FUNC("%s\n", f);

    mutex_enter(&sbdp_wnode_mutex);
    for (i = 0, cur = first_node; i < cur_num_wnodes; i++,
        cur = cur->next) {
        if (cur->wnode == wnode) {
            mutex_exit(&sbdp_wnode_mutex);
            return (cur);
        }
    }
    mutex_exit(&sbdp_wnode_mutex);

    return (NULL);
}

/*
 * Insert this brand new node into our master list. It leaves it all
 * initialized
 */
void
sbdp_insert_wnode(int wnode, int max_boards)
{
    sbdp_wnode_t    *wnodep;
    sbdp_wnode_t    *cur;
    static fn_t f = "sbdp_insert_wnode";

    SBDP_DBG_FUNC("%s\n", f);

    wnodep = kmem_zalloc(sizeof (sbdp_wnode_t), KM_SLEEP);

    mutex_enter(&sbdp_wnode_mutex);
    if (first_node == NULL) {
        first_node = wnodep;
        cur_num_wnodes++;
    } else {
        cur = first_node + cur_num_wnodes++;
        cur->next = wnodep;
        wnodep->prev = cur;
    }
    mutex_exit(&sbdp_wnode_mutex);
    sbdp_wnode_init(wnodep, wnode, max_boards);
}

/*
 * This node is gone.  Remove it from the list and also clean up
 */
void
sbdp_remove_wnode(sbdp_wnode_t *wnodep)
{
    sbdp_wnode_t    *cur;
    static fn_t f = "sbdp_remove_wnode";

    SBDP_DBG_FUNC("%s\n", f);

    if (wnodep != NULL) {
        sbdp_wnode_fini(wnodep);
        mutex_enter(&sbdp_wnode_mutex);

        if (first_node == wnodep)
            first_node = NULL;
        else {
            cur = wnodep->prev;
            if (cur != NULL)
                cur->next = wnodep->next;
            if (wnodep->next != NULL)
                wnodep->next->prev = cur;
        }

        cur_num_wnodes--;
        mutex_exit(&sbdp_wnode_mutex);
    }
}

/*
 * Entry point from sbd.  This is called when a new node is added.  We
 * create an entry in our inventory and initialize all the stuff that will be
 * needed
 */
int
sbdp_setup_instance(caddr_t arg)
{
    ssm_sbdp_info_t *sbdp_info;
    int     instance;
    int     wnode;
    int     max_boards;
    static fn_t f = "sbdp_setup_instance";

    SBDP_DBG_FUNC("%s\n", f);

    /*
     * We get this directly from ssm
     */
    sbdp_info = (ssm_sbdp_info_t *)arg;

    instance = sbdp_info->instance;
    wnode = sbdp_info->wnode;
    max_boards = plat_max_boards();

    SBDP_DBG_MISC("sbdp_setup_instance: instance %d wnode %d\n", instance,
        sbdp_info->wnode);

    if (sbdp_get_wnodep(wnode) == NULL) {
        /*
         * This node has not been instanstiated
         * create one
         */
        sbdp_insert_wnode(wnode, max_boards);
    }

    return (DDI_SUCCESS);
}

/*
 * Entry point from sbd. This is called when a node has been removed (or is
 * going away. We do all the necessary cleanup
 */
int
sbdp_teardown_instance(caddr_t arg)
{
    ssm_sbdp_info_t *sbdp_info;
    int     instance;
    int     wnode;
    sbdp_wnode_t    *wnodep;
    static fn_t f = "sbdp_teardown_instance";

    SBDP_DBG_FUNC("%s\n", f);

    /*
     * ssm should have set this up
     */
    sbdp_info = (ssm_sbdp_info_t *)arg;

    instance = sbdp_info->instance;
    wnode = sbdp_info->wnode;

    SBDP_DBG_MISC("sbdp_teardown_instance: instance %d wnode %d\n",
        instance, wnode);

    /*
     * Find this node and then remove it
     */
    if ((wnodep = sbdp_get_wnodep(wnode)) != NULL) {
        sbdp_remove_wnode(wnodep);
    }
    return (DDI_SUCCESS);
}

int
sbdp_disabled_component(sbdp_handle_t *hp)
{
#ifdef lint
    hp = hp;
#endif
    return (0);
}

/* ARGSUSED */
int
sbdp_release_component(sbdp_handle_t *hp, dev_info_t *dip)
{
    return (0);
}

void
sbdp_set_err(sbd_error_t *ep, int ecode, char *rsc)
{
    static fn_t f = "sbdp_set_err";

    SBDP_DBG_FUNC("%s\n", f);
    ASSERT(ep != NULL);
    ep->e_code = ecode;

    if (rsc != NULL) {
        (void) strcpy((caddr_t)(ep->e_rsc), (caddr_t)rsc);
    }
}

/*
 * Serengeti DR passthrus are for debugging purposes only.
 */
static struct {
    const char  *name;
    int     (*handler)(sbdp_handle_t *, void *);
} sbdp_passthrus[] = {
#ifdef DEBUG
    { "readmem",        sbdp_passthru_readmem       },
    { "prep-script",    sbdp_passthru_prep_script   },
    { "test-quiesce",   sbdp_passthru_test_quiesce  },
    { "inject-error",   sbdp_passthru_inject_error  },
    { "reset-error",    sbdp_passthru_reset_error   },
#endif

    /* the following line must always be last */
    { NULL,         NULL                }
};


/*ARGSUSED*/
int
sbdp_ioctl(sbdp_handle_t *hp, sbdp_ioctl_arg_t *sbdpi)
{
#ifdef DEBUG
    char buf[512];
    int rv;
    sbd_ioctl_arg_t *sbdi   = (sbd_ioctl_arg_t *)sbdpi->h_iap;
    int     i;
    static fn_t f = "sbdp_ioctl";

    SBDP_DBG_FUNC("%s\n", f);

    if (sbdi->i_len >= sizeof (buf) ||
        ddi_copyin(sbdi->i_opts, buf, sbdi->i_len, sbdpi->h_mode)) {
        sbdp_set_err(hp->h_err, ESBD_FAULT, NULL);
        return (-1);
    }

    i = 0;
    while (sbdp_passthrus[i].name != NULL) {
        int len;

        len = strlen(sbdp_passthrus[i].name);
        if (strncmp(sbdp_passthrus[i].name, buf, len) == 0)
            break;
        i++;
    }

    if (sbdp_passthrus[i].name == NULL) {
        sbdp_set_err(hp->h_err, ESBD_INVAL, NULL);
        rv = EIO;
    } else {
        rv = (*sbdp_passthrus[i].handler)(hp, buf);
        if (rv != ESBD_NOERROR) {
            sbdp_set_err(hp->h_err, rv, NULL);
            rv = EIO;
        }

    }

    return (rv);
#else
    return (0);
#endif
}

/*
 * Check the dnode we obtained.  Need to find a better way to determine
 * if the node has the correct starting address
 */
int
sbdp_is_node_bad(pnode_t node)
{
    static fn_t f = "sbdp_is_node_bad";

    SBDP_DBG_FUNC("%s\n", f);

    return ((node == OBP_NONODE) || (node == OBP_BADNODE) ||
        ((node & 0x80000000u) != 0x80000000u));
}

/*
 * Retrieve the information we have on this board from
 * the inventory
 */
sbdp_bd_t *
sbdp_get_bd_info(int wnode, int board)
{
    sbdp_wnode_t    *wnodep;
    sbdp_bd_t   *bdp;
    int     max_bds;
    static fn_t f = "sbdp_get_bd_info";

    SBDP_DBG_FUNC("%s\n", f);

    wnodep = sbdp_get_wnodep(wnode);
    max_bds = plat_max_boards();

    if ((wnodep == NULL) || ((board < 0) && (board > max_bds))) {
        return (NULL);
    }

    bdp = &wnodep->bds[board];

    /*
     * We might not have the complete bd info.  With cheetah we
     * cannot access the memory decode registers when then cpu is
     * in reset. If the mem info is incomplete, then we try to gather it
     * here
     */
    sbdp_update_bd_info(bdp);

    return (bdp);
}

/*
 * There are certain cases where obp marks components as failed
 * If the status is ok the node won't have any status property. It
 * is only there if the status is other than ok.
 */
sbd_cond_t
sbdp_get_comp_status(pnode_t nodeid)
{
    char            status_buf[OBP_MAXPROPNAME];
    static const char   *status = "status";
    static const char   *failed = "fail";
    static const char   *disabled = "disabled";
    static fn_t     f = "sbdp_get_comp_status";

    SBDP_DBG_FUNC("%s\n", f);

    if (sbdp_is_node_bad(nodeid)) {
        SBDP_DBG_STATE("node is not ok\n");
        return (SBD_COND_UNKNOWN);
    }

    if (prom_getproplen(nodeid, (char *)status) <= 0) {
        SBDP_DBG_STATE("status is ok\n");
        return (SBD_COND_OK);
    }

    if (prom_getprop(nodeid, (char *)status, status_buf) < 0) {
        SBDP_DBG_STATE("status is unknown\n");
        return (SBD_COND_UNKNOWN);
    }

    if (strncmp(status_buf, failed, strlen(failed)) == 0) {
        SBDP_DBG_STATE("status of failed\n");
        return (SBD_COND_FAILED);
    }

    if (strcmp(status_buf, disabled) == 0) {
        SBDP_DBG_STATE("status of unusable\n");
        return (SBD_COND_UNUSABLE);
    }

    return (SBD_COND_OK);
}

void
sbdp_cpu_in_reset(int node, int bd, int unit, int reset)
{
    sbdp_wnode_t    *cur;
    sbdp_bd_t   *bdp;
    static fn_t f = "sbdp_cpu_in_reset";

    SBDP_DBG_FUNC("%s\n", f);

    if ((unit < -1) || (bd < 0) || (node < 0)) {
        return;
    }

    cur = sbdp_get_wnodep(node);

    SBDP_DBG_MISC("marking cpu %d %s for board %d\n", unit,
        (reset) ? "in reset" : "out of reset", bd);

    if (cur == NULL) {
        return;
    }

    bdp = &cur->bds[bd];

    if (unit == SBDP_ALL_CPUS)
        if (reset == 1)
            SBDP_SET_ALL_CPUS_IN_RESET(bdp);
        else
            SBDP_UNSET_ALL_CPUS_IN_RESET(bdp);
    else
        if (reset == 1)
            SBDP_SET_CPU_IN_RESET(bdp, unit);
        else
            SBDP_UNSET_CPU_IN_RESET(bdp, unit);
}

int
sbdp_set_cpu_present(int node, int bd, int unit)
{
    sbdp_wnode_t    *cur;
    sbdp_bd_t   *bdp;
    static fn_t f = "sbdp_set_cpu_present";

    SBDP_DBG_FUNC("%s\n", f);

    if ((unit < 0) || (bd < 0) || (node < 0)) {
        return (-1);
    }

    cur = sbdp_get_wnodep(node);
    if (cur == NULL) {
        return (-1);
    }

    bdp = &cur->bds[bd];

    SBDP_SET_CPU_PRESENT(bdp, unit);

    return (0);
}

int
sbdp_is_cpu_present(int node, int bd, int unit)
{
    sbdp_wnode_t    *cur;
    sbdp_bd_t   *bdp;
    static fn_t f = "sbdp_is_cpu_present";

    SBDP_DBG_FUNC("%s\n", f);

    if ((unit < 0) || (bd < 0) || (node < 0)) {
        return (-1);
    }

    cur = sbdp_get_wnodep(node);
    if (cur == NULL) {
        return (-1);
    }

    bdp = &cur->bds[bd];

    return (SBDP_IS_CPU_PRESENT(bdp, unit));
}

int
sbdp_is_cpu_in_reset(int node, int bd, int unit)
{
    sbdp_wnode_t    *cur;
    sbdp_bd_t   *bdp;
    static fn_t f = "sbdp_is_cpu_in_reset";

    SBDP_DBG_FUNC("%s\n", f);

    if ((unit < 0) || (bd < 0) || (node < 0)) {
        return (-1);
    }

    cur = sbdp_get_wnodep(node);

    if (cur == NULL) {
        return (-1);
    }

    bdp = &cur->bds[bd];

    return (SBDP_IS_CPU_IN_RESET(bdp, unit));
}

int
sbdp_dr_avail(void)
{
    static fn_t f = "sbdp_dr_avail";

    SBDP_DBG_FUNC("%s\n", f);

    if (sbdp_dr_available)
        if (sg_prom_sb_dr_check() == 0)
            return (1);
    return (0);
}