fm.c revision 9dd0f810214fdc8e1af881a9a5c4b6927629ff9e
/*
* 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.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <sys/types.h>
#include <sys/time.h>
#include <sys/sysmacros.h>
#include <sys/ddifm.h>
#include <sys/nvpair.h>
#include <sys/nvpair_impl.h>
#include <sys/errorq_impl.h>
#include <sys/errorq.h>
#include <sys/fm/protocol.h>
#include <ctype.h>
#include <mdb/mdb_modapi.h>
#include <mdb/mdb_ks.h>
#include "nvpair.h"
int
ereportq_pend_walk_init(mdb_walk_state_t *wsp)
{
errorq_t eq;
uintptr_t addr;
if (wsp->walk_addr == NULL &&
mdb_readvar(&addr, "ereport_errorq") == -1) {
mdb_warn("failed to read ereport_errorq");
return (WALK_ERR);
}
if (mdb_vread(&eq, sizeof (eq), addr) == -1) {
mdb_warn("failed to read ereport_errorq at %p", addr);
return (WALK_ERR);
}
if (!(eq.eq_flags & ERRORQ_NVLIST)) {
mdb_warn("errorq at %p does not service ereports", addr);
return (WALK_ERR);
}
wsp->walk_addr = (uintptr_t)eq.eq_pend;
return (WALK_NEXT);
}
int
ereportq_pend_walk_step(mdb_walk_state_t *wsp)
{
uintptr_t addr = wsp->walk_addr;
nvlist_t nvl;
errorq_nvelem_t eqnp;
errorq_elem_t elem;
if (addr == NULL)
return (WALK_DONE);
if (mdb_vread(&elem, sizeof (elem), addr) != sizeof (elem) ||
mdb_vread(&eqnp, sizeof (eqnp), (uintptr_t)elem.eqe_data)
!= sizeof (eqnp) || mdb_vread(&nvl, sizeof (nvl),
(uintptr_t)eqnp.eqn_nvl) != sizeof (nvl)) {
mdb_warn("failed to read ereportq element at %p", addr);
return (WALK_ERR);
}
wsp->walk_addr = (uintptr_t)elem.eqe_prev;
return (wsp->walk_callback((uintptr_t)eqnp.eqn_nvl, &nvl,
wsp->walk_cbdata));
}
int
ereportq_dump_walk_init(mdb_walk_state_t *wsp)
{
errorq_t eq;
uintptr_t addr;
if (wsp->walk_addr == NULL &&
mdb_readvar(&addr, "ereport_errorq") == -1) {
mdb_warn("failed to read ereport_errorq");
return (WALK_ERR);
}
if (mdb_vread(&eq, sizeof (eq), addr) == -1) {
mdb_warn("failed to read ereport_errorq at %p", addr);
return (WALK_ERR);
}
if (!(eq.eq_flags & ERRORQ_NVLIST)) {
mdb_warn("errorq at %p does not service ereports", addr);
return (WALK_ERR);
}
wsp->walk_addr = (uintptr_t)eq.eq_dump;
return (WALK_NEXT);
}
int
ereportq_dump_walk_step(mdb_walk_state_t *wsp)
{
uintptr_t addr = wsp->walk_addr;
nvlist_t nvl;
errorq_nvelem_t eqnp;
errorq_elem_t elem;
if (addr == NULL)
return (WALK_DONE);
if (mdb_vread(&elem, sizeof (elem), addr) != sizeof (elem) ||
mdb_vread(&eqnp, sizeof (eqnp), (uintptr_t)elem.eqe_data)
!= sizeof (eqnp) || mdb_vread(&nvl, sizeof (nvl),
(uintptr_t)eqnp.eqn_nvl) != sizeof (nvl)) {
mdb_warn("failed to read ereportq element at %p", addr);
return (WALK_ERR);
}
wsp->walk_addr = (uintptr_t)elem.eqe_dump;
return (wsp->walk_callback((uintptr_t)eqnp.eqn_nvl, &nvl,
wsp->walk_cbdata));
}
/*ARGSUSED*/
int
ereport(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
{
int ret;
uint_t opt_v = 0;
char *class = NULL;
uint64_t ena = 0;
nvlist_t nvl;
nvpriv_t nvpriv;
i_nvp_t *nvcur, i_nvp;
if (!(flags & DCMD_ADDRSPEC))
return (DCMD_USAGE);
if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, TRUE, &opt_v) != argc)
return (DCMD_USAGE);
if (mdb_vread(&nvl, sizeof (nvl), addr) == -1) {
mdb_warn("failed to read nvlist at %p", addr);
return (DCMD_ERR);
}
if (DCMD_HDRSPEC(flags) && !opt_v) {
mdb_printf("ENA CLASS\n");
}
/*
* The following code attempts to pretty print the ereport class
* and ENA. The code uses project private macros from libnvpair
* that could change and break this functionality. If we are unable
* to get a valid class and ENA from the nvpair list, we revert to
* dumping the nvlist (same as opt_v).
*/
if (mdb_vread(&nvpriv, sizeof (nvpriv), nvl.nvl_priv) == -1) {
mdb_warn("failed to read nvpriv at %p", nvl.nvl_priv);
return (DCMD_ERR);
}
for (nvcur = nvpriv.nvp_list; nvcur != NULL; nvcur = i_nvp.nvi_next) {
nvpair_t *nvp, *nvpair;
int32_t size;
if (opt_v)
break;
if (mdb_vread(&i_nvp, sizeof (i_nvp), (uintptr_t)nvcur) == -1) {
mdb_warn("failed to read i_nvp at %p", nvcur);
return (DCMD_ERR);
}
nvp = &i_nvp.nvi_nvp;
size = NVP_SIZE(nvp);
if (size == 0) {
mdb_warn("nvpair of size zero at %p", nvp);
return (DCMD_OK);
}
/* read in the entire nvpair */
nvpair = mdb_alloc(size, UM_SLEEP | UM_GC);
if (mdb_vread(nvpair, size, (uintptr_t)&nvcur->nvi_nvp) == -1) {
mdb_warn("failed to read nvpair and data at %p", nvp);
return (DCMD_ERR);
}
if (strcmp(FM_CLASS, NVP_NAME(nvpair)) == 0 &&
NVP_TYPE(nvpair) == DATA_TYPE_STRING && class == NULL) {
char *p = (char *)NVP_VALUE(nvpair);
class = mdb_zalloc(strlen(p) + 1, UM_SLEEP | UM_GC);
bcopy(p, class, strlen(p));
} else if (strcmp(FM_EREPORT_ENA, NVP_NAME(nvpair)) == 0 &&
NVP_TYPE(nvpair) == DATA_TYPE_UINT64 && ena == 0) {
bcopy(NVP_VALUE(nvpair), (char *)&ena,
sizeof (uint64_t));
}
if (class != NULL && ena != 0) {
mdb_printf("0x%016llx %s\n", ena, class);
return (DCMD_OK);
}
}
/*
* Dump entire nvlist
*/
ret = mdb_call_dcmd("nvlist", addr, flags | DCMD_ADDRSPEC,
0, argv);
mdb_printf("\n");
return (ret);
}