profile_twoevents.c

Go to the documentation of this file.

/* 
* File:    profile_twoevents.c
* CVS:     $Id$
* Author:  Philip Mucci
*          mucci@cs.utk.edu
* Mods:    <your name here>
*          <your email address>
*/

/* This file performs the following test: profiling two events */

#include "papi_test.h"
#include "prof_utils.h"

int
main( int argc, char **argv )
{
    int i, num_tests = 6;
    unsigned long length, blength;
    int num_buckets, mask;
    char title[80];
    int retval;
    const PAPI_exe_info_t *prginfo;
    caddr_t start, end;

    prof_init( argc, argv, &prginfo );

    mask = prof_events( num_tests );
    start = prginfo->address_info.text_start;
    end = prginfo->address_info.text_end;

    /* Must have at least FP instr or Tot ins */

    if ( ( ( mask & MASK_FP_INS ) == 0 ) && ( ( mask & MASK_TOT_INS ) == 0 ) ) {
        test_skip( __FILE__, __LINE__, "No FP or Total Ins. event", 1 );
    }

    if ( start > end )
        test_fail( __FILE__, __LINE__, "Profile length < 0!", 0 );
    length = ( unsigned long ) ( end - start );
    prof_print_address
        ( "Test case profile: POSIX compatible profiling with two events.\n",
          prginfo );
    prof_print_prof_info( start, end, THRESHOLD, event_name );
    prof_alloc( 2, length );

    blength =
        prof_size( length, FULL_SCALE, PAPI_PROFIL_BUCKET_16, &num_buckets );
    do_no_profile(  );

    if ( !TESTS_QUIET ) {
        printf( "Test type   : \tPAPI_PROFIL_POSIX\n" );
    }
    if ( ( retval =
           PAPI_profil( profbuf[0], ( unsigned int ) blength, start, FULL_SCALE,
                        EventSet, PAPI_event, THRESHOLD,
                        PAPI_PROFIL_POSIX ) ) != PAPI_OK ) {
        test_fail( __FILE__, __LINE__, "PAPI_profil", retval );
    }
    if ( ( retval =
           PAPI_profil( profbuf[1], ( unsigned int ) blength, start, FULL_SCALE,
                        EventSet, PAPI_TOT_CYC, THRESHOLD,
                        PAPI_PROFIL_POSIX ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_profil", retval );

    do_stuff(  );

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

    do_stuff(  );

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

    if ( !TESTS_QUIET ) {
        printf( TAB1, event_name, ( values[1] )[0] );
        printf( TAB1, "PAPI_TOT_CYC:", ( values[1] )[1] );
    }
    if ( ( retval =
           PAPI_profil( profbuf[0], ( unsigned int ) blength, start, FULL_SCALE,
                        EventSet, PAPI_event, 0,
                        PAPI_PROFIL_POSIX ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_profil", retval );

    if ( ( retval =
           PAPI_profil( profbuf[1], ( unsigned int ) blength, start, FULL_SCALE,
                        EventSet, PAPI_TOT_CYC, 0,
                        PAPI_PROFIL_POSIX ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_profil", retval );

    sprintf( title,
             "   \t\t    %s\tPAPI_TOT_CYC\naddress\t\t\tcounts\tcounts\n",
             event_name );
    prof_head( blength, PAPI_PROFIL_BUCKET_16, num_buckets, title );
    prof_out( start, 2, PAPI_PROFIL_BUCKET_16, num_buckets, FULL_SCALE );

    remove_test_events( &EventSet, mask );

    retval = prof_check( 2, PAPI_PROFIL_BUCKET_16, num_buckets );

    for ( i = 0; i < 2; i++ ) {
        free( profbuf[i] );
    }

    if ( retval == 0 )
        test_fail( __FILE__, __LINE__, "No information in buffers", 1 );

    test_pass( __FILE__, values, num_tests );

    exit( 1 );
}