zero_smp.c File Reference

Include dependency graph for zero_smp.c:

Go to the source code of this file.

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

Function Documentation

main()

int main	(	int	argc,
		char **	argv
	)

Definition at line 107 of file zero_smp.c.

{
    int i, retval, quiet;
    long long elapsed_us, elapsed_cyc;

    /* Set TESTS_QUIET variable */
    quiet=tests_quiet( argc, argv );

    retval = PAPI_library_init( PAPI_VER_CURRENT );
    if ( retval != PAPI_VER_CURRENT ) {
        test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
    }

    elapsed_us = PAPI_get_real_usec(  );

    elapsed_cyc = PAPI_get_real_cyc(  );

#if defined(_AIX) || defined(__linux__)
    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 );
    }
#if defined(_AIX)
#pragma ibm parallel_loop
#endif

#elif defined(sgi) && defined(mips)
    retval =
        PAPI_thread_init( ( unsigned long ( * )( void ) ) ( mp_my_threadnum ) );
    if ( retval != PAPI_OK ) {
        test_fail( __FILE__, __LINE__, "PAPI_thread_init", retval );
    }
#pragma parallel
#pragma local(i)
#pragma pfor
#elif defined(sun) && defined(sparc)
    retval = PAPI_thread_init( ( unsigned long ( * )( void ) ) ( thr_self ) );
    if ( retval != PAPI_OK ) {
        test_fail( __FILE__, __LINE__, "PAPI_thread_init", retval );
    }
#pragma MP taskloop private(i)
#else
    if (!quiet) {
        printf("This test only runs on AIX/IRIX/SOLOARIS\n");
    }
    test_skip(__FILE__, __LINE__, "Architecture not included in this test file yet.", 0);
#endif
    for ( i = 1; i < 3; i++ ) {
        Thread( i, 10000000 * i );
    }

    elapsed_cyc = PAPI_get_real_cyc(  ) - elapsed_cyc;

    elapsed_us = PAPI_get_real_usec(  ) - elapsed_us;

    if ( !quiet ) {
        printf( "Master real usec   : \t%lld\n", elapsed_us );
        printf( "Master real cycles : \t%lld\n", elapsed_cyc );
    }

    // FIXME: we don't really validate anything here

    test_pass( __FILE__ );

    return 0;
}

Here is the call graph for this function:

Thread()

void Thread	(	int	t,
		int	n
	)

Definition at line 50 of file zero_smp.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];

    /* 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 );

    retval = PAPI_start( EventSet1 );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_start", retval );

    elapsed_us = PAPI_get_real_usec(  );

    elapsed_cyc = PAPI_get_real_cyc(  );

    do_flops( n );

    elapsed_us = PAPI_get_real_usec(  ) - elapsed_us;

    elapsed_cyc = PAPI_get_real_cyc(  ) - elapsed_cyc;

    retval = PAPI_stop( EventSet1, values[0] );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_stop", retval );

    remove_test_events( &EventSet1, mask1 );

    if ( !TESTS_QUIET ) {
        printf( "Thread %#x %-12s : \t%lld\n", t, event_name,
                values[0][1] );
        printf( "Thread %#x PAPI_TOT_CYC : \t%lld\n", t, 
            values[0][0] );
    }

    free_test_space( values, num_tests );
    if ( !TESTS_QUIET ) {
        printf( "Thread %#x Real usec    : \t%lld\n", t, elapsed_us );
        printf( "Thread %#x Real cycles  : \t%lld\n", t, elapsed_cyc );
    }
    PAPI_unregister_thread(  );
}

Here is the call graph for this function:

Here is the caller graph for this function: