void MeasureTimePAPI::initializeThread(unsigned long int threadNumber)
{
#ifdef USE_PAPI
//unsigned long int threadNumber = threadHandle();
if (PAPI_attach(_eventSet, threadNumber) != PAPI_OK)
std::cerr << "PAPI attach failed! Thread: " << threadNumber << std::endl;
#endif
}
void papi_init_eventset(pid_t pid, int *EventSet) {
int retval;
if ( (retval = PAPI_create_eventset(EventSet) ) != PAPI_OK) {
fprintf(stderr, "PAPI EventSet init error!\n%s\n", PAPI_strerror(retval));
}
if ( (retval = PAPI_add_events(*EventSet, global_config.native_events, global_config.nb_papi_events) ) != PAPI_OK) {
fprintf(stderr, "PAPI add events error!\n%s\n", PAPI_strerror(retval));
}
if ( (retval = PAPI_attach(*EventSet, pid) ) != PAPI_OK) {
fprintf(stderr, "PAPI attach error!\n%s\n", PAPI_strerror(retval));
}
}
int
main( int argc, char **argv )
{
int status, retval, num_tests = 1, tmp;
int EventSet1 = PAPI_NULL;
long long **values;
long long elapsed_us, elapsed_cyc, elapsed_virt_us, elapsed_virt_cyc;
char event_name[PAPI_MAX_STR_LEN];;
const PAPI_hw_info_t *hw_info;
const PAPI_component_info_t *cmpinfo;
pid_t pid;
/* Fork before doing anything with the PMU */
setbuf(stdout,NULL);
pid = fork( );
if ( pid < 0 )
test_fail( __FILE__, __LINE__, "fork()", PAPI_ESYS );
if ( pid == 0 )
exit( wait_for_attach_and_loop( ) );
tests_quiet( argc, argv ); /* Set TESTS_QUIET variable */
/* Master only process below here */
retval = PAPI_library_init( PAPI_VER_CURRENT );
if ( retval != PAPI_VER_CURRENT )
test_fail_exit( __FILE__, __LINE__, "PAPI_library_init", retval );
if ( ( cmpinfo = PAPI_get_component_info( 0 ) ) == NULL )
test_fail_exit( __FILE__, __LINE__, "PAPI_get_component_info", 0 );
if ( cmpinfo->attach == 0 )
test_skip( __FILE__, __LINE__, "Platform does not support attaching",
0 );
hw_info = PAPI_get_hardware_info( );
if ( hw_info == NULL )
test_fail_exit( __FILE__, __LINE__, "PAPI_get_hardware_info", 0 );
/* add PAPI_TOT_CYC and one of the events in PAPI_FP_INS, PAPI_FP_OPS or
PAPI_TOT_INS, depending on the availability of the event on the
platform */
retval = PAPI_create_eventset(&EventSet1);
if ( retval != PAPI_OK )
test_fail_exit( __FILE__, __LINE__, "PAPI_attach", retval );
/* Force addition of component */
retval = PAPI_assign_eventset_component( EventSet1, 0 );
if ( retval != PAPI_OK )
test_fail( __FILE__, __LINE__, "PAPI_assign_eventset_component",
retval );
/* The following call causes this test to fail for perf_events */
retval = PAPI_attach( EventSet1, ( unsigned long ) pid );
if ( retval != PAPI_OK )
test_fail_exit( __FILE__, __LINE__, "PAPI_attach", retval );
sprintf(event_name,"PAPI_TOT_CYC");
retval = PAPI_add_event(EventSet1, PAPI_TOT_CYC);
if ( retval != PAPI_OK )
test_fail_exit( __FILE__, __LINE__, "PAPI_add_event", retval );
retval = PAPI_add_event(EventSet1, PAPI_FP_INS);
if ( retval == PAPI_ENOEVNT ) {
test_warn( __FILE__, __LINE__, "PAPI_FP_INS", retval);
} else if ( retval != PAPI_OK ) {
test_fail_exit( __FILE__, __LINE__, "PAPI_add_event", retval );
}
values = allocate_test_space( 1, 2);
elapsed_us = PAPI_get_real_usec( );
elapsed_cyc = PAPI_get_real_cyc( );
elapsed_virt_us = PAPI_get_virt_usec( );
elapsed_virt_cyc = PAPI_get_virt_cyc( );
printf("must_ptrace is %d\n",cmpinfo->attach_must_ptrace);
pid_t child = wait( &status );
printf( "Debugger exited wait() with %d\n",child );
if (WIFSTOPPED( status ))
{
printf( "Child has stopped due to signal %d (%s)\n",
WSTOPSIG( status ), strsignal(WSTOPSIG( status )) );
}
if (WIFSIGNALED( status ))
{
printf( "Child %ld received signal %d (%s)\n",
(long)child,
WTERMSIG(status) , strsignal(WTERMSIG( status )) );
}
printf("After %d\n",retval);
retval = PAPI_start( EventSet1 );
if ( retval != PAPI_OK )
test_fail_exit( __FILE__, __LINE__, "PAPI_start", retval );
printf("Continuing\n");
if ( ptrace( PTRACE_CONT, pid, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_CONT)" );
return 1;
}
do {
child = wait( &status );
printf( "Debugger exited wait() with %d\n", child);
if (WIFSTOPPED( status ))
{
printf( "Child has stopped due to signal %d (%s)\n",
WSTOPSIG( status ), strsignal(WSTOPSIG( status )) );
}
if (WIFSIGNALED( status ))
{
printf( "Child %ld received signal %d (%s)\n",
(long)child,
WTERMSIG(status) , strsignal(WTERMSIG( status )) );
}
} while (!WIFEXITED( status ));
printf("Child exited with value %d\n",WEXITSTATUS(status));
if (WEXITSTATUS(status) != 0)
test_fail_exit( __FILE__, __LINE__, "Exit status of child to attach to", PAPI_EMISC);
retval = PAPI_stop( EventSet1, values[0] );
if ( retval != PAPI_OK )
test_fail_exit( __FILE__, __LINE__, "PAPI_stop", retval );
elapsed_virt_us = PAPI_get_virt_usec( ) - elapsed_virt_us;
elapsed_virt_cyc = PAPI_get_virt_cyc( ) - elapsed_virt_cyc;
elapsed_us = PAPI_get_real_usec( ) - elapsed_us;
elapsed_cyc = PAPI_get_real_cyc( ) - elapsed_cyc;
retval = PAPI_cleanup_eventset(EventSet1);
if (retval != PAPI_OK)
test_fail_exit( __FILE__, __LINE__, "PAPI_cleanup_eventset", retval );
retval = PAPI_destroy_eventset(&EventSet1);
if (retval != PAPI_OK)
test_fail_exit( __FILE__, __LINE__, "PAPI_destroy_eventset", retval );
printf( "Test case: 3rd party attach start, stop.\n" );
printf( "-----------------------------------------------\n" );
tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );
printf( "Default domain is: %d (%s)\n", tmp, stringify_all_domains( tmp ) );
tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
printf( "Default granularity is: %d (%s)\n", tmp,
stringify_granularity( tmp ) );
printf( "Using %d iterations of c += a*b\n", NUM_FLOPS );
printf
( "-------------------------------------------------------------------------\n" );
printf( "Test type : \t 1\n" );
printf( TAB1, "PAPI_TOT_CYC : \t", ( values[0] )[0] );
printf( TAB1, "PAPI_FP_INS : \t", ( values[0] )[1] );
printf( TAB1, "Real usec : \t", elapsed_us );
printf( TAB1, "Real cycles : \t", elapsed_cyc );
printf( TAB1, "Virt usec : \t", elapsed_virt_us );
printf( TAB1, "Virt cycles : \t", elapsed_virt_cyc );
printf
( "-------------------------------------------------------------------------\n" );
printf( "Verification: none\n" );
test_pass( __FILE__, values, num_tests );
exit( 1 );
}
int
main( int argc, char **argv )
{
int status, retval, num_tests = 2, tmp;
int EventSet1 = PAPI_NULL, EventSet2 = PAPI_NULL;
int PAPI_event, PAPI_event2, mask1, mask2;
int num_events1, num_events2;
long long **values;
long long elapsed_us, elapsed_cyc, elapsed_virt_us, elapsed_virt_cyc;
char event_name[PAPI_MAX_STR_LEN], add_event_str[PAPI_MAX_STR_LEN];
const PAPI_component_info_t *cmpinfo;
pid_t pid, pid2;
double ratio1,ratio2;
/* Set TESTS_QUIET variable */
tests_quiet( argc, argv );
/* Initialize the library */
retval = PAPI_library_init( PAPI_VER_CURRENT );
if ( retval != PAPI_VER_CURRENT ) {
test_fail_exit( __FILE__, __LINE__, "PAPI_library_init", retval );
}
/* get the component info and check if we support attach */
if ( ( cmpinfo = PAPI_get_component_info( 0 ) ) == NULL ) {
test_fail_exit( __FILE__, __LINE__, "PAPI_get_component_info", 0 );
}
if ( cmpinfo->attach == 0 ) {
test_skip( __FILE__, __LINE__,
"Platform does not support attaching", 0 );
}
/* fork off first child */
pid = fork( );
if ( pid < 0 ) {
test_fail_exit( __FILE__, __LINE__, "fork()", PAPI_ESYS );
}
if ( pid == 0 ) {
exit( wait_for_attach_and_loop( 1 ) );
}
/* fork off second child, does twice as much */
pid2 = fork( );
if ( pid2 < 0 ) {
test_fail_exit( __FILE__, __LINE__, "fork()", PAPI_ESYS );
}
if ( pid2 == 0 ) {
exit( wait_for_attach_and_loop( 2 ) );
}
/* add PAPI_TOT_CYC and one of the events in
PAPI_FP_INS, PAPI_FP_OPS or PAPI_TOT_INS,
depending on the availability of the event
on the platform */
EventSet1 = add_two_events( &num_events1, &PAPI_event, &mask1 );
EventSet2 = add_two_events( &num_events2, &PAPI_event2, &mask2 );
if ( cmpinfo->attach_must_ptrace ) {
if ( ptrace( PTRACE_ATTACH, pid, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_ATTACH)" );
return 1 ;
}
if ( waitpid( pid, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFSTOPPED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didnt return true to WIFSTOPPED", 0 );
}
if ( ptrace( PTRACE_ATTACH, pid2, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_ATTACH)" );
return 1;
}
if ( waitpid( pid2, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFSTOPPED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didnt return true to WIFSTOPPED", 0 );
}
}
retval = PAPI_attach( EventSet1, ( unsigned long ) pid );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_attach", retval );
}
retval = PAPI_attach( EventSet2, ( unsigned long ) pid2 );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_attach", retval );
}
retval = PAPI_event_code_to_name( PAPI_event, event_name );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );
}
sprintf( add_event_str, "PAPI_add_event[%s]", event_name );
/* num_events1 is greater than num_events2 so don't worry. */
values = allocate_test_space( num_tests, num_events1 );
/* Gather before values */
elapsed_us = PAPI_get_real_usec( );
elapsed_cyc = PAPI_get_real_cyc( );
elapsed_virt_us = PAPI_get_virt_usec( );
elapsed_virt_cyc = PAPI_get_virt_cyc( );
/* Wait for the SIGSTOP. */
if ( cmpinfo->attach_must_ptrace ) {
if ( ptrace( PTRACE_CONT, pid, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_CONT)" );
return 1;
}
if ( waitpid( pid, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFSTOPPED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didn't return true to WIFSTOPPED", 0 );
}
if ( WSTOPSIG( status ) != SIGSTOP ) {
test_fail( __FILE__, __LINE__,
"Child process didn't stop on SIGSTOP", 0 );
}
if ( ptrace( PTRACE_CONT, pid2, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_CONT)" );
return 1;
}
if ( waitpid( pid2, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFSTOPPED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didn't return true to WIFSTOPPED", 0 );
}
if ( WSTOPSIG( status ) != SIGSTOP ) {
test_fail( __FILE__, __LINE__,
"Child process didn't stop on SIGSTOP", 0 );
}
}
/* start first child */
retval = PAPI_start( EventSet1 );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
}
/* start second child */
retval = PAPI_start( EventSet2 );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
}
/* Wait for the SIGSTOP. */
if ( cmpinfo->attach_must_ptrace ) {
if ( ptrace( PTRACE_CONT, pid, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_ATTACH)" );
return 1;
}
if ( waitpid( pid, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFSTOPPED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didn't return true to WIFSTOPPED", 0 );
}
if ( WSTOPSIG( status ) != SIGSTOP ) {
test_fail( __FILE__, __LINE__,
"Child process didn't stop on SIGSTOP", 0 );
}
if ( ptrace( PTRACE_CONT, pid2, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_ATTACH)" );
return 1;
}
if ( waitpid( pid2, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFSTOPPED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didn't return true to WIFSTOPPED", 0 );
}
if ( WSTOPSIG( status ) != SIGSTOP ) {
test_fail( __FILE__, __LINE__,
"Child process didn't stop on SIGSTOP", 0 );
}
}
elapsed_virt_us = PAPI_get_virt_usec( ) - elapsed_virt_us;
elapsed_virt_cyc = PAPI_get_virt_cyc( ) - elapsed_virt_cyc;
elapsed_us = PAPI_get_real_usec( ) - elapsed_us;
elapsed_cyc = PAPI_get_real_cyc( ) - elapsed_cyc;
/* stop first child */
retval = PAPI_stop( EventSet1, values[0] );
if ( retval != PAPI_OK ) {
printf( "Warning: PAPI_stop returned error %d, probably ok.\n",
retval );
}
/* stop second child */
retval = PAPI_stop( EventSet2, values[1] );
if ( retval != PAPI_OK ) {
printf( "Warning: PAPI_stop returned error %d, probably ok.\n",
retval );
}
remove_test_events( &EventSet1, mask1 );
remove_test_events( &EventSet2, mask2 );
if ( cmpinfo->attach_must_ptrace ) {
if ( ptrace( PTRACE_CONT, pid, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_CONT)" );
return 1;
}
if ( ptrace( PTRACE_CONT, pid2, NULL, NULL ) == -1 ) {
perror( "ptrace(PTRACE_CONT)" );
return 1;
}
}
if ( waitpid( pid, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFEXITED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didn't return true to WIFEXITED", 0 );
}
if ( waitpid( pid2, &status, 0 ) == -1 ) {
perror( "waitpid()" );
exit( 1 );
}
if ( WIFEXITED( status ) == 0 ) {
test_fail( __FILE__, __LINE__,
"Child process didn't return true to WIFEXITED", 0 );
}
/* This code isn't necessary as we know the child has exited, */
/* it *may* return an error if the component so chooses. You */
/* should use read() instead. */
printf( "Test case: multiple 3rd party attach start, stop.\n" );
printf( "-----------------------------------------------\n" );
tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );
printf( "Default domain is: %d (%s)\n", tmp,
stringify_all_domains( tmp ) );
tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
printf( "Default granularity is: %d (%s)\n", tmp,
stringify_granularity( tmp ) );
printf( "Using %d iterations of c += a*b\n", NUM_FLOPS );
printf( "-------------------------------------------------------------------------\n" );
sprintf( add_event_str, "(PID %jd) %-12s : \t", ( intmax_t ) pid,
event_name );
printf( TAB1, add_event_str, values[0][1] );
sprintf( add_event_str, "(PID %jd) PAPI_TOT_CYC : \t",
( intmax_t ) pid );
printf( TAB1, add_event_str, values[0][0] );
sprintf( add_event_str, "(PID %jd) %-12s : \t", ( intmax_t ) pid2,
event_name );
printf( TAB1, add_event_str,values[1][1] );
sprintf( add_event_str, "(PID %jd) PAPI_TOT_CYC : \t",
( intmax_t ) pid2 );
printf( TAB1, add_event_str, values[1][0] );
printf( TAB1, "Real usec : \t", elapsed_us );
printf( TAB1, "Real cycles : \t", elapsed_cyc );
printf( TAB1, "Virt usec : \t", elapsed_virt_us );
printf( TAB1, "Virt cycles : \t", elapsed_virt_cyc );
printf
( "-------------------------------------------------------------------------\n" );
printf("Verification: pid %d results should be twice pid %d\n",pid2,pid );
ratio1=(double)values[1][0]/(double)values[0][0];
ratio2=(double)values[1][1]/(double)values[0][1];
printf("\t%lld/%lld = %lf\n",values[1][0],values[0][0],ratio1);
if ((ratio1 >2.15 ) || (ratio1 < 1.85)) {
printf("Ratio out of range, should be ~2.0 not %lf\n",ratio1);
test_fail( __FILE__, __LINE__,
"Error: Counter ratio not two", 0 );
}
printf("\t%lld/%lld = %lf\n",values[1][1],values[0][1],ratio2);
if ((ratio2 >2.75 ) || (ratio2 < 1.25)) {
printf("Ratio out of range, should be ~2.0, not %lf\n",ratio2);
test_fail( __FILE__, __LINE__,
"Known issue: Counter ratio not two", 0 );
}
test_pass( __FILE__, values, num_tests );
return 0;
}
void *watch_process(void* _pid) {
pid_t pid = *((pid_t*)_pid);
printf("%d\n", pid);
int retval, EventSet = PAPI_NULL;
//char events_name[NB_EVENTS][PAPI_MAX_STR_LEN] = {"UNHALTED_CORE_CYCLES", "INSTRUCTION_RETIRED", "MEM_LOAD_RETIRED:L1D_HIT", "MEM_LOAD_RETIRED:L2_HIT", "LLC_REFERENCES"};
//char events_name[NB_EVENTS][PAPI_MAX_STR_LEN] = {"UNHALTED_CORE_CYCLES", "INSTRUCTION_RETIRED", "MEM_LOAD_RETIRED:L2_HIT", "L2_RQSTS:LOADS", "L2_DATA_RQSTS:ANY"};
//char events_name[NB_EVENTS][PAPI_MAX_STR_LEN] = {"UNHALTED_CORE_CYCLES", "INSTRUCTION_RETIRED", "L1I:READS", "L1D_CACHE_LD:MESI", "L1D_CACHE_ST:MESI"};
//char events_name[NB_EVENTS][PAPI_MAX_STR_LEN] = {"UNHALTED_CORE_CYCLES", "INSTRUCTION_RETIRED", "L1D_CACHE_LD:MESI", "L1D_CACHE_ST:MESI", "L2_DATA_RQSTS:ANY" };
char events_name[NB_EVENTS][PAPI_MAX_STR_LEN] = {"UNHALTED_CORE_CYCLES", "INSTRUCTION_RETIRED", "L1I:READS", "L1D_CACHE_LD:MESI", "L1D_CACHE_ST:MESI", "MEM_LOAD_RETIRED:L2_HIT", "L2_RQSTS:LOADS", "L2_DATA_RQSTS:ANY", "BR_INST_RETIRED:ALL_BRANCHES", "BR_INST_EXEC:ANY", "BR_MISP_EXEC:ANY" };
unsigned int native_events[NB_EVENTS];
long long values[NB_EVENTS];
int err;
/* Initialize the library */
if ( (err = PAPI_library_init(PAPI_VER_CURRENT)) != PAPI_VER_CURRENT) {
fprintf(stderr, "PAPI library init error! %d\n", err);
exit(1);
}
if ( (err = PAPI_multiplex_init()) != PAPI_OK) {
fprintf(stderr, "PAPI multiplex init error! %d\n", err);
exit(1);
}
if (PAPI_thread_init(pthread_self) != PAPI_OK) {
fprintf(stderr, "PAPI thread init error! %d\n", err);
exit(1);
}
//sched_setaffinity(0, 0);
//if ((retval = PAPI_set_granularity(PAPI_GRN_MAX)) != PAPI_OK) {
// fprintf(stderr, "PAPI set granurality error! %d, %d, %d, %d, %d\n", retval, PAPI_EINVAL, PAPI_ENOEVST, PAPI_ENOCMP, PAPI_EISRUN);
// exit(1);
//}
// Traduction des string en code
name_to_code(events_name, NB_EVENTS, native_events);
// Vérification des évènements
check_events(native_events, NB_EVENTS);
if (PAPI_create_eventset(&EventSet) != PAPI_OK) {
fprintf(stderr, "PAPI EventSet init error!\n");
exit(1);
}
if ( (err = PAPI_assign_eventset_component( EventSet, 0 ) ) != PAPI_OK ) {
fprintf(stderr, "PAPI assign component error!\n%s\n", PAPI_strerror(err));
exit(1);
}
if ( ( err = PAPI_set_multiplex(EventSet) ) != PAPI_OK) {
fprintf(stderr, "PAPI set multiplex error!\n%s\n", PAPI_strerror(err));
exit(1);
}
if ( (retval = PAPI_add_events(EventSet, native_events, NB_EVENTS) ) != PAPI_OK) {
fprintf(stderr, "PAPI add events error!\n%s\n", PAPI_strerror(retval) );
exit(1);
}
if (PAPI_attach(EventSet, pid) != PAPI_OK)
exit(1);
while(while_watch) {
/* Start counting */
if (PAPI_start(EventSet) != PAPI_OK) {
fprintf(stderr, "PAPI start error!\n");
exit(1);
}
usleep(1000000);
if (PAPI_stop(EventSet, values) != PAPI_OK) {
fprintf(stderr, "PAPI stop error!\n");
exit(1);
}
print_values(events_name, values, NB_EVENTS);
}
return 0;
}
