PAPI 7.1.0.0
Loading...
Searching...
No Matches
Macros | Functions
PAPI_set_domain.c File Reference
Include dependency graph for PAPI_set_domain.c:

Go to the source code of this file.

Macros

#define ERROR_RETURN(retval)   { fprintf(stderr, "Error %d %s:line %d: \n", retval,__FILE__,__LINE__); exit(retval); }
 

Functions

int poorly_tuned_function ()
 
int main ()
 

Macro Definition Documentation

◆ ERROR_RETURN

#define ERROR_RETURN (   retval)    { fprintf(stderr, "Error %d %s:line %d: \n", retval,__FILE__,__LINE__); exit(retval); }

Definition at line 13 of file PAPI_set_domain.c.

Function Documentation

◆ main()

int main ( )

Definition at line 27 of file PAPI_set_domain.c.

28{
29
30 int num, retval, EventSet = PAPI_NULL;
31 long long values[2];
32 PAPI_option_t options;
33 int fd;
34
35
36 /****************************************************************************
37 * This part initializes the library and compares the version number of the *
38 * header file, to the version of the library, if these don't match then it *
39 * is likely that PAPI won't work correctly.If there is an error, retval *
40 * keeps track of the version number. *
41 ****************************************************************************/
42
43 if((retval = PAPI_library_init(PAPI_VER_CURRENT)) != PAPI_VER_CURRENT )
44 {
45 printf("Library initialization error! \n");
46 exit(1);
47 }
48
49 /* Set the domain of this EventSet to counter user mode. The domain
50 will be valid for all the eventset created after this function call
51 unless you call PAPI_set_domain again */
52 if ((retval=PAPI_set_domain(PAPI_DOM_USER)) != PAPI_OK)
53 ERROR_RETURN(retval);
54
55 if ((retval=PAPI_create_eventset(&EventSet)) != PAPI_OK)
56 ERROR_RETURN(retval);
57
58 /* Add Total Instructions Executed event to the EventSet */
59 if ( (retval = PAPI_add_event(EventSet, PAPI_TOT_INS)) != PAPI_OK)
60 ERROR_RETURN(retval);
61
62 /* Add Total Cycles Executed event to the EventSet */
63 if ( (retval = PAPI_add_event(EventSet, PAPI_TOT_CYC)) != PAPI_OK)
64 ERROR_RETURN(retval);
65
66 /* Start counting */
67 if((retval=PAPI_start(EventSet)) != PAPI_OK)
68 ERROR_RETURN(retval);
69
70 poorly_tuned_function();
71 /* add some system calls */
72 fd = open("/dev/zero", O_RDONLY);
73 if (fd == -1)
74 {
75 perror("open(/dev/zero)");
76 exit(1);
77 }
78 close(fd);
79
80
81 /* Stop counting */
82 if((retval=PAPI_stop(EventSet, values)) != PAPI_OK)
83 ERROR_RETURN(retval);
84
85 printf(" Total instructions: %lld Total Cycles: %lld \n", values[0],
86 values[1]);
87
88 /* Set the domain of this EventSet to counter user and kernel modes */
89 if ((retval=PAPI_set_domain(PAPI_DOM_ALL)) != PAPI_OK)
90 ERROR_RETURN(retval);
91
92 EventSet = PAPI_NULL;
93 if ((retval=PAPI_create_eventset(&EventSet)) != PAPI_OK)
94 ERROR_RETURN(retval);
95
96 /* Add Total Instructions Executed to our EventSet */
97 if ( (retval = PAPI_add_event(EventSet, PAPI_TOT_INS)) != PAPI_OK)
98 ERROR_RETURN(retval);
99
100 /* Add Total Instructions Executed to our EventSet */
101 if ( (retval = PAPI_add_event(EventSet, PAPI_TOT_CYC)) != PAPI_OK)
102 ERROR_RETURN(retval);
103 /* Start counting */
104 if((retval=PAPI_start(EventSet)) != PAPI_OK)
105 ERROR_RETURN(retval);
106
107 poorly_tuned_function();
108 /* add some system calls */
109 fd = open("/dev/zero", O_RDONLY);
110 if (fd == -1)
111 {
112 perror("open(/dev/zero)");
113 exit(1);
114 }
115 close(fd);
116
117 /* Stop counting */
118 if((retval=PAPI_stop(EventSet, values)) != PAPI_OK)
119 ERROR_RETURN(retval);
120
121 printf(" Total instructions: %lld Total Cycles: %lld \n", values[0],
122 values[1]);
123
124 /* clean up */
125 PAPI_shutdown();
126
127 exit(0);
128}
poorly_tuned_function
int poorly_tuned_function()
Definition: PAPI_set_domain.c:15
ERROR_RETURN
#define ERROR_RETURN(retval)
Definition: PAPI_set_domain.c:13
open
int open(const char *pathname, int flags, mode_t mode)
Definition: appio.c:188
close
int close(int fd)
Definition: appio.c:179
PAPI_add_event
add PAPI preset or native hardware event to an event set
PAPI_create_eventset
Create a new empty PAPI EventSet.
PAPI_library_init
initialize the PAPI library.
PAPI_set_domain
Set the default counting domain for new event sets bound to the cpu component.
PAPI_shutdown
Finish using PAPI and free all related resources.
PAPI_start
Start counting hardware events in an event set.
PAPI_stop
Stop counting hardware events in an event set.
PAPI_DOM_USER
#define PAPI_DOM_USER
Definition: f90papi.h:174
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_TOT_CYC
#define PAPI_TOT_CYC
Definition: f90papi.h:308
PAPI_TOT_INS
#define PAPI_TOT_INS
Definition: f90papi.h:317
PAPI_DOM_ALL
#define PAPI_DOM_ALL
Definition: f90papi.h:261
EventSet
static int EventSet
Definition: init_fini.c:8
values
static long long values[NUM_EVENTS]
Definition: init_fini.c:10
options
static options_t options
Definition: papi_multiplex_cost.c:59
PAPI_option_t
A pointer to the following is passed to PAPI_set/get_opt()
Definition: papi.h:843
retval
int retval
Definition: zero_fork.c:53
Here is the call graph for this function:

◆ poorly_tuned_function()

int poorly_tuned_function ( )

Definition at line 15 of file PAPI_set_domain.c.

16{
17 float tmp;
18 int i;
19
20 for(i=1; i<2000; i++)
21 {
22 tmp=(tmp+100)/i;
23 }
24 return 0;
25}
tmp
double tmp
Definition: PAPI_get_virt_cyc.c:11
i
int i
Definition: PAPI_get_virt_cyc.c:10
Here is the caller graph for this function: