1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
/****************************/
/* THIS IS OPEN SOURCE CODE */
/****************************/
/**
* @file linux-bgq-common.c
* CVS: $Id$
* @author Heike Jagode
* jagode@eecs.utk.edu
* Mods: < your name here >
* < your email address >
* BGPM component
*
* Tested version of bgpm (early access)
*
* @brief
* This file is part of the source code for a component that enables PAPI-C to
* access hardware monitoring counters for BG/Q through the bgpm library.
*/
#include "linux-bgq-common.h"
/*******************************************************************************
******** BEGIN FUNCTIONS USED INTERNALLY SPECIFIC TO THIS COMPONENT **********
******************************************************************************/
int _check_BGPM_error( int err, char* bgpmfunc )
{
char buffer[PAPI_MAX_STR_LEN];
int retval;
if ( err < 0 ) {
sprintf( buffer, "Error: ret value is %d for BGPM API function '%s'.",
err, bgpmfunc);
retval = _papi_hwi_publish_error( buffer );
return retval;
}
return PAPI_OK;
}
/*
* Returns all event values from the BGPM eventGroup
*/
long_long
_common_getEventValue( unsigned event_id, int EventGroup )
{
uint64_t value;
int retval;
retval = Bgpm_ReadEvent( EventGroup, event_id, &value );
retval = _check_BGPM_error( retval, "Bgpm_ReadEvent" );
if ( retval < 0 ) return retval;
return ( ( long_long ) value );
}
/*
* Delete BGPM eventGroup and create an new empty one
*/
int
_common_deleteRecreate( int *EventGroup_ptr )
{
#ifdef DEBUG_BGQ
printf( _AT_ " _common_deleteRecreate: *EventGroup_ptr=%d\n", *EventGroup_ptr);
#endif
int retval;
// delete previous bgpm eventset
retval = Bgpm_DeleteEventSet( *EventGroup_ptr );
retval = _check_BGPM_error( retval, "Bgpm_DeleteEventSet" );
if ( retval < 0 ) return retval;
// create a new empty bgpm eventset
*EventGroup_ptr = Bgpm_CreateEventSet();
retval = _check_BGPM_error( *EventGroup_ptr, "Bgpm_CreateEventSet" );
if ( retval < 0 ) return retval;
#ifdef DEBUG_BGQ
printf( _AT_ " _common_deleteRecreate: *EventGroup_ptr=%d\n", *EventGroup_ptr);
#endif
return PAPI_OK;
}
/*
* Rebuild BGPM eventGroup with the events as it was prior to deletion
*/
int
_common_rebuildEventgroup( int count, int *EventGroup_local, int *EventGroup_ptr )
{
#ifdef DEBUG_BGQ
printf( "_common_rebuildEventgroup\n" );
#endif
int i, retval;
// rebuild BGPM EventGroup
for ( i = 0; i < count; i++ ) {
retval = Bgpm_AddEvent( *EventGroup_ptr, EventGroup_local[i] );
retval = _check_BGPM_error( retval, "Bgpm_AddEvent" );
if ( retval < 0 ) return retval;
#ifdef DEBUG_BGQ
printf( "_common_rebuildEventgroup: After emptying EventGroup, event re-added: %d\n",
EventGroup_local[i] );
#endif
}
return PAPI_OK;
}
/*
* _common_set_overflow_BGPM
*
* since update_control_state trashes overflow settings, this puts things
* back into balance for BGPM
*/
int
_common_set_overflow_BGPM( int EventGroup,
int evt_idx,
int threshold,
void (*handler)(int, uint64_t, uint64_t, const ucontext_t *) )
{
int retval;
uint64_t threshold_for_bgpm;
/* convert threadhold value assigned by PAPI user to value that is
* programmed into the counter. This value is required by Bgpm_SetOverflow() */
threshold_for_bgpm = BGPM_PERIOD2THRES( threshold );
#ifdef DEBUG_BGQ
printf("_common_set_overflow_BGPM\n");
int i;
int numEvts = Bgpm_NumEvents( EventGroup );
for ( i = 0; i < numEvts; i++ ) {
printf("_common_set_overflow_BGPM: %d = %s\n", i, Bgpm_GetEventLabel( EventGroup, i) );
}
#endif
retval = Bgpm_SetOverflow( EventGroup,
evt_idx,
threshold_for_bgpm );
retval = _check_BGPM_error( retval, "Bgpm_SetOverflow" );
if ( retval < 0 ) return retval;
retval = Bgpm_SetEventUser1( EventGroup,
evt_idx,
1024 );
retval = _check_BGPM_error( retval, "Bgpm_SetEventUser1" );
if ( retval < 0 ) return retval;
/* user signal handler for overflow case */
retval = Bgpm_SetOverflowHandler( EventGroup,
handler );
retval = _check_BGPM_error( retval, "Bgpm_SetOverflowHandler" );
if ( retval < 0 ) return retval;
return PAPI_OK;
}
|
