You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
2.9 KiB
90 lines
2.9 KiB
/*
|
|
* Copyright 2002-2019 Intel Corporation.
|
|
*
|
|
* This software is provided to you as Sample Source Code as defined in the accompanying
|
|
* End User License Agreement for the Intel(R) Software Development Products ("Agreement")
|
|
* section 1.L.
|
|
*
|
|
* This software and the related documents are provided as is, with no express or implied
|
|
* warranties, other than those that are expressly stated in the License.
|
|
*/
|
|
|
|
#include "pin.H"
|
|
#include <string>
|
|
#include <stdio.h>
|
|
#include <assert.h>
|
|
|
|
//=======================================================================
|
|
// This is a tool that replaces an original function my_mpi_init() with
|
|
// with mpi_init_repl() which is implemented in this tool.
|
|
// mpi_init_repl() calls to the original my_mpi_init() function which uses
|
|
// alertable system call and receives callbacks.
|
|
//=======================================================================
|
|
|
|
typedef void (*mpi_init_t)( void );
|
|
|
|
|
|
extern "C" void mpi_init_repl( CONTEXT * ctxt, AFUNPTR pf_mpi_init )
|
|
{
|
|
printf( "----> mpi_init_repl\n" ); fflush( stdout );
|
|
assert( pf_mpi_init );
|
|
|
|
PIN_CallApplicationFunction( ctxt, PIN_ThreadId(),
|
|
CALLINGSTD_DEFAULT, pf_mpi_init, NULL,
|
|
PIN_PARG(void),
|
|
PIN_PARG_END() );
|
|
}
|
|
|
|
//=======================================================================
|
|
|
|
VOID ImageLoad(IMG img, VOID *v)
|
|
{
|
|
// Replace "my_mpi_init" with "mpi_init_repl":
|
|
RTN mpiinitRtn = RTN_FindByName(img, "my_mpi_init");
|
|
if ( RTN_Valid( mpiinitRtn ) )
|
|
{
|
|
printf( "Replacing mpi_init ...\n" );
|
|
|
|
PROTO proto = PROTO_Allocate( PIN_PARG(void), CALLINGSTD_DEFAULT,
|
|
"mpi_init", PIN_PARG_END() );
|
|
|
|
RTN_ReplaceSignature( mpiinitRtn, AFUNPTR(mpi_init_repl),
|
|
IARG_PROTOTYPE, proto,
|
|
IARG_CONTEXT, IARG_ORIG_FUNCPTR,
|
|
IARG_END);
|
|
|
|
fflush( stdout );
|
|
PROTO_Free( proto );
|
|
}
|
|
}
|
|
|
|
static void OnCallback(THREADID threadIndex,
|
|
CONTEXT_CHANGE_REASON reason,
|
|
const CONTEXT *ctxtFrom,
|
|
CONTEXT *ctxtTo,
|
|
INT32 info,
|
|
VOID *v)
|
|
{
|
|
if (reason == CONTEXT_CHANGE_REASON_CALLBACK)
|
|
{
|
|
// Some systems interrupt aleratble system call in the mpi_init function
|
|
// with a callback, while some some others do not. To have the same
|
|
// output on all systems we disable printf in this function.
|
|
|
|
// printf( "Start handling system callback\n" ); fflush( stdout );
|
|
}
|
|
}
|
|
|
|
//=======================================================================
|
|
|
|
int main(int argc, CHAR *argv[])
|
|
{
|
|
PIN_InitSymbols();
|
|
PIN_Init( argc, argv );
|
|
IMG_AddInstrumentFunction( ImageLoad, 0 );
|
|
PIN_AddContextChangeFunction(OnCallback, 0);
|
|
PIN_StartProgram();
|
|
|
|
return 0;
|
|
}
|