exeinfo.c

Go to the documentation of this file.

/*
* File:    exeinfo.c
* Author:  Philip Mucci
*          mucci@cs.utk.edu
* Mods:    <your name here>
*          <your email address>
*/
 
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
 
#include "papi.h"
#include "papi_test.h"
 
int
main( int argc, char **argv )
{
    int retval;
 
    const PAPI_exe_info_t *exeinfo;
 
    tests_quiet( argc, argv );  /* Set TESTS_QUIET variable */
 
    if ( ( retval =
           PAPI_library_init( PAPI_VER_CURRENT ) ) != PAPI_VER_CURRENT )
        test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
 
    if ( ( exeinfo = PAPI_get_executable_info(  ) ) == NULL )
        test_fail( __FILE__, __LINE__, "PAPI_get_executable_info", retval );
 
    if (!TESTS_QUIET) {
    printf( "Path+Program: %s\n", exeinfo->fullname );
    printf( "Program: %s\n", exeinfo->address_info.name );
    printf( "Text start: %p, Text end: %p\n", exeinfo->address_info.text_start,
            exeinfo->address_info.text_end );
    printf( "Data start: %p, Data end: %p\n", exeinfo->address_info.data_start,
            exeinfo->address_info.data_end );
    printf( "Bss start: %p, Bss end: %p\n", exeinfo->address_info.bss_start,
            exeinfo->address_info.bss_end );
    }
 
    if ( ( strlen( &(exeinfo->fullname[0]) ) == 0 ) )
        test_fail( __FILE__, __LINE__, "PAPI_get_executable_info", 1 );
    if ( ( strlen( &(exeinfo->address_info.name[0]) ) == 0 ) )
        test_fail( __FILE__, __LINE__, "PAPI_get_executable_info", 1 );
    if ( ( exeinfo->address_info.text_start == 0x0 ) ||
         ( exeinfo->address_info.text_end == 0x0 ) ||
         ( exeinfo->address_info.text_start >=
           exeinfo->address_info.text_end ) )
        test_fail( __FILE__, __LINE__, "PAPI_get_executable_info", 1 );
    if ( ( exeinfo->address_info.data_start == 0x0 ) ||
         ( exeinfo->address_info.data_end == 0x0 ) ||
         ( exeinfo->address_info.data_start >=
           exeinfo->address_info.data_end ) )
        test_fail( __FILE__, __LINE__, "PAPI_get_executable_info", 1 );
/*
   if ((exeinfo->address_info.bss_start == 0x0) || (exeinfo->address_info.bss_end == 0x0) ||
       (exeinfo->address_info.bss_start >= exeinfo->address_info.bss_end))
     test_fail(__FILE__, __LINE__, "PAPI_get_executable_info",1);
*/
 
    sleep( 1 );              /* Needed for debugging, so you can ^Z and stop the process, inspect /proc to see if it's right */
 
    test_pass( __FILE__ );
 
    return 0;
}