rocs.h File Reference

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

Go to the source code of this file.

Macros
#define	ROCS_EVENTS_OPENED   (0x1)
#define	ROCS_EVENTS_RUNNING   (0x2)

Functions
int	rocs_init (void)
int	rocs_shutdown (void)
int	rocs_evt_enum (unsigned int *event_code, int modifier)
int	rocs_evt_code_to_descr (unsigned int event_code, char *descr, int len)
int	rocs_evt_name_to_code (const char *name, unsigned int *event_code)
int	rocs_evt_code_to_name (unsigned int event_code, char *name, int len)
int	rocs_err_get_last (const char **err_string)
int	rocs_ctx_open (unsigned int *event_ids, int num_events, rocs_ctx_t *ctx)
int	rocs_ctx_close (rocs_ctx_t ctx)
int	rocs_ctx_start (rocs_ctx_t ctx)
int	rocs_ctx_stop (rocs_ctx_t ctx)
int	rocs_ctx_read (rocs_ctx_t ctx, long long **counts)
int	rocs_ctx_write (rocs_ctx_t ctx, long long *counts)
int	rocs_ctx_reset (rocs_ctx_t ctx)

Macro Definition Documentation

ROCS_EVENTS_OPENED

#define ROCS_EVENTS_OPENED   (0x1)

Definition at line 4 of file rocs.h.

ROCS_EVENTS_RUNNING

#define ROCS_EVENTS_RUNNING   (0x2)

Definition at line 5 of file rocs.h.

Function Documentation

rocs_ctx_close()

int rocs_ctx_close

(

rocs_ctx_t

ctx

)

Definition at line 519 of file rocs.c.

{
    int papi_errno = PAPI_OK;
 
    _papi_hwi_lock(_rocm_smi_lock);
 
    int i;
    for (i = 0; i < rocs_ctx->num_events; ++i) {
        int id = rocs_ctx->events_id[i];
        papi_errno = ntv_table_p->events[id].close_func_p(&ntv_table_p->events[id]);
        if (papi_errno != PAPI_OK) {
            goto fn_fail;
        }
    }
 
    release_devices(&rocs_ctx->device_mask);
    papi_free(rocs_ctx->counters);
    papi_free(rocs_ctx);
 
  fn_exit:
    _papi_hwi_unlock(_rocm_smi_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:

rocs_ctx_open()

int rocs_ctx_open	(	unsigned int *	event_ids,
		int	num_events,
		rocs_ctx_t *	ctx
	)

Definition at line 461 of file rocs.c.

{
    int papi_errno = PAPI_OK;
    int64_t *counters = NULL;
    int i = 0, j;
 
    _papi_hwi_lock(_rocm_smi_lock);
 
    int32_t bitmask;
    if (acquire_devices(events_id, num_events, &bitmask) != PAPI_OK) {
        papi_errno = PAPI_ECNFLCT;
        goto fn_fail;
    }
 
    (*rocs_ctx) = papi_calloc(1, sizeof(struct rocs_ctx));
    if ((*rocs_ctx) == NULL) {
        papi_errno = PAPI_ENOMEM;
        goto fn_fail;
    }
 
    counters = papi_calloc(num_events, sizeof(int64_t));
    if (counters == NULL) {
        papi_errno = PAPI_ENOMEM;
        goto fn_fail;
    }
 
    for (i = 0; i < num_events; ++i) {
        int id = events_id[i];
        papi_errno = ntv_table_p->events[id].open_func_p(&ntv_table_p->events[id]);
        if (papi_errno != PAPI_OK) {
            goto fn_fail;
        }
    }
 
    (*rocs_ctx)->state |= ROCS_EVENTS_OPENED;
    (*rocs_ctx)->events_id = events_id;
    (*rocs_ctx)->num_events = num_events;
    (*rocs_ctx)->counters = counters;
    (*rocs_ctx)->device_mask = bitmask;
 
  fn_exit:
    _papi_hwi_unlock(_rocm_smi_lock);
    return papi_errno;
  fn_fail:
    for (j = 0; j < i; ++j) {
        int id = events_id[j];
        ntv_table_p->events[id].close_func_p(&ntv_table_p->events[id]);
    }
    if (counters) {
        papi_free(counters);
    }
    if (*rocs_ctx) {
        papi_free(*rocs_ctx);
    }
    goto fn_exit;
}

Here is the call graph for this function:

Here is the caller graph for this function:

rocs_ctx_read()

int rocs_ctx_read	(	rocs_ctx_t	ctx,
		long long **	counts
	)

Definition at line 605 of file rocs.c.

{
    int papi_errno = PAPI_OK;
 
    int i;
    for (i = 0; i < rocs_ctx->num_events; ++i) {
        int id = rocs_ctx->events_id[i];
        papi_errno = ntv_table_p->events[id].access_func_p(ROCS_ACCESS_MODE__READ, &ntv_table_p->events[id]);
        if (papi_errno != PAPI_OK) {
            return papi_errno;
        }
        rocs_ctx->counters[i] = ntv_table_p->events[id].value;
    }
    *counts = (long long *) rocs_ctx->counters;
 
    return papi_errno;
}

Here is the caller graph for this function:

rocs_ctx_reset()

int rocs_ctx_reset

(

rocs_ctx_t

ctx

)

Definition at line 642 of file rocs.c.

{
    int i;
    for (i = 0; i < rocs_ctx->num_events; ++i) {
        int id = rocs_ctx->events_id[i];
        ntv_table_p->events[id].value = 0;
        rocs_ctx->counters[i] = 0;
    }
 
    return PAPI_OK;
}

Here is the caller graph for this function:

rocs_ctx_start()

int rocs_ctx_start

(

rocs_ctx_t

ctx

)

Definition at line 546 of file rocs.c.

{
    int papi_errno = PAPI_OK;
 
    if (!(rocs_ctx->state & ROCS_EVENTS_OPENED)) {
        return PAPI_ECMP;
    }
 
    if (rocs_ctx->state & ROCS_EVENTS_RUNNING) {
        return PAPI_ECMP;
    }
 
    int i, j;
    for (i = 0; i < rocs_ctx->num_events; ++i) {
        int id = rocs_ctx->events_id[i];
        papi_errno = ntv_table_p->events[id].start_func_p(&ntv_table_p->events[id]);
        if (papi_errno != PAPI_OK) {
            goto fn_fail;
        }
    }
 
    rocs_ctx->state |= ROCS_EVENTS_RUNNING;
 
  fn_exit:
    return papi_errno;
  fn_fail:
    for (j = 0; j < i; ++j) {
        int id = rocs_ctx->events_id[i];
        ntv_table_p->events[id].stop_func_p(&ntv_table_p->events[id]);
    }
    goto fn_exit;
}

Here is the caller graph for this function:

rocs_ctx_stop()

int rocs_ctx_stop

(

rocs_ctx_t

ctx

)

Definition at line 580 of file rocs.c.

{
    if (!(rocs_ctx->state & ROCS_EVENTS_OPENED)) {
        return PAPI_ECMP;
    }
 
    if (!(rocs_ctx->state & ROCS_EVENTS_RUNNING)) {
        return PAPI_ECMP;
    }
 
    int i;
    for (i = 0; i < rocs_ctx->num_events; ++i) {
        int id = rocs_ctx->events_id[i];
        int papi_errno = ntv_table_p->events[id].stop_func_p(&ntv_table_p->events[id]);
        if (papi_errno != PAPI_OK) {
            return papi_errno;
        }
    }
 
    rocs_ctx->state &= ~ROCS_EVENTS_RUNNING;
 
    return PAPI_OK;
}

Here is the caller graph for this function:

rocs_ctx_write()

int rocs_ctx_write	(	rocs_ctx_t	ctx,
		long long *	counts
	)

Definition at line 624 of file rocs.c.

{
    int papi_errno = PAPI_OK;
 
    int i;
    for (i = 0; i < rocs_ctx->num_events; ++i) {
        int id = rocs_ctx->events_id[i];
        ntv_table_p->events[id].value = counts[i];
        papi_errno = ntv_table_p->events[id].access_func_p(ROCS_ACCESS_MODE__WRITE, &ntv_table_p->events[id]);
        if (papi_errno != PAPI_OK) {
            return papi_errno;
        }
    }
 
    return papi_errno;
}

Here is the caller graph for this function:

rocs_err_get_last()

int rocs_err_get_last

(

const char **

err_string

)

Definition at line 450 of file rocs.c.

{
    *err_string = error_string;
    return PAPI_OK;
}

Here is the caller graph for this function:

rocs_evt_code_to_descr()

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

Definition at line 410 of file rocs.c.

{
    if (event_code >= (unsigned int) ntv_table_p->count) {
        return PAPI_EINVAL;
    }
    /* FIXME: make sure descr is not longer than len */
    strncpy(descr, ntv_table_p->events[event_code].descr, len);
    return PAPI_OK;
}

Here is the caller graph for this function:

rocs_evt_code_to_name()

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

Definition at line 440 of file rocs.c.

{
    if (event_code >= (unsigned int) ntv_table_p->count) {
        return PAPI_EINVAL;
    }
    strncpy(name, ntv_table_p->events[event_code].name, len);
    return PAPI_OK;
}

Here is the caller graph for this function:

rocs_evt_enum()

int rocs_evt_enum	(	unsigned int *	event_code,
		int	modifier
	)

Definition at line 384 of file rocs.c.

{
    int papi_errno = PAPI_OK;
 
    switch(modifier) {
        case PAPI_ENUM_FIRST:
            if (ntv_table_p->count == 0) {
                papi_errno = PAPI_ENOEVNT;
            }
            *event_code = 0;
            break;
        case PAPI_ENUM_EVENTS:
            if (*event_code + 1 < (unsigned int) ntv_table_p->count) {
                ++(*event_code);
            } else {
                papi_errno = PAPI_END;
            }
            break;
        default:
            papi_errno = PAPI_EINVAL;
    }
 
    return papi_errno;
}

Here is the caller graph for this function:

rocs_evt_name_to_code()

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

Definition at line 421 of file rocs.c.

{
    int papi_errno = PAPI_OK;
    int htable_errno;
 
    ntv_event_t *event;
    htable_errno = htable_find(htable, name, (void **) &event);
    if (htable_errno != HTABLE_SUCCESS) {
        papi_errno = (htable_errno == HTABLE_ENOVAL) ?
            PAPI_ENOEVNT : PAPI_ECMP;
        goto fn_exit;
    }
    *event_code = event->id;
 
  fn_exit:
    return papi_errno;
}

Here is the call graph for this function:

Here is the caller graph for this function:

rocs_init()

int rocs_init

(

void

)

Definition at line 333 of file rocs.c.

{
    int papi_errno;
 
    papi_errno = load_rsmi_sym();
    if (papi_errno != PAPI_OK) {
        return papi_errno;
    }
 
    rsmi_status_t status = rsmi_init_p(0);
    if (status != RSMI_STATUS_SUCCESS) {
        const char *status_string = NULL;
        rsmi_status_string_p(status, &status_string);
        strcpy(error_string, status_string);
        return PAPI_EMISC;
    }
 
    htable_init(&htable);
 
    status = rsmi_num_monitor_dev_p((uint32_t *)&device_count);
    if (status != RSMI_STATUS_SUCCESS) {
        sprintf(error_string, "Error while counting available devices.");
        papi_errno = PAPI_EMISC;
        goto fn_fail;
    }
 
    papi_errno = init_device_table();
    if (papi_errno != PAPI_OK) {
        sprintf(error_string, "Error while initializing device tables.");
        goto fn_fail;
    }
 
    papi_errno = init_event_table();
    if (papi_errno != PAPI_OK) {
        sprintf(error_string, "Error while initializing the native event table.");
        goto fn_fail;
    }
 
    ntv_table_p = &ntv_table;
 
  fn_exit:
    return papi_errno;
  fn_fail:
    shutdown_event_table();
    shutdown_device_table();
    htable_shutdown(htable);
    rsmi_shut_down_p();
    goto fn_exit;
}

Here is the call graph for this function:

Here is the caller graph for this function:

rocs_shutdown()

int rocs_shutdown

(

void

)

Definition at line 655 of file rocs.c.

{
    shutdown_device_table();
    shutdown_event_table();
    htable_shutdown(htable);
    rsmi_shut_down_p();
    return unload_rsmi_sym();
}

Here is the call graph for this function:

Here is the caller graph for this function: