#include "smpi_coll_private.h"
#include "smpi_mpi_dt_private.h"
+#define MPI_CALL_IMPLEM(type,name,args) \
+ type name args __attribute__((weak,alias("P"#name))); \
+ type P##name args
+
XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_mpi, smpi,
"Logging specific to SMPI (mpi)");
/* MPI User level calls */
-int MPI_Init(int *argc, char ***argv)
+MPI_CALL_IMPLEM(int, MPI_Init, (int *argc, char ***argv))
{
smpi_process_init(argc, argv);
#ifdef HAVE_TRACING
return MPI_SUCCESS;
}
-int MPI_Finalize(void)
+MPI_CALL_IMPLEM(int, MPI_Finalize, (void))
{
smpi_bench_end(-1, NULL);
#ifdef HAVE_TRACING
return MPI_SUCCESS;
}
-int MPI_Init_thread(int *argc, char ***argv, int required, int *provided)
+MPI_CALL_IMPLEM(int, MPI_Init_thread, (int *argc, char ***argv, int required, int *provided))
{
if (provided != NULL) {
*provided = MPI_THREAD_MULTIPLE;
return MPI_Init(argc, argv);
}
-int MPI_Query_thread(int *provided)
+MPI_CALL_IMPLEM(int, MPI_Query_thread, (int *provided))
{
int retval;
return retval;
}
-int MPI_Is_thread_main(int *flag)
+MPI_CALL_IMPLEM(int, MPI_Is_thread_main, (int *flag))
{
int retval;
return retval;
}
-int MPI_Abort(MPI_Comm comm, int errorcode)
+MPI_CALL_IMPLEM(int, MPI_Abort, (MPI_Comm comm, int errorcode))
{
smpi_bench_end(-1, NULL);
smpi_process_destroy();
return time;
}
-int MPI_Address(void *location, MPI_Aint * address)
+MPI_CALL_IMPLEM(int, MPI_Address, (void *location, MPI_Aint * address))
{
int retval;
return retval;
}
-int MPI_Type_free(MPI_Datatype * datatype)
+MPI_CALL_IMPLEM(int, MPI_Type_free, (MPI_Datatype * datatype))
{
int retval;
return retval;
}
-int MPI_Type_size(MPI_Datatype datatype, int *size)
+MPI_CALL_IMPLEM(int, MPI_Type_size, (MPI_Datatype datatype, int *size))
{
int retval;
return retval;
}
-int MPI_Type_extent(MPI_Datatype datatype, MPI_Aint * extent)
+MPI_CALL_IMPLEM(int, MPI_Type_extent, (MPI_Datatype datatype, MPI_Aint * extent))
{
int retval;
MPI_Aint dummy;
return retval;
}
-int MPI_Type_lb(MPI_Datatype datatype, MPI_Aint * disp)
+MPI_CALL_IMPLEM(int, MPI_Type_lb, (MPI_Datatype datatype, MPI_Aint * disp))
{
int retval;
return retval;
}
-int MPI_Type_ub(MPI_Datatype datatype, MPI_Aint * disp)
+MPI_CALL_IMPLEM(int, MPI_Type_ub, (MPI_Datatype datatype, MPI_Aint * disp))
{
int retval;
return retval;
}
-int MPI_Op_create(MPI_User_function * function, int commute, MPI_Op * op)
+MPI_CALL_IMPLEM(int, MPI_Op_create, (MPI_User_function * function, int commute, MPI_Op * op))
{
int retval;
return retval;
}
-int MPI_Op_free(MPI_Op * op)
+MPI_CALL_IMPLEM(int, MPI_Op_free, (MPI_Op * op))
{
int retval;
return retval;
}
-int MPI_Group_free(MPI_Group * group)
+MPI_CALL_IMPLEM(int, MPI_Group_free, (MPI_Group * group))
{
int retval;
return retval;
}
-int MPI_Group_size(MPI_Group group, int *size)
+MPI_CALL_IMPLEM(int, MPI_Group_size, (MPI_Group group, int *size))
{
int retval;
return retval;
}
-int MPI_Group_rank(MPI_Group group, int *rank)
+MPI_CALL_IMPLEM(int, MPI_Group_rank, (MPI_Group group, int *rank))
{
int retval;
return retval;
}
-int MPI_Group_compare(MPI_Group group1, MPI_Group group2, int *result)
+MPI_CALL_IMPLEM(int, MPI_Group_compare, (MPI_Group group1, MPI_Group group2, int *result))
{
int retval;
return retval;
}
-int MPI_Comm_rank(MPI_Comm comm, int *rank)
+MPI_CALL_IMPLEM(int, MPI_Comm_rank, (MPI_Comm comm, int *rank))
{
int retval;
return retval;
}
-int MPI_Comm_size(MPI_Comm comm, int *size)
+MPI_CALL_IMPLEM(int, MPI_Comm_size, (MPI_Comm comm, int *size))
{
int retval;
return retval;
}
-int MPI_Comm_group(MPI_Comm comm, MPI_Group * group)
+MPI_CALL_IMPLEM(int, MPI_Comm_group, (MPI_Comm comm, MPI_Group * group))
{
int retval;
return retval;
}
-int MPI_Comm_compare(MPI_Comm comm1, MPI_Comm comm2, int *result)
+MPI_CALL_IMPLEM(int, MPI_Comm_compare, (MPI_Comm comm1, MPI_Comm comm2, int *result))
{
int retval;
return retval;
}
-int MPI_Comm_dup(MPI_Comm comm, MPI_Comm * newcomm)
+MPI_CALL_IMPLEM(int, MPI_Comm_dup, (MPI_Comm comm, MPI_Comm * newcomm))
{
int retval;
return retval;
}
-int MPI_Comm_create(MPI_Comm comm, MPI_Group group, MPI_Comm * newcomm)
+MPI_CALL_IMPLEM(int, MPI_Comm_create, (MPI_Comm comm, MPI_Group group, MPI_Comm * newcomm))
{
int retval;
return retval;
}
-int MPI_Comm_free(MPI_Comm * comm)
+MPI_CALL_IMPLEM(int, MPI_Comm_free, (MPI_Comm * comm))
{
int retval;
return retval;
}
-int MPI_Comm_split(MPI_Comm comm, int color, int key, MPI_Comm* comm_out)
+MPI_CALL_IMPLEM(int, MPI_Comm_split, (MPI_Comm comm, int color, int key, MPI_Comm* comm_out))
{
int retval;
return retval;
}
-int MPI_Start(MPI_Request * request)
+MPI_CALL_IMPLEM(int, MPI_Start, (MPI_Request * request))
{
int retval;
MPI_Comm comm = (*request)->comm;
return retval;
}
-int MPI_Startall(int count, MPI_Request * requests)
+MPI_CALL_IMPLEM(int, MPI_Startall, (int count, MPI_Request * requests))
{
int retval;
MPI_Comm comm = count > 0
return retval;
}
-int MPI_Request_free(MPI_Request * request)
+MPI_CALL_IMPLEM(int, MPI_Request_free, (MPI_Request * request))
{
int retval;
MPI_Comm comm = (*request)->comm;
return retval;
}
-int MPI_Test(MPI_Request * request, int *flag, MPI_Status * status)
+MPI_CALL_IMPLEM(int, MPI_Test, (MPI_Request * request, int *flag, MPI_Status * status))
{
int retval;
int rank = request && (*request)->comm != MPI_COMM_NULL
return retval;
}
-int MPI_Wait(MPI_Request * request, MPI_Status * status)
+MPI_CALL_IMPLEM(int, MPI_Wait, (MPI_Request * request, MPI_Status * status))
{
int retval;
int rank = request && (*request)->comm != MPI_COMM_NULL
return retval;
}
-int MPI_Waitall(int count, MPI_Request requests[], MPI_Status status[])
+MPI_CALL_IMPLEM(int, MPI_Waitall, (int count, MPI_Request requests[], MPI_Status status[]))
{
smpi_bench_end(-1, NULL); //FIXME
return retval;
}
-int MPI_Barrier(MPI_Comm comm)
+MPI_CALL_IMPLEM(int, MPI_Barrier, (MPI_Comm comm))
{
int retval;
int rank = comm != MPI_COMM_NULL ? smpi_comm_rank(comm) : -1;
}
-int MPI_Get_processor_name(char *name, int *resultlen)
+MPI_CALL_IMPLEM(int, MPI_Get_processor_name, (char *name, int *resultlen))
{
int retval = MPI_SUCCESS;
return retval;
}
-int MPI_Get_count(MPI_Status * status, MPI_Datatype datatype, int *count)
+MPI_CALL_IMPLEM(int, MPI_Get_count, (MPI_Status * status, MPI_Datatype datatype, int *count))
{
int retval = MPI_SUCCESS;
size_t size;