modules/genunix/pg.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.
 */

/*
 * Display processor group information
 */

#include "pg.h"

#include <mdb/mdb_modapi.h>
#include <sys/pghw.h>
#include <sys/cmt.h>

/*
 * PG hardware types indexed by hardware ID
 */
char *pg_hw_names[] = {
    "hw",
    "ipipe",
    "cache",
    "fpu",
    "mpipe",
    "chip",
    "memory",
    "active_pwr",
    "idle_pwr",
};

#define A_CNT(arr)  (sizeof (arr) / sizeof (arr[0]))

#define NHW  A_CNT(pg_hw_names)

/*
 * Convert HW id to symbolic name
 */
static char *
pg_hw_name(int hw)
{
    return ((hw < 0 || hw > NHW) ? "UNKNOWN" : pg_hw_names[hw]);
}

/*
 * Display processor group.
 */
/* ARGSUSED */
int
pg(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
{
    pg_t        pg;
    pghw_t      pghw;
    pg_cmt_t    pg_cmt;
    pg_class_t  pg_class;
    int     opt_q = 0; /* display only address. */
    int     is_cmt = 0; /* This is CMT pg */

    /* Should provide an address */
    if (! (flags & DCMD_ADDRSPEC))
        return (DCMD_USAGE);

    if (mdb_getopts(argc, argv,
        'q', MDB_OPT_SETBITS, TRUE, &opt_q,
        NULL) != argc)
        return (DCMD_USAGE);

    if (flags & DCMD_PIPE_OUT)
        opt_q = B_TRUE;

    if (DCMD_HDRSPEC(flags) && !opt_q) {
        mdb_printf("%6s %?s %6s %7s %11s %5s %5s\n",
            "PGID",
            "ADDR",
            "PHYSID",
            "CLASS",
            "HARDWARE",
            "#CPUs",
            "LOAD");
    }

    /*
     * Read pg at specified address
     */
    if (mdb_vread(&pg, sizeof (struct pg), addr) == -1) {
        mdb_warn("unable to read 'pg' at %p", addr);
        return (DCMD_ERR);
    }

    /*
     * In quiet mode just print pg address
     */
    if (opt_q) {
        mdb_printf("%0?p\n", addr);
        return (DCMD_OK);
    }

    if (mdb_vread(&pg_class, sizeof (struct pg_class),
        (uintptr_t)pg.pg_class) == -1) {
        mdb_warn("unable to read 'pg_class' at %p", pg.pg_class);
        return (DCMD_ERR);
    }

    if (strcmp(pg_class.pgc_name, "cmt") == 0) {
        if (mdb_vread(&pg_cmt, sizeof (pg_cmt_t), addr) == -1) {
            mdb_warn("unable to read 'cmt pg' at %p", addr);
            return (DCMD_ERR);
        }
        is_cmt = 1;
    }

    if (pg.pg_relation == PGR_PHYSICAL) {
        if (mdb_vread(&pghw, sizeof (struct pghw), addr) == -1) {
            mdb_warn("unable to read 'pghw' at %p", addr);
            return (DCMD_ERR);
        }
        /*
         * Display the physical PG info.
         */
        mdb_printf("%6d %?p %6d %7s %11s %5d %5d\n",
            pg.pg_id, addr, pghw.pghw_instance,
            pg_class.pgc_name, pg_hw_name(pghw.pghw_hw),
            pg.pg_cpus.grp_size,
            is_cmt ? pg_cmt.cmt_utilization : 0);
    } else {
        /*
         * Display the basic PG info.
         */
        mdb_printf("%6d %?p %7s %5d\n",
            pg.pg_id, addr, pg_class.pgc_name,
            pg.pg_cpus.grp_size);
    }

    return (DCMD_OK);
}