/* This code demonstrates the behavior of PAPI_LD_INS, PAPI_SR_INS and PAPI_LST_INS

	on a Pentium 4 processor. Because of the way these events are implemented in

	hardware, LD and SR cannot be counted in the presence of either of the other 

	two events.

*/

#include <stdio.h>

#include <stdlib.h>

#include "papi.h"

#include "papi_test.h"

#include "do_loops.h"

int

main( int argc, char **argv )

{

	int retval, num_tests = 6, tmp;

	long long **values;

	int EventSet = PAPI_NULL;

	const PAPI_hw_info_t *hw_info;

	tests_quiet( argc, argv );	/* Set TESTS_QUIET variable */

	retval = PAPI_library_init( PAPI_VER_CURRENT );

	if ( retval != PAPI_VER_CURRENT )

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

	hw_info = PAPI_get_hardware_info(  );

	if ( hw_info == NULL )

		test_fail( __FILE__, __LINE__, "PAPI_get_hardware_info", 2 );

	if ( hw_info->vendor == PAPI_VENDOR_INTEL ) {

	    /* Check for Pentium4 */

	    if ( hw_info->cpuid_family != 15 ) {

		test_skip( __FILE__, __LINE__,

			"This test is intended only for Pentium 4.", 1 );

	    }

	} else {

	    test_skip( __FILE__, __LINE__, 

		    "This test is intended only for Pentium 4.", 1 );

	}

	retval = PAPI_create_eventset( &EventSet );

	if ( retval != PAPI_OK )

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

	values = allocate_test_space( num_tests, 2 );

/* First test: just PAPI_LD_INS */

	retval = PAPI_add_event( EventSet, PAPI_LD_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_add_event: PAPI_LD_INS", retval );

	retval = PAPI_start( EventSet );

	if ( retval != PAPI_OK )

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

	do_flops( NUM_FLOPS / 10 );

	retval = PAPI_stop( EventSet, values[0] );

	if ( retval != PAPI_OK )

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

	retval = PAPI_remove_event( EventSet, PAPI_LD_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_remove_event: PAPI_LD_INS",

				   retval );

/* Second test: just PAPI_SR_INS */

	retval = PAPI_add_event( EventSet, PAPI_SR_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_add_event: PAPI_SR_INS", retval );

	retval = PAPI_start( EventSet );

	if ( retval != PAPI_OK )

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

	do_flops( NUM_FLOPS / 10 );

	retval = PAPI_stop( EventSet, values[1] );

	if ( retval != PAPI_OK )

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

	retval = PAPI_remove_event( EventSet, PAPI_SR_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_remove_event: PAPI_SR_INS",

				   retval );

/* Third test: just PAPI_LST_INS */

	retval = PAPI_add_event( EventSet, PAPI_LST_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_add_event: PAPI_LST_INS", retval );

	retval = PAPI_start( EventSet );

	if ( retval != PAPI_OK )

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

	do_flops( NUM_FLOPS / 10 );

	retval = PAPI_stop( EventSet, values[2] );

	if ( retval != PAPI_OK )

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

/* Fourth test: PAPI_LST_INS and PAPI_LD_INS */

	retval = PAPI_add_event( EventSet, PAPI_LD_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_add_event: PAPI_LD_INS", retval );

	retval = PAPI_start( EventSet );

	if ( retval != PAPI_OK )

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

	do_flops( NUM_FLOPS / 10 );

	retval = PAPI_stop( EventSet, values[3] );

	if ( retval != PAPI_OK )

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

	retval = PAPI_remove_event( EventSet, PAPI_LD_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_remove_event: PAPI_LD_INS",

				   retval );

/* Fifth test: PAPI_LST_INS and PAPI_SR_INS */

	retval = PAPI_add_event( EventSet, PAPI_SR_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_add_event: PAPI_SR_INS", retval );

	retval = PAPI_start( EventSet );

	if ( retval != PAPI_OK )

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

	do_flops( NUM_FLOPS / 10 );

	retval = PAPI_stop( EventSet, values[4] );

	if ( retval != PAPI_OK )

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

	retval = PAPI_remove_event( EventSet, PAPI_SR_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_remove_event: PAPI_SR_INS",

				   retval );

	retval = PAPI_remove_event( EventSet, PAPI_LST_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_remove_event: PAPI_LST_INS",

				   retval );

/* Sixth test: PAPI_LD_INS and PAPI_SR_INS */

	retval = PAPI_add_event( EventSet, PAPI_LD_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_add_event: PAPI_LD_INS", retval );

	retval = PAPI_add_event( EventSet, PAPI_SR_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_add_event: PAPI_SR_INS", retval );

	retval = PAPI_start( EventSet );

	if ( retval != PAPI_OK )

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

	do_flops( NUM_FLOPS / 10 );

	retval = PAPI_stop( EventSet, values[5] );

	if ( retval != PAPI_OK )

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

	retval = PAPI_remove_event( EventSet, PAPI_LD_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_remove_event: PAPI_LD_INS",

				   retval );

	retval = PAPI_remove_event( EventSet, PAPI_SR_INS );

	if ( retval != PAPI_OK )

		test_fail( __FILE__, __LINE__, "PAPI_remove_event: PAPI_SR_INS",

				   retval );

	if ( !TESTS_QUIET ) {

		printf( "Pentium 4 Load / Store tests.\n" );

		printf

			( "These PAPI events are counted by setting a tag at the front of the pipeline,\n" );

		printf

			( "and counting tags at the back of the pipeline. All the tags are the same 'color'\n" );

		printf

			( "and can't be distinguished from each other. Therefore, PAPI_LD_INS and PAPI_SR_INS\n" );

		printf

			( "cannot be counted with the other two events, or the answer will always == PAPI_LST_INS.\n" );

		printf

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

		tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );

		printf( "Default domain is: %d (%s)\n", tmp,

				stringify_all_domains( tmp ) );

		tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );

		printf( "Default granularity is: %d (%s)\n", tmp,

				stringify_granularity( tmp ) );

		printf( "Using %d iterations of c += a*b\n", NUM_FLOPS / 10 );

		printf

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

		printf

			( "Test:                1            2            3            4            5            6\n" );

		printf( "%s %12lld %12s %12s %12lld %12s %12lld\n", "PAPI_LD_INS: ",

				( values[0] )[0], "------", "------", ( values[3] )[1],

				"------", ( values[5] )[0] );

		printf( "%s %12s %12lld %12s %12s %12lld %12lld\n", "PAPI_SR_INS: ",

				"------", ( values[1] )[0], "------", "------",

				( values[4] )[1], ( values[5] )[1] );

		printf( "%s %12s %12s %12lld %12lld %12lld %12s\n", "PAPI_LST_INS:",

				"------", "------", ( values[2] )[0], ( values[3] )[0],

				( values[4] )[0], "------" );

		printf

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

		printf( "Test 1: PAPI_LD_INS only.\n" );

		printf( "Test 2: PAPI_SR_INS only.\n" );

		printf( "Test 3: PAPI_LST_INS only.\n" );

		printf( "Test 4: PAPI_LD_INS and PAPI_LST_INS.\n" );

		printf( "Test 5: PAPI_SR_INS and PAPI_LST_INS.\n" );

		printf( "Test 6: PAPI_LD_INS and PAPI_SR_INS.\n" );

		printf

			( "Verification: Values within each column should be the same.\n" );

		printf( "              R3C3 ~= (R1C1 + R2C2) ~= all other entries.\n" );

	}

	test_pass( __FILE__ );

	return 0;

}