smoke_tests/threads.c File Reference

Include dependency graph for smoke_tests/threads.c:

Go to the source code of this file.

Macros
#define	NUM_PTHREADS   2
#define	NUM_EVENTS   2

Functions
void *	Thread (void *arg)
int	main (int argc, char **argv)

Macro Definition Documentation

NUM_EVENTS

#define NUM_EVENTS   2

Definition at line 7 of file smoke_tests/threads.c.

NUM_PTHREADS

#define NUM_PTHREADS   2

Definition at line 6 of file smoke_tests/threads.c.

Function Documentation

main()

int main	(	int	argc,
		char **	argv
	)

Definition at line 77 of file smoke_tests/threads.c.

{
    pthread_t tids[NUM_PTHREADS];
    int i, vals[NUM_PTHREADS];
    int retval, rc;
    void* retval2;
        
    /* Init PAPI library */
    retval = PAPI_library_init( PAPI_VER_CURRENT );
    if ( retval != PAPI_VER_CURRENT ) { 
        printf("ERROR: PAPI_library_init: %d: %s\n", retval, PAPI_strerror(retval) );
        exit(EXIT_FAILURE);
    } else {
        printf ( "PAPI_VERSION     : %4d %6d %7d\n",
                 PAPI_VERSION_MAJOR ( PAPI_VERSION ),
                 PAPI_VERSION_MINOR ( PAPI_VERSION ),
                 PAPI_VERSION_REVISION ( PAPI_VERSION ) );
    }
            
    retval = PAPI_thread_init( ( unsigned long ( * )( void ) )( pthread_self ) );
    if ( retval != PAPI_OK ) { 
        printf("ERROR: PAPI_thread_init: %d: %s\n", retval, PAPI_strerror(retval) );
        exit(EXIT_FAILURE);
    }
    
    for ( i = 0; i < NUM_PTHREADS; i++) {
        vals[i] = i;
        retval = pthread_create( &tids[i], NULL, Thread, &vals[i] );
        if ( retval != 0 ) {
            printf("ERROR: pthread_create: %d\n", retval );
            exit(EXIT_FAILURE);
        }
    }
 
    for ( i = 0; i < NUM_PTHREADS; i++) {
        printf("Trying to join with tid %d\n", i);
        retval = pthread_join(tids[i], &retval2);
        if ( retval != 0 ) {
            printf("ERROR: pthread_join: %d\n", retval );
            exit(EXIT_FAILURE);
        } else {
            printf("Joined with tid %d\n", i);
        }
    }
    
    PAPI_shutdown();
    return EXIT_SUCCESS;
}

Here is the call graph for this function:

Thread()

void * Thread

(

void *

arg

)

Definition at line 10 of file smoke_tests/threads.c.

{
    int retval, i;
    long long       values[NUM_EVENTS];
    int             EventSet = PAPI_NULL;
    int             events[NUM_EVENTS];
    char            *EventName[] = { "PAPI_TOT_CYC", "PAPI_TOT_INS" };
    
    int thread;
    thread = *(int *) arg;
 
    retval = PAPI_register_thread(  );
    if ( retval != PAPI_OK ) {
        printf("ERROR: PAPI_register_thread: %d: %s\n", retval, PAPI_strerror(retval));
        exit(EXIT_FAILURE);
    }
 
    for( i = 0; i < NUM_EVENTS; i++ ) {
        retval = PAPI_event_name_to_code( EventName[i], &events[i] );
        if ( retval != PAPI_OK ) {
            printf("ERROR: PAPI_event_name_to_code: %d: %s\n", retval, PAPI_strerror(retval));
            exit(EXIT_FAILURE);
        }
    }
 
    retval = PAPI_create_eventset( &EventSet );
    if ( retval != PAPI_OK ) {
        printf("ERROR: PAPI_create_eventset: %d: %s\n", retval, PAPI_strerror(retval));
        exit(EXIT_FAILURE);
    }
 
    retval = PAPI_add_events( EventSet, events, NUM_EVENTS );
    if ( retval != PAPI_OK ) {
        printf("ERROR: PAPI_add_events: %d: %s\n", retval, PAPI_strerror(retval));
        exit(EXIT_FAILURE);
    }
 
    retval = PAPI_start( EventSet );
    if ( retval != PAPI_OK ) {
        printf("ERROR: PAPI_start: %d: %s\n", retval, PAPI_strerror(retval));
        exit(EXIT_FAILURE);
    }        
 
    // do work
    sleep(3);
                
    retval = PAPI_stop( EventSet, values );
    if ( retval != PAPI_OK ) {
        printf("ERROR: PAPI_stop: %d: %s\n", retval, PAPI_strerror(retval));
        exit(EXIT_FAILURE);
    }
                
    for( i = 0; i < NUM_EVENTS; i++ ) {           
        printf( "%12lld \t\t --> %s  (thread %d) \n", values[i],
                EventName[i], thread );
    }
 
    retval = PAPI_unregister_thread(  );
    if ( retval != PAPI_OK ) {
        printf("ERROR: PAPI_unregister_thread: %d: %s\n", retval, PAPI_strerror(retval));
        exit(EXIT_FAILURE);
    }
 
    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function: