linux-emon.c File Reference

This file has the source code for a component that enables PAPI-C to access hardware power data for BG/Q through the EMON interface. More...

Include dependency graph for linux-emon.c:

Go to the source code of this file.

Data Structures
struct	EMON_register_t
struct	EMON_native_event_entry_t
struct	EMON_reg_alloc_t
struct	EMON_overflow_t
struct	EMON_control_state_t
struct	EMON_context_t

Macros
#define	EMON_DEFINE_GLOBALS
#define	EMON_MAX_COUNTERS   8
#define	EMON_TOTAL_EVENTS   8
#define	EMONDBG(fmt, args...)   do { printf("%s:%d\t"fmt, __func__, __LINE__, ##args); } while(0)

Functions
static void	_check_EMON_error (char *emon2func, int err)
int	EMON_init_thread (hwd_context_t *ctx)
int	EMON_init_component (int cidx)
int	EMON_init_control_state (hwd_control_state_t *ptr)
static int	_emon_accessor (EMON_control_state_t *this_state)
int	EMON_start (hwd_context_t *ctx, hwd_control_state_t *ptr)
int	EMON_stop (hwd_context_t *ctx, hwd_control_state_t *ptr)
int	EMON_read (hwd_context_t *ctx, hwd_control_state_t *ptr, long long **events, int flags)
int	EMON_shutdown_thread (hwd_context_t *ctx)
int	EMON_shutdown_component (void)
int	EMON_ctl (hwd_context_t *ctx, int code, _papi_int_option_t *option)
int	EMON_cleanup_eventset (hwd_control_state_t *ctrl)
int	EMON_update_control_state (hwd_control_state_t *ptr, NativeInfo_t *native, int count, hwd_context_t *ctx)
int	EMON_set_domain (hwd_control_state_t *cntrl, int domain)
int	EMON_reset (hwd_context_t *ctx, hwd_control_state_t *ptr)
int	EMON_ntv_enum_events (unsigned int *EventCode, int modifier)
int	EMON_ntv_code_to_name (unsigned int EventCode, char *name, int len)
int	EMON_ntv_name_to_code (const char *name, unsigned int *code)
int	EMON_ntv_code_to_descr (unsigned int EventCode, char *name, int len)
int	EMON_ntv_code_to_bits (unsigned int EventCode, hwd_register_t *bits)
int	EMON_ntv_code_to_info (unsigned int EventCode, PAPI_event_info_t *info)

Variables
papi_vector_t	_emon2_vector
static EMON_native_event_entry_t	EMON_native_table []
papi_vector_t	_emon_vector

Detailed Description

Author

Heike Jagode jagod.nosp@m.e@ee.nosp@m.cs.ut.nosp@m.k.ed.nosp@m.u BGPM / emon component

Definition in file linux-emon.c.

Macro Definition Documentation

EMON_DEFINE_GLOBALS

#define EMON_DEFINE_GLOBALS

Definition at line 24 of file linux-emon.c.

EMON_MAX_COUNTERS

#define EMON_MAX_COUNTERS   8

Definition at line 28 of file linux-emon.c.

EMON_TOTAL_EVENTS

#define EMON_TOTAL_EVENTS   8

Definition at line 29 of file linux-emon.c.

EMONDBG

#define EMONDBG	(		fmt,
			args...
	)		do { printf("%s:%d\t"fmt, __func__, __LINE__, ##args); } while(0)

Definition at line 34 of file linux-emon.c.

Function Documentation

_check_EMON_error()

static void _check_EMON_error ( char *  emon2func, int  err  )

static

Definition at line 88 of file linux-emon.c.

{
    ( void ) emon2func;
    if ( err < 0 ) {
        printf( "Error: EMON API function '%s' returned %d.\n",
                    emon2func, err );
    }
}

Here is the caller graph for this function:

_emon_accessor()

static int _emon_accessor ( EMON_control_state_t *  this_state )

static

Definition at line 214 of file linux-emon.c.

{
    union {
        long long ll;
        double fp;
    } return_value;
    return_value.fp = -1;
 
    double volts[14],amps[14];
    double cpu      = 0;
    double dram         = 0;
    double link_chip    = 0;
    double network      = 0;
    double optics       = 0;
    double pci      = 0;
    double sram     = 0;
    unsigned k_const; 
    
    EMONDBG( "_emon_accessor, enter this_state = %x\n", this_state);
    return_value.fp = EMON_GetPower_impl( volts, amps );
    EMONDBG("_emon_accessor, after EMON_GetPower %lf \n", return_value.fp);
    if ( -1 == return_value.fp ) {
        PAPIERROR("EMON_GetPower() failed!\n");
        return ( PAPI_ESYS );
    }
 
    this_state->counters[7] = return_value.ll;
 
/*  We just stuff everything in counters, there is no extra overhead here */
    k_const     = domain_info[0].k_const; /* Chip Core Voltage */
    cpu += volts[0] * amps[0] * k_const;
    cpu += volts[1] * amps[1] * k_const;
 
    k_const     = domain_info[1].k_const; /* Chip Core Voltage */
    dram += volts[2] * amps[2] * k_const;
    dram += volts[3] * amps[3] * k_const;
 
    k_const     = domain_info[2].k_const; /* Chip Core Voltage */
    optics += volts[4] * amps[4] * k_const;
    optics += volts[5] * amps[5] * k_const;
 
    k_const     = domain_info[3].k_const; /* Chip Core Voltage */
    pci += volts[6] * amps[6] * k_const;
    pci += volts[7] * amps[7] * k_const;
 
    k_const     = domain_info[4].k_const; /* Chip Core Voltage */
    network += volts[8] * amps[8] * k_const;
    network += volts[9] * amps[9] * k_const;
 
    k_const     = domain_info[5].k_const; /* Chip Core Voltage */
    link_chip += volts[10] * amps[10] * k_const;
    link_chip += volts[11] * amps[11] * k_const;
 
    k_const     = domain_info[6].k_const; /* Chip Core Voltage */
    sram += volts[12] * amps[12] * k_const;
    sram += volts[13] * amps[13] * k_const;
 
    this_state->counters[0] = *(long long*)&cpu;
    this_state->counters[1] = *(long long*)&dram;
    this_state->counters[2] = *(long long*)&optics;
    this_state->counters[3] = *(long long*)&pci;
    this_state->counters[4] = *(long long*)&link_chip;
    this_state->counters[5] = *(long long*)&network;
    this_state->counters[6] = *(long long*)&sram;
 
    EMONDBG("CPU = %lf\n", *(double*)&this_state->counters[0]);
    EMONDBG("DRAM = %lf\n", *(double*)&this_state->counters[1]);
    EMONDBG("Optics = %lf\n", *(double*)&this_state->counters[2]);
    EMONDBG("PCI = %lf\n", *(double*)&this_state->counters[3]);
    EMONDBG("Link Chip = %lf\n", *(double*)&this_state->counters[4]);
    EMONDBG("Network = %lf\n", *(double*)&this_state->counters[5]);
    EMONDBG("SRAM = %lf\n", *(double*)&this_state->counters[6]);
    EMONDBG("TOTAL = %lf\n", *(double*)&this_state->counters[7] );
 
    return ( PAPI_OK );
}

Here is the call graph for this function:

Here is the caller graph for this function:

EMON_cleanup_eventset()

int EMON_cleanup_eventset

(

hwd_control_state_t *

ctrl

)

Definition at line 379 of file linux-emon.c.

{
    EMONDBG( "EMON_cleanup_eventset\n" );
    
    EMON_control_state_t * this_state = ( EMON_control_state_t * ) ctrl;
    ( void ) this_state;
    
    return ( PAPI_OK );
}

EMON_ctl()

int EMON_ctl	(	hwd_context_t *	ctx,
		int	code,
		_papi_int_option_t *	option
	)

Definition at line 364 of file linux-emon.c.

{
    EMONDBG( "EMON_ctl\n" );
    
    ( void ) ctx;
    ( void ) code;
    ( void ) option;
    return ( PAPI_OK );
}

EMON_init_component()

int EMON_init_component

(

int

cidx

)

Definition at line 177 of file linux-emon.c.

{ 
    int ret = 0;
    _emon2_vector.cmp_info.CmpIdx = cidx;
    EMONDBG( "EMON_init_component cidx = %d\n", cidx );
    /* Setup connection with the fpga:
     * NOTE: any other threads attempting to call into the EMON API 
     *      will be turned away.  */
    ret = EMON_SetupPowerMeasurement();
    _check_EMON_error("EMON_SetupPowerMeasurement", ret );
 
    _emon2_vector.cmp_info.num_native_events = EMON_TOTAL_EVENTS;
 
    _emon2_vector.cmp_info.num_cntrs = EMON_TOTAL_EVENTS;
    _emon2_vector.cmp_info.num_mpx_cntrs = EMON_TOTAL_EVENTS;
 
    
    return ( PAPI_OK );
}

Here is the call graph for this function:

EMON_init_control_state()

int EMON_init_control_state

(

hwd_control_state_t *

ptr

)

Definition at line 203 of file linux-emon.c.

{
    EMONDBG( "EMON_init_control_state\n" );
 
    EMON_control_state_t * this_state = ( EMON_control_state_t * ) ptr;
    memset( this_state, 0, sizeof ( EMON_control_state_t ) );
    
    return PAPI_OK;
}

EMON_init_thread()

int EMON_init_thread

(

hwd_context_t *

ctx

)

Definition at line 163 of file linux-emon.c.

{
    EMONDBG( "EMON_init_thread\n" );
    
    ( void ) ctx;
    return PAPI_OK;
}

EMON_ntv_code_to_bits()

int EMON_ntv_code_to_bits	(	unsigned int	EventCode,
		hwd_register_t *	bits
	)

Definition at line 552 of file linux-emon.c.

{
    EMONDBG( "EMON_ntv_code_to_bits\n" );
    ( void ) EventCode;
    ( void ) bits;
    return ( PAPI_OK );
}

EMON_ntv_code_to_descr()

int EMON_ntv_code_to_descr	(	unsigned int	EventCode,
		char *	name,
		int	len
	)

Definition at line 530 of file linux-emon.c.

{
    EMONDBG( "EMON_ntv_code_to_descr\n" );
    int index;
    ( void ) name;
    ( void ) len;
    
    index = ( EventCode ) ;
 
    if ( index >= EMON_TOTAL_EVENTS || index < 0 ) {
        return PAPI_ENOEVNT;
    }
    strncpy( name, EMON_native_table[index].description, len );
 
    return ( PAPI_OK );
}

EMON_ntv_code_to_info()

int EMON_ntv_code_to_info	(	unsigned int	EventCode,
		PAPI_event_info_t *	info
	)

Definition at line 561 of file linux-emon.c.

{
 
  int index = EventCode;
 
  if ( ( index < 0) || (index >= EMON_TOTAL_EVENTS )) return PAPI_ENOEVNT;
 
  strncpy( info->symbol, EMON_native_table[index].name, 
       sizeof(info->symbol));
 
  strncpy( info->long_descr, EMON_native_table[index].description, 
       sizeof(info->symbol));
 
  //strncpy( info->units, rapl_native_events[index].units, 
       //sizeof(info->units));
 
  info->data_type = EMON_native_table[index].return_type;
 
  return PAPI_OK;
}

EMON_ntv_code_to_name()

int EMON_ntv_code_to_name	(	unsigned int	EventCode,
		char *	name,
		int	len
	)

Definition at line 496 of file linux-emon.c.

{
    EMONDBG( "EMON_ntv_code_to_name\n" );
    int index;
    ( void ) name;
    ( void ) len;
    
    index = ( EventCode );
 
    if ( index >= EMON_TOTAL_EVENTS || index < 0 ) {
        return PAPI_ENOEVNT;
    }
 
    strncpy( name, EMON_native_table[index].name, len );
    return ( PAPI_OK );
}

EMON_ntv_enum_events()

int EMON_ntv_enum_events	(	unsigned int *	EventCode,
		int	modifier
	)

Definition at line 462 of file linux-emon.c.

{
    EMONDBG( "EMON_ntv_enum_events, EventCode = %#x\n", *EventCode );
 
    switch ( modifier ) {
    case PAPI_ENUM_FIRST:
        *EventCode = 0;
 
        return ( PAPI_OK );
        break;
 
    case PAPI_ENUM_EVENTS:
    {
        int index = ( *EventCode );
 
        if ( index < EMON_TOTAL_EVENTS ) {
            *EventCode = *EventCode + 1;
            return ( PAPI_OK );
        } else {
            return ( PAPI_ENOEVNT );
        }
 
        break;
    }
    default:
        return ( PAPI_EINVAL );
    }
    return ( PAPI_EINVAL );
}

EMON_ntv_name_to_code()

int EMON_ntv_name_to_code	(	const char *	name,
		unsigned int *	code
	)

Definition at line 517 of file linux-emon.c.

{
    int index;
 
    for ( index = 0; index < EMON_TOTAL_EVENTS; index++ ) {
        if ( 0 == strcmp( name, EMON_native_table[index].name ) ) {
            *code = index;
        }
    }
    return ( PAPI_OK );
}

EMON_read()

int EMON_read	(	hwd_context_t *	ctx,
		hwd_control_state_t *	ptr,
		long long **	events,
		int	flags
	)

Definition at line 324 of file linux-emon.c.

{
    EMONDBG( "EMON_read\n" );
    ( void ) ctx;
    ( void ) flags;
    int ret;
    EMON_control_state_t * this_state = ( EMON_control_state_t * ) ptr;
 
    ret = _emon_accessor( this_state );
    *events = this_state->counters;
    return ret;
}

Here is the call graph for this function:

EMON_reset()

int EMON_reset	(	hwd_context_t *	ctx,
		hwd_control_state_t *	ptr
	)

Definition at line 443 of file linux-emon.c.

{
    EMONDBG( "EMON_reset\n" );
    ( void ) ctx;
    int retval;
    EMON_control_state_t * this_state = ( EMON_control_state_t * ) ptr;
    ( void ) this_state;
    ( void ) retval;
 
    memset( this_state->counters, 0x0, sizeof(long long) * EMON_MAX_COUNTERS);
 
    return ( PAPI_OK );
}

EMON_set_domain()

int EMON_set_domain	(	hwd_control_state_t *	cntrl,
		int	domain
	)

Definition at line 427 of file linux-emon.c.

{
    EMONDBG( "EMON_set_domain\n" );
    ( void ) cntrl;
 
    if ( PAPI_DOM_ALL != domain )
        return ( PAPI_EINVAL );
 
    return ( PAPI_OK );
}

EMON_shutdown_component()

int EMON_shutdown_component

(

void

)

Definition at line 352 of file linux-emon.c.

{
    EMONDBG( "EMON_shutdown_component\n" );
    
    return ( PAPI_OK );
}

EMON_shutdown_thread()

int EMON_shutdown_thread

(

hwd_context_t *

ctx

)

Definition at line 343 of file linux-emon.c.

{
    EMONDBG( "EMON_shutdown_thread\n" );
    
    ( void ) ctx;
    return ( PAPI_OK );
}

EMON_start()

int EMON_start	(	hwd_context_t *	ctx,
		hwd_control_state_t *	ptr
	)

Definition at line 295 of file linux-emon.c.

{
    EMONDBG( "EMON_start\n" );
    ( void ) ctx;
    ( void ) ptr;
    /*EMON_control_state_t * this_state = ( EMON_control_state_t * ) ptr;*/
 
    return ( PAPI_OK );
}

EMON_stop()

int EMON_stop	(	hwd_context_t *	ctx,
		hwd_control_state_t *	ptr
	)

Definition at line 310 of file linux-emon.c.

{
    EMONDBG( "EMON_stop\n" );
    ( void ) ctx;
    EMON_control_state_t * this_state = ( EMON_control_state_t * ) ptr;
 
    return _emon_accessor( this_state );
}

Here is the call graph for this function:

EMON_update_control_state()

int EMON_update_control_state	(	hwd_control_state_t *	ptr,
		NativeInfo_t *	native,
		int	count,
		hwd_context_t *	ctx
	)

Definition at line 394 of file linux-emon.c.

{
    EMONDBG( "EMON_update_control_state: count = %d\n", count );
 
    ( void ) ctx;
    int index, i;
    EMON_control_state_t * this_state = ( EMON_control_state_t * ) ptr;
    ( void ) ptr;
 
 
    
    // otherwise, add the events to the eventset
    for ( i = 0; i < count; i++ ) {
        index = ( native[i].ni_event ) ;
        
        native[i].ni_position = i;
        
        EMONDBG("EMON_update_control_state: ADD event: i = %d, index = %d\n", i, index );
    }
    
    // store how many events we added to an EventSet
    this_state->count = count;
    
    return ( PAPI_OK );
}

Variable Documentation

_emon2_vector

papi_vector_t _emon2_vector

Definition at line 86 of file linux-emon.c.

_emon_vector

papi_vector_t _emon_vector

Definition at line 585 of file linux-emon.c.

EMON_native_table

EMON_native_event_entry_t EMON_native_table[]

static

This table contains the native events So with the EMON interface, we get every domain at a time.

Definition at line 101 of file linux-emon.c.