Skip to content

Commit

Permalink
utils: papi_avail extension for component presets
Browse files Browse the repository at this point in the history 
Enumerate presets for components as well as the CPU.

These changes have been tested on the NVIDIA Grace-Hopper architecture.
  • Loading branch information
@dbarry9
dbarry9 committed Nov 27, 2024
1 parent 3a91293 commit b57602c
Showing 1 changed file with 156 additions and 6 deletions.
162 changes: 156 additions & 6 deletions src/utils/papi_avail.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -277,19 +277,31 @@ int is_preset_event_available(char *name) {
exit(1);
}

/* Since some component presets require qualifiers, such as ":device=0", but
* the base preset names do not contain qualifiers, then the qualifier must
* first be stripped in order to find a match. */
char *localname = strdup(name);
char *basename = strtok(localname, ":");
if( NULL == basename ) {
basename = name;
}

/* Iterate over all the available preset events and compare them by names. */
do {
if ( PAPI_get_event_info( event_code, &info ) == PAPI_OK ) {

if ( info.count ) {
if ( (check_counter && checkCounter (event_code)) || !check_counter) {
if (strcmp(info.symbol, name) == 0)
if (strcmp(info.symbol, basename) == 0)
return 1;
}
}
}
} while (PAPI_enum_event( &event_code, PAPI_PRESET_ENUM_AVAIL ) == PAPI_OK);

/* Free the temporary, dynamically allocated buffer. */
free(localname);

return 0;
}

Expand Down Expand Up @@ -503,7 +515,7 @@ main( int argc, char **argv )
}
printf( "Deriv Description (Note)\n" );
} else {
printf( "%-13s%-11s%-8s%-16s\n |Long Description|\n"
printf( "%-17s%-11s%-8s%-16s\n |Long Description|\n"
" |Developer's Notes|\n |Derived|\n |PostFix|\n"
" Native Code[n]: <hex> |name|\n",
"Symbol", "Event Code", "Count", "|Short Description|" );
Expand All @@ -517,7 +529,7 @@ main( int argc, char **argv )
if ( info.count ) {
if ( (check_counter && checkCounter (event_code)) || !check_counter)
{
printf( "%-13s%#x %-5s%s",
printf( "%-17s%#x %-5s%s",
info.symbol,
info.event_code,
is_derived( &info ), info.long_descr );
Expand All @@ -528,7 +540,7 @@ main( int argc, char **argv )
}
printf( "\n" );
} else {
printf( "%-13s%#x %-6s%-4s %s",
printf( "%-17s%#x %-6s%-4s %s",
info.symbol,
info.event_code,
( info.count ? "Yes" : "No" ),
Expand Down Expand Up @@ -575,13 +587,151 @@ main( int argc, char **argv )
}
}
} while (PAPI_enum_event( &event_code, print_avail_only ) == PAPI_OK);

/* Repeat the logic for component presets. For consistency, always ASK FOR the first event,
* if there is not one then nothing to process */
if (PAPI_enum_event( &event_code, PAPI_ENUM_FIRST_COMP ) != PAPI_OK) {
continue;
}

/* Print heading for component presets. */
if (i== 0) {

if( print_avail_only == PAPI_PRESET_ENUM_CPU ) {
print_avail_only = PAPI_ENUM_EVENTS;
} else if( print_avail_only == PAPI_PRESET_ENUM_CPU_AVAIL ) {
print_avail_only = PAPI_PRESET_ENUM_AVAIL;
}

printf( "================================================================================\n" );
printf( " PAPI Component Presets\n" );
printf( "================================================================================\n" );

if ( print_tabular ) {
printf( " Name Code " );
if ( print_avail_only == PAPI_ENUM_EVENTS ) {
printf( "Avail " );
}
printf( "Deriv Description (Note)\n" );
} else {
printf( "%-17s%-11s%-8s%-16s\n |Long Description|\n"
" |Developer's Notes|\n |Derived|\n |PostFix|\n"
" Native Code[n]: <hex> |name|\n",
"Symbol", "Event Code", "Count", "|Short Description|" );
}

int first_flag = 1;
do {
if ( PAPI_get_event_info( event_code, &info ) == PAPI_OK ) {
if ( print_tabular ) {
// if this is a user defined event or its a preset and matches the preset event filters, display its information
if ( filter & info.event_type ) {
if ( print_avail_only == PAPI_PRESET_ENUM_AVAIL ) {
if ( info.count ) {
if ( (check_counter && checkCounter (event_code)) || !check_counter) {
printf( "%-17s%#x %-5s%s\n",
info.symbol,
info.event_code,
is_derived( &info ), info.long_descr );

/* Add event to tally. */
avail_count++;
if ( !strcmp( is_derived( &info ), "Yes" ) ) {
deriv_count++;
}

/* List the qualifiers. */
int k;
for( k = 0; k < info.num_quals; ++k ) {
printf(" %s\n %s", info.quals[k], info.descrs[k]);
}
}
}
if ( info.note[0] ) {
printf( " (%s)", info.note );
}
printf( "\n" );
} else { // DB: This is the block to look in.

int cid, numcmp = PAPI_num_components();
for ( cid = 0; cid < numcmp; cid++ ) {
const PAPI_component_info_t *component;
component=PAPI_get_component_info(cid);

/* Skip disabled components */
if (component->disabled && component->disabled != PAPI_EDELAY_INIT) continue;

if ( info.count && info.compIdx == cid ) {
if( !first_flag ) {
printf( "--------------------------------------------------------------------------------\n" );
}
first_flag = 0;
printf( "%-17s%#x %-6s%-4s %s",
info.symbol,
info.event_code,
( info.count ? "Yes" : "No" ),
is_derived( &info ), info.long_descr );
if ( info.note[0] ) {
printf( " (%s)", info.note );
}
printf("\n");

/* List the qualifiers. */
int k;
for( k = 0; k < info.num_quals; ++k ) {
printf(" %s\n %s\n", info.quals[k], info.descrs[k]);
}

tot_count++;
if ( info.count ) {
if ((check_counter && checkCounter (event_code)) || !check_counter )
avail_count++;
}
if ( !strcmp( is_derived( &info ), "Yes" ) ) {
deriv_count++;
}
}
} // end of loop for number of components
}
}
} else {
if ( ( print_avail_only == PAPI_PRESET_ENUM_AVAIL && info.count ) ||
( print_avail_only == PAPI_ENUM_EVENTS ) )
{
if ((check_counter && checkCounter (event_code)) || !check_counter) {
printf( "%s\t%#x\t%d\t|%s|\n |%s|\n"
" |%s|\n |%s|\n |%s|\n",
info.symbol, info.event_code, info.count,
info.short_descr, info.long_descr, info.note,
info.derived, info.postfix );
for ( j = 0; j < ( int ) info.count; j++ ) {
printf( " Native Code[%d]: %#x |%s|\n", j,
info.code[j], info.name[j] );
}
}
}
tot_count++;
if ( info.count ) {
if ((check_counter && checkCounter (event_code)) || !check_counter )
avail_count++;
}
if ( !strcmp( is_derived( &info ), "Yes" ) ) {
deriv_count++;
}
}
}
} while (PAPI_enum_event( &event_code, PAPI_ENUM_EVENTS ) == PAPI_OK);
}



}
}

printf( "--------------------------------------------------------------------------------\n" );
printf( "================================================================================\n" );

if ( !print_event_info ) {
if ( print_avail_only == PAPI_PRESET_ENUM_CPU_AVAIL ) {
if ( print_avail_only == PAPI_PRESET_ENUM_CPU_AVAIL || print_avail_only == PAPI_PRESET_ENUM_AVAIL ) {
printf( "Of %d available events, %d ", avail_count, deriv_count );
} else {
printf( "Of %d possible events, %d are available, of which %d ",
Expand Down

0 comments on commit b57602c

Please sign in to comment.