void Extrae_SamplingHandler_PAPI (void* address)
{
if (tracejant && Extrae_isSamplingEnabled() && !Backend_inInstrumentation(THREADID))
{
UINT64 temps = Clock_getCurrentTime_nstore();
SAMPLE_EVENT_HWC (temps, SAMPLING_EV, (unsigned long long) address);
Extrae_trace_callers (temps, 8, CALLER_SAMPLING);
}
}
void Extrae_emit_CombinedEvents_Wrapper (struct extrae_CombinedEvents *ptr)
{
unsigned i;
int events_id[ptr->nEvents];
/* Emit events first */
if (ptr->nEvents > 0)
{
for (i = 0; i < ptr->nEvents; i++)
events_id[i] = USER_EV;
if (ptr->HardwareCounters)
{
TRACE_N_MISCEVENTANDCOUNTERS(LAST_READ_TIME, ptr->nEvents, events_id, ptr->Types, ptr->Values);
}
else
{
TRACE_N_MISCEVENT(LAST_READ_TIME, ptr->nEvents, events_id, ptr->Types, ptr->Values);
}
}
/* Emit user function. If hwc were emitted before, don't emit now because they
will share the same timestamp and Paraver won't handle that well. Otherwise,
honor tracejant_hwc_uf
*/
if (ptr->UserFunction != EXTRAE_USER_FUNCTION_NONE)
{
UINT64 ip = (ptr->UserFunction == EXTRAE_USER_FUNCTION_ENTER)?Extrae_get_caller(4):EMPTY;
#if USE_HARDWARE_COUNTERS
int EmitHWC = (!ptr->HardwareCounters && tracejant_hwc_uf);
TRACE_EVENTANDCOUNTERS (LAST_READ_TIME, USRFUNC_EV, ip, EmitHWC);
#else
TRACE_EVENT (LAST_READ_TIME, USRFUNC_EV, ip);
#endif
}
/* Now emit the callers */
if (ptr->Callers)
{
Extrae_trace_callers (LAST_READ_TIME, 4, CALLER_MPI);
}
/* Finally emit user communications */
for (i = 0; i < ptr->nCommunications ; i++)
TRACE_USER_COMMUNICATION_EVENT(LAST_READ_TIME,
(ptr->Communications[i].type==EXTRAE_USER_SEND)?USER_SEND_EV:USER_RECV_EV,
ptr->Communications[i].partner, ptr->Communications[i].size,
ptr->Communications[i].tag, ptr->Communications[i].id)
}
