/*

* File:    sprofile.c

* Author:  Philip Mucci

*          mucci@cs.utk.edu

* Mods:    Maynard Johnson

*          maynardj@us.ibm.com

*/

#include <stdio.h>

#include <stdlib.h>

#include "papi.h"

#include "papi_test.h"

#include "prof_utils.h"

#include "do_loops.h"

/* These architectures use Function Descriptors as Function Pointers */

#if (defined(linux) && defined(__ia64__)) || (defined(_AIX)) \

  || ((defined(__powerpc64__) && (_CALL_ELF != 2)))

/* PPC64 Big Endian is ELF version 1 which uses function descriptors */

#define DO_READS (unsigned long)(*(void **)do_reads)

#define DO_FLOPS (unsigned long)(*(void **)do_flops)

#else

/* PPC64 Little Endian is ELF version 2 which does not use

 * function descriptors

 */

#define DO_READS (unsigned long)(do_reads)

#define DO_FLOPS (unsigned long)(do_flops)

#endif

/* This file performs the following test: sprofile */

int

main( int argc, char **argv )

{

	int i, num_events, num_tests = 6, mask = 0x1;

	int EventSet = PAPI_NULL;

	unsigned short **buf = ( unsigned short ** ) profbuf;

	unsigned long length, blength;

	int num_buckets;

	PAPI_sprofil_t sprof[3];

	int retval;

	const PAPI_exe_info_t *prginfo;

	caddr_t start, end;

	int quiet;

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

	}

        if ( ( prginfo = PAPI_get_executable_info(  ) ) == NULL ) {

		test_fail( __FILE__, __LINE__, "PAPI_get_executable_info", 1 );

	}

	start = prginfo->address_info.text_start;

	end = prginfo->address_info.text_end;

	if ( start > end ) {

	   test_fail( __FILE__, __LINE__, "Profile length < 0!", PAPI_ESYS );

	}

	length = ( unsigned long ) ( end - start );

	if (!quiet) {

		prof_print_address( "Test case sprofile: POSIX compatible profiling over multiple regions.\n",

				prginfo );

	}

	blength = prof_size( length, FULL_SCALE, PAPI_PROFIL_BUCKET_16,

				&num_buckets );

	prof_alloc( 3, blength );

	/* First half */

	sprof[0].pr_base = buf[0];

	sprof[0].pr_size = ( unsigned int ) blength;

	sprof[0].pr_off = ( caddr_t ) DO_FLOPS;

#if defined(linux) && defined(__ia64__)

	if ( !quiet )

		fprintf( stderr, "do_flops is at %p %p\n", &do_flops, sprof[0].pr_off );

#endif

	sprof[0].pr_scale = FULL_SCALE;

	/* Second half */

	sprof[1].pr_base = buf[1];

	sprof[1].pr_size = ( unsigned int ) blength;

	sprof[1].pr_off = ( caddr_t ) DO_READS;

#if defined(linux) && defined(__ia64__)

	if ( !quiet )

		fprintf( stderr, "do_reads is at %p %p\n", &do_reads, sprof[1].pr_off );

#endif

	sprof[1].pr_scale = FULL_SCALE;

	/* Overflow bin */

	sprof[2].pr_base = buf[2];

	sprof[2].pr_size = 1;

	sprof[2].pr_off = 0;

	sprof[2].pr_scale = 0x2;

	EventSet = add_test_events( &num_events, &mask, 1 );

	values = allocate_test_space( num_tests, num_events );

	retval = PAPI_sprofil( sprof, 3, EventSet, PAPI_TOT_CYC, THRESHOLD,

				PAPI_PROFIL_POSIX | PAPI_PROFIL_BUCKET_16 );

	if (retval != PAPI_OK ) {

		if (retval == PAPI_ENOEVNT) {

			if (!quiet) printf("Trouble creating events\n");

			test_skip(__FILE__,__LINE__,"PAPI_sprofil",retval);

		}

		test_fail( __FILE__, __LINE__, "PAPI_sprofil", 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 );

	/* clear the profile flag before removing the event */

	if ( ( retval = PAPI_sprofil( sprof, 3, EventSet, PAPI_TOT_CYC, 0,

								  PAPI_PROFIL_POSIX | PAPI_PROFIL_BUCKET_16 ) )

		 != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_sprofil", retval );

	remove_test_events( &EventSet, mask );

	if ( !quiet ) {

		printf( "Test case: PAPI_sprofil()\n" );

		printf( "---------Buffer 1--------\n" );

		for ( i = 0; i < ( int ) length / 2; i++ ) {

			if ( buf[0][i] )

				printf( "%#lx\t%d\n", DO_FLOPS + 2 * ( unsigned long ) i,

						buf[0][i] );

		}

		printf( "---------Buffer 2--------\n" );

		for ( i = 0; i < ( int ) length / 2; i++ ) {

			if ( buf[1][i] )

				printf( "%#lx\t%d\n", DO_READS + 2 * ( unsigned long ) i,

						buf[1][i] );

		}

		printf( "-------------------------\n" );

		printf( "%u samples fell outside the regions.\n", *buf[2] );

	}

	retval = prof_check( 2, PAPI_PROFIL_BUCKET_16, num_buckets );

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

		free( profbuf[i] );

	}

	if ( retval == 0 ) {

		test_fail( __FILE__, __LINE__, "No information in buffers", 1 );

	}

	test_pass( __FILE__ );

	return 0;

}