starcat/common/starcat.c

	starcat.c revision 03831d35f7499c87d51205817c93e9a8d42c4bae
/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (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.
 *
 * Starcat Platform specific functions.
 *
 *  called when :
 *  machine_type == MTYPE_STARCAT
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <ctype.h>
#include <string.h>
#include <kvm.h>
#include <varargs.h>
#include <time.h>
#include <dirent.h>
#include <fcntl.h>
#include <assert.h>
#include <sys/param.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <sys/utsname.h>
#include <sys/openpromio.h>
#include <libintl.h>
#include <syslog.h>
#include <sys/dkio.h>
#include <pdevinfo.h>
#include <display.h>
#include <pdevinfo_sun4u.h>
#include <display_sun4u.h>
#include <libprtdiag.h>

#define HZ_TO_MHZ(x)        (((x) + 500000) / 1000000)
#define PORTID_TO_EXPANDER(p)   (((p) >> 5) & 0x1f)
#define PORTID_TO_SLOT(p)   (((p) >> 3) & 0x1)
#define PORTID_TO_INSTANCE(p)   ((p) & 0x3)
#define SCHIZO_COMPATIBLE   "pci108e,8001"
#define XMITS_COMPATIBLE    "pci108e,8002"
#define SC_BOARD_TYPE(id)   (PORTID_TO_SLOT(id) ? "IO" : "SB")

#ifndef TEXT_DOMAIN
#define TEXT_DOMAIN "SYS_TEST"
#endif  /* TEXT_DOMAIN */

#define DEFAULT_MAX_FREQ    66  /* 66 MHz */
#define PCIX_MAX_FREQ       90  /* 90 MHz */

/*
 * these functions will overlay the symbol table of libprtdiag
 * at runtime (Starcat systems only)
 */

int do_prominfo(int syserrlog, char *pgname, int log_flag, int prt_flag);
void    *get_prop_val(Prop *prop);
Prop    *find_prop(Prom_node *pnode, char *name);
char    *get_node_name(Prom_node *pnode);
char    *get_node_type(Prom_node *pnode);
void    add_node(Sys_tree *, Prom_node *);
void    display_pci(Board_node *);
void    display_ffb(Board_node *, int);
void    display_io_cards(struct io_card *list);
void    display_cpu_devices(Sys_tree *tree);
void    display_cpus(Board_node *board);
void    display_memoryconf(Sys_tree *tree, struct grp_info *grps);
void    print_us3_memory_line(int portid, int bank_id, uint64_t bank_size,
        char *bank_status, uint64_t dimm_size, uint32_t intlv, int seg_id);
void    display_diaginfo(int flag, Prom_node *root, Sys_tree *tree,
        struct system_kstat_data *kstats);

/* Local Functions */
static void starcat_disp_hw_revisions(Prom_node *root);
static void display_io_max_bus_speed(struct io_card *p);
static void display_io_slot_info(struct io_card *p);

/* The bus max freq is determined based on board level in use */
int board_bus_max_freq = DEFAULT_MAX_FREQ;  /* 66MHz default */

/*
 * display_pci
 * Display all the PCI IO cards on this board.
 */
void
display_pci(Board_node *board)
{
    struct io_card *card_list = NULL;
    struct io_card card;
    void *value;
    Prom_node *pci;
    Prom_node *card_node;
    Prom_node *pci_bridge_node = NULL;
    char    *slot_name_arr[MAX_SLOTS_PER_IO_BD] = {NULL};
    char    *slot_name = NULL;
    int slot_name_bits;
    int slot_name_offset = 0;
    char    *child_name;
    char    *name, *type;
    char    buf[MAXSTRLEN];
    int *int_val;
    int pci_bus;
    int pci_bridge = 0;
    int pci_bridge_dev_no;
    int child_dev_no;
    int i;
    int portid;
    int version, *pversion;

    if (board == NULL)
        return;

    /* Initialize all the common information */
    card.display = TRUE;
    card.board = board->board_num;
    card.node_id = board->node_id;

    /*
     * Search for each schizo, then find/display all nodes under
     * each schizo node found.  Since the model property "SUNW,schizo"
     * is not supported on Starcat, we must match on the compatible
     * property "pci108e,8001".
     */
    for (pci = dev_find_node_by_compatible(board->nodes, SCHIZO_COMPATIBLE);
        pci != NULL;
        pci = dev_next_node_by_compatible(pci, SCHIZO_COMPATIBLE)) {

        /* set max freq for this board */
        board_bus_max_freq = DEFAULT_MAX_FREQ;
        /*
         * Find out if this is a PCI or cPCI IO Board.
         * If "enum-impl" property exists in pci node => cPCI.
         */
        value = get_prop_val(find_prop(pci, "enum-impl"));
        if (value == NULL) {
            (void) sprintf(card.bus_type, "PCI");
        } else {
            (void) sprintf(card.bus_type, "cPCI");
        }

        if (strstr((char *)get_prop_val(
            find_prop(pci, "compatible")), XMITS_COMPATIBLE)) {
                sprintf(card.notes, "%s", XMITS_COMPATIBLE);
            /*
             * With XMITS 3.X and PCI-X mode, the bus speed
             * can be higher than 66MHZ.
             */
            value = (int *)get_prop_val
                (find_prop(pci, "module-revision#"));
            if (value) {
                pversion = (int *)value;
                version = *pversion;
                if (version >= 4)
                    board_bus_max_freq = PCIX_MAX_FREQ;
            }
        } else if (strstr((char *)get_prop_val(
            find_prop(pci, "compatible")), SCHIZO_COMPATIBLE))
            sprintf(card.notes, "%s", SCHIZO_COMPATIBLE);
        else
            sprintf(card.notes, " ");

        /*
         * Get slot-names property from parent node and
         * store the individual slot names in an array.
         * This is more general than Starcat requires, but
         * it is correct, according to the slot-names property.
         */
        value = (char *)get_prop_val(find_prop(pci, "slot-names"));
        if (value == NULL) {
            /*
             * No slot_names property.  This could be an Xmits
             * card, so check the child node for slot-names property
             */
            value = (char *)get_prop_val(
                find_prop(pci->child, "slot-names"));
        }

        if (value != NULL) {
            /* Get the 4 byte bitmask and pointer to first name */
            slot_name_bits = *(int *)value;
            if (slot_name_bits > 0)
                slot_name_offset = slot_name_bits - 1;
            slot_name = (char *)value + sizeof (int);

            for (i = 0; i < MAX_SLOTS_PER_IO_BD; i++) {
                if (! (slot_name_bits & (1 << i))) {
                    slot_name_arr[i] = (char *)NULL;
                    continue;
                }

                /*
                 * Save the name pointer into the array
                 * and advance it past the end of this
                 * slot name
                 */
                slot_name_arr[i] = slot_name;
                slot_name += strlen(slot_name) + 1;
            }
            slot_name = (char *)NULL;
        }

        /*
         * Search for Children of this node ie. Cards.
         * Note: any of these cards can be a pci-bridge
         *  that itself has children. If we find a
         *  pci-bridge we need to handle it specially.
         */
        card_node = pci->child;
        while (card_node != NULL) {
            pci_bridge = 0;

            /* If it doesn't have a name, skip it */
            name = (char *)get_prop_val(
                        find_prop(card_node, "name"));
            if (name == NULL) {
                card_node = card_node->sibling;
                continue;
            }

            /*
             * get dev# and func# for this card from the
             * 'reg' property.
             */
            int_val = (int *)get_prop_val(
                find_prop(card_node, "reg"));
            if (int_val != NULL) {
                card.dev_no = (((*int_val) & 0xF800) >> 11);
                card.func_no = (((*int_val) & 0x700) >> 8);
            } else {
                card.dev_no = -1;
                card.func_no = -1;
            }

            /*
             * If this is a pci-bridge, then store it's dev#
             * as its children nodes need this to get their slot#.
             * We set the pci_bridge flag so that we know we are
             * looking at a pci-bridge node. This flag gets reset
             * every time we enter this while loop.
             */

            /*
             * Check for a PCI-PCI Bridge for PCI and cPCI
             * IO Boards using the name and type properties.
             */
            type = (char *)get_prop_val(
                    find_prop(card_node, "device_type"));
            if ((type != NULL) &&
                (strncmp(name, "pci", 3) == 0) &&
                (strcmp(type, "pci") == 0)) {
                pci_bridge_dev_no = card.dev_no;
                pci_bridge_node = card_node;
                pci_bridge = TRUE;
            }

            /*
             * Get slot-names property from slot_names_arr.
             * If we are the child of a pci_bridge we use the
             * dev# of the pci_bridge as an index to get
             * the slot number. We know that we are a child of
             * a pci-bridge if our parent is the same as the last
             * pci_bridge node found above.
             */
            if (card.dev_no != -1) {
                /*
                 * We compare this card's parent node with the
                 * pci_bridge_node to see if it's a child.
                 */
                if (card_node->parent == pci_bridge_node) {
                    /* use dev_no of pci_bridge */
                    child_dev_no = pci_bridge_dev_no - 1;
                } else {
                    /* use card's own dev_no */
                    child_dev_no = card.dev_no - 1;
                }

                if (child_dev_no < MAX_SLOTS_PER_IO_BD &&
                    child_dev_no >= 0 &&
                    slot_name_arr
                    [child_dev_no + slot_name_offset] != NULL) {

                    slot_name = slot_name_arr[
                        child_dev_no + slot_name_offset];
                } else
                    slot_name = (char *)NULL;

                if (slot_name != NULL && slot_name[0] != '\0') {
                    (void) sprintf(card.slot_str, "%s",
                        slot_name);
                } else {
                    (void) sprintf(card.slot_str, "-");
                }
            } else {
                (void) sprintf(card.slot_str, "%c", '-');
            }

            /*
             * Get the portid of the schizo that this card
             * lives under.
             */
            portid = -1;
            value = get_prop_val(find_prop(pci, "portid"));
            if (value != NULL) {
                portid = *(int *)value;
            }
            card.schizo_portid = portid;

#ifdef  DEBUG
            (void) sprintf(card.notes, "%s portid [%d]"
                " dev_no [%d] slot_name[%s] name_bits[%#x]",
                card.notes, portid, card.dev_no,
                ((slot_name != NULL) ? slot_name : "NULL"),
                slot_name_bits);
#endif  /* DEBUG */

            /*
             * Find out whether this is PCI bus A or B
             * using the 'reg' property.
             */
            int_val = (int *)get_prop_val
                (find_prop(pci, "reg"));

            if (int_val != NULL) {
                int_val ++; /* skip over first integer */
                pci_bus = ((*int_val) & 0x7f0000);
                if (pci_bus == 0x600000)
                    card.pci_bus = 'A';
                else if (pci_bus == 0x700000)
                    card.pci_bus = 'B';
                else
                    card.pci_bus = '-';
            } else {
                card.pci_bus = '-';
            }


            /*
             * Check for failed status.
             */
            if (node_failed(card_node))
                strcpy(card.status, "fail");
            else
                strcpy(card.status, "ok");

            /* Get the model of this card */
            value = get_prop_val(find_prop(card_node, "model"));
            if (value == NULL)
                card.model[0] = '\0';
            else {
                (void) sprintf(card.model, "%s", (char *)value);
                /*
                 * If we wish to exclude onboard devices
                 * (such as SBBC) then this is the place
                 * and here is how to do it:
                 *
                 * if (strcmp(card.model, "SUNW,sbbc") == 0) {
                 *  card_node = card_node->sibling;
                 *  continue;
                 * }
                 */
            }

            /*
             * The card may have a "clock-frequency" but we
             * are not interested in that. Instead we get the
             * "clock-frequency" of the PCI Bus that the card
             * resides on. PCI-A can operate at 33Mhz or 66Mhz
             * depending on what card is plugged into the Bus.
             * PCI-B always operates at 33Mhz.
             *
             */
            int_val = get_prop_val(find_prop(pci,
                            "clock-frequency"));
            if (int_val != NULL) {
                card.freq = HZ_TO_MHZ(*int_val);
            } else {
                card.freq = -1;
            }

            /*
             * Figure out how we want to display the name
             */
            value = get_prop_val(find_prop(card_node,
                            "compatible"));
            if (value != NULL) {
                /* use 'name'-'compatible' */
                (void) sprintf(buf, "%s-%s", name,
                    (char *)value);
            } else {
                /* just use 'name' */
                (void) sprintf(buf, "%s", name);
            }
            name = buf;

            /*
             * If this node has children, add the device_type
             * of the child to the name value of this card.
             */
            child_name = (char *)get_node_name(card_node->child);
            if ((card_node->child != NULL) &&
                            (child_name != NULL)) {
                value = get_prop_val(find_prop(card_node->child,
                                "device_type"));
                if (value != NULL) {
                    /* add device_type of child to name */
                    (void) sprintf(card.name, "%s/%s (%s)",
                        name, child_name,
                        (char *)value);
                } else {
                    /* just add child's name */
                    (void) sprintf(card.name, "%s/%s",
                        name, child_name);
                }
            } else {
                /* childless, just the card's name */
                (void) sprintf(card.name, "%s", (char *)name);
            }

            /*
             * If this is a pci-bridge, then add the word
             * 'pci-bridge' to its model.
             */
            if (pci_bridge) {
                if (card.model[0] == '\0')
                    (void) sprintf(card.model,
                        "%s", "pci-bridge");
                else
                    (void) strcat(card.model,
                            "/pci-bridge");
            }

            /* insert this card in the list to be displayed later */
            card_list = insert_io_card(card_list, &card);

            /*
             * If we are dealing with a pci-bridge, we need to move
             * down to the children of this bridge, if there are
             * any, otherwise its siblings.
             *
             * If not a bridge, we are either dealing with a regular
             * card (in which case we move onto the sibling of this
             * card) or we are dealing with a child of a pci-bridge
             * (in which case we move onto the child's siblings or
             * if there are no more siblings for this child, we
             * move onto the parent's siblings).  I hope you're
             * getting all this, there will be an exam later.
             */
            if (pci_bridge) {
                if (card_node->child != NULL)
                    card_node = card_node->child;
                else
                    card_node = card_node->sibling;
            } else {
                /*
                 * If our parent is a pci-bridge but there
                 * are no more of its children to process we
                 * move back up to our parent's sibling,
                 * otherwise we move onto our own sibling.
                 */
                if ((card_node->parent == pci_bridge_node) &&
                    (card_node->sibling == NULL))
                    card_node =
                        pci_bridge_node->sibling;
                else
                    card_node = card_node->sibling;
            }

        } /* end while (card_node ...) loop */

    } /* end for (pci ...) loop */

    display_io_cards(card_list);
    free_io_cards(card_list);
}

/*
 * display_ffb
 *
 * There are no FFB's on a Starcat, however in the generic library,
 * the display_ffb() function is implemented so we have to define an
 * empty function here.
 */
/*ARGSUSED0*/
void
display_ffb(Board_node *board, int table)
{
}

/*
 * add_node
 *
 * This function adds a board node to the board structure where that
 * that node's physical component lives.
 */
void
add_node(Sys_tree *root, Prom_node *pnode)
{
    int portid = -1;
    int nodeid = -1;
    void    *value;
    Board_node  *bnode;
    Prom_node   *p;
    char    *type;

    /* Get the board number of this board from the portid prop */
    if ((value = get_prop_val(find_prop(pnode, "portid"))) == NULL) {
        if (type = get_node_type(pnode))
            if (strcmp(type, "cpu") == 0)
                value = get_prop_val(find_prop(pnode->parent,
                    "portid"));
    }
    if (value != NULL) {
        portid = *(int *)value;
        nodeid = PORTID_TO_EXPANDER(portid);
    }

    /* find the board node with the same board number */
    if ((bnode = find_board(root, portid)) == NULL) {
        bnode = insert_board(root, portid);
        bnode->board_type = UNKNOWN_BOARD;
        bnode->node_id = nodeid;
    }

    /* now attach this prom node to the board list */
    /* Insert this node at the end of the list */
    pnode->sibling = NULL;
    if (bnode->nodes == NULL)
        bnode->nodes = pnode;
    else {
        p = bnode->nodes;
        while (p->sibling != NULL)
            p = p->sibling;
        p->sibling = pnode;
    }
}


/*
 * Print out all the io cards in the list.  Also print the column
 * headers if told to do so.
 */
void
display_io_cards(struct io_card *list)
{
    char    *hdrfmt = "%-10.10s  %-4.4s %-4.4s %-4.4s %-4.4s %-4.4s"
            " %-4.4s %-5.5s %-32.32s  %-22.22s"
#ifdef  DEBUG
            "  %-22.22s"
#endif  /* DEBUG */
            "\n";

    static int banner = FALSE; /* Have we printed the column headings? */
    struct io_card *p;

    if (list == NULL)
        return;

    (void) textdomain(TEXT_DOMAIN);

    if (banner == FALSE) {
        log_printf(hdrfmt,
            "", "", "", "",
            gettext("Bus"),
            gettext("Max"),
            "", "", "", "",
#ifdef  DEBUG
            "",
#endif  /* DEBUG */
            0);

        log_printf(hdrfmt,
            "",
            gettext("IO"),
            gettext("Port"),
            gettext("Bus"),
            gettext("Freq"),
            gettext("Bus"),
            gettext("Dev,"),
            "", "", "",
#ifdef  DEBUG
            "",
#endif  /* DEBUG */
            0);

        log_printf(hdrfmt,
            gettext("Slot ID"),
            gettext("Type"),
            gettext(" ID"),
            gettext("Side"),
            gettext("MHz"),
            gettext("Freq"),
            gettext("Func"),
            gettext("State"),
            gettext("Name"),
            gettext("Model"),
#ifdef  DEBUG
            gettext("Notes"),
#endif  /* DEBUG */
            0);

        log_printf(hdrfmt,
            "----------", "----", "----", "----", "----", "----",
            "----", "-----", "--------------------------------",
            "----------------------",
#ifdef  DEBUG
            "----------------------",
#endif  /* DEBUG */
            0);

        banner = TRUE;
    }

    for (p = list; p != NULL; p = p -> next) {

        display_io_slot_info(p);

        display_io_max_bus_speed(p);

        log_printf("\n", 0);
    }
}


static void
display_io_slot_info(struct io_card *p)
{
    /*
     * Onboard devices are distinguished by Slot IDs that
     * indicate only the I/O board.  Plug-in cards indicate
     * their leaf and Schizo.
     */

    if (p->slot_str[0] == '-') {
        log_printf("/%-2s%02d       ",
            SC_BOARD_TYPE(p->board),
            PORTID_TO_EXPANDER(p->board), 0);
    } else {
        char    c;
        if (strcmp(p->notes, XMITS_COMPATIBLE) == 0) {
            log_printf("/%-2s%02d/%s  ",
                SC_BOARD_TYPE(p->board),
                PORTID_TO_EXPANDER(p->board),
                p->slot_str, 0);
        } else {
            if (p->pci_bus == 'A')
                c = '3';
            else if (p->pci_bus == 'B') {
                c = '5';
            } else
                c = '-';
            log_printf("/%-2s%02d/C%cV%1d  ",
                SC_BOARD_TYPE(p->board),
                PORTID_TO_EXPANDER(p->board), c,
                PORTID_TO_INSTANCE(p->schizo_portid),
                0);
        }
    }
    log_printf("%-4.4s ", gettext(p->bus_type), 0);
    log_printf("%3d  ", p->schizo_portid, 0);
    log_printf(" %c  ", p->pci_bus, 0);
    log_printf(" %3d  ", p->freq, 0);
}

#define BUS_SPEED_PRINT(speed)  log_printf(" %d  ", speed, 0)

static void
display_io_max_bus_speed(struct io_card *p)
{
    int speed = board_bus_max_freq;

    switch (p->pci_bus) {
    case 'A':
        BUS_SPEED_PRINT(speed);
        break;
    case 'B':
        if (strcmp(p->notes, XMITS_COMPATIBLE) == 0) {
            if (PORTID_TO_INSTANCE(p->schizo_portid) == 0)
                BUS_SPEED_PRINT(33);
            else
                BUS_SPEED_PRINT(speed);
        } else
            BUS_SPEED_PRINT(33);
        break;
    default:
        log_printf("  -  ", 0);
        break;
    }

    log_printf("%-1d,%-1d  ", p->dev_no, p->func_no, 0);
    log_printf("%-5.5s ", gettext(p->status), 0);
    log_printf("%-32.32s%c ", p->name,
        ((strlen(p->name) > 32) ? '+' : ' '), 0);
    log_printf("%-22.22s%c", p->model,
        ((strlen(p->model) > 22) ? '+' : ' '), 0);
#ifdef  DEBUG
    log_printf(" %s", p->notes, 0);
#endif  /* DEBUG */
}

void
display_cpu_devices(Sys_tree *tree)
{
    Board_node *bnode;
    char    *hdrfmt = "%-8.8s  %-7.7s  %-4.4s  %-4.4s  %-7.7s  %-4.4s\n";

    (void) textdomain(TEXT_DOMAIN);

    /*
     * Display the table header for CPUs . Then display the CPU
     * frequency, cache size, and processor revision of all cpus.
     */
    log_printf("\n", 0);
    log_printf("=========================", 0);
    log_printf(gettext(" CPUs "), 0);
    log_printf("=========================", 0);
    log_printf("\n\n", 0);

    log_printf(hdrfmt,
        "",
        gettext("CPU "),
        gettext("Run"),
        gettext(" E$"),
        gettext(" CPU"),
        gettext("CPU"), 0);

    log_printf(hdrfmt,
        gettext("Slot ID"),
        gettext("ID "),
        gettext("MHz"),
        gettext(" MB"),
        gettext("Impl."),
        gettext("Mask"), 0);

    log_printf(hdrfmt,
        "--------", "-------", "----", "----", "-------",  "----", 0);

    /* Now display all of the cpus on each board */
    bnode = tree->bd_list;
    while (bnode != NULL) {
        display_cpus(bnode);
        bnode = bnode->next;
    }

    log_printf("\n", 0);
}

/*
 * Display the CPUs present on this board.
 */
void
display_cpus(Board_node *board)
{
    Prom_node *cpu;
    int freq;       /* CPU clock frequency */
    int ecache_size;    /* External cache size */
    int *impl;
    int *mask;
    int decoded_mask;
    int *cpuid;
    int *coreid;
    int cpuid_prev = -1;
    int ecache_size_prev = 0;

    (void) textdomain(TEXT_DOMAIN);
    /*
     * display the CPUs' operating frequency, cache size, impl. field
     * and mask revision.
     */
    for (cpu = dev_find_type(board->nodes, "cpu"); cpu != NULL;
        cpu = dev_next_type(cpu, "cpu")) {

        freq = HZ_TO_MHZ(get_cpu_freq(cpu));
        ecache_size = get_ecache_size(cpu);
        impl = (int *)get_prop_val(find_prop(cpu, "implementation#"));
        mask = (int *)get_prop_val(find_prop(cpu, "mask#"));
        cpuid = (int *)get_prop_val(find_prop(cpu, "cpuid"));
        if (cpuid == NULL)
            cpuid = &board->board_num;

        /* Do not display a failed CPU node */
        if ((freq == 0) || (impl == 0) || (node_failed(cpu)))
            continue;

        if (CPU_IMPL_IS_CMP(*impl)) {
            coreid = (int *)get_prop_val(find_prop(cpu,
                    "reg"));
            if (coreid == NULL) {
                continue;
            }

            /*
             * The assumption is made that 2 cores will always be
             * listed together in the device tree. If either core
             * is "bad" then the FRU will not be listed.
             */
            if (cpuid_prev == -1) {
                cpuid_prev = *cpuid;
                ecache_size_prev = ecache_size;
                continue;
            } else {
                /*
                 * Jaguar has a split E$, so the size for both
                 * cores must be added together to get the total
                 * size for the entire chip.
                 *
                 * Panther E$ (L3) is logically shared, so the
                 * total size is equal to the core size.
                 */
                if (IS_JAGUAR(*impl)) {
                    ecache_size += ecache_size_prev;
                }

                ecache_size_prev = 0;
            }
        }

        /*
         * Print out cpu data.
         *
         * Slot ID
         */
        log_printf("/%-2s%02d/P%1d  ",
            SC_BOARD_TYPE(*cpuid),
            PORTID_TO_EXPANDER(*cpuid),
            PORTID_TO_INSTANCE(*cpuid), 0);

        /* CPU ID */
        if (CPU_IMPL_IS_CMP(*impl)) {
            log_printf("%3d,%3d  ", cpuid_prev,
                *cpuid, 0);
            cpuid_prev = -1;
        } else
            log_printf("%3d      ", *cpuid, 0);

        /* Running frequency */
        log_printf("%4d  ", freq, 0);

        /* Ecache size */
        if (ecache_size == 0)
            log_printf("%-4.4s  ", gettext("N/A"), 0);
        else
            log_printf("%4.1f  ",
                (float)ecache_size / (float)(1<<20),
                0);

        /* Implementation */
        switch (*impl) {
        case CHEETAH_IMPL:
            log_printf("%-7.7s  ",
                gettext("US-III"), 0);
            break;
        case CHEETAH_PLUS_IMPL:
            log_printf("%-7.7s  ",
                gettext("US-III+"), 0);
            break;
        case JAGUAR_IMPL:
            log_printf("%-7.7s  ",
                gettext("US-IV"), 0);
            break;
        case PANTHER_IMPL:
            log_printf("%-7.7s  ",
                gettext("US-IV+"), 0);
            break;
        default:
            log_printf("%-7x  ", *impl, 0);
            break;
        }

        /* CPU Mask */
        if (mask == NULL) {
            log_printf("%-4.4s", gettext("N/A"), 0);
        } else {
            if (IS_CHEETAH(*impl))
                decoded_mask = REMAP_CHEETAH_MASK(*mask);
            else
                decoded_mask = *mask;

            log_printf("%d.%d",
                (decoded_mask >> 4) & 0xf,
                decoded_mask & 0xf, 0);
        }

        log_printf("\n", 0);
    }
}


/*ARGSUSED1*/
void
display_memoryconf(Sys_tree *tree, struct grp_info *grps)
{
    Board_node  *bnode = tree->bd_list;
    char    *hdrfmt = "\n%-11.11s  %-4.4s  %-7.7s  %-7.7s  %-8.8s  %-6.6s"
            "  %-10.10s  %-10.10s";

    (void) textdomain(TEXT_DOMAIN);

    log_printf("=========================", 0);
    log_printf(gettext(" Memory Configuration "), 0);
    log_printf("=========================", 0);
    log_printf("\n", 0);

    log_printf(hdrfmt,
        "", "",
        gettext("Logical"),
        gettext("Logical"),
        gettext("Logical"),
        "", "", "", 0);

    log_printf(hdrfmt,
        "",
        gettext("Port"),
        gettext("Bank"),
        gettext("Bank"),
        gettext("Bank"),
        gettext(" DIMM"),
        gettext("Interleave"),
        gettext("Interleave"), 0);

    log_printf(hdrfmt,
        gettext("Slot ID"),
        gettext(" ID"),
        gettext("Number"),
        gettext("Size"),
        gettext("Status"),
        gettext(" Size"),
        gettext("Factor"),
        gettext("Segment"), 0);

    log_printf(hdrfmt,
        "-----------", "----", "-------", "-------", "--------",
        "------", "----------", "----------", 0);

    while (bnode != NULL) {
        if (get_us3_mem_regs(bnode)) {
            log_printf(
                gettext(
                    "\nFailed to get memory information.\n"),
                    0);
            return;
        }
        bnode = bnode->next;
    }

    /* Display what we have found */
    display_us3_banks();
}


/*
 * This function provides Starcat's formatting of the memory config
 * information that get_us3_mem_regs() and display_us3_banks() code has
 * gathered. It overrides the generic print_us3_memory_line() code
 * which prints an error message.
 */
void
print_us3_memory_line(int portid, int bank_id, uint64_t bank_size,
    char *bank_status, uint64_t dimm_size, uint32_t intlv, int seg_id)
{
    (void) textdomain(TEXT_DOMAIN);

    /* Slot ID */
    log_printf("\n/%-2s%02d/P%1d/B%1d  ",
        SC_BOARD_TYPE(portid), PORTID_TO_EXPANDER(portid),
        PORTID_TO_INSTANCE(portid), (bank_id & 0x1), 0);

    /* Port ID */
    log_printf("%3d   ", portid, 0);

    /* Logical Bank Number */
    log_printf("   %1d     ", (bank_id & 0x3), 0);

    /* Logical Bank Size */
    log_printf("%4lldMB   ", bank_size, 0);

    /* Logical Bank Status */
    log_printf("%-8.8s  ", gettext(bank_status), 0);

    /* DIMM Size */
    log_printf("%4lldMB  ", dimm_size, 0);

    /* Interleave Factor */
    log_printf("  %2d-%-3.3s    ", intlv, gettext("way"), 0);

    /* Interleave Segment */
    log_printf("   %3d", seg_id, 0);
}

/*ARGSUSED2*/
void
display_diaginfo(int flag, Prom_node *root, Sys_tree *tree,
    struct system_kstat_data *kstats)
{
    if (flag) {
        /*
         * display time of latest powerfail. Not all systems
         * have this capability. For those that do not, this
         * is just a no-op.
         */
        disp_powerfail(root);

        (void) textdomain(TEXT_DOMAIN);

        /* Print the header */
        log_printf("\n", 0);
        log_printf("=========================", 0);
        log_printf(gettext(" Diagnostic Information "), 0);
        log_printf("=========================", 0);
        log_printf("\n\n", 0);
        log_printf(gettext("For diagnostic information,"), 0);
        log_printf("\n", 0);
        log_printf(gettext(
            "see /var/opt/SUNWSMS/adm/[A-R]/messages on the SC."),
            0);
        log_printf("\n", 0);

        /* Print the PROM revisions here */
        starcat_disp_hw_revisions(root);
    }
}

/*
 * local functions -  functions that are only needed inside this library
 */

static void
starcat_disp_hw_revisions(Prom_node *root)
{
    Prom_node   *pnode;
    char        *version;

    (void) textdomain(TEXT_DOMAIN);

    /* Print the header */
    log_printf("\n", 0);
    log_printf("=========================", 0);
    log_printf(gettext(" Hardware Revisions "), 0);
    log_printf("=========================", 0);
    log_printf("\n\n", 0);

    /* Display Prom revision header */
    log_printf(gettext("OpenBoot firmware revision:"), 0);
    log_printf("\n---------------------------\n", 0);

    /*
     * Display OBP version info
     */
    pnode = dev_find_node(root, "openprom");
    if (pnode != NULL) {
        version = (char *)get_prop_val(find_prop(pnode, "version"));
        log_printf("%s\n\n", version, 0);
    }
}

/*
 * We call do_devinfo() in order to use the libdevinfo device tree
 * instead of OBP's device tree.
 */
int
do_prominfo(int syserrlog, char *pgname, int log_flag, int prt_flag)
{

    return (do_devinfo(syserrlog, pgname, log_flag, prt_flag));

}

/*
 * return the property value for the Prop
 * passed in. (When using libdevinfo)
 */
void *
get_prop_val(Prop *prop)
{
    if (prop == NULL)
        return (NULL);

    return ((void *)(prop->value.val_ptr));
}

/*
 * Search a Prom node and retrieve the property with the correct
 * name. (When using libdevinfo)
 */
Prop *
find_prop(Prom_node *pnode, char *name)
{
    Prop *prop;

    if (pnode == NULL)
        return (NULL);

    for (prop = pnode->props; prop != NULL; prop = prop->next) {
        if (prop->name.val_ptr != NULL &&
            strcmp((char *)(prop->name.val_ptr), name) == 0)
            break;
    }

    return (prop);
}

/*
 * This function searches through the properties of the node passed in
 * and returns a pointer to the value of the name property.
 * (When using libdevinfo)
 */
char *
get_node_name(Prom_node *pnode)
{
    Prop *prop;

    if (pnode == NULL) {
        return (NULL);
    }

    prop = pnode->props;
    while (prop != NULL) {
        if (strcmp("name", (char *)prop->name.val_ptr) == 0)
            return (prop->value.val_ptr);
        prop = prop->next;
    }
    return (NULL);
}

/*
 * This function searches through the properties of the node passed in
 * and returns a pointer to the value of the device_type property.
 * (When using libdevinfo)
 */
char *
get_node_type(Prom_node *pnode)
{
    Prop *prop;

    if (pnode == NULL) {
        return (NULL);
    }

    prop = pnode->props;
    while (prop != NULL) {
        if (strcmp("device_type", (char *)prop->name.val_ptr) == 0)
            return (prop->value.val_ptr);
        prop = prop->next;
    }
    return (NULL);
}