linux-bgq-common.c

Go to the documentation of this file.

/****************************/
/* THIS IS OPEN SOURCE CODE */
/****************************/

#include "linux-bgq-common.h"

/*******************************************************************************
 ********  BEGIN FUNCTIONS USED INTERNALLY SPECIFIC TO THIS COMPONENT **********
 ******************************************************************************/

int _check_BGPM_error( int err, char* bgpmfunc )
{
    char  buffer[PAPI_MAX_STR_LEN];
    int retval;
    
    if ( err < 0 ) {
        sprintf( buffer, "Error: ret value is %d for BGPM API function '%s'.",
                err, bgpmfunc);
        retval =  _papi_hwi_publish_error( buffer );
        return retval;
    }
    
    return PAPI_OK;
}


/*
 * Returns all event values from the BGPM eventGroup
 */
long_long
_common_getEventValue( unsigned event_id, int EventGroup )
{   
    uint64_t value;
    int retval;
    
    retval = Bgpm_ReadEvent( EventGroup, event_id, &value );
    retval = _check_BGPM_error( retval, "Bgpm_ReadEvent" );
    if ( retval < 0 ) return retval;

    return ( ( long_long ) value ); 
}


/*
 * Delete BGPM eventGroup and create an new empty one
 */
int
_common_deleteRecreate( int *EventGroup_ptr )
{
#ifdef DEBUG_BGQ
    printf( _AT_ " _common_deleteRecreate: *EventGroup_ptr=%d\n", *EventGroup_ptr);
#endif
    int retval;
    
    // delete previous bgpm eventset
    retval = Bgpm_DeleteEventSet( *EventGroup_ptr );
    retval = _check_BGPM_error( retval, "Bgpm_DeleteEventSet" );
    if ( retval < 0 ) return retval;

    // create a new empty bgpm eventset
    *EventGroup_ptr = Bgpm_CreateEventSet();
    retval = _check_BGPM_error( *EventGroup_ptr, "Bgpm_CreateEventSet" );
    if ( retval < 0 ) return retval;

#ifdef DEBUG_BGQ
    printf( _AT_ " _common_deleteRecreate: *EventGroup_ptr=%d\n", *EventGroup_ptr);
#endif
    return PAPI_OK;
}


/*
 * Rebuild BGPM eventGroup with the events as it was prior to deletion 
 */
int
_common_rebuildEventgroup( int count, int *EventGroup_local, int *EventGroup_ptr )
{
#ifdef DEBUG_BGQ
    printf( "_common_rebuildEventgroup\n" );
#endif  
    int i, retval;
    
    // rebuild BGPM EventGroup
    for ( i = 0; i < count; i++ ) {
        retval = Bgpm_AddEvent( *EventGroup_ptr, EventGroup_local[i] );
        retval = _check_BGPM_error( retval, "Bgpm_AddEvent" );
        if ( retval < 0 ) return retval;

#ifdef DEBUG_BGQ
        printf( "_common_rebuildEventgroup: After emptying EventGroup, event re-added: %d\n",
                EventGroup_local[i] );
#endif
    }
    return PAPI_OK;
}


/*
 * _common_set_overflow_BGPM
 *
 * since update_control_state trashes overflow settings, this puts things
 * back into balance for BGPM 
 */
int
_common_set_overflow_BGPM( int EventGroup, 
                           int evt_idx,
                           int threshold, 
                           void (*handler)(int, uint64_t, uint64_t, const ucontext_t *) )
{
    int retval;
    uint64_t threshold_for_bgpm;
    
    /* convert threadhold value assigned by PAPI user to value that is
     * programmed into the counter. This value is required by Bgpm_SetOverflow() */ 
    threshold_for_bgpm = BGPM_PERIOD2THRES( threshold );
    
#ifdef DEBUG_BGQ
    printf("_common_set_overflow_BGPM\n");
    
    int i;
    int numEvts = Bgpm_NumEvents( EventGroup );
    for ( i = 0; i < numEvts; i++ ) {
        printf("_common_set_overflow_BGPM: %d = %s\n", i, Bgpm_GetEventLabel( EventGroup, i) );
    }
#endif  
    
    
    retval = Bgpm_SetOverflow( EventGroup, 
                               evt_idx,
                               threshold_for_bgpm );
    retval = _check_BGPM_error( retval, "Bgpm_SetOverflow" );
    if ( retval < 0 ) return retval;

    retval = Bgpm_SetEventUser1( EventGroup, 
                                 evt_idx,
                                 1024 );
    retval = _check_BGPM_error( retval, "Bgpm_SetEventUser1" );
    if ( retval < 0 ) return retval;

    /* user signal handler for overflow case */
    retval = Bgpm_SetOverflowHandler( EventGroup, 
                                      handler );
    retval = _check_BGPM_error( retval, "Bgpm_SetOverflowHandler" );    
    if ( retval < 0 ) return retval;

    return PAPI_OK;
}