attach_cpu_sys_validate.c

Go to the documentation of this file.

/*
 * This test attempts to attach to each CPU
 * Then it runs some code on one CPU
 * Then it reads the results, they should be different.
 * It sets the granularity to SYS as this is known to be broken
 *   with some Linux/rdpmc combinations
 */

#include <stdio.h>
#include <stdlib.h>

#include "papi.h"
#include "papi_test.h"

#include "do_loops.h"

#define MAX_CPUS    16

int
main( int argc, char **argv )
{
    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 );
        }

        /* Force granularity to PAPI_GRN_SYS */
        opts.granularity.eventset = EventSet[i];
        opts.granularity.granularity = PAPI_GRN_SYS;
        PAPI_set_opt( PAPI_GRANUL, &opts) ;
        if (!quiet) {
            printf( "Setting Eventset[%d] granularity to: "
                "%d (%s)\n", i,opts.granularity.granularity,
                stringify_granularity( opts.granularity.granularity ) );
        }

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

    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;

}