PAPI 7.1.0.0
Loading...
Searching...
No Matches
overflow_force_software.c
Go to the documentation of this file.
1/*
2* File: overflow_force_software.c
3* Author: Kevin London
4* london@cs.utk.edu
5* Mods: Maynard Johnson
6* maynardj@us.ibm.com
7* Philip Mucci
8* mucci@cs.utk.edu
9* Haihang You
10* you@cs.utk.edu
11* <your name here>
12* <your email address>
13*/
14
15/* This file performs the following test: overflow dispatch of an eventset
16with just a single event. Using both Hardware and software overflows
17
18The Eventset contains:
19+ PAPI_FP_INS (overflow monitor)
20
21- Start eventset 1
22- Do flops
23- Stop and measure eventset 1
24- Set up overflow on eventset 1
25- Start eventset 1
26- Do flops
27- Stop eventset 1
28- Set up forced software overflow on eventset 1
29- Start eventset 1
30- Do flops
31- Stop eventset 1
32*/
33
34#include <stdio.h>
35#include <stdlib.h>
36#include <string.h>
37#include <sys/time.h>
38
39#include "papi.h"
40#include "papi_test.h"
41
42#include "do_loops.h"
43
44#define OVER_FMT "handler(%d) Overflow at %p overflow_vector=%#llx!\n"
45#define OUT_FMT "%-12s : %16lld%16d%16lld\n"
46
47#define SOFT_TOLERANCE 0.90
48#define MY_NUM_TESTS 5
49
50static int total[MY_NUM_TESTS] = { 0, }; /* total overflows */
51static int use_total = 0; /* which total field to bump */
52static long long values[MY_NUM_TESTS] = { 0, };
53
54void
55handler( int EventSet, void *address, long long overflow_vector, void *context )
56{
57 ( void ) context;
58
59 if ( !TESTS_QUIET ) {
60 fprintf( stderr, OVER_FMT, EventSet, address, overflow_vector );
61 }
62
63 total[use_total]++;
64}
65
66int
67main( int argc, char **argv )
68{
69 int EventSet = PAPI_NULL;
70 long long hard_min, hard_max, soft_min, soft_max;
71 int retval;
72 int PAPI_event = 0, mythreshold;
73 char event_name[PAPI_MAX_STR_LEN];
74 PAPI_option_t opt;
75 PAPI_event_info_t info;
76 PAPI_option_t itimer;
77 const PAPI_hw_info_t *hw_info = NULL;
78
79 tests_quiet( argc, argv ); /* Set TESTS_QUIET variable */
80
81 retval = PAPI_library_init( PAPI_VER_CURRENT );
82 if ( retval != PAPI_VER_CURRENT )
83 test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
84
85 /* query and set up the right instruction to monitor */
86 if ( PAPI_query_event( PAPI_FP_INS ) == PAPI_OK ) {
87 if ( PAPI_query_event( PAPI_FP_INS ) == PAPI_OK ) {
88 PAPI_get_event_info( PAPI_FP_INS, &info );
89 if ( info.count == 1 ||
90 !strcmp( info.derived, "DERIVED_CMPD" ) )
91 PAPI_event = PAPI_FP_INS;
92 }
93 }
94 if ( PAPI_event == 0 ) {
95 if ( PAPI_query_event( PAPI_FP_OPS ) == PAPI_OK ) {
96 PAPI_get_event_info( PAPI_FP_OPS, &info );
97 if ( info.count == 1 ||
98 !strcmp( info.derived, "DERIVED_CMPD" ) )
99 PAPI_event = PAPI_FP_OPS;
100 }
101 }
102 if ( PAPI_event == 0 ) {
103 if ( PAPI_query_event( PAPI_TOT_INS ) == PAPI_OK ) {
104 PAPI_get_event_info( PAPI_TOT_INS, &info );
105 if ( info.count == 1 ||
106 !strcmp( info.derived, "DERIVED_CMPD" ) )
107 PAPI_event = PAPI_TOT_INS;
108 }
109 }
110
111 if ( PAPI_event == 0 )
112 test_skip( __FILE__, __LINE__, "No suitable event for this test found!",
113 0 );
114
115 hw_info = PAPI_get_hardware_info( );
116 if ( hw_info == NULL )
117 test_fail( __FILE__, __LINE__, "PAPI_get_hardware_info", 2 );
118
119 if ( PAPI_event == PAPI_FP_INS )
120 mythreshold = THRESHOLD;
121 else
122#if defined(linux)
123 mythreshold = ( int ) hw_info->cpu_max_mhz * 20000;
124#else
125 mythreshold = THRESHOLD * 2;
126#endif
127
128 retval = PAPI_create_eventset( &EventSet );
129 if ( retval != PAPI_OK )
130 test_fail( __FILE__, __LINE__, "PAPI_create_eventset", retval );
131
132 retval = PAPI_add_event( EventSet, PAPI_event );
133 if ( retval != PAPI_OK )
134 test_fail( __FILE__, __LINE__, "PAPI_add_event", retval );
135
136 retval = PAPI_get_opt( PAPI_COMPONENTINFO, &opt );
137 if ( retval != PAPI_OK )
138 test_skip( __FILE__, __LINE__,
139 "Platform does not support Hardware overflow", 0 );
140
141 do_stuff( );
142
143 /* Do reference count */
144
145 retval = PAPI_start( EventSet );
146 if ( retval != PAPI_OK )
147 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
148
149 do_stuff( );
150
151 retval = PAPI_stop( EventSet, &values[use_total] );
152 if ( retval != PAPI_OK )
153 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
154 use_total++;
155
156 /* Now do hardware overflow reference count */
157
158 retval = PAPI_overflow( EventSet, PAPI_event, mythreshold, 0, handler );
159 if ( retval != PAPI_OK )
160 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
161
162 retval = PAPI_start( EventSet );
163 if ( retval != PAPI_OK )
164 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
165
166 do_stuff( );
167
168 retval = PAPI_stop( EventSet, &values[use_total] );
169 if ( retval != PAPI_OK )
170 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
171 use_total++;
172
173 retval = PAPI_overflow( EventSet, PAPI_event, 0, 0, handler );
174 if ( retval != PAPI_OK )
175 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
176
177 /* Now do software overflow reference count, uses SIGPROF */
178
179 retval =
180 PAPI_overflow( EventSet, PAPI_event, mythreshold,
181 PAPI_OVERFLOW_FORCE_SW, handler );
182 if ( retval != PAPI_OK )
183 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
184
185 retval = PAPI_start( EventSet );
186 if ( retval != PAPI_OK )
187 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
188
189 do_stuff( );
190
191 retval = PAPI_stop( EventSet, &values[use_total] );
192 if ( retval != PAPI_OK )
193 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
194 use_total++;
195
196 retval =
197 PAPI_overflow( EventSet, PAPI_event, 0, PAPI_OVERFLOW_FORCE_SW,
198 handler );
199 if ( retval != PAPI_OK )
200 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
201
202 /* Now do software overflow with SIGVTALRM */
203
204 memset( &itimer, 0, sizeof ( itimer ) );
205 itimer.itimer.itimer_num = ITIMER_VIRTUAL;
206 itimer.itimer.itimer_sig = SIGVTALRM;
207
208 if ( PAPI_set_opt( PAPI_DEF_ITIMER, &itimer ) != PAPI_OK )
209 test_fail( __FILE__, __LINE__, "PAPI_set_opt", retval );
210
211 retval =
212 PAPI_overflow( EventSet, PAPI_event, mythreshold,
213 PAPI_OVERFLOW_FORCE_SW, handler );
214 if ( retval != PAPI_OK )
215 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
216
217 retval = PAPI_start( EventSet );
218 if ( retval != PAPI_OK )
219 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
220
221 do_stuff( );
222
223 retval = PAPI_stop( EventSet, &values[use_total] );
224 if ( retval != PAPI_OK )
225 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
226 use_total++;
227
228 retval =
229 PAPI_overflow( EventSet, PAPI_event, 0, PAPI_OVERFLOW_FORCE_SW,
230 handler );
231 if ( retval != PAPI_OK )
232 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
233
234 /* Now do software overflow with SIGALRM */
235
236 memset( &itimer, 0, sizeof ( itimer ) );
237 itimer.itimer.itimer_num = ITIMER_REAL;
238 itimer.itimer.itimer_sig = SIGALRM;
239 if ( PAPI_set_opt( PAPI_DEF_ITIMER, &itimer ) != PAPI_OK )
240 test_fail( __FILE__, __LINE__, "PAPI_set_opt", retval );
241
242 retval =
243 PAPI_overflow( EventSet, PAPI_event, mythreshold,
244 PAPI_OVERFLOW_FORCE_SW, handler );
245 if ( retval != PAPI_OK )
246 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
247
248 retval = PAPI_start( EventSet );
249 if ( retval != PAPI_OK )
250 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
251
252 do_stuff( );
253
254 retval = PAPI_stop( EventSet, &values[use_total] );
255 if ( retval != PAPI_OK )
256 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
257 use_total++;
258
259 retval =
260 PAPI_overflow( EventSet, PAPI_event, 0, PAPI_OVERFLOW_FORCE_SW,
261 handler );
262 if ( retval != PAPI_OK )
263 test_fail( __FILE__, __LINE__, "PAPI_overflow", retval );
264
265 if ( !TESTS_QUIET ) {
266 if ( ( retval =
267 PAPI_event_code_to_name( PAPI_event, event_name ) ) != PAPI_OK )
268 test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );
269
270 printf
271 ( "Test case: Software overflow of various types with 1 event in set.\n" );
272 printf
273 ( "------------------------------------------------------------------------------\n" );
274 printf( "Threshold for overflow is: %d\n", mythreshold );
275 printf
276 ( "------------------------------------------------------------------------------\n" );
277
278 printf( "Test type : %11s%13s%13s%13s%13s\n", "Reference", "Hardware",
279 "ITIMER_PROF", "ITIMER_VIRT", "ITIMER_REAL" );
280 printf( "%-12s: %11lld%13lld%13lld%13lld%13lld\n", info.symbol,
281 values[0], values[1], values[2], values[3], values[4] );
282 printf( "Overflows : %11d%13d%13d%13d%13d\n", total[0], total[1],
283 total[2], total[3], total[4] );
284 printf
285 ( "------------------------------------------------------------------------------\n" );
286
287 printf( "Verification:\n" );
288
289 printf
290 ( "Overflow in Column 2 greater than or equal to overflows in Columns 3, 4, 5\n" );
291 printf( "Overflow in Columns 3, 4, 5 greater than 0\n" );
292 }
293
294 hard_min =
295 ( long long ) ( ( ( double ) values[0] * ( 1.0 - OVR_TOLERANCE ) ) /
296 ( double ) mythreshold );
297 hard_max =
298 ( long long ) ( ( ( double ) values[0] * ( 1.0 + OVR_TOLERANCE ) ) /
299 ( double ) mythreshold );
300 soft_min =
301 ( long long ) ( ( ( double ) values[0] * ( 1.0 - SOFT_TOLERANCE ) ) /
302 ( double ) mythreshold );
303 soft_max =
304 ( long long ) ( ( ( double ) values[0] * ( 1.0 + SOFT_TOLERANCE ) ) /
305 ( double ) mythreshold );
306
307 if ( total[1] > hard_max || total[1] < hard_min )
308 test_fail( __FILE__, __LINE__, "Hardware Overflows outside limits", 1 );
309
310 if ( total[2] > soft_max || total[3] > soft_max || total[4] > soft_max )
311 test_fail( __FILE__, __LINE__,
312 "Software Overflows exceed theoretical maximum", 1 );
313
314 if ( total[2] < soft_min || total[3] < soft_min || total[4] < soft_min )
315 printf( "WARNING: Software Overflow occurring but suspiciously low\n" );
316
317 if ( ( total[2] == 0 ) || ( total[3] == 0 ) || ( total[4] == 0 ) )
318 test_fail( __FILE__, __LINE__, "Software Overflows", 1 );
319
320 test_pass( __FILE__ );
321
322 return 0;
323
324}
hw_info
static const PAPI_hw_info_t * hw_info
Definition: byte_profile.c:28
PAPI_add_event
add PAPI preset or native hardware event to an event set
PAPI_create_eventset
Create a new empty PAPI EventSet.
PAPI_event_code_to_name
Convert a numeric hardware event code to a name.
PAPI_get_event_info
Get the event's name and description info.
PAPI_get_hardware_info
get information about the system hardware
PAPI_get_opt
Get PAPI library or event set options.
PAPI_library_init
initialize the PAPI library.
PAPI_overflow
Set up an event set to begin registering overflows.
PAPI_query_event
Query if PAPI event exists.
PAPI_set_opt
Set PAPI library or event set options.
PAPI_start
Start counting hardware events in an event set.
PAPI_stop
Stop counting hardware events in an event set.
mythreshold
static long long mythreshold
Definition: ctests/overflow_pthreads.c:48
PAPI_event
int PAPI_event[2]
Definition: data_range.c:30
event_name
char event_name[2][PAPI_MAX_STR_LEN]
Definition: data_range.c:29
do_stuff
void do_stuff(void)
Definition: do_loops.c:256
do_loops.h
OVR_TOLERANCE
#define OVR_TOLERANCE
Definition: do_loops.h:14
THRESHOLD
#define THRESHOLD
Definition: earprofile.c:37
PAPI_VER_CURRENT
#define PAPI_VER_CURRENT
Definition: f90papi.h:54
PAPI_OK
#define PAPI_OK
Definition: f90papi.h:73
PAPI_NULL
#define PAPI_NULL
Definition: f90papi.h:78
PAPI_OVERFLOW_FORCE_SW
#define PAPI_OVERFLOW_FORCE_SW
Definition: f90papi.h:131
PAPI_FP_INS
#define PAPI_FP_INS
Definition: f90papi.h:366
PAPI_MAX_STR_LEN
#define PAPI_MAX_STR_LEN
Definition: f90papi.h:77
PAPI_FP_OPS
#define PAPI_FP_OPS
Definition: f90papi.h:319
PAPI_TOT_INS
#define PAPI_TOT_INS
Definition: f90papi.h:317
PAPI_COMPONENTINFO
#define PAPI_COMPONENTINFO
Definition: f90papi.h:75
PAPI_DEF_ITIMER
#define PAPI_DEF_ITIMER
Definition: papi.h:462
EventSet
static int EventSet
Definition: init_fini.c:8
TESTS_QUIET
int TESTS_QUIET
Definition: test_utils.c:18
OVER_FMT
#define OVER_FMT
Definition: overflow_force_software.c:44
total
static int total[MY_NUM_TESTS]
Definition: overflow_force_software.c:50
values
static long long values[MY_NUM_TESTS]
Definition: overflow_force_software.c:52
MY_NUM_TESTS
#define MY_NUM_TESTS
Definition: overflow_force_software.c:48
SOFT_TOLERANCE
#define SOFT_TOLERANCE
Definition: overflow_force_software.c:47
use_total
static int use_total
Definition: overflow_force_software.c:51
handler
void handler(int EventSet, void *address, long long overflow_vector, void *context)
Definition: overflow_force_software.c:55
papi.h
Return codes and api definitions.
stderr
FILE * stderr
papi_test.h
tests_quiet
int tests_quiet(int argc, char **argv)
Definition: test_utils.c:376
test_fail
void PAPI_NORETURN test_fail(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:491
test_pass
void PAPI_NORETURN test_pass(const char *filename)
Definition: test_utils.c:432
test_skip
void PAPI_NORETURN test_skip(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:584
main
int main()
Definition: pernode.c:20
int
int
Definition: sde_internal.h:89
long
long long int long long
Definition: sde_internal.h:85
PAPI_event_info_t
Definition: papi.h:957
PAPI_event_info_t::count
unsigned int count
Definition: papi.h:981
PAPI_event_info_t::symbol
char symbol[PAPI_HUGE_STR_LEN]
Definition: papi.h:960
PAPI_event_info_t::derived
char derived[PAPI_MIN_STR_LEN]
Definition: papi.h:989
PAPI_hw_info_t
Hardware info structure.
Definition: papi.h:774
PAPI_hw_info_t::cpu_max_mhz
int cpu_max_mhz
Definition: papi.h:790
PAPI_itimer_option_t::itimer_sig
int itimer_sig
Definition: papi.h:592
PAPI_itimer_option_t::itimer_num
int itimer_num
Definition: papi.h:591
PAPI_option_t
A pointer to the following is passed to PAPI_set/get_opt()
Definition: papi.h:843
PAPI_option_t::itimer
PAPI_itimer_option_t itimer
Definition: papi.h:854
retval
int retval
Definition: zero_fork.c:53