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