papi_libpfm4_events.c File Reference

Include dependency graph for papi_libpfm4_events.c:

Go to the source code of this file.

Functions
int	_papi_libpfm4_error (int pfm_error)
int	_papi_libpfm4_shutdown (papi_vector_t *my_vector)
int	_papi_libpfm4_init (papi_vector_t *my_vector)

Variables
static int	libpfm4_users =0

Function Documentation

_papi_libpfm4_error()

int _papi_libpfm4_error

(

int

pfm_error

)

Definition at line 39 of file papi_libpfm4_events.c.

                                     {
 
  switch ( pfm_error ) {
  case PFM_SUCCESS:      return PAPI_OK;       /* success */
  case PFM_ERR_NOTSUPP:  return PAPI_ENOSUPP;  /* function not supported */
  case PFM_ERR_INVAL:    return PAPI_EINVAL;   /* invalid parameters */
  case PFM_ERR_NOINIT:   return PAPI_ENOINIT;  /* library not initialized */
  case PFM_ERR_NOTFOUND: return PAPI_ENOEVNT;  /* event not found */
  case PFM_ERR_FEATCOMB: return PAPI_ECOMBO;   /* invalid combination of features */
  case PFM_ERR_UMASK:    return PAPI_EATTR;    /* invalid or missing unit mask */
  case PFM_ERR_NOMEM:    return PAPI_ENOMEM;   /* out of memory */
  case PFM_ERR_ATTR:     return PAPI_EATTR;    /* invalid event attribute */
  case PFM_ERR_ATTR_VAL: return PAPI_EATTR;    /* invalid event attribute value */
  case PFM_ERR_ATTR_SET: return PAPI_EATTR;    /* attribute value already set */
  case PFM_ERR_TOOMANY:  return PAPI_ECOUNT;   /* too many parameters */
  case PFM_ERR_TOOSMALL: return PAPI_ECOUNT;   /* parameter is too small */
  default:
    PAPIWARN("Unknown libpfm error code %d, returning PAPI_EINVAL",pfm_error);
    return PAPI_EINVAL;
  }
}

Here is the call graph for this function:

_papi_libpfm4_init()

int _papi_libpfm4_init

(

papi_vector_t *

my_vector

)

Definition at line 104 of file papi_libpfm4_events.c.

                                             {
 
    int version;
    pfm_err_t retval = PFM_SUCCESS;
 
    _papi_hwi_lock( NAMELIB_LOCK );
 
    if (!libpfm4_users) {
        retval = pfm_initialize();
        if ( retval == PFM_SUCCESS ) {
            libpfm4_users++;
        }
        else {
            strncpy(my_vector->cmp_info.disabled_reason,
                pfm_strerror(retval),PAPI_MAX_STR_LEN-1);
            _papi_hwi_unlock( NAMELIB_LOCK );
            return PAPI_ESBSTR;
        }
    }
    else {
        libpfm4_users++;
    }
 
    _papi_hwi_unlock( NAMELIB_LOCK );
 
    /* get the libpfm4 version */
 
    version=pfm_get_version( );
    if (version >= 0) {
 
        /* Complain if the compiled-against version */
        /* doesn't match current version            */
 
        if ( PFM_MAJ_VERSION( version ) !=
            PFM_MAJ_VERSION( LIBPFM_VERSION ) ) {
 
            PAPIWARN( "Version mismatch of libpfm: "
                "compiled %#x vs. installed %#x\n",
                PFM_MAJ_VERSION( LIBPFM_VERSION ),
                PFM_MAJ_VERSION( version ) );
 
        }
 
        /* Set the version */
        sprintf( my_vector->cmp_info.support_version, "%d.%d",
            PFM_MAJ_VERSION( version ),
            PFM_MIN_VERSION( version ) );
 
    } else {
        PAPIWARN( "pfm_get_version(): %s", pfm_strerror( retval ) );
    }
 
    return PAPI_OK;
}

Here is the call graph for this function:

_papi_libpfm4_shutdown()

int _papi_libpfm4_shutdown

(

papi_vector_t *

my_vector

)

Definition at line 72 of file papi_libpfm4_events.c.

                                                 {
 
    /* clean out and free the native events structure */
    _papi_hwi_lock( NAMELIB_LOCK );
 
    libpfm4_users--;
 
    /* Only free if we're the last user */
 
    if (!libpfm4_users) {
        pfm_terminate();
    }
 
    _papi_hwi_unlock( NAMELIB_LOCK );
 
    strcpy(my_vector->cmp_info.support_version,"");
 
    return PAPI_OK;
}

Here is the call graph for this function:

Variable Documentation

libpfm4_users

int libpfm4_users =0

static

Definition at line 22 of file papi_libpfm4_events.c.