/* This function sets various options in the substrate * The valid codes being passed in are PAPI_SET_DEFDOM, * PAPI_SET_DOMAIN, PAPI_SETDEFGRN, PAPI_SET_GRANUL * and PAPI_SET_INHERIT */ int _papi_hwd_ctl( EventSetInfo_t * zero, int code, _papi_int_option_t * option ) { switch ( code ) { case PAPI_SET_DEFDOM: return ( set_default_domain( zero, option->domain.domain ) ); case PAPI_SET_DOMAIN: return ( set_domain ( option->domain.ESI->machdep, option->domain.domain ) ); case PAPI_SET_DEFGRN: return ( set_default_granularity ( zero, option->granularity.granularity ) ); case PAPI_SET_GRANUL: return ( set_granularity ( option->granularity.ESI->machdep, option->granularity.g ranularity ) ); case PAPI_SET_INHERIT: return ( set_inherit( option->inherit.inherit ) ); default: return ( PAPI_EINVAL ); } }
int _ultra_hwd_ctl( hwd_context_t * ctx, int code, _papi_int_option_t * option ) { switch ( code ) { case PAPI_DEFDOM: return ( set_default_domain ( option->domain.ESI->ctl_state, option->domain.domain ) ); case PAPI_DOMAIN: return ( _ultra_set_domain ( option->domain.ESI->ctl_state, option->domain.domain ) ); case PAPI_DEFGRN: return ( set_default_granularity ( option->domain.ESI->ctl_state, option->granularity.granularity ) ); case PAPI_GRANUL: return ( set_granularity ( option->granularity.ESI->ctl_state, option->granularity.granularity ) ); default: return ( PAPI_EINVAL ); } }