xref: /onnv-gate/usr/src/lib/libprtdiag_psr/sparc/starcat/common/starcat.c (revision 5889:686e556a6c1d)

/*
 * 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 2008 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;
	uint_t 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("%4u  ", 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);
}