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