CHECK_BUFFER(1, buf, count, datatype)
CHECK_ROOT(4)
CHECK_REQUEST(6)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Bcast" : "PMPI_Ibcast");
- name += " with root " + std::to_string(root);
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Bcast" : "PMPI_Ibcast") + " with root " +
+ std::to_string(root))
const SmpiBenchGuard suspend_bench;
aid_t pid = simgrid::s4u::this_actor::get_pid();
new simgrid::instr::CollTIData(request == MPI_REQUEST_IGNORED ? "bcast" : "ibcast", root, -1.0,
count, 0,
simgrid::smpi::Datatype::encode(datatype), ""));
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
if (comm->size() > 1) {
if (request == MPI_REQUEST_IGNORED)
simgrid::smpi::colls::bcast(buf, count, datatype, root, comm);
}
CHECK_ROOT(7)
CHECK_REQUEST(9)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Gather" : "PMPI_Igather");
- name += " with root " + std::to_string(root);
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Gather" : "PMPI_Igather") + +" with root " +
+ std::to_string(root))
const void* real_sendbuf = sendbuf;
int real_sendcount = sendcount;
const SmpiBenchGuard suspend_bench;
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_comm_in(pid, request == MPI_REQUEST_IGNORED ? "PMPI_Gather" : "PMPI_Igather",
}
CHECK_ROOT(8)
CHECK_REQUEST(10)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Gatherv" : "PMPI_Igatherv");
- name += " with root " + std::to_string(root);
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Gatherv" : "PMPI_Igatherv") +
+ " with root " + std::to_string(root))
if (rank == root){
for (int i = 0; i < comm->size(); i++) {
}
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
const void* real_sendbuf = sendbuf;
int real_sendcount = sendcount;
MPI_Datatype real_sendtype = sendtype;
const SmpiBenchGuard suspend_bench;
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_comm_in(pid, request == MPI_REQUEST_IGNORED ? "PMPI_Allgather" : "PMPI_Iallggather",
CHECK_COLLECTIVE(comm, MPI_REQUEST_IGNORED ? "PMPI_Allgatherv" : "PMPI_Iallgatherv")
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
if (sendbuf == MPI_IN_PLACE) {
sendbuf = static_cast<char*>(recvbuf) + recvtype->get_extent() * displs[comm->rank()];
sendcount = recvcounts[comm->rank()];
}
CHECK_ROOT(8)
CHECK_REQUEST(9)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Scatter" : "PMPI_Iscatter");
- name += " with root " + std::to_string(root);
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Scatter" : "PMPI_Iscatter") +
+ " with root " + std::to_string(root))
if (recvbuf == MPI_IN_PLACE) {
recvtype = sendtype;
const SmpiBenchGuard suspend_bench;
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_comm_in(pid, request == MPI_REQUEST_IGNORED ? "PMPI_Scatter" : "PMPI_Iscatter",
} else {
CHECK_NOT_IN_PLACE_ROOT(4, recvbuf)
}
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Scatterv" : "PMPI_Iscatterv");
- name += " with root " + std::to_string(root);
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Scatterv" : "PMPI_Iscatterv") +
+ " with root " + std::to_string(root))
const SmpiBenchGuard suspend_bench;
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
auto trace_sendcounts = std::make_shared<std::vector<int>>();
CHECK_OP(5, op, datatype)
CHECK_ROOT(7)
CHECK_REQUEST(8)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Reduce" : "PMPI_Ireduce");
- name += " with op " + op->name();
- name += " and root " + std::to_string(root);
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Reduce" : "PMPI_Ireduce") + " with op " +
+ op->name() + " and root " + std::to_string(root))
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
TRACE_smpi_comm_in(pid, request == MPI_REQUEST_IGNORED ? "PMPI_Reduce" : "PMPI_Ireduce",
CHECK_BUFFER(1, sendbuf, count, datatype)
CHECK_BUFFER(2, recvbuf, count, datatype)
CHECK_REQUEST(7)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Alleduce" : "PMPI_Iallreduce");
- name += " with op " + op->name();
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Alleduce" : "PMPI_Iallreduce") +
+ " with op " + op->name())
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
std::vector<unsigned char> tmp_sendbuf;
const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, count, datatype);
CHECK_BUFFER(2,recvbuf,count, datatype)
CHECK_REQUEST(7)
CHECK_OP(5, op, datatype)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Scan" : "PMPI_Iscan");
- name += " with op " + op->name();
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm,
+ std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Scan" : "PMPI_Iscan") + " with op " + op->name())
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
std::vector<unsigned char> tmp_sendbuf;
const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, count, datatype);
CHECK_BUFFER(2, recvbuf, count, datatype)
CHECK_REQUEST(7)
CHECK_OP(5, op, datatype)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Exscan" : "PMPI_Iexscan");
- name += " with op " + op->name();
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Exscan" : "PMPI_Iexscan") + " with op " +
+ op->name())
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
std::vector<unsigned char> tmp_sendbuf;
const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, count, datatype);
CHECK_BUFFER(1, sendbuf, recvcounts[i], datatype)
CHECK_BUFFER(2, recvbuf, recvcounts[i], datatype)
}
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Reduce_scatter" : "PMPI_Ireduce_scatter");
- name += " with op " + op->name();
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Reduce_scatter" : "PMPI_Ireduce_scatter") +
+ " with op " + op->name())
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
aid_t pid = simgrid::s4u::this_actor::get_pid();
auto trace_recvcounts = std::make_shared<std::vector<int>>();
trace_recvcounts->insert(trace_recvcounts->end(), &recvcounts[0], &recvcounts[comm->size()]);
CHECK_BUFFER(2, recvbuf, recvcount, datatype)
CHECK_REQUEST(7)
CHECK_OP(5, op, datatype)
- std::string name = (request == MPI_REQUEST_IGNORED ? "PMPI_Reduce_scatter_block" : "PMPI_Ireduce_scatter_block");
- name += " with op " + op->name();
- CHECK_COLLECTIVE(comm, name.c_str())
+ CHECK_COLLECTIVE(
+ comm, std::string(request == MPI_REQUEST_IGNORED ? "PMPI_Reduce_scatter_block" : "PMPI_Ireduce_scatter_block") +
+ " with op " + op->name())
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
int count = comm->size();
aid_t pid = simgrid::s4u::this_actor::get_pid();
const SmpiBenchGuard suspend_bench;
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
TRACE_smpi_comm_in(pid, request == MPI_REQUEST_IGNORED ? "PMPI_Alltoall" : "PMPI_Ialltoall",
new simgrid::instr::CollTIData(
request == MPI_REQUEST_IGNORED ? "alltoall" : "ialltoall", -1, -1.0,
}
const SmpiBenchGuard suspend_bench;
+
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
int send_size = 0;
int recv_size = 0;
auto trace_sendcounts = std::make_shared<std::vector<int>>();
const SmpiBenchGuard suspend_bench;
+ if(simgrid::config::get_value<bool>("smpi/colls-inject-barrier"))
+ simgrid::smpi::colls::barrier(comm);
+
int send_size = 0;
int recv_size = 0;
auto trace_sendcounts = std::make_shared<std::vector<int>>();