|
Packit |
577717 |
/*
|
|
Packit |
577717 |
* File: overflow.c
|
|
Packit |
577717 |
* Author: Philip Mucci
|
|
Packit |
577717 |
* mucci@cs.utk.edu
|
|
Packit |
577717 |
*/
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* This file performs the following test: overflow dispatch
|
|
Packit |
577717 |
|
|
Packit |
577717 |
The Eventset contains:
|
|
Packit |
577717 |
+ PAPI_TOT_CYC
|
|
Packit |
577717 |
+ PAPI_FP_INS (overflow monitor)
|
|
Packit |
577717 |
|
|
Packit |
577717 |
- Start eventset 1
|
|
Packit |
577717 |
- Do flops
|
|
Packit |
577717 |
- Stop and measure eventset 1
|
|
Packit |
577717 |
- Set up overflow on eventset 1
|
|
Packit |
577717 |
- Start eventset 1
|
|
Packit |
577717 |
- Do flops
|
|
Packit |
577717 |
- Stop eventset 1
|
|
Packit |
577717 |
*/
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#include <stdio.h>
|
|
Packit |
577717 |
#include <stdlib.h>
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#include "papi.h"
|
|
Packit |
577717 |
#include "papi_test.h"
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#include "do_loops.h"
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#define OVER_FMT "handler(%d ) Overflow at %p! bit=%#llx \n"
|
|
Packit |
577717 |
#define OUT_FMT "%-12s : %16lld%16lld\n"
|
|
Packit |
577717 |
|
|
Packit |
577717 |
static int total = 0; /* total overflows */
|
|
Packit |
577717 |
|
|
Packit |
577717 |
|
|
Packit |
577717 |
void
|
|
Packit |
577717 |
handler( int EventSet, void *address, long long overflow_vector, void *context )
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
( void ) context;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( !TESTS_QUIET ) {
|
|
Packit |
577717 |
fprintf( stderr, OVER_FMT, EventSet, address, overflow_vector );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
total++;
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
int
|
|
Packit |
577717 |
main( int argc, char **argv )
|
|
Packit |
577717 |
{
|
|
Packit |
577717 |
int EventSet = PAPI_NULL;
|
|
Packit |
577717 |
long long ( values[2] )[2];
|
|
Packit |
577717 |
long long min, max;
|
|
Packit |
577717 |
int num_flops = NUM_FLOPS, retval;
|
|
Packit |
577717 |
int PAPI_event, mythreshold = THRESHOLD;
|
|
Packit |
577717 |
char event_name1[PAPI_MAX_STR_LEN];
|
|
Packit |
577717 |
const PAPI_hw_info_t *hw_info = NULL;
|
|
Packit |
577717 |
int num_events, mask;
|
|
Packit |
577717 |
int quiet;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Set TESTS_QUIET variable */
|
|
Packit |
577717 |
quiet = tests_quiet( argc, argv );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Init PAPI */
|
|
Packit |
577717 |
retval = PAPI_library_init( PAPI_VER_CURRENT );
|
|
Packit |
577717 |
if ( retval != PAPI_VER_CURRENT ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Get hardware info */
|
|
Packit |
577717 |
hw_info = PAPI_get_hardware_info( );
|
|
Packit |
577717 |
if ( hw_info == NULL ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_get_hardware_info", 2 );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* add PAPI_TOT_CYC and one of the events in */
|
|
Packit |
577717 |
/* PAPI_FP_INS, PAPI_FP_OPS or PAPI_TOT_INS, */
|
|
Packit |
577717 |
/* depending on the availability of the event on */
|
|
Packit |
577717 |
/* the platform */
|
|
Packit |
577717 |
EventSet = add_two_nonderived_events( &num_events, &PAPI_event, &mask );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if (num_events==0) {
|
|
Packit |
577717 |
if (!quiet) printf("Trouble adding event!\n");
|
|
Packit |
577717 |
test_skip(__FILE__,__LINE__,"Event add",1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if (!quiet) {
|
|
Packit |
577717 |
printf("Using %#x for the overflow event\n",PAPI_event);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( PAPI_event == PAPI_FP_INS ) {
|
|
Packit |
577717 |
mythreshold = THRESHOLD;
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
else {
|
|
Packit |
577717 |
#if defined(linux)
|
|
Packit |
577717 |
mythreshold = ( int ) hw_info->cpu_max_mhz * 20000;
|
|
Packit |
577717 |
#else
|
|
Packit |
577717 |
mythreshold = THRESHOLD * 2;
|
|
Packit |
577717 |
#endif
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Start the run calibration run */
|
|
Packit |
577717 |
retval = PAPI_start( EventSet );
|
|
Packit |
577717 |
if ( retval != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
do_flops( NUM_FLOPS );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* stop the calibration run */
|
|
Packit |
577717 |
retval = PAPI_stop( EventSet, values[0] );
|
|
Packit |
577717 |
if ( retval != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* set up overflow handler */
|
|
Packit |
577717 |
retval = PAPI_overflow( EventSet, PAPI_event, mythreshold, 0, handler );
|
|
Packit |
577717 |
if ( retval != PAPI_OK ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Start overflow run */
|
|
Packit |
577717 |
retval = PAPI_start( EventSet );
|
|
Packit |
577717 |
if ( retval != PAPI_OK ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
do_flops( num_flops );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* stop overflow run */
|
|
Packit |
577717 |
retval = PAPI_stop( EventSet, values[1] );
|
|
Packit |
577717 |
if ( retval != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
|
|
Packit |
577717 |
retval = PAPI_overflow( EventSet, PAPI_event, 0, 0, handler );
|
|
Packit |
577717 |
if ( retval != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( !TESTS_QUIET ) {
|
|
Packit |
577717 |
retval = PAPI_event_code_to_name( PAPI_event, event_name1 );
|
|
Packit |
577717 |
if (retval != PAPI_OK ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
printf( "Test case: Overflow dispatch of 2nd event in set with 2 events.\n" );
|
|
Packit |
577717 |
printf( "---------------------------------------------------------------\n" );
|
|
Packit |
577717 |
printf( "Threshold for overflow is: %d\n", mythreshold );
|
|
Packit |
577717 |
printf( "Using %d iterations of c += a*b\n", num_flops );
|
|
Packit |
577717 |
printf( "-----------------------------------------------\n" );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
printf( "Test type : %16d%16d\n", 1, 2 );
|
|
Packit |
577717 |
printf( OUT_FMT, event_name1, ( values[0] )[1], ( values[1] )[1] );
|
|
Packit |
577717 |
printf( OUT_FMT, "PAPI_TOT_CYC", ( values[0] )[0], ( values[1] )[0] );
|
|
Packit |
577717 |
printf( "Overflows : %16s%16d\n", "", total );
|
|
Packit |
577717 |
printf( "-----------------------------------------------\n" );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
retval = PAPI_cleanup_eventset( EventSet );
|
|
Packit |
577717 |
if ( retval != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_cleanup_eventset", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
retval = PAPI_destroy_eventset( &EventSet );
|
|
Packit |
577717 |
if ( retval != PAPI_OK )
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "PAPI_destroy_eventset", retval );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if ( !TESTS_QUIET ) {
|
|
Packit |
577717 |
printf( "Verification:\n" );
|
|
Packit |
577717 |
#if defined(linux) || defined(__ia64__) || defined(_POWER4)
|
|
Packit |
577717 |
num_flops *= 2;
|
|
Packit |
577717 |
#endif
|
|
Packit |
577717 |
if ( PAPI_event == PAPI_FP_INS || PAPI_event == PAPI_FP_OPS ) {
|
|
Packit |
577717 |
printf( "Row 1 approximately equals %d %d\n", num_flops,
|
|
Packit |
577717 |
num_flops );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
printf( "Column 1 approximately equals column 2\n" );
|
|
Packit |
577717 |
printf( "Row 3 approximately equals %u +- %u %%\n",
|
|
Packit |
577717 |
( unsigned ) ( ( values[0] )[1] / ( long long ) mythreshold ),
|
|
Packit |
577717 |
( unsigned ) ( OVR_TOLERANCE * 100.0 ) );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
/*
|
|
Packit |
577717 |
min = (long long)((values[0])[1]*(1.0-TOLERANCE));
|
|
Packit |
577717 |
max = (long long)((values[0])[1]*(1.0+TOLERANCE));
|
|
Packit |
577717 |
if ( (values[0])[1] > max || (values[0])[1] < min )
|
|
Packit |
577717 |
test_fail(__FILE__, __LINE__, event_name, 1);
|
|
Packit |
577717 |
*/
|
|
Packit |
577717 |
|
|
Packit |
577717 |
min =
|
|
Packit |
577717 |
( long long ) ( ( ( double ) values[0][1] * ( 1.0 - OVR_TOLERANCE ) ) /
|
|
Packit |
577717 |
( double ) mythreshold );
|
|
Packit |
577717 |
max =
|
|
Packit |
577717 |
( long long ) ( ( ( double ) values[0][1] * ( 1.0 + OVR_TOLERANCE ) ) /
|
|
Packit |
577717 |
( double ) mythreshold );
|
|
Packit |
577717 |
if (!quiet) {
|
|
Packit |
577717 |
printf( "Overflows: total(%d) > max(%lld) || "
|
|
Packit |
577717 |
"total(%d) < min(%lld) \n", total, max, total, min );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
if ( total > max || total < min ) {
|
|
Packit |
577717 |
test_fail( __FILE__, __LINE__, "Overflows", 1 );
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
test_pass( __FILE__ );
|
|
Packit |
577717 |
return 0;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
}
|