1N/A/*
1N/A * Copyright 2009, Intel Corporation
1N/A * Copyright 2009, Sun Microsystems, Inc
1N/A *
1N/A * This file is part of PowerTOP
1N/A *
1N/A * This program file is free software; you can redistribute it and/or modify it
1N/A * under the terms of the GNU General Public License as published by the
1N/A * Free Software Foundation; version 2 of the License.
1N/A *
1N/A * This program is distributed in the hope that it will be useful, but WITHOUT
1N/A * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
1N/A * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
1N/A * for more details.
1N/A *
1N/A * You should have received a copy of the GNU General Public License
1N/A * along with this program in a file named COPYING; if not, write to the
1N/A * Free Software Foundation, Inc.,
1N/A * 51 Franklin Street, Fifth Floor,
1N/A * Boston, MA 02110-1301 USA
1N/A *
1N/A * Authors:
1N/A * Arjan van de Ven <arjan@linux.intel.com>
1N/A * Eric C Saxe <eric.saxe@sun.com>
1N/A * Aubrey Li <aubrey.li@intel.com>
1N/A */
1N/A
1N/A/*
1N/A * GPL Disclaimer
1N/A *
1N/A * For the avoidance of doubt, except that if any license choice other
1N/A * than GPL or LGPL is available it will apply instead, Sun elects to
1N/A * use only the General Public License version 2 (GPLv2) at this time
1N/A * for any software where a choice of GPL license versions is made
1N/A * available with the language indicating that GPLv2 or any later
1N/A * version may be used, or where a choice of which version of the GPL
1N/A * is applied is otherwise unspecified.
1N/A */
1N/A
1N/A#include <string.h>
1N/A#include <stdlib.h>
1N/A#include <dtrace.h>
1N/A#include "powertop.h"
1N/A
1N/Astatic dtrace_hdl_t *dtp;
1N/Astatic event_info_t *event;
1N/A
1N/A/*ARGSUSED*/
1N/Astatic int
1N/Apt_events_walk(const dtrace_aggdata_t *data, void *arg)
1N/A{
1N/A dtrace_aggdesc_t *aggdesc = data->dtada_desc;
1N/A dtrace_recdesc_t *rec1, *rec2, *rec3;
1N/A dtrace_syminfo_t dts;
1N/A GElf_Sym sym;
1N/A uint64_t offender_addr;
1N/A uint64_t n = 0;
1N/A int32_t *instance, *offender_cpu;
1N/A int i;
1N/A char *offense_name;
1N/A
1N/A if (g_top_events >= EVENT_NUM_MAX)
1N/A return (0);
1N/A
1N/A rec1 = &aggdesc->dtagd_rec[1];
1N/A rec2 = &aggdesc->dtagd_rec[2];
1N/A
1N/A /*
1N/A * Report interrupts
1N/A */
1N/A if (strcmp(aggdesc->dtagd_name, "interrupts") == 0) {
1N/A offense_name = data->dtada_data + rec1->dtrd_offset;
1N/A
1N/A /* LINTED - alignment */
1N/A instance = (int32_t *)(data->dtada_data + rec2->dtrd_offset);
1N/A (void) snprintf((char *)(event->offender_name),
1N/A EVENT_NAME_MAX, "%s", "<interrupt>");
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "%s#%d", offense_name, *instance);
1N/A /*
1N/A * Report kernel events
1N/A */
1N/A } else if (strcmp(aggdesc->dtagd_name, "events_k") == 0) {
1N/A
1N/A (void) snprintf((char *)(event->offender_name),
1N/A EVENT_NAME_MAX, "%s", "<kernel>");
1N/A
1N/A /*
1N/A * Casting offender_addr to the wrong type will cause
1N/A * dtrace_lookup_by_addr to return 0 and the report
1N/A * to show an address instead of a name.
1N/A */
1N/A switch (g_bit_depth) {
1N/A case 32:
1N/A /* LINTED - alignment */
1N/A offender_addr = *(uint32_t *)(data->dtada_data +
1N/A rec1->dtrd_offset);
1N/A break;
1N/A case 64:
1N/A /* LINTED - alignment */
1N/A offender_addr = *(uint64_t *)(data->dtada_data +
1N/A rec1->dtrd_offset);
1N/A break;
1N/A }
1N/A
1N/A /*
1N/A * We have the address of the kernel callout.
1N/A * Try to resolve it into a meaningful symbol
1N/A */
1N/A if (offender_addr != NULL && dtrace_lookup_by_addr(dtp,
1N/A offender_addr, &sym, &dts) == 0) {
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "%s`%s", dts.dts_object,
1N/A dts.dts_name);
1N/A } else {
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "0x%llx", offender_addr);
1N/A }
1N/A /*
1N/A * Report user events
1N/A */
1N/A } else if (strcmp(aggdesc->dtagd_name, "events_u") == 0) {
1N/A offense_name = data->dtada_data + rec1->dtrd_offset;
1N/A
1N/A (void) snprintf((char *)(event->offender_name),
1N/A EVENT_NAME_MAX, "%s", offense_name);
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "<scheduled timeout expiration>");
1N/A /*
1N/A * Report cross calls
1N/A */
1N/A } else if (strcmp(aggdesc->dtagd_name, "events_x") == 0) {
1N/A offense_name = data->dtada_data + rec1->dtrd_offset;
1N/A
1N/A (void) snprintf((char *)(event->offender_name),
1N/A EVENT_NAME_MAX, "%s", offense_name);
1N/A
1N/A switch (g_bit_depth) {
1N/A case 32:
1N/A /* LINTED - alignment */
1N/A offender_addr = *(uint32_t *)(data->dtada_data +
1N/A rec2->dtrd_offset);
1N/A break;
1N/A case 64:
1N/A /* LINTED - alignment */
1N/A offender_addr = *(uint64_t *)(data->dtada_data +
1N/A rec2->dtrd_offset);
1N/A break;
1N/A }
1N/A
1N/A /*
1N/A * Try to resolve the address of the cross call function.
1N/A */
1N/A if (offender_addr != NULL && dtrace_lookup_by_addr(dtp,
1N/A offender_addr, &sym, &dts) == 0) {
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "<xcalls> %s`%s",
1N/A dts.dts_object, dts.dts_name);
1N/A } else {
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "<xcalls>");
1N/A }
1N/A /*
1N/A * Report cross calls from other CPUs than the one we're observing
1N/A * with the -C option
1N/A */
1N/A } else if (strcmp(aggdesc->dtagd_name, "events_xc") == 0) {
1N/A rec3 = &aggdesc->dtagd_rec[3];
1N/A offense_name = data->dtada_data + rec1->dtrd_offset;
1N/A
1N/A (void) snprintf((char *)(event->offender_name),
1N/A EVENT_NAME_MAX, "%s", offense_name);
1N/A
1N/A switch (g_bit_depth) {
1N/A case 32:
1N/A /* LINTED - alignment */
1N/A offender_addr = *(uint32_t *)(data->dtada_data +
1N/A rec2->dtrd_offset);
1N/A break;
1N/A case 64:
1N/A /* LINTED - alignment */
1N/A offender_addr = *(uint64_t *)(data->dtada_data +
1N/A rec2->dtrd_offset);
1N/A break;
1N/A }
1N/A /* LINTED - alignment */
1N/A offender_cpu = (int32_t *)(data->dtada_data +
1N/A rec3->dtrd_offset);
1N/A
1N/A /*
1N/A * Try to resolve the address of the cross call function.
1N/A */
1N/A if (offender_addr != NULL && dtrace_lookup_by_addr(dtp,
1N/A offender_addr, &sym, &dts) == 0) {
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "<xcalls> %s`%s (CPU %d)",
1N/A dts.dts_object, dts.dts_name, *offender_cpu);
1N/A } else {
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "<xcalls> (CPU %d)",
1N/A *offender_cpu);
1N/A }
1N/A /*
1N/A * Report unknown events
1N/A */
1N/A } else {
1N/A (void) snprintf((char *)(event->offender_name),
1N/A EVENT_NAME_MAX, "%s", "<unknown>");
1N/A (void) snprintf((char *)(event->offense_name),
1N/A EVENT_NAME_MAX, "%s", "<unknown>");
1N/A }
1N/A
1N/A for (i = 0; i < g_ncpus; i++) {
1N/A /* LINTED - alignment */
1N/A n += *((uint64_t *)(data->dtada_percpu[i]));
1N/A }
1N/A
1N/A event->total_count = n;
1N/A
1N/A event++;
1N/A g_top_events++;
1N/A
1N/A return (DTRACE_AGGWALK_NEXT);
1N/A}
1N/A
1N/Aint
1N/Apt_events_stat_prepare(void)
1N/A{
1N/A dtrace_prog_t *prog;
1N/A dtrace_proginfo_t info;
1N/A dtrace_optval_t statustime;
1N/A int err;
1N/A char *prog_ptr;
1N/A
1N/A event = g_event_info;
1N/A
1N/A if ((dtp = dtrace_open(DTRACE_VERSION, 0, &err)) == NULL) {
1N/A pt_error("cannot open dtrace library for the event report: "
1N/A "%s\n", dtrace_errmsg(NULL, err));
1N/A return (-1);
1N/A }
1N/A
1N/A /*
1N/A * Execute different scripts (defined in the platform specific file)
1N/A * depending on user specified options.
1N/A */
1N/A if (PT_ON_VERBOSE) {
1N/A prog_ptr = (char *)g_dtp_events_v;
1N/A } else {
1N/A if (PT_ON_CPU)
1N/A prog_ptr = (char *)g_dtp_events_c;
1N/A else
1N/A prog_ptr = (char *)g_dtp_events;
1N/A }
1N/A
1N/A if ((prog = dtrace_program_strcompile(dtp, prog_ptr,
1N/A DTRACE_PROBESPEC_NAME, 0, g_argc, g_argv)) == NULL) {
1N/A pt_error("failed to compile the event report program\n");
1N/A return (dtrace_errno(dtp));
1N/A }
1N/A
1N/A if (dtrace_program_exec(dtp, prog, &info) == -1) {
1N/A pt_error("failed to enable probes for the event report\n");
1N/A return (dtrace_errno(dtp));
1N/A }
1N/A
1N/A if (dtrace_setopt(dtp, "aggsize", "128k") == -1) {
1N/A pt_error("failed to set 'aggsize' for the event report\n");
1N/A return (dtrace_errno(dtp));
1N/A }
1N/A
1N/A if (dtrace_setopt(dtp, "aggrate", "0") == -1) {
1N/A pt_error("failed to set 'aggrate' for the event report\n");
1N/A return (dtrace_errno(dtp));
1N/A }
1N/A
1N/A if (dtrace_setopt(dtp, "aggpercpu", 0) == -1) {
1N/A pt_error("failed to set 'aggpercpu' for the event report\n");
1N/A return (dtrace_errno(dtp));
1N/A }
1N/A
1N/A if (dtrace_go(dtp) != 0) {
1N/A pt_error("failed to start the event report observation\n");
1N/A return (dtrace_errno(dtp));
1N/A }
1N/A
1N/A if (dtrace_getopt(dtp, "statusrate", &statustime) == -1) {
1N/A pt_error("failed to get 'statusrate' for the event report\n");
1N/A return (dtrace_errno(dtp));
1N/A }
1N/A
1N/A return (0);
1N/A}
1N/A
1N/Aint
1N/Apt_events_stat_collect(void)
1N/A{
1N/A g_top_events = 0;
1N/A event = g_event_info;
1N/A
1N/A if (dtrace_status(dtp) == -1)
1N/A return (-1);
1N/A
1N/A if (dtrace_aggregate_snap(dtp) != 0)
1N/A pt_error("failed to collect data for the event report\n");
1N/A
1N/A if (dtrace_aggregate_walk_keyvarsorted(dtp, pt_events_walk, NULL) != 0)
1N/A pt_error("failed to sort data for the event report\n");
1N/A
1N/A dtrace_aggregate_clear(dtp);
1N/A
1N/A return (0);
1N/A}