attach_cpu_validate.c File Reference

Include dependency graph for attach_cpu_validate.c:

Go to the source code of this file.

Macros
#define	MAX_CPUS   16

Functions
int	main (int argc, char **argv)

Macro Definition Documentation

MAX_CPUS

#define MAX_CPUS   16

Definition at line 15 of file attach_cpu_validate.c.

Function Documentation

main()

int main	(	int	argc,
		char **	argv
	)

Definition at line 18 of file attach_cpu_validate.c.

{
    int i;
    int retval;
    int num_cpus = 8;
    int EventSet[MAX_CPUS];
    const PAPI_hw_info_t *hwinfo;
    double diff;

    long long values[MAX_CPUS];
    char event_name[PAPI_MAX_STR_LEN] = "PAPI_TOT_INS";
    PAPI_option_t opts;
    int quiet;
    long long average=0;
    int same=0;

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

        hwinfo = PAPI_get_hardware_info(  );
    if ( hwinfo==NULL) {
        test_fail( __FILE__, __LINE__, "PAPI_get_hardware_info", retval );
    }

    num_cpus=hwinfo->totalcpus;

    if ( num_cpus < 2 ) {
        if (!quiet) printf("Need at least 1 CPU\n");
        test_skip( __FILE__, __LINE__, "num_cpus", 0 );
    }

    if (num_cpus > MAX_CPUS) {
        num_cpus = MAX_CPUS;
    }

    for(i=0;i<num_cpus;i++) {

        EventSet[i]=PAPI_NULL;

        retval = PAPI_create_eventset(&EventSet[i]);
        if ( retval != PAPI_OK ) {
            test_fail( __FILE__, __LINE__, "PAPI_create_eventset", retval );
        }

        /* Force event set to be associated with component 0 */
        /* (perf_events component provides all core events)  */
        retval = PAPI_assign_eventset_component( EventSet[i], 0 );
        if ( retval != PAPI_OK ) {
            test_fail( __FILE__, __LINE__, "PAPI_assign_eventset_component", retval );
        }

        /* Attach this event set to cpu i */
        opts.cpu.eventset = EventSet[i];
        opts.cpu.cpu_num = i;

        retval = PAPI_set_opt( PAPI_CPU_ATTACH, &opts );
        if ( retval != PAPI_OK ) {
            if (!quiet) printf("Can't PAPI_CPU_ATTACH: %s\n",
                    PAPI_strerror(retval));
            test_skip( __FILE__, __LINE__, "PAPI_set_opt", retval );
        }

        retval = PAPI_add_named_event(EventSet[i], event_name);
        if ( retval != PAPI_OK ) {
            if (!quiet) printf("Trouble adding event %s\n",event_name);
            test_skip( __FILE__, __LINE__, "PAPI_add_named_event", retval );
        }
    }


    int tmp;
    PAPI_option_t options;

    tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
    if (!quiet) {
        printf( "Default granularity is: %d (%s)\n", tmp,
            stringify_granularity( tmp ) );
    }

    options.granularity.eventset = EventSet[0];
    tmp = PAPI_get_opt( PAPI_GRANUL, &options) ;
    if (!quiet) {
        printf( "Eventset[0] granularity is: %d (%s)\n", options.granularity.granularity,
        stringify_granularity( options.granularity.granularity ) );
    }

    for(i=0;i<num_cpus;i++) {
        retval = PAPI_start( EventSet[i] );
        if ( retval != PAPI_OK ) {
            test_fail( __FILE__, __LINE__, "PAPI_start", retval );
        }
    }

    // do some work
    do_flops(NUM_FLOPS);

    for(i=0;i<num_cpus;i++) {
        retval = PAPI_stop( EventSet[i], &values[i] );
        if ( retval != PAPI_OK ) {
            test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
        }
    }

    for(i=0;i<num_cpus;i++) {
        if (!quiet) {
            printf ("Event: %s: %10lld on Cpu: %d\n",
                event_name, values[i], i);
        }
    }

    for(i=0;i<num_cpus;i++) {
        average+=values[i];
    }
    average/=num_cpus;
    if (!quiet) {
        printf("Average: %10lld\n",average);
    }


    for(i=0;i<num_cpus;i++) {
        diff=((double)values[i]-(double)average)/(double)average;
        if ((diff<0.01) && (diff>-0.01)) same++;
    }

    if (same) {
        if (!quiet) {
            printf("Error!  %d events were the same\n",same);
        }
        test_fail( __FILE__, __LINE__, "Too similar", 0 );
    }

    PAPI_shutdown( );

    test_pass( __FILE__ );

    return 0;

}

Here is the call graph for this function: