vendor_profiler_v1.c File Reference

Include dependency graph for vendor_profiler_v1.c:

Go to the source code of this file.

Data Structures
struct	ntv_event_t
struct	ntv_event_table_t
struct	vendorp_ctx_t
struct	event_info_t

Macros
#define	EVENTS_WIDTH   (sizeof(uint32_t) * 8)
#define	DEVICE_WIDTH   (7)
#define	OPCODE_WIDTH   (1)
#define	QLMASK_WIDTH   (2)
#define	NAMEID_WIDTH   (2)
#define	UNUSED_WIDTH   (EVENTS_WIDTH - DEVICE_WIDTH - OPCODE_WIDTH - QLMASK_WIDTH - NAMEID_WIDTH)
#define	DEVICE_SHIFT   (EVENTS_WIDTH - UNUSED_WIDTH - DEVICE_WIDTH)
#define	OPCODE_SHIFT   (DEVICE_SHIFT - OPCODE_WIDTH)
#define	QLMASK_SHIFT   (OPCODE_SHIFT - QLMASK_WIDTH)
#define	NAMEID_SHIFT   (QLMASK_SHIFT - NAMEID_WIDTH)
#define	DEVICE_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - DEVICE_WIDTH)) << DEVICE_SHIFT)
#define	OPCODE_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - OPCODE_WIDTH)) << OPCODE_SHIFT)
#define	QLMASK_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - QLMASK_WIDTH)) << QLMASK_SHIFT)
#define	NAMEID_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - NAMEID_WIDTH)) << NAMEID_SHIFT)
#define	DEVICE_FLAG   (0x2)
#define	OPCODE_FLAG   (0x1)
#define	OPCODE_EXP   (0x0)
#define	OPCODE_SUM   (0x1)

Functions
int	vendorp1_init_pre (void)
static int	load_profiler_v1_symbols (void)
static int	unload_profiler_v1_symbols (void)
static int	initialize_event_table (void)
static int	finalize_event_table (void)
static int	evt_id_create (event_info_t *info, uint32_t *event_id)
static int	evt_id_to_info (uint32_t event_id, event_info_t *info)
static int	evt_name_to_device (const char *name, int *device)
static int	evt_name_to_opcode (const char *name, int *opcode)
static int	evt_name_to_basename (const char *name, char *base, int len)
int	vendorp1_init (void)
int	vendorp1_shutdown (void)
static int	init_ctx (unsigned int *events_id, int num_events, vendorp_ctx_t ctx)
static int	open_ctx (vendorp_ctx_t ctx)
static int	close_ctx (vendorp_ctx_t ctx)
static int	finalize_ctx (vendorp_ctx_t ctx)
int	vendorp1_ctx_open (unsigned int *events_id, int num_events, vendorp_ctx_t *ctx)
int	vendorp1_ctx_start (vendorp_ctx_t ctx)
int	vendorp1_ctx_read (vendorp_ctx_t ctx, long long **counters)
int	vendorp1_ctx_stop (vendorp_ctx_t ctx)
int	vendorp1_ctx_reset (vendorp_ctx_t ctx)
int	vendorp1_ctx_close (vendorp_ctx_t ctx)
int	vendorp1_evt_enum (unsigned int *event_code, int modifier)
int	vendorp1_evt_code_to_name (unsigned int event_code, char *name, int len)
int	vendorp1_evt_code_to_descr (unsigned int event_code, char *descr, int len)
int	vendorp1_evt_code_to_info (unsigned int event_code, PAPI_event_info_t *info)
int	vendorp1_evt_name_to_code (const char *name, unsigned int *event_code)
static int	get_events_count (int *num_events)
static int	get_events (ntv_event_t *events, int num_events)
int	open_ctx (vendorp_ctx_t ctx __attribute__((unused)))
int	close_ctx (vendorp_ctx_t ctx __attribute__((unused)))

Variables
struct {
char *   name
char *   descr
}	vendor_events []
static ntv_event_table_t	ntv_table
static ntv_event_table_t *	ntv_table_p

Macro Definition Documentation

DEVICE_FLAG

#define DEVICE_FLAG   (0x2)

Definition at line 33 of file vendor_profiler_v1.c.

DEVICE_MASK

#define DEVICE_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - DEVICE_WIDTH)) << DEVICE_SHIFT)

Definition at line 29 of file vendor_profiler_v1.c.

DEVICE_SHIFT

#define DEVICE_SHIFT   (EVENTS_WIDTH - UNUSED_WIDTH - DEVICE_WIDTH)

Definition at line 25 of file vendor_profiler_v1.c.

DEVICE_WIDTH

#define DEVICE_WIDTH   (7)

Definition at line 20 of file vendor_profiler_v1.c.

EVENTS_WIDTH

#define EVENTS_WIDTH   (sizeof(uint32_t) * 8)

Event identifier encoding format: +-----------------—+----—+-+–+–+ | unused | dev | | |id| +-----------------—+----—+-+–+–+

unused : 18 bits device : 7 bits ([0 - 127] devices) function : 1 bits (exponential or sum) qlmask : 2 bits (qualifier mask) nameid : 2 bits ([0 - 3] event names)

Definition at line 19 of file vendor_profiler_v1.c.

NAMEID_MASK

#define NAMEID_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - NAMEID_WIDTH)) << NAMEID_SHIFT)

Definition at line 32 of file vendor_profiler_v1.c.

NAMEID_SHIFT

#define NAMEID_SHIFT   (QLMASK_SHIFT - NAMEID_WIDTH)

Definition at line 28 of file vendor_profiler_v1.c.

NAMEID_WIDTH

#define NAMEID_WIDTH   (2)

Definition at line 23 of file vendor_profiler_v1.c.

OPCODE_EXP

#define OPCODE_EXP   (0x0)

Definition at line 35 of file vendor_profiler_v1.c.

OPCODE_FLAG

#define OPCODE_FLAG   (0x1)

Definition at line 34 of file vendor_profiler_v1.c.

OPCODE_MASK

#define OPCODE_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - OPCODE_WIDTH)) << OPCODE_SHIFT)

Definition at line 30 of file vendor_profiler_v1.c.

OPCODE_SHIFT

#define OPCODE_SHIFT   (DEVICE_SHIFT - OPCODE_WIDTH)

Definition at line 26 of file vendor_profiler_v1.c.

OPCODE_SUM

#define OPCODE_SUM   (0x1)

Definition at line 36 of file vendor_profiler_v1.c.

OPCODE_WIDTH

#define OPCODE_WIDTH   (1)

Definition at line 21 of file vendor_profiler_v1.c.

QLMASK_MASK

#define QLMASK_MASK   ((0xFFFFFFFF >> (EVENTS_WIDTH - QLMASK_WIDTH)) << QLMASK_SHIFT)

Definition at line 31 of file vendor_profiler_v1.c.

QLMASK_SHIFT

#define QLMASK_SHIFT   (OPCODE_SHIFT - QLMASK_WIDTH)

Definition at line 27 of file vendor_profiler_v1.c.

QLMASK_WIDTH

#define QLMASK_WIDTH   (2)

Definition at line 22 of file vendor_profiler_v1.c.

UNUSED_WIDTH

#define UNUSED_WIDTH   (EVENTS_WIDTH - DEVICE_WIDTH - OPCODE_WIDTH - QLMASK_WIDTH - NAMEID_WIDTH)

Definition at line 24 of file vendor_profiler_v1.c.

Function Documentation

close_ctx() [1/2]

int close_ctx

(

vendorp_ctx_t ctx

__attribute__(unused)

)

Definition at line 523 of file vendor_profiler_v1.c.

{
    return PAPI_OK;
}

close_ctx() [2/2]

static int close_ctx ( vendorp_ctx_t  ctx )

static

Here is the caller graph for this function:

evt_id_create()

int evt_id_create ( event_info_t *  info, uint32_t *  event_id  )

static

Definition at line 559 of file vendor_profiler_v1.c.

{
    *event_id  = (uint32_t)(info->device << DEVICE_SHIFT);
    *event_id |= (uint32_t)(info->opcode << OPCODE_SHIFT);
    *event_id |= (uint32_t)(info->flags  << QLMASK_SHIFT);
    *event_id |= (uint32_t)(info->nameid << NAMEID_SHIFT);
    return PAPI_OK;
}

Here is the caller graph for this function:

evt_id_to_info()

int evt_id_to_info ( uint32_t  event_id, event_info_t *  info  )

static

Definition at line 569 of file vendor_profiler_v1.c.

{
    info->device = (int)((event_id & DEVICE_MASK) >> DEVICE_SHIFT);
    info->opcode = (int)((event_id & OPCODE_MASK) >> OPCODE_SHIFT);
    info->flags  = (int)((event_id & QLMASK_MASK) >> QLMASK_SHIFT);
    info->nameid = (int)((event_id & NAMEID_MASK) >> NAMEID_SHIFT);
 
    if (info->device >= device_table_p->num_devices) {
        return PAPI_ENOEVNT;
    }
 
    if (info->nameid >= ntv_table_p->num_events) {
        return PAPI_ENOEVNT;
    }
 
    if (0 == strcmp(ntv_table_p->events[info->nameid].name, "TEMPLATE_FUNCTION") && 0 == info->flags) {
        return PAPI_ENOEVNT;
    }
 
    return PAPI_OK;
}

Here is the caller graph for this function:

evt_name_to_basename()

int evt_name_to_basename ( const char *  name, char *  base, int  len  )

static

Definition at line 625 of file vendor_profiler_v1.c.

{
    char *p = strstr(name, ":");
    if (p) {
        if (len < (int)(p - name)) {
            return PAPI_EBUF;
        }
        strncpy(base, name, (size_t)(p - name));
    } else {
        if (len < (int) strlen(name)) {
            return PAPI_EBUF;
        }
        strncpy(base, name, (size_t) len);
    }
    return PAPI_OK;
}

Here is the caller graph for this function:

evt_name_to_device()

int evt_name_to_device ( const char *  name, int *  device  )

static

Definition at line 592 of file vendor_profiler_v1.c.

{
    *device = 0;
    char *p = strstr(name, ":device=");
    if (p) {
        *device = (int) strtol(p + strlen(":device="), NULL, 10);
    }
    return PAPI_OK;
}

Here is the caller graph for this function:

evt_name_to_opcode()

int evt_name_to_opcode ( const char *  name, int *  opcode  )

static

Definition at line 603 of file vendor_profiler_v1.c.

{
    char basename[PAPI_MAX_STR_LEN] = { 0 };
    evt_name_to_basename(name, basename, PAPI_MAX_STR_LEN);
    if (0 == strcmp(basename, "TEMPLATE_FUNCTION")) {
        char *p = strstr(name, ":function=");
        if (p) {
            if (strncmp(p + strlen(":function="), "exp", strlen("exp")) == 0) {
                *opcode = OPCODE_EXP;
            } else if (strncmp(p + strlen(":function="), "sum", strlen("sum")) == 0) {
                *opcode = OPCODE_SUM;
            } else {
                return PAPI_ENOEVNT;
            }
        } else {
            return PAPI_ENOEVNT;
        }
    }
    return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

finalize_ctx()

int finalize_ctx ( vendorp_ctx_t  ctx )

static

Definition at line 529 of file vendor_profiler_v1.c.

{
    ctx->events_id = NULL;
    ctx->num_events = 0;
    papi_free(ctx->counters);
    return PAPI_OK;
}

Here is the caller graph for this function:

finalize_event_table()

int finalize_event_table ( void  )

static

Definition at line 496 of file vendor_profiler_v1.c.

{
    papi_free(ntv_table_p->events);
    ntv_table_p->num_events = 0;
    ntv_table_p = NULL;
    return PAPI_OK;
}

Here is the caller graph for this function:

get_events()

int get_events ( ntv_event_t *  events, int  num_events  )

static

Definition at line 547 of file vendor_profiler_v1.c.

{
    int i = 0;
    while (vendor_events[i].name != NULL) {
        snprintf(events[i].name, PAPI_MAX_STR_LEN, "%s", vendor_events[i].name);
        snprintf(events[i].descr, PAPI_2MAX_STR_LEN, "%s", vendor_events[i].descr);
        ++i;
    }
    return (num_events - i) ? PAPI_EMISC : PAPI_OK;
}

Here is the caller graph for this function:

get_events_count()

int get_events_count ( int *  num_events )

static

Definition at line 538 of file vendor_profiler_v1.c.

{
    int i = 0;
    while (vendor_events[i++].name != NULL);
    *num_events = i - 1;
    return PAPI_OK;
}

Here is the caller graph for this function:

init_ctx()

int init_ctx ( unsigned int *  events_id, int  num_events, vendorp_ctx_t  ctx  )

static

Definition at line 505 of file vendor_profiler_v1.c.

{
    ctx->events_id = events_id;
    ctx->num_events = num_events;
    ctx->counters = papi_calloc(num_events, sizeof(long long));
    if (NULL == ctx->counters) {
        return PAPI_ENOMEM;
    }
    return PAPI_OK;
}

Here is the caller graph for this function:

initialize_event_table()

int initialize_event_table ( void  )

static

Definition at line 466 of file vendor_profiler_v1.c.

{
    int papi_errno, num_events;
 
    papi_errno = get_events_count(&num_events);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    ntv_event_t *events = papi_calloc(num_events, sizeof(ntv_event_t));
    if (NULL == events) {
        return PAPI_ENOMEM;
    }
 
    papi_errno = get_events(events, num_events);
    if (papi_errno != PAPI_OK) {
        goto fn_fail;
    }
 
    ntv_table.events = events;
    ntv_table.num_events = num_events;
 
  fn_exit:
    return papi_errno;
  fn_fail:
    papi_free(events);
    goto fn_exit;
}

Here is the call graph for this function:

Here is the caller graph for this function:

load_profiler_v1_symbols()

int load_profiler_v1_symbols ( void  )

static

Definition at line 451 of file vendor_profiler_v1.c.

{
    return PAPI_OK;
}

Here is the caller graph for this function:

open_ctx() [1/2]

int open_ctx

(

vendorp_ctx_t ctx

__attribute__(unused)

)

Definition at line 517 of file vendor_profiler_v1.c.

{
    return PAPI_OK;
}

open_ctx() [2/2]

static int open_ctx ( vendorp_ctx_t  ctx )

static

Here is the caller graph for this function:

unload_profiler_v1_symbols()

int unload_profiler_v1_symbols ( void  )

static

Definition at line 457 of file vendor_profiler_v1.c.

{
    return PAPI_OK;
}

Here is the caller graph for this function:

vendorp1_ctx_close()

int vendorp1_ctx_close

(

vendorp_ctx_t

ctx

)

Definition at line 215 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    _papi_hwi_lock(_templ_lock);
 
    papi_errno = close_ctx(ctx);
    if (papi_errno != PAPI_OK) {
        goto fn_fail;
    }
 
    ctx->state &= ~TEMPL_CTX_OPENED;
 
    papi_errno = finalize_ctx(ctx);
    if (papi_errno != PAPI_OK) {
        goto fn_fail;
    }
 
    papi_free(ctx);
 
  fn_exit:
    _papi_hwi_unlock(_templ_lock);
    return papi_errno;
  fn_fail:
    goto fn_exit;
 
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_ctx_open()

int vendorp1_ctx_open	(	unsigned int *	events_id,
		int	num_events,
		vendorp_ctx_t *	ctx
	)

Definition at line 132 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    *ctx = papi_calloc(1, sizeof(struct vendord_ctx));
    if (NULL == *ctx) {
        return PAPI_ENOMEM;
    }
 
    _papi_hwi_lock(_templ_lock);
 
    papi_errno = init_ctx(events_id, num_events, *ctx);
    if (papi_errno != PAPI_OK) {
        goto fn_fail;
    }
 
    papi_errno = open_ctx(*ctx);
    if (papi_errno != PAPI_OK) {
        goto fn_fail;
    }
 
    (*ctx)->state |= TEMPL_CTX_OPENED;
 
  fn_exit:
    _papi_hwi_unlock(_templ_lock);
    return papi_errno;
  fn_fail:
    close_ctx(*ctx);
    finalize_ctx(*ctx);
    goto fn_exit;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_ctx_read()

int vendorp1_ctx_read	(	vendorp_ctx_t	ctx,
		long long **	counters
	)

Definition at line 172 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    int i;
    for (i = 0; i < ctx->num_events; ++i) {
        event_info_t info;
        papi_errno = evt_id_to_info(ctx->events_id[i], &info);
        if (papi_errno != PAPI_OK) {
            return papi_errno;
        }
 
        if (0 == strcmp(ntv_table_p->events[info.nameid].name, "TEMPLATE_ZERO")) {
            ctx->counters[i] = (long long) 0;
        } else if (0 == strcmp(ntv_table_p->events[info.nameid].name, "TEMPLATE_CONSTANT")) {
            ctx->counters[i] = (long long) 42;
        } else if (0 == strcmp(ntv_table_p->events[info.nameid].name, "TEMPLATE_FUNCTION")) {
            if (info.opcode == OPCODE_EXP) {
                ctx->counters[i] = (ctx->counters[i]) ? ctx->counters[i] * 2 : 2;
            } else {
                ctx->counters[i] = (ctx->counters[i]) ? ctx->counters[i] + 1 : 1;
            }
        }
    }
    *counters = ctx->counters;
    return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_ctx_reset()

int vendorp1_ctx_reset

(

vendorp_ctx_t

ctx

)

Definition at line 208 of file vendor_profiler_v1.c.

{
    memset(ctx->counters, 0, sizeof(ctx->counters) * ctx->num_events);
    return PAPI_OK;
}

Here is the caller graph for this function:

vendorp1_ctx_start()

int vendorp1_ctx_start

(

vendorp_ctx_t

ctx

)

Definition at line 165 of file vendor_profiler_v1.c.

{
    ctx->state |= TEMPL_CTX_RUNNING;
    return PAPI_OK;
}

Here is the caller graph for this function:

vendorp1_ctx_stop()

int vendorp1_ctx_stop

(

vendorp_ctx_t

ctx

)

Definition at line 201 of file vendor_profiler_v1.c.

{
    ctx->state &= ~TEMPL_CTX_RUNNING;
    return PAPI_OK;
}

Here is the caller graph for this function:

vendorp1_evt_code_to_descr()

int vendorp1_evt_code_to_descr	(	unsigned int	event_code,
		char *	descr,
		int	len
	)

Definition at line 329 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    event_info_t info;
    papi_errno = evt_id_to_info(event_code, &info);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    snprintf(descr, len, "%s", ntv_table_p->events[info.nameid].descr);
    return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_evt_code_to_info()

int vendorp1_evt_code_to_info	(	unsigned int	event_code,
		PAPI_event_info_t *	info
	)

Definition at line 344 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    event_info_t code_info;
    papi_errno = evt_id_to_info(event_code, &code_info);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    switch (code_info.flags) {
        case 0:
            sprintf(info->symbol, "%s", ntv_table_p->events[code_info.nameid].name);
            sprintf(info->long_descr, "%s", ntv_table_p->events[code_info.nameid].descr);
            break;
        case DEVICE_FLAG | OPCODE_FLAG:
            sprintf(info->symbol, "%s:device=%i:function=%s",
                    ntv_table_p->events[code_info.nameid].name,
                    code_info.device,
                    (code_info.opcode == OPCODE_EXP) ? "exp" : "sum");
            sprintf(info->long_descr, "%s", ntv_table_p->events[code_info.nameid].descr);
            break;
        case DEVICE_FLAG:
        {
            int i;
            char devices[PAPI_MAX_STR_LEN] = { 0 };
            for (i = 0; i < device_table_p->num_devices; ++i) {
                sprintf(devices + strlen(devices), "%i,", i);
            }
            *(devices + strlen(devices) - 1) = 0;
            sprintf(info->symbol, "%s:device=%i", ntv_table_p->events[code_info.nameid].name, code_info.device);
            sprintf(info->long_descr, "%s masks:Device qualifier [%s]",
                    ntv_table_p->events[code_info.nameid].descr, devices);
            break;
        }
        case OPCODE_FLAG:
            sprintf(info->symbol, "%s:function=%s",
                    ntv_table_p->events[code_info.nameid].name,
                    (code_info.opcode == OPCODE_EXP) ? "exp" : "sum");
            sprintf(info->long_descr, "%s masks:Mandatory function qualifier (exp,sum)",
                    ntv_table_p->events[code_info.nameid].descr);
            break;
        default:
            papi_errno = PAPI_EINVAL;
    }
 
    return papi_errno;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_evt_code_to_name()

int vendorp1_evt_code_to_name	(	unsigned int	event_code,
		char *	name,
		int	len
	)

Definition at line 294 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    event_info_t info;
    papi_errno = evt_id_to_info(event_code, &info);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    switch (info.flags) {
        case DEVICE_FLAG | OPCODE_FLAG:
            snprintf(name, len, "%s:device=%i:function=%s",
                     ntv_table_p->events[info.nameid].name,
                     info.device, (info.opcode == OPCODE_EXP) ? "exp" : "sum");
            break;
        case DEVICE_FLAG:
            snprintf(name, len, "%s:device=%i",
                     ntv_table_p->events[info.nameid].name,
                     info.device);
            break;
        case OPCODE_FLAG:
            snprintf(name, len, "%s:function=%s",
                     ntv_table_p->events[info.nameid].name,
                     (info.opcode == OPCODE_EXP) ? "exp" : "sum");
            break;
        default:
            papi_errno = PAPI_ENOEVNT;
    }
 
    snprintf(name, len, "%s", ntv_table_p->events[info.nameid].name);
    return papi_errno;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_evt_enum()

int vendorp1_evt_enum	(	unsigned int *	event_code,
		int	modifier
	)

Definition at line 244 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    event_info_t info;
    papi_errno = evt_id_to_info(*event_code, &info);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    switch(modifier) {
        case PAPI_ENUM_FIRST:
            if (ntv_table_p->num_events == 0) {
                papi_errno = PAPI_ENOEVNT;
            }
            info.device = 0;
            info.opcode = 0;
            info.flags = 0;
            info.nameid = 0;
            papi_errno = evt_id_create(&info, event_code);
            break;
        case PAPI_ENUM_EVENTS:
            if (info.nameid + 1 >= ntv_table_p->num_events) {
                papi_errno = PAPI_ENOEVNT;
                break;
            }
            ++info.nameid;
            papi_errno = evt_id_create(&info, event_code);
            break;
        case PAPI_NTV_ENUM_UMASKS:
            if (info.flags == 0) {
                info.flags = DEVICE_FLAG;
                papi_errno = evt_id_create(&info, event_code);
                break;
            }
            if (info.flags & DEVICE_FLAG && info.nameid == 2) {
                info.flags = OPCODE_FLAG;
                papi_errno = evt_id_create(&info, event_code);
                break;
            }
            papi_errno = PAPI_END;
            break;
        default:
            papi_errno = PAPI_EINVAL;
    }
 
    return papi_errno;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_evt_name_to_code()

int vendorp1_evt_name_to_code	(	const char *	name,
		unsigned int *	event_code
	)

Definition at line 394 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    char basename[PAPI_MAX_STR_LEN] = { 0 };
    papi_errno = evt_name_to_basename(name, basename, PAPI_MAX_STR_LEN);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    int device;
    papi_errno = evt_name_to_device(name, &device);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    int opcode = 0;
    papi_errno = evt_name_to_opcode(name, &opcode);
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    int i, nameid = 0;
    for (i = 0; i < ntv_table_p->num_events; ++i) {
        if (0 == strcmp(ntv_table_p->events[i].name, basename)) {
            nameid = i;
            break;
        }
    }
 
    event_info_t info = { 0, 0, 0, 0 };
    if (0 == strcmp(ntv_table_p->events[nameid].name, "TEMPLATE_FUNCTION")) {
        info.device = device;
        info.opcode = opcode;
        info.flags = (DEVICE_FLAG | OPCODE_FLAG);
        info.nameid = nameid;
        papi_errno = evt_id_create(&info, event_code);
        if (papi_errno != PAPI_OK) {
            return papi_errno;
        }
    } else {
        info.device = device;
        info.opcode = 0;
        info.flags = DEVICE_FLAG;
        info.nameid = nameid;
        papi_errno = evt_id_create(&info, event_code);
        if (papi_errno != PAPI_OK) {
            return papi_errno;
        }
    }
 
    papi_errno = evt_id_to_info(*event_code, &info);
 
    return papi_errno;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_init()

int vendorp1_init

(

void

)

Definition at line 93 of file vendor_profiler_v1.c.

{
    int papi_errno;
 
    papi_errno = load_profiler_v1_symbols();
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    papi_errno = initialize_event_table();
    if (papi_errno != PAPI_OK) {
        goto fn_fail;
    }
 
    ntv_table_p = &ntv_table;
 
  fn_exit:
    return papi_errno;
  fn_fail:
    finalize_event_table();
    unload_profiler_v1_symbols();
    goto fn_exit;
}

Here is the call graph for this function:

Here is the caller graph for this function:

vendorp1_init_pre()

int vendorp1_init_pre

(

void

)

Definition at line 69 of file vendor_profiler_v1.c.

{
    return PAPI_OK;
}

Here is the caller graph for this function:

vendorp1_shutdown()

int vendorp1_shutdown

(

void

)

Definition at line 118 of file vendor_profiler_v1.c.

{
    finalize_event_table();
    ntv_table_p = NULL;
    unload_profiler_v1_symbols();
    return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

descr

char* descr

Definition at line 57 of file vendor_profiler_v1.c.

name

char* name

Definition at line 56 of file vendor_profiler_v1.c.

ntv_table

ntv_event_table_t ntv_table

static

Definition at line 65 of file vendor_profiler_v1.c.

ntv_table_p

ntv_event_table_t* ntv_table_p

static

Definition at line 66 of file vendor_profiler_v1.c.

struct { ... } vendor_events[]

Initial value:

= {
    { "TEMPLATE_ZERO"    , "This is a template counter, that always returns 0" },
    { "TEMPLATE_CONSTANT", "This is a template counter, that always returns a constant value of 42" },
    { "TEMPLATE_FUNCTION", "This is a template counter, that allows for different functions" },
    { NULL, NULL }
}