simgrid::smpi::ActorExt::init();
int rank_traced = simgrid::s4u::this_actor::get_pid();
- TRACE_smpi_init(rank_traced);
- TRACE_smpi_comm_in(rank_traced, __func__, new simgrid::instr::NoOpTIData("init"));
- TRACE_smpi_comm_out(rank_traced);
- TRACE_smpi_computing_init(rank_traced);
- TRACE_smpi_sleeping_init(rank_traced);
+ TRACE_smpi_init(rank_traced, __func__);
smpi_bench_begin();
smpi_process()->mark_as_initialized();
}
int PMPI_Get_library_version (char *version,int *len){
- smpi_bench_end();
snprintf(version, MPI_MAX_LIBRARY_VERSION_STRING, "SMPI Version %d.%d. Copyright The SimGrid Team 2007-2020",
SIMGRID_VERSION_MAJOR, SIMGRID_VERSION_MINOR);
*len = strlen(version) > MPI_MAX_LIBRARY_VERSION_STRING ? MPI_MAX_LIBRARY_VERSION_STRING : strlen(version);
- smpi_bench_begin();
return MPI_SUCCESS;
}
{
smpi_bench_end();
// FIXME: should kill all processes in comm instead
+ XBT_WARN("MPI_Abort was called, something went probably wrong in this simulation ! Killing this process");
smx_actor_t actor = SIMIX_process_self();
simgrid::kernel::actor::simcall([actor] { actor->exit(); });
return MPI_SUCCESS;
MPI_Errhandler PMPI_Errhandler_f2c(MPI_Fint errhan){
if(errhan==-1)
return MPI_ERRHANDLER_NULL;
- return static_cast<MPI_Errhandler>(simgrid::smpi::Errhandler::f2c(errhan));
+ return simgrid::smpi::Errhandler::f2c(errhan);
}
MPI_Fint PMPI_Errhandler_c2f(MPI_Errhandler errhan){