linux-bgq-common.c

Go to the documentation of this file.

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

#include "papi.h"
#include "linux-bgq-common.h"

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

void _check_BGPM_error( int err, char* bgpmfunc )
{
    if ( err < 0 ) {
        printf ( "Error: ret value is %d for BGPM API function '%s'.\n",
                 err, bgpmfunc);
    }
}


/*
 * 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 );
    CHECK_BGPM_ERROR( retval, "Bgpm_ReadEvent" );
    
    return ( ( long_long ) value ); 
}


/*
 * Delete BGPM eventGroup and create an new empty one
 */
void
_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 );
    CHECK_BGPM_ERROR( retval, "Bgpm_DeleteEventSet" );
    
    // create a new empty bgpm eventset
    *EventGroup_ptr = Bgpm_CreateEventSet();
    CHECK_BGPM_ERROR( *EventGroup_ptr, "Bgpm_CreateEventSet" );

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


/*
 * Rebuild BGPM eventGroup with the events as it was prior to deletion 
 */
void
_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] );
        CHECK_BGPM_ERROR( retval, "Bgpm_AddEvent" );
    
#ifdef DEBUG_BGQ
        printf( "_common_rebuildEventgroup: After emptying EventGroup, event re-added: %d\n",
                EventGroup_local[i] );
#endif
    }
}


/*
 * _common_set_overflow_BGPM
 *
 * since update_control_state trashes overflow settings, this puts things
 * back into balance for BGPM 
 */
void
_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 );
    CHECK_BGPM_ERROR( retval, "Bgpm_SetOverflow" );
    
    retval = Bgpm_SetEventUser1( EventGroup, 
                                 evt_idx,
                                 1024 );
    CHECK_BGPM_ERROR( retval, "Bgpm_SetEventUser1" );
    
    /* user signal handler for overflow case */
    retval = Bgpm_SetOverflowHandler( EventGroup, 
                                      handler );
    CHECK_BGPM_ERROR( retval, "Bgpm_SetOverflowHandler" );      
}