papi_libpfm3_events.c File Reference

Include dependency graph for papi_libpfm3_events.c:

Go to the source code of this file.

Typedefs
typedef pfmlib_event_t	pfm_register_t

Functions
static int	encode_native_event_raw (unsigned int event, unsigned int mask)
static int	encode_native_event (unsigned int event, unsigned int num_mask, unsigned int *mask_values)
int	_pfm_decode_native_event (unsigned int EventCode, unsigned int *event, unsigned int *umask)
int	prepare_umask (unsigned int foo, unsigned int *values)
static unsigned int	convert_pfm_masks (pfmlib_event_t *gete)
unsigned int	_pfm_convert_umask (unsigned int event, unsigned int umask)
int	_papi_libpfm_error (int pfm_error)
int	_papi_libpfm_ntv_name_to_code (const char *name, unsigned int *event_code)
int	_papi_libpfm_ntv_code_to_name (unsigned int EventCode, char *ntv_name, int len)
int	_papi_libpfm_ntv_code_to_descr (unsigned int EventCode, char *ntv_descr, int len)
int	_papi_libpfm_ntv_code_to_info (unsigned int EventCode, PAPI_event_info_t *info)
int	_papi_libpfm_ntv_enum_events (unsigned int *EventCode, int modifier)
int	_papi_libpfm_ntv_code_to_bits (unsigned int EventCode, hwd_register_t *bits)
int	_papi_libpfm_init (papi_vector_t *my_vector, int cidx)
long long	generate_p4_event (long long escr, long long cccr, long long escr_addr)
int	_papi_libpfm_setup_counters (struct perf_event_attr *attr, hwd_register_t *ni_bits)
int	_papi_libpfm_shutdown (void)

Variables
unsigned int	PAPI_NATIVE_EVENT_AND_MASK = 0x000003ff
unsigned int	PAPI_NATIVE_EVENT_SHIFT = 0
unsigned int	PAPI_NATIVE_UMASK_AND_MASK = 0x03fffc00
unsigned int	PAPI_NATIVE_UMASK_MAX = 16
unsigned int	PAPI_NATIVE_UMASK_SHIFT = 10
int	num_native_events =0
int	_perfmon2_pfm_pmu_type = -1

Typedef Documentation

pfm_register_t

typedef pfmlib_event_t pfm_register_t

Definition at line 767 of file papi_libpfm3_events.c.

Function Documentation

_papi_libpfm_error()

int _papi_libpfm_error

(

int

pfm_error

)

Definition at line 149 of file papi_libpfm3_events.c.

{
    switch ( pfm_error ) {
        case PFMLIB_SUCCESS:        return PAPI_OK;         /* success */
        case PFMLIB_ERR_NOTSUPP:    return PAPI_ENOSUPP;    /* function not supported */
        case PFMLIB_ERR_INVAL:      return PAPI_EINVAL;     /* invalid parameters */
        case PFMLIB_ERR_NOINIT:     return PAPI_ENOINIT;    /* library was not initialized */
        case PFMLIB_ERR_NOTFOUND:   return PAPI_ENOEVNT;    /* event not found */
        case PFMLIB_ERR_NOASSIGN:   return PAPI_ECNFLCT;    /* cannot assign events to counters */
        case PFMLIB_ERR_FULL:       return PAPI_EBUF;       /* buffer is full or too small */
        case PFMLIB_ERR_EVTMANY:    return PAPI_EMISC;      /* event used more than once */
        case PFMLIB_ERR_MAGIC:      return PAPI_EBUG;       /* invalid library magic number */
        case PFMLIB_ERR_FEATCOMB:   return PAPI_ECOMBO;     /* invalid combination of features */
        case PFMLIB_ERR_EVTSET:     return PAPI_ENOEVST;    /* incompatible event sets */
        case PFMLIB_ERR_EVTINCOMP:  return PAPI_ECNFLCT;    /* incompatible event combination */
        case PFMLIB_ERR_TOOMANY:    return PAPI_ECOUNT;     /* too many events or unit masks */
        case PFMLIB_ERR_BADHOST:    return PAPI_ESYS;       /* not supported by host CPU */
        case PFMLIB_ERR_UMASK:      return PAPI_EATTR;      /* invalid or missing unit mask */
        case PFMLIB_ERR_NOMEM:      return PAPI_ENOMEM;     /* out of memory */
 
        /* Itanium only */
        case PFMLIB_ERR_IRRTOOBIG:      /* code range too big */
        case PFMLIB_ERR_IRREMPTY:       /* empty code range */
        case PFMLIB_ERR_IRRINVAL:       /* invalid code range */
        case PFMLIB_ERR_IRRTOOMANY:     /* too many code ranges */
        case PFMLIB_ERR_DRRINVAL:       /* invalid data range */
        case PFMLIB_ERR_DRRTOOMANY:     /* too many data ranges */
        case PFMLIB_ERR_IRRALIGN:       /* bad alignment for code range */
        case PFMLIB_ERR_IRRFLAGS:       /* code range missing flags */
        default:
            return PAPI_EINVAL;
    }
}

Here is the caller graph for this function:

_papi_libpfm_init()

int _papi_libpfm_init	(	papi_vector_t *	my_vector,
		int	cidx
	)

Definition at line 442 of file papi_libpfm3_events.c.

                                                      {
 
   int retval;
   unsigned int ncnt;
   unsigned int version;
   char pmu_name[PAPI_MIN_STR_LEN];
 
 
   /* The following checks the version of the PFM library
      against the version PAPI linked to... */
   SUBDBG( "pfm_initialize()\n" );
   if ( ( retval = pfm_initialize(  ) ) != PFMLIB_SUCCESS ) {
      PAPIERROR( "pfm_initialize(): %s", pfm_strerror( retval ) );
      return PAPI_ESYS;
   }
 
   /* Get the libpfm3 version */
   SUBDBG( "pfm_get_version(%p)\n", &version );
   if ( pfm_get_version( &version ) != PFMLIB_SUCCESS ) {
      PAPIERROR( "pfm_get_version(%p): %s", version, pfm_strerror( retval ) );
      return PAPI_ESYS;
   }
 
   /* Set the version */
   sprintf( my_vector->cmp_info.support_version, "%d.%d",
        PFM_VERSION_MAJOR( version ), PFM_VERSION_MINOR( version ) );
 
   /* Complain if the compiled-against version doesn't match current version */
   if ( PFM_VERSION_MAJOR( version ) != PFM_VERSION_MAJOR( PFMLIB_VERSION ) ) {
      PAPIERROR( "Version mismatch of libpfm: compiled %#x vs. installed %#x\n",
                   PFM_VERSION_MAJOR( PFMLIB_VERSION ),
                   PFM_VERSION_MAJOR( version ) );
      return PAPI_ESYS;
   }
 
   /* Always initialize globals dynamically to handle forks properly. */
 
   _perfmon2_pfm_pmu_type = -1;
 
   /* Opened once for all threads. */
   SUBDBG( "pfm_get_pmu_type(%p)\n", &_perfmon2_pfm_pmu_type );
   if ( pfm_get_pmu_type( &_perfmon2_pfm_pmu_type ) != PFMLIB_SUCCESS ) {
      PAPIERROR( "pfm_get_pmu_type(%p): %s", _perfmon2_pfm_pmu_type,
                   pfm_strerror( retval ) );
      return PAPI_ESYS;
   }
 
   pmu_name[0] = '\0';
   if ( pfm_get_pmu_name( pmu_name, PAPI_MIN_STR_LEN ) != PFMLIB_SUCCESS ) {
      PAPIERROR( "pfm_get_pmu_name(%p,%d): %s", pmu_name, PAPI_MIN_STR_LEN,
                   pfm_strerror( retval ) );
      return PAPI_ESYS;
   }
   SUBDBG( "PMU is a %s, type %d\n", pmu_name, _perfmon2_pfm_pmu_type );
 
   /* Setup presets */
   retval = _papi_load_preset_table( pmu_name, _perfmon2_pfm_pmu_type, cidx );
   if ( retval )
      return retval;
 
   /* Fill in cmp_info */
 
   SUBDBG( "pfm_get_num_events(%p)\n", &ncnt );
   if ( ( retval = pfm_get_num_events( &ncnt ) ) != PFMLIB_SUCCESS ) {
      PAPIERROR( "pfm_get_num_events(%p): %s\n", &ncnt,
                   pfm_strerror( retval ) );
      return PAPI_ESYS;
   }
   SUBDBG( "pfm_get_num_events: %d\n", ncnt );
   my_vector->cmp_info.num_native_events = ncnt;
   num_native_events = ncnt;
 
   pfm_get_num_counters( ( unsigned int * ) &my_vector->cmp_info.num_cntrs );
   SUBDBG( "pfm_get_num_counters: %d\n", my_vector->cmp_info.num_cntrs );
 
 
   if ( _papi_hwi_system_info.hw_info.vendor == PAPI_VENDOR_INTEL ) {
     /* Pentium4 */
     if ( _papi_hwi_system_info.hw_info.cpuid_family == 15 ) {
       PAPI_NATIVE_EVENT_AND_MASK = 0x000000ff;
       PAPI_NATIVE_UMASK_AND_MASK = 0x0fffff00;
       PAPI_NATIVE_UMASK_SHIFT = 8;
       /* Itanium2 */
     } else if ( _papi_hwi_system_info.hw_info.cpuid_family == 31 ||
         _papi_hwi_system_info.hw_info.cpuid_family == 32 ) {
       PAPI_NATIVE_EVENT_AND_MASK = 0x00000fff;
       PAPI_NATIVE_UMASK_AND_MASK = 0x0ffff000;
       PAPI_NATIVE_UMASK_SHIFT = 12;
     }
   }
 
 
   return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

_papi_libpfm_ntv_code_to_bits()

int _papi_libpfm_ntv_code_to_bits	(	unsigned int	EventCode,
		hwd_register_t *	bits
	)

Definition at line 416 of file papi_libpfm3_events.c.

{
    unsigned int event, umask;
    pfmlib_event_t gete;
 
    /* For PFM & Perfmon, native info is just an index into PFM event table. */
    if ( _pfm_decode_native_event( EventCode, &event, &umask ) != PAPI_OK )
       return PAPI_ENOEVNT;
 
    memset( &gete, 0x0, sizeof ( pfmlib_event_t ) );
 
    gete.event = event;
    gete.num_masks = prepare_umask( umask, gete.unit_masks );
 
    memcpy( bits, &gete, sizeof ( pfmlib_event_t ) );
 
    return PAPI_OK;
 
}

Here is the call graph for this function:

Here is the caller graph for this function:

_papi_libpfm_ntv_code_to_descr()

int _papi_libpfm_ntv_code_to_descr	(	unsigned int	EventCode,
		char *	ntv_descr,
		int	len
	)

Definition at line 262 of file papi_libpfm3_events.c.

{
    unsigned int event, umask;
    char *eventd, **maskd, *tmp;
    int i, ret;
    pfmlib_event_t gete;
    size_t total_len = 0;
 
    memset( &gete, 0, sizeof ( gete ) );
 
    if ( _pfm_decode_native_event( EventCode, &event, &umask ) != PAPI_OK )
        return ( PAPI_ENOEVNT );
 
    ret = pfm_get_event_description( event, &eventd );
    if ( ret != PFMLIB_SUCCESS ) {
        PAPIERROR( "pfm_get_event_description(%d,%p): %s",
                   event, &eventd, pfm_strerror( ret ) );
        return ( PAPI_ENOEVNT );
    }
 
    if ( ( gete.num_masks =
           ( unsigned int ) prepare_umask( umask, gete.unit_masks ) ) ) {
        maskd = ( char ** ) malloc( gete.num_masks * sizeof ( char * ) );
        if ( maskd == NULL ) {
            free( eventd );
            return ( PAPI_ENOMEM );
        }
        for ( i = 0; i < ( int ) gete.num_masks; i++ ) {
            ret =
                pfm_get_event_mask_description( event, gete.unit_masks[i],
                                                &maskd[i] );
            if ( ret != PFMLIB_SUCCESS ) {
                PAPIERROR( "pfm_get_event_mask_description(%d,%d,%p): %s",
                           event, umask, &maskd, pfm_strerror( ret ) );
                free( eventd );
                for ( ; i >= 0; i-- )
                    free( maskd[i] );
                free( maskd );
                return ( PAPI_EINVAL );
            }
            total_len += strlen( maskd[i] );
        }
        tmp =
            ( char * ) malloc( strlen( eventd ) + strlen( ", masks:" ) +
                               total_len + gete.num_masks + 1 );
        if ( tmp == NULL ) {
            for ( i = ( int ) gete.num_masks - 1; i >= 0; i-- )
                free( maskd[i] );
            free( maskd );
            free( eventd );
        }
        tmp[0] = '\0';
        strcat( tmp, eventd );
        strcat( tmp, ", masks:" );
        for ( i = 0; i < ( int ) gete.num_masks; i++ ) {
            if ( i != 0 )
                strcat( tmp, "," );
            strcat( tmp, maskd[i] );
            free( maskd[i] );
        }
        free( maskd );
    } else {
        tmp = ( char * ) malloc( strlen( eventd ) + 1 );
        if ( tmp == NULL ) {
            free( eventd );
            return ( PAPI_ENOMEM );
        }
        tmp[0] = '\0';
        strcat( tmp, eventd );
        free( eventd );
    }
    strncpy( ntv_descr, tmp, ( size_t ) len );
    if ( ( int ) strlen( tmp ) > len - 1 )
        ret = PAPI_EBUF;
    else
        ret = PAPI_OK;
    free( tmp );
    return ( ret );
}

Here is the call graph for this function:

Here is the caller graph for this function:

_papi_libpfm_ntv_code_to_info()

int _papi_libpfm_ntv_code_to_info	(	unsigned int	EventCode,
		PAPI_event_info_t *	info
	)

Definition at line 344 of file papi_libpfm3_events.c.

{
 
  SUBDBG("ENTER %#x\n",EventCode);
 
  _papi_libpfm_ntv_code_to_name(EventCode,info->symbol,
                                 sizeof(info->symbol));
 
  _papi_libpfm_ntv_code_to_descr(EventCode,info->long_descr,
                                 sizeof(info->long_descr));
 
  return PAPI_OK;
}

Here is the call graph for this function:

_papi_libpfm_ntv_code_to_name()

int _papi_libpfm_ntv_code_to_name	(	unsigned int	EventCode,
		char *	ntv_name,
		int	len
	)

Definition at line 225 of file papi_libpfm3_events.c.

{
    int ret;
    unsigned int event, umask;
    pfmlib_event_t gete;
 
    memset( &gete, 0, sizeof ( gete ) );
 
    if ( _pfm_decode_native_event( EventCode, &event, &umask ) != PAPI_OK )
        return ( PAPI_ENOEVNT );
 
    gete.event = event;
    gete.num_masks = ( unsigned int ) prepare_umask( umask, gete.unit_masks );
    if ( gete.num_masks == 0 )
        ret = pfm_get_event_name( gete.event, ntv_name, ( size_t ) len );
    else
        ret = pfm_get_full_event_name( &gete, ntv_name, ( size_t ) len );
    if ( ret != PFMLIB_SUCCESS ) {
        char tmp[PAPI_2MAX_STR_LEN];
        pfm_get_event_name( gete.event, tmp, sizeof ( tmp ) );
        /* Skip error message if event is not supported by host cpu;
         * we don't need to give this info away for papi_native_avail util */
        if ( ret != PFMLIB_ERR_BADHOST )
            PAPIERROR
                ( "pfm_get_full_event_name(%p(event %d,%s,%d masks),%p,%d): %d -- %s",
                  &gete, gete.event, tmp, gete.num_masks, ntv_name, len, ret,
                  pfm_strerror( ret ) );
        if ( ret == PFMLIB_ERR_FULL ) {
            return PAPI_EBUF;
        }
 
        return PAPI_EMISC;
    }
    return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

_papi_libpfm_ntv_enum_events()

int _papi_libpfm_ntv_enum_events	(	unsigned int *	EventCode,
		int	modifier
	)

Definition at line 360 of file papi_libpfm3_events.c.

{
    unsigned int event, umask, num_masks;
    int ret;
 
    if ( modifier == PAPI_ENUM_FIRST ) {
        *EventCode = PAPI_NATIVE_MASK;  /* assumes first native event is always 0x4000000 */
        return ( PAPI_OK );
    }
 
    if ( _pfm_decode_native_event( *EventCode, &event, &umask ) != PAPI_OK )
        return ( PAPI_ENOEVNT );
 
    ret = pfm_get_num_event_masks( event, &num_masks );
    if ( ret != PFMLIB_SUCCESS ) {
        PAPIERROR( "pfm_get_num_event_masks(%d,%p): %s", event, &num_masks,
                   pfm_strerror( ret ) );
        return ( PAPI_ENOEVNT );
    }
    if ( num_masks > PAPI_NATIVE_UMASK_MAX )
        num_masks = PAPI_NATIVE_UMASK_MAX;
    SUBDBG( "This is umask %d of %d\n", umask, num_masks );
 
    if ( modifier == PAPI_ENUM_EVENTS ) {
        if ( event < ( unsigned int ) num_native_events - 1 ) {
            *EventCode =
                ( unsigned int ) encode_native_event_raw( event + 1, 0 );
            return ( PAPI_OK );
        }
        return ( PAPI_ENOEVNT );
    } else if ( modifier == PAPI_NTV_ENUM_UMASK_COMBOS ) {
        if ( umask + 1 < ( unsigned int ) ( 1 << num_masks ) ) {
            *EventCode =
                ( unsigned int ) encode_native_event_raw( event, umask + 1 );
            return ( PAPI_OK );
        }
        return ( PAPI_ENOEVNT );
    } else if ( modifier == PAPI_NTV_ENUM_UMASKS ) {
        int thisbit = ffs( ( int ) umask );
 
        SUBDBG( "First bit is %d in %08x\b\n", thisbit - 1, umask );
        thisbit = 1 << thisbit;
 
        if ( thisbit & ( ( 1 << num_masks ) - 1 ) ) {
            *EventCode =
                ( unsigned int ) encode_native_event_raw( event,
                                                          ( unsigned int )
                                                          thisbit );
            return ( PAPI_OK );
        }
        return ( PAPI_ENOEVNT );
    } else
        return ( PAPI_EINVAL );
}

Here is the call graph for this function:

_papi_libpfm_ntv_name_to_code()

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

Definition at line 184 of file papi_libpfm3_events.c.

{
    pfmlib_event_t event;
    unsigned int i;
    int ret;
 
    SUBDBG( "pfm_find_full_event(%s,%p)\n", name, &event );
    ret = pfm_find_full_event( name, &event );
    if ( ret == PFMLIB_SUCCESS ) {
        SUBDBG( "Full event name found\n" );
        /* we can only capture PAPI_NATIVE_UMASK_MAX or fewer masks */
        if ( event.num_masks > PAPI_NATIVE_UMASK_MAX ) {
            SUBDBG( "num_masks (%d) > max masks (%d)\n", event.num_masks,
                    PAPI_NATIVE_UMASK_MAX );
            return PAPI_ENOEVNT;
        } else {
            /* no mask index can exceed PAPI_NATIVE_UMASK_MAX */
            for ( i = 0; i < event.num_masks; i++ ) {
                if ( event.unit_masks[i] > PAPI_NATIVE_UMASK_MAX ) {
                    SUBDBG( "mask index (%d) > max masks (%d)\n",
                            event.unit_masks[i], PAPI_NATIVE_UMASK_MAX );
                    return PAPI_ENOEVNT;
                }
            }
            *event_code =
                encode_native_event( event.event, event.num_masks,
                                     event.unit_masks );
            return PAPI_OK;
        }
    } else if ( ret == PFMLIB_ERR_UMASK ) {
        SUBDBG( "UMASK error, looking for base event only\n" );
        ret = pfm_find_event( name, &event.event );
        if ( ret == PFMLIB_SUCCESS ) {
            *event_code = encode_native_event( event.event, 0, 0 );
            return PAPI_EATTR;
        }
    }
    return PAPI_ENOEVNT;
}

Here is the call graph for this function:

_papi_libpfm_setup_counters()

int _papi_libpfm_setup_counters	(	struct perf_event_attr *	attr,
		hwd_register_t *	ni_bits
	)

Definition at line 770 of file papi_libpfm3_events.c.

                                         {
 
  int ret,pe_event;
  (void)ni_bits;
 
    /*
     * We need an event code that is common across all counters.
     * The implementation is required to know how to translate the supplied
     * code to whichever counter it ends up on.
     */
 
#if defined(__powerpc__)
    int code;
    ret = pfm_get_event_code_counter( ( ( pfm_register_t * ) ni_bits )->event, 0, &code );
    if ( ret ) {
       /* Unrecognized code, but should never happen */
       return PAPI_EBUG;
    }
    pe_event = code;
    SUBDBG( "Stuffing native event index (code %#x, raw code %#x) into events array.\n",
                  ( ( pfm_register_t * ) ni_bits )->event, code );
#else
 
   pfmlib_input_param_t inp;
   pfmlib_output_param_t outp;
 
   memset( &inp, 0, sizeof ( inp ) );
   memset( &outp, 0, sizeof ( outp ) );
   inp.pfp_event_count = 1;
   inp.pfp_dfl_plm = PAPI_DOM_USER;
   pfm_regmask_set( &inp.pfp_unavail_pmcs, 16 );    // mark fixed counters as unavailable
 
    inp.pfp_events[0] = *( ( pfm_register_t * ) ni_bits );
    ret = pfm_dispatch_events( &inp, NULL, &outp, NULL );
    if (ret != PFMLIB_SUCCESS) {
       SUBDBG( "Error: pfm_dispatch_events returned: %d\n", ret);
       return PAPI_ESYS;
    }
            
       /* Special case p4 */
    if (( _papi_hwi_system_info.hw_info.vendor == PAPI_VENDOR_INTEL ) && 
        ( _papi_hwi_system_info.hw_info.cpuid_family == 15)) {
 
    pe_event=generate_p4_event( outp.pfp_pmcs[0].reg_value, /* escr */  
                            outp.pfp_pmcs[1].reg_value, /* cccr */
                            outp.pfp_pmcs[0].reg_addr); /* escr_addr */
    }
    else {
        pe_event = outp.pfp_pmcs[0].reg_value;   
    }
    SUBDBG( "pe_event: %#llx\n", outp.pfp_pmcs[0].reg_value );
#endif
 
    attr->config=pe_event;
 
    /* for libpfm3 we currently only handle RAW type */
    attr->type=PERF_TYPE_RAW;
 
    return PAPI_OK;
}

Here is the call graph for this function:

_papi_libpfm_shutdown()

int _papi_libpfm_shutdown

(

void

)

Definition at line 833 of file papi_libpfm3_events.c.

                            {
 
  SUBDBG("shutdown\n");
 
  return PAPI_OK;
}

_pfm_convert_umask()

unsigned int _pfm_convert_umask	(	unsigned int	event,
		unsigned int	umask
	)

Definition at line 137 of file papi_libpfm3_events.c.

{
    pfmlib_event_t gete;
    memset( &gete, 0, sizeof ( gete ) );
    gete.event = event;
    gete.num_masks = ( unsigned int ) prepare_umask( umask, gete.unit_masks );
    return ( convert_pfm_masks( &gete ) );
}

Here is the call graph for this function:

Here is the caller graph for this function:

_pfm_decode_native_event()

int _pfm_decode_native_event	(	unsigned int	EventCode,
		unsigned int *	event,
		unsigned int *	umask
	)

Definition at line 79 of file papi_libpfm3_events.c.

{
    unsigned int tevent, major, minor;
 
    tevent = EventCode & PAPI_NATIVE_AND_MASK;
    major = ( tevent & PAPI_NATIVE_EVENT_AND_MASK ) >> PAPI_NATIVE_EVENT_SHIFT;
    if ( ( int ) major >= num_native_events )
        return PAPI_ENOEVNT;
 
    minor = ( tevent & PAPI_NATIVE_UMASK_AND_MASK ) >> PAPI_NATIVE_UMASK_SHIFT;
    *event = major;
    *umask = minor;
    SUBDBG( "EventCode %#08x is event %d, umask %#x\n", EventCode, major,
            minor );
    return PAPI_OK;
}

Here is the caller graph for this function:

convert_pfm_masks()

static unsigned int convert_pfm_masks ( pfmlib_event_t *  gete )

inlinestatic

Definition at line 116 of file papi_libpfm3_events.c.

{
    int ret;
    unsigned int i, code, tmp = 0;
 
    for ( i = 0; i < gete->num_masks; i++ ) {
        if ( ( ret =
               pfm_get_event_mask_code( gete->event, gete->unit_masks[i],
                                        &code ) ) == PFMLIB_SUCCESS ) {
            SUBDBG( "Mask value is %#08x\n", code );
            tmp |= code;
        } else {
            PAPIERROR( "pfm_get_event_mask_code(%#x,%d,%p): %s", gete->event,
                       i, &code, pfm_strerror( ret ) );
        }
    }
    return ( tmp );
}

Here is the call graph for this function:

Here is the caller graph for this function:

encode_native_event()

static int encode_native_event ( unsigned int  event, unsigned int  num_mask, unsigned int *  mask_values  )

inlinestatic

Definition at line 62 of file papi_libpfm3_events.c.

{
    unsigned int i;
    unsigned int tmp = event << PAPI_NATIVE_EVENT_SHIFT;
    SUBDBG( "Native base event is %#08x with %d masks\n", tmp, num_mask );
    for ( i = 0; i < num_mask; i++ ) {
        SUBDBG( "Mask index is %#08x\n", mask_values[i] );
        tmp = tmp | ( ( 1 << mask_values[i] ) << PAPI_NATIVE_UMASK_SHIFT );
    }
    SUBDBG( "Full native encoding is 0x%08x\n", tmp | PAPI_NATIVE_MASK );
    return ( int ) ( tmp | PAPI_NATIVE_MASK );
}

Here is the caller graph for this function:

encode_native_event_raw()

static int encode_native_event_raw ( unsigned int  event, unsigned int  mask  )

inlinestatic

Definition at line 48 of file papi_libpfm3_events.c.

{
    unsigned int tmp = event << PAPI_NATIVE_EVENT_SHIFT;
    SUBDBG( "Old native index was %#08x with %#08x mask\n", tmp, mask );
    tmp = tmp | ( mask << PAPI_NATIVE_UMASK_SHIFT );
    SUBDBG( "New encoding is %#08x\n", tmp | PAPI_NATIVE_MASK );
    return ( int ) ( tmp | PAPI_NATIVE_MASK );
}

Here is the caller graph for this function:

generate_p4_event()

long long generate_p4_event	(	long long	escr,
		long long	cccr,
		long long	escr_addr
	)

Definition at line 537 of file papi_libpfm3_events.c.

                                     {
           
/*
 * RAW events specification
 *
 * Bits                Meaning
 * -----       -------
 *  0-6        Metric value from enum P4_PEBS_METRIC (if needed)
 *  7-11       Reserved, set to 0
 * 12-31       Bits 12-31 of CCCR register (Intel SDM Vol 3)
 * 32-56       Bits  0-24 of ESCR register (Intel SDM Vol 3)
 * 57-62       Event key from enum P4_EVENTS
 *    63       Reserved, set to 0
 */
           
 enum P4_EVENTS {
      P4_EVENT_TC_DELIVER_MODE,
      P4_EVENT_BPU_FETCH_REQUEST,
      P4_EVENT_ITLB_REFERENCE,
      P4_EVENT_MEMORY_CANCEL,
      P4_EVENT_MEMORY_COMPLETE,
      P4_EVENT_LOAD_PORT_REPLAY,
      P4_EVENT_STORE_PORT_REPLAY,
      P4_EVENT_MOB_LOAD_REPLAY,
      P4_EVENT_PAGE_WALK_TYPE,
      P4_EVENT_BSQ_CACHE_REFERENCE,
      P4_EVENT_IOQ_ALLOCATION,
      P4_EVENT_IOQ_ACTIVE_ENTRIES,
      P4_EVENT_FSB_DATA_ACTIVITY,
      P4_EVENT_BSQ_ALLOCATION,
      P4_EVENT_BSQ_ACTIVE_ENTRIES,
      P4_EVENT_SSE_INPUT_ASSIST,
      P4_EVENT_PACKED_SP_UOP,
      P4_EVENT_PACKED_DP_UOP,
      P4_EVENT_SCALAR_SP_UOP,
      P4_EVENT_SCALAR_DP_UOP,
      P4_EVENT_64BIT_MMX_UOP,
      P4_EVENT_128BIT_MMX_UOP,
      P4_EVENT_X87_FP_UOP,
      P4_EVENT_TC_MISC,
      P4_EVENT_GLOBAL_POWER_EVENTS,
      P4_EVENT_TC_MS_XFER,
      P4_EVENT_UOP_QUEUE_WRITES,
      P4_EVENT_RETIRED_MISPRED_BRANCH_TYPE,
      P4_EVENT_RETIRED_BRANCH_TYPE,
      P4_EVENT_RESOURCE_STALL,
      P4_EVENT_WC_BUFFER,
      P4_EVENT_B2B_CYCLES,
      P4_EVENT_BNR,
      P4_EVENT_SNOOP,
      P4_EVENT_RESPONSE,
      P4_EVENT_FRONT_END_EVENT,
      P4_EVENT_EXECUTION_EVENT,
      P4_EVENT_REPLAY_EVENT,
      P4_EVENT_INSTR_RETIRED,
      P4_EVENT_UOPS_RETIRED,
      P4_EVENT_UOP_TYPE,
      P4_EVENT_BRANCH_RETIRED,
      P4_EVENT_MISPRED_BRANCH_RETIRED,
      P4_EVENT_X87_ASSIST,
      P4_EVENT_MACHINE_CLEAR,
      P4_EVENT_INSTR_COMPLETED,
   };
           
                   
    int eventsel=(escr>>25)&0x3f;
    int cccrsel=(cccr>>13)&0x7;
    int event_key=-1;
    long long pe_event;
           
    switch(eventsel) {
       case 0x1: if (cccrsel==1) {
            if (escr_addr>0x3c8) {
               // tc_escr0,1 0x3c4 
               event_key=P4_EVENT_TC_DELIVER_MODE; 
            }
            else {
               // alf_escr0, 0x3ca    
               event_key=P4_EVENT_RESOURCE_STALL;
            }
         }
         if (cccrsel==4) {      
            if (escr_addr<0x3af) {
               // pmh_escr0,1 0x3ac
               event_key=P4_EVENT_PAGE_WALK_TYPE;
            }
            else {
               // cru_escr0, 3b8 cccr=04
               event_key=P4_EVENT_UOPS_RETIRED;
            }
         }
         break;
            case 0x2: if (cccrsel==5) {
                         if (escr_addr<0x3a8) { 
                            // MSR_DAC_ESCR0 / MSR_DAC_ESCR1
                            event_key=P4_EVENT_MEMORY_CANCEL; 
                 } else {
                   //MSR_CRU_ESCR2, MSR_CRU_ESCR3
                   event_key=P4_EVENT_MACHINE_CLEAR;
                 }
                  } else if (cccrsel==1) {
                         event_key=P4_EVENT_64BIT_MMX_UOP;
                  } else if (cccrsel==4) {
                     event_key=P4_EVENT_INSTR_RETIRED;
                  } else if (cccrsel==2) {
                     event_key=P4_EVENT_UOP_TYPE;
                  }
                  break;
            case 0x3: if (cccrsel==0) {
                         event_key=P4_EVENT_BPU_FETCH_REQUEST;
                      }
                              if (cccrsel==2) {
                         event_key=P4_EVENT_MOB_LOAD_REPLAY;
                  }
                      if (cccrsel==6) {
                     event_key=P4_EVENT_IOQ_ALLOCATION;
                  }
                      if (cccrsel==4) {
                     event_key=P4_EVENT_MISPRED_BRANCH_RETIRED;
                      }
                  if (cccrsel==5) { 
                 event_key=P4_EVENT_X87_ASSIST;
                      }
                  break;
            case 0x4: if (cccrsel==2) {
                         if (escr_addr<0x3b0) {
                    // saat, 0x3ae 
                            event_key=P4_EVENT_LOAD_PORT_REPLAY; 
                         }
                         else {
                    // tbpu 0x3c2
                            event_key=P4_EVENT_RETIRED_BRANCH_TYPE;
                 }
                      }
                      if (cccrsel==1) {
                         event_key=P4_EVENT_X87_FP_UOP;
                      }
                  if (cccrsel==3) {
                     event_key=P4_EVENT_RESPONSE;
                      }
                  break;
                    case 0x5: if (cccrsel==2) {
                         if (escr_addr<0x3b0) {
                            // saat, 0x3ae 
                            event_key=P4_EVENT_STORE_PORT_REPLAY;
                 }
                         else {
                            // tbpu, 0x3c2
                            event_key=P4_EVENT_RETIRED_MISPRED_BRANCH_TYPE;
                 }
                      }
                      if (cccrsel==7) {
                         event_key=P4_EVENT_BSQ_ALLOCATION;
                      }
                      if (cccrsel==0) {
                     event_key=P4_EVENT_TC_MS_XFER;
                      }
                  if (cccrsel==5) {
                     event_key=P4_EVENT_WC_BUFFER;
                      }
                  break;
            case 0x6: if (cccrsel==7) {
                         event_key=P4_EVENT_BSQ_ACTIVE_ENTRIES; 
                      }
                      if (cccrsel==1) {
                         event_key=P4_EVENT_TC_MISC;
                  }
                  if (cccrsel==3) {
                 event_key=P4_EVENT_SNOOP;
                  }
                      if (cccrsel==5) {
                     event_key=P4_EVENT_BRANCH_RETIRED;
                  }
                  break;
            case 0x7: event_key=P4_EVENT_INSTR_COMPLETED; break;
            case 0x8: if (cccrsel==2) {
                         event_key=P4_EVENT_MEMORY_COMPLETE; 
                      }
                      if (cccrsel==1) {
                 event_key=P4_EVENT_PACKED_SP_UOP;
                  }
                  if (cccrsel==3) {
                 event_key=P4_EVENT_BNR;
                      }
                  if (cccrsel==5) {
                 event_key=P4_EVENT_FRONT_END_EVENT;
                      }
                  break;
                    case 0x9: if (cccrsel==0) {
                         event_key=P4_EVENT_UOP_QUEUE_WRITES; 
                      }
                      if (cccrsel==5) {
                 event_key=P4_EVENT_REPLAY_EVENT;
                  }
                  break;
                    case 0xa: event_key=P4_EVENT_SCALAR_SP_UOP; break;
                    case 0xc: if (cccrsel==7) {
                         event_key=P4_EVENT_BSQ_CACHE_REFERENCE; 
                      }
                      if (cccrsel==1) {
                         event_key=P4_EVENT_PACKED_DP_UOP;
                  }
                  if (cccrsel==5) {
                 event_key=P4_EVENT_EXECUTION_EVENT;
                  }
                  break;
            case 0xe: event_key=P4_EVENT_SCALAR_DP_UOP; break;
            case 0x13: event_key=P4_EVENT_GLOBAL_POWER_EVENTS; break;
                    case 0x16: event_key=P4_EVENT_B2B_CYCLES; break;
            case 0x17: event_key=P4_EVENT_FSB_DATA_ACTIVITY; break;
            case 0x18: event_key=P4_EVENT_ITLB_REFERENCE; break;
                    case 0x1a: if (cccrsel==6) {
                          event_key=P4_EVENT_IOQ_ACTIVE_ENTRIES; 
                       }
                       if (cccrsel==1) {
                      event_key=P4_EVENT_128BIT_MMX_UOP;
          }
          break;
       case 0x34: event_key= P4_EVENT_SSE_INPUT_ASSIST; break;
    }
           
    pe_event=(escr&0x1ffffff)<<32;
    pe_event|=(cccr&0xfffff000);            
    pe_event|=(((long long)(event_key))<<57);
   
    return pe_event;
}

Here is the caller graph for this function:

prepare_umask()

int prepare_umask	(	unsigned int	foo,
		unsigned int *	values
	)

Definition at line 99 of file papi_libpfm3_events.c.

{
    unsigned int tmp = foo, i;
    int j = 0;
 
    SUBDBG( "umask %#x\n", tmp );
    while ( ( i = ( unsigned int ) ffs( ( int ) tmp ) ) ) {
        tmp = tmp ^ ( 1 << ( i - 1 ) );
        values[j] = i - 1;
        SUBDBG( "umask %d is %d\n", j, values[j] );
        j++;
    }
    return ( j );
}

Here is the caller graph for this function:

Variable Documentation

_perfmon2_pfm_pmu_type

int _perfmon2_pfm_pmu_type = -1

Definition at line 438 of file papi_libpfm3_events.c.

num_native_events

int num_native_events =0

Definition at line 32 of file papi_libpfm3_events.c.

PAPI_NATIVE_EVENT_AND_MASK

unsigned int PAPI_NATIVE_EVENT_AND_MASK = 0x000003ff

Definition at line 25 of file papi_libpfm3_events.c.

PAPI_NATIVE_EVENT_SHIFT

unsigned int PAPI_NATIVE_EVENT_SHIFT = 0

Definition at line 26 of file papi_libpfm3_events.c.

PAPI_NATIVE_UMASK_AND_MASK

unsigned int PAPI_NATIVE_UMASK_AND_MASK = 0x03fffc00

Definition at line 27 of file papi_libpfm3_events.c.

PAPI_NATIVE_UMASK_MAX

unsigned int PAPI_NATIVE_UMASK_MAX = 16

Definition at line 28 of file papi_libpfm3_events.c.

PAPI_NATIVE_UMASK_SHIFT

unsigned int PAPI_NATIVE_UMASK_SHIFT = 10

Definition at line 29 of file papi_libpfm3_events.c.