int _papi_pmapi_setup_presets(char *pmu_name, int pmu_type)
{
int retval, npresets;
hwi_search_t *preset_search_map = NULL;
hwi_dev_notes_t *notemap = NULL;
pfm_preset_search_entry_t *_perfmon2_pfm_preset_search_map;
/* allocate and clear array of search string structures */
_perfmon2_pfm_preset_search_map = malloc(sizeof(pfm_preset_search_entry_t)*PAPI_MAX_PRESET_EVENTS);
if (_perfmon2_pfm_preset_search_map == NULL)
return(PAPI_ENOMEM);
memset(_perfmon2_pfm_preset_search_map,0x0,sizeof(pfm_preset_search_entry_t)*PAPI_MAX_PRESET_EVENTS);
npresets = load_preset_table(pmu_name, pmu_type, _perfmon2_pfm_preset_search_map);
retval = generate_preset_search_map(&preset_search_map,¬emap,_perfmon2_pfm_preset_search_map, npresets);
free_preset_table(_perfmon2_pfm_preset_search_map);
free(_perfmon2_pfm_preset_search_map);
if (retval)
return (retval);
retval = _papi_hwi_setup_all_presets(preset_search_map, notemap);
if (retval)
{
free(preset_search_map);
free_notes(notemap);
free(notemap);
return (retval);
}
return (PAPI_OK);
}
static int
get_system_info( papi_mdi_t *mdi )
{
int retval;
pid_t pid;
char maxargs[PAPI_MAX_STR_LEN] = "<none>";
psinfo_t psi;
int fd;
int hz, version;
char cpuname[PAPI_MAX_STR_LEN], pname[PAPI_HUGE_STR_LEN];
/* Check counter access */
if ( cpc_version( CPC_VER_CURRENT ) != CPC_VER_CURRENT )
return ( PAPI_ESBSTR );
SUBDBG( "CPC version %d successfully opened\n", CPC_VER_CURRENT );
if ( cpc_access( ) == -1 )
return ( PAPI_ESBSTR );
/* Global variable cpuver */
cpuver = cpc_getcpuver( );
SUBDBG( "Got %d from cpc_getcpuver()\n", cpuver );
if ( cpuver == -1 )
return ( PAPI_ESBSTR );
#ifdef DEBUG
{
if ( ISLEVEL( DEBUG_SUBSTRATE ) ) {
const char *name;
int i;
name = cpc_getcpuref( cpuver );
if ( name )
SUBDBG( "CPC CPU reference: %s\n", name );
else
SUBDBG( "Could not get a CPC CPU reference\n" );
for ( i = 0; i < cpc_getnpic( cpuver ); i++ ) {
SUBDBG( "\n%6s %-40s %8s\n", "Reg", "Symbolic name", "Code" );
cpc_walk_names( cpuver, i, "%6d %-40s %02x\n",
print_walk_names );
}
SUBDBG( "\n" );
}
}
#endif
/* Initialize other globals */
if ( ( retval = build_tables( ) ) != PAPI_OK )
return retval;
preset_search_map = preset_table;
if ( cpuver <= CPC_ULTRA2 ) {
SUBDBG( "cpuver (==%d) <= CPC_ULTRA2 (==%d)\n", cpuver, CPC_ULTRA2 );
pcr_shift[0] = CPC_ULTRA_PCR_PIC0_SHIFT;
pcr_shift[1] = CPC_ULTRA_PCR_PIC1_SHIFT;
} else if ( cpuver <= LASTULTRA3 ) {
SUBDBG( "cpuver (==%d) <= CPC_ULTRA3x (==%d)\n", cpuver, LASTULTRA3 );
pcr_shift[0] = CPC_ULTRA_PCR_PIC0_SHIFT;
pcr_shift[1] = CPC_ULTRA_PCR_PIC1_SHIFT;
_solaris_vector.cmp_info.hardware_intr = 1;
_solaris_vector.cmp_info.hardware_intr_sig = SIGEMT;
} else
return ( PAPI_ESBSTR );
/* Path and args */
pid = getpid( );
if ( pid == -1 )
return ( PAPI_ESYS );
/* Turn on microstate accounting for this process and any LWPs. */
sprintf( maxargs, "/proc/%d/ctl", ( int ) pid );
if ( ( fd = open( maxargs, O_WRONLY ) ) == -1 )
return ( PAPI_ESYS );
{
int retval;
struct
{
long cmd;
long flags;
} cmd;
cmd.cmd = PCSET;
cmd.flags = PR_MSACCT | PR_MSFORK;
retval = write( fd, &cmd, sizeof ( cmd ) );
close( fd );
SUBDBG( "Write PCSET returned %d\n", retval );
if ( retval != sizeof ( cmd ) )
return ( PAPI_ESYS );
}
/* Get executable info */
sprintf( maxargs, "/proc/%d/psinfo", ( int ) pid );
if ( ( fd = open( maxargs, O_RDONLY ) ) == -1 )
return ( PAPI_ESYS );
read( fd, &psi, sizeof ( psi ) );
close( fd );
/* Cut off any arguments to exe */
{
char *tmp;
tmp = strchr( psi.pr_psargs, ' ' );
if ( tmp != NULL )
*tmp = '\0';
}
if ( realpath( psi.pr_psargs, pname ) )
strncpy( _papi_hwi_system_info.exe_info.fullname, pname,
PAPI_HUGE_STR_LEN );
else
strncpy( _papi_hwi_system_info.exe_info.fullname, psi.pr_psargs,
PAPI_HUGE_STR_LEN );
/* please don't use pr_fname here, because it can only store less that
16 characters */
strcpy( _papi_hwi_system_info.exe_info.address_info.name,
basename( _papi_hwi_system_info.exe_info.fullname ) );
SUBDBG( "Full Executable is %s\n",
_papi_hwi_system_info.exe_info.fullname );
/* Executable regions, reading /proc/pid/maps file */
retval = _ultra_hwd_update_shlib_info( &_papi_hwi_system_info );
/* Hardware info */
_papi_hwi_system_info.hw_info.ncpu = sysconf( _SC_NPROCESSORS_ONLN );
_papi_hwi_system_info.hw_info.nnodes = 1;
_papi_hwi_system_info.hw_info.totalcpus = sysconf( _SC_NPROCESSORS_CONF );
retval = scan_prtconf( cpuname, PAPI_MAX_STR_LEN, &hz, &version );
if ( retval == -1 )
return ( PAPI_ESBSTR );
strcpy( _papi_hwi_system_info.hw_info.model_string,
cpc_getcciname( cpuver ) );
_papi_hwi_system_info.hw_info.model = cpuver;
strcpy( _papi_hwi_system_info.hw_info.vendor_string, "SUN" );
_papi_hwi_system_info.hw_info.vendor = PAPI_VENDOR_SUN;
_papi_hwi_system_info.hw_info.revision = version;
_papi_hwi_system_info.hw_info.mhz = ( ( float ) hz / 1.0e6 );
SUBDBG( "hw_info.mhz = %f\n", _papi_hwi_system_info.hw_info.mhz );
/* Number of PMCs */
retval = cpc_getnpic( cpuver );
if ( retval < 0 )
return ( PAPI_ESBSTR );
_solaris_vector.cmp_info.num_cntrs = retval;
_solaris_vector.cmp_info.fast_real_timer = 1;
_solaris_vector.cmp_info.fast_virtual_timer = 1;
_solaris_vector.cmp_info.default_domain = PAPI_DOM_USER;
_solaris_vector.cmp_info.available_domains =
PAPI_DOM_USER | PAPI_DOM_KERNEL;
/* Setup presets */
retval = _papi_hwi_setup_all_presets( preset_search_map, NULL );
if ( retval )
return ( retval );
return ( PAPI_OK );
}
/* Assign the global native and preset table pointers, find the native
table's size in memory and then call the preset setup routine. */
int
setup_ppc64_presets( int cputype )
{
preset_search_map = preset_name_map_PPC64;
return ( _papi_hwi_setup_all_presets( preset_search_map, NULL ) );
}
int
init_presets( )
{
return ( _papi_hwi_setup_all_presets( acpi_preset_map, NULL ) );
}
