vendor_profiler_v1.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
int	vendorp1_init_pre (void)
int	vendorp1_init (void)
int	vendorp1_shutdown (void)
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)

Function Documentation

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: