void Extrae_register_codelocation_type_Wrapper (extrae_type_t type_function,
extrae_type_t type_file_line, const char *description_function,
const char *description_file_line)
{
TRACE_MISCEVENT(LAST_READ_TIME,REGISTER_CODELOCATION_TYPE_EV, type_function,
type_file_line);
Extrae_AddTypeValuesEntryToLocalSYM ('C', type_function, (char*)description_function,
(char)0, 0, NULL, NULL);
Extrae_AddTypeValuesEntryToLocalSYM ('c', type_file_line, (char*)description_file_line,
(char)0, 0, NULL, NULL);
}
void Extrae_OpenCL_annotateKernelName (cl_kernel k, unsigned *pos)
{
/* Add a new entry if the kernel name does not exist */
char *kname = Extrae_OpenCL_getKernelName (k);
if (!Extrae_OpenCL_lookForKernelName (kname, pos))
{
unsigned long long v;
Kernels = (AnnotatedKernel_st*) realloc (Kernels,
sizeof(AnnotatedKernel_st)*(nKernels+1));
if (Kernels == NULL)
{
fprintf (stderr, PACKAGE_NAME": Fatal error! Failed to allocate memory for OpenCL Kernels\n");
exit (-1);
}
Kernels[nKernels].KernelName = strdup (kname);
*pos = nKernels;
v = nKernels+1;
Extrae_AddTypeValuesEntryToLocalSYM ('D', OPENCL_KERNEL_NAME_EV,
"OpenCL kernel name", 'd', 1, &v, &kname);
nKernels++;
}
/* Free allocated kernel name */
free (kname);
}
void Extrae_define_event_type_Wrapper (extrae_type_t type, char *description,
unsigned nvalues, extrae_value_t *values, char **description_values)
{
Extrae_AddTypeValuesEntryToLocalSYM ('D', type, description, 'd', nvalues, values,
description_values);
}
