|
PAPI
5.0.1.0
|

Go to the source code of this file.
Functions | |
| void * | Thread (void *arg) |
| int | main (int argc, char **argv) |
| int main | ( | int | argc, |
| char ** | argv | ||
| ) |
Definition at line 107 of file zero_pthreads.c.
{
pthread_t e_th, f_th, g_th, h_th;
int flops1, flops2, flops3, flops4;
int retval, rc;
pthread_attr_t attr;
long long elapsed_us, elapsed_cyc;
/* Set TESTS_QUIET variable */
tests_quiet( argc, argv );
/* Init PAPI library */
retval = PAPI_library_init( PAPI_VER_CURRENT );
if ( retval != PAPI_VER_CURRENT ) {
test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
}
retval = PAPI_thread_init( ( unsigned long ( * )( void ) )
( pthread_self ) );
if ( retval != PAPI_OK ) {
if ( retval == PAPI_ECMP ) {
test_skip( __FILE__, __LINE__, "PAPI_thread_init", retval );
}
else {
test_fail( __FILE__, __LINE__, "PAPI_thread_init", retval );
}
}
elapsed_us = PAPI_get_real_usec( );
elapsed_cyc = PAPI_get_real_cyc( );
pthread_attr_init( &attr );
#ifdef PTHREAD_CREATE_UNDETACHED
pthread_attr_setdetachstate( &attr, PTHREAD_CREATE_UNDETACHED );
#endif
#ifdef PTHREAD_SCOPE_SYSTEM
retval = pthread_attr_setscope( &attr, PTHREAD_SCOPE_SYSTEM );
if ( retval != 0 )
test_skip( __FILE__, __LINE__, "pthread_attr_setscope", retval );
#endif
flops1 = 1000000;
rc = pthread_create( &e_th, &attr, Thread, ( void * ) &flops1 );
if ( rc ) {
retval = PAPI_ESYS;
test_fail( __FILE__, __LINE__, "pthread_create", retval );
}
flops2 = 2000000;
rc = pthread_create( &f_th, &attr, Thread, ( void * ) &flops2 );
if ( rc ) {
retval = PAPI_ESYS;
test_fail( __FILE__, __LINE__, "pthread_create", retval );
}
flops3 = 4000000;
rc = pthread_create( &g_th, &attr, Thread, ( void * ) &flops3 );
if ( rc ) {
retval = PAPI_ESYS;
test_fail( __FILE__, __LINE__, "pthread_create", retval );
}
flops4 = 8000000;
rc = pthread_create( &h_th, &attr, Thread, ( void * ) &flops4 );
if ( rc ) {
retval = PAPI_ESYS;
test_fail( __FILE__, __LINE__, "pthread_create", retval );
}
pthread_attr_destroy( &attr );
flops1 = 500000;
Thread( &flops1 );
pthread_join( h_th, NULL );
pthread_join( g_th, NULL );
pthread_join( f_th, NULL );
pthread_join( e_th, NULL );
elapsed_cyc = PAPI_get_real_cyc( ) - elapsed_cyc;
elapsed_us = PAPI_get_real_usec( ) - elapsed_us;
if ( !TESTS_QUIET ) {
printf( "Master real usec : \t%lld\n", elapsed_us );
printf( "Master real cycles : \t%lld\n", elapsed_cyc );
}
test_pass( __FILE__, NULL, 0 );
pthread_exit( NULL );
exit( 1 );
}

| void* Thread | ( | void * | arg | ) |
Definition at line 36 of file zero_pthreads.c.
{
int retval, num_tests = 1;
int EventSet1 = PAPI_NULL;
int PAPI_event, mask1;
int num_events1;
long long **values;
long long elapsed_us, elapsed_cyc;
char event_name[PAPI_MAX_STR_LEN];
retval = PAPI_register_thread( );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_register_thread", retval );
}
printf( "Thread 0x%x started\n", ( int ) pthread_self( ) );
/* 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 );
retval = PAPI_event_code_to_name( PAPI_event, event_name );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );
}
values = allocate_test_space( num_tests, num_events1 );
elapsed_us = PAPI_get_real_usec( );
elapsed_cyc = PAPI_get_real_cyc( );
retval = PAPI_start( EventSet1 );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
}
do_flops( *( int * ) arg );
retval = PAPI_stop( EventSet1, values[0] );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
}
elapsed_us = PAPI_get_real_usec( ) - elapsed_us;
elapsed_cyc = PAPI_get_real_cyc( ) - elapsed_cyc;
remove_test_events( &EventSet1, mask1 );
if ( !TESTS_QUIET ) {
printf( "Thread 0x%x %-12s : \t%lld\n", ( int ) pthread_self( ),
event_name, values[0][1] );
printf( "Thread 0x%x PAPI_TOT_CYC : \t%lld\n", (int) pthread_self(),
values[0][0] );
printf( "Thread 0x%x Real usec : \t%lld\n",
( int ) pthread_self( ),
elapsed_us );
printf( "Thread 0x%x Real cycles : \t%lld\n", (int) pthread_self(),
elapsed_cyc );
}
free_test_space( values, num_tests );
retval = PAPI_unregister_thread( );
if ( retval != PAPI_OK )
test_fail( __FILE__, __LINE__, "PAPI_unregister_thread", retval );
return NULL;
}
