/* Called once per process. */
int
_papi_hwd_shutdown_substrate( void )
{
pmc_close( pmc_dev );
lock_release( );
return ( PAPI_OK );
}
int
_papi_hwd_shutdown( hwd_context_t * ctx )
{
int retval = 0;
// retval = vperfctr_unlink(ctx->self);
SUBDBG( "_papi_hwd_shutdown vperfctr_unlink(%p) = %d\n", ctx->self,
retval );
pmc_close( ctx->self );
SUBDBG( "_papi_hwd_shutdown vperfctr_close(%p)\n", ctx->self );
memset( ctx, 0x0, sizeof ( hwd_context_t ) );
if ( retval )
return ( PAPI_ESYS );
return ( PAPI_OK );
}
int _papi_hwd_shutdown_global(void)
{
pmc_close(pmc_dev);
_papi_hwd_lock_release();
return(PAPI_OK);
}
int _papi_hwd_shutdown(hwd_context_t *machdep)
{
pmc_close(machdep->self);
return(PAPI_OK);
}