real_sendcount = 0;
real_sendtype = recvtype;
} else if(recvtype->size() * recvcount != sendtype->size() * sendcount){
- XBT_WARN("MPI_(I)Gather : received size at root differs from sent size %lu %lu", recvtype->size() * recvcount , sendtype->size() * sendcount);
+ XBT_WARN("MPI_(I)Gather : received size at root differs from sent size : %zu vs %zu", recvtype->size() * recvcount , sendtype->size() * sendcount);
return MPI_ERR_TRUNCATE;
}
}
int rank = simgrid::s4u::this_actor::get_pid();
int dt_size_recv = recvtype->is_replayable() ? 1 : recvtype->size();
- auto* trace_recvcounts = new std::vector<int>();
+ auto trace_recvcounts = std::make_shared<std::vector<int>>();
if (comm->rank() == root) {
for (int i = 0; i < comm->size(); i++) // copy data to avoid bad free
trace_recvcounts->push_back(recvcounts[i] * dt_size_recv);
}
if(recvtype->size() * recvcount != sendtype->size() * sendcount){
- XBT_WARN("MPI_(I)Allgather : received size from each process differs from sent size");
+ XBT_WARN("MPI_(I)Allgather : received size from each process differs from sent size : %zu vs %zu", recvtype->size() * recvcount, sendtype->size() * sendcount);
return MPI_ERR_TRUNCATE;
}
int rank = simgrid::s4u::this_actor::get_pid();
int dt_size_recv = recvtype->is_replayable() ? 1 : recvtype->size();
- auto* trace_recvcounts = new std::vector<int>();
+ auto trace_recvcounts = std::make_shared<std::vector<int>>();
for (int i = 0; i < comm->size(); i++) { // copy data to avoid bad free
trace_recvcounts->push_back(recvcounts[i] * dt_size_recv);
}
int rank = simgrid::s4u::this_actor::get_pid();
int dt_size_send = sendtype->is_replayable() ? 1 : sendtype->size();
- auto* trace_sendcounts = new std::vector<int>();
+ auto trace_sendcounts = std::make_shared<std::vector<int>>();
if (comm->rank() == root) {
for (int i = 0; i < comm->size(); i++) { // copy data to avoid bad free
trace_sendcounts->push_back(sendcounts[i] * dt_size_send);
CHECK_BUFFER(5, recvbuf, count)
CHECK_TYPE(4, datatype)
CHECK_COUNT(3, count)
- CHECK_OP(5)
+ CHECK_OP(5, op, datatype)
CHECK_ROOT(7)
CHECK_REQUEST(8)
CHECK_BUFFER(2, inoutbuf, count)
CHECK_TYPE(4, datatype)
CHECK_COUNT(3, count)
- CHECK_OP(5)
+ CHECK_OP(5, op, datatype)
smpi_bench_end();
op->apply(inbuf, inoutbuf, &count, datatype);
CHECK_TYPE(4, datatype)
CHECK_COUNT(3, count)
CHECK_REQUEST(7)
- CHECK_OP(5)
+ CHECK_OP(5, op, datatype)
smpi_bench_end();
std::vector<unsigned char> tmp_sendbuf;
CHECK_TYPE(4, datatype)
CHECK_COUNT(3, count)
CHECK_REQUEST(7)
- CHECK_OP(5)
+ CHECK_OP(5, op, datatype)
smpi_bench_end();
int rank = simgrid::s4u::this_actor::get_pid();
CHECK_TYPE(4, datatype)
CHECK_COUNT(3, count)
CHECK_REQUEST(7)
- CHECK_OP(5)
+ CHECK_OP(5, op, datatype)
smpi_bench_end();
int rank = simgrid::s4u::this_actor::get_pid();
CHECK_TYPE(4, datatype)
CHECK_NULL(3, MPI_ERR_COUNT, recvcounts)
CHECK_REQUEST(7)
- CHECK_OP(5)
+ CHECK_OP(5, op, datatype)
for (int i = 0; i < comm->size(); i++) {
CHECK_COUNT(3, recvcounts[i])
CHECK_BUFFER(1, sendbuf, recvcounts[i])
smpi_bench_end();
int rank = simgrid::s4u::this_actor::get_pid();
- auto* trace_recvcounts = new std::vector<int>();
+ auto trace_recvcounts = std::make_shared<std::vector<int>>();
int dt_send_size = datatype->is_replayable() ? 1 : datatype->size();
int totalcount = 0;
CHECK_TYPE(4, datatype)
CHECK_COUNT(3, recvcount)
CHECK_REQUEST(7)
- CHECK_OP(5)
+ CHECK_OP(5, op, datatype)
smpi_bench_end();
int count = comm->size();
int rank = simgrid::s4u::this_actor::get_pid();
int dt_send_size = datatype->is_replayable() ? 1 : datatype->size();
- auto* trace_recvcounts = new std::vector<int>(recvcount * dt_send_size); // copy data to avoid bad free
+ auto trace_recvcounts = std::make_shared<std::vector<int>>(recvcount * dt_send_size); // copy data to avoid bad free
std::vector<unsigned char> tmp_sendbuf;
const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, recvcount * count, datatype);
}
if(recvtype->size() * recvcount != real_sendtype->size() * real_sendcount){
- XBT_WARN("MPI_(I)Alltoall : receive size from each process differs from sent size");
+ XBT_WARN("MPI_(I)Alltoall : receive size from each process differs from sent size : %zu vs %zu", recvtype->size() * recvcount, real_sendtype->size() * real_sendcount);
return MPI_ERR_TRUNCATE;
}
smpi_bench_end();
int send_size = 0;
int recv_size = 0;
- auto* trace_sendcounts = new std::vector<int>();
- auto* trace_recvcounts = new std::vector<int>();
+ auto trace_sendcounts = std::make_shared<std::vector<int>>();
+ auto trace_recvcounts = std::make_shared<std::vector<int>>();
int dt_size_recv = recvtype->size();
const int* real_sendcounts = sendcounts;
}
if(recvtype->size() * recvcounts[comm->rank()] != real_sendtype->size() * real_sendcounts[comm->rank()]){
- XBT_WARN("MPI_(I)Alltoallv : receive size from me differs from sent size to me");
+ XBT_WARN("MPI_(I)Alltoallv : receive size from me differs from sent size to me : %zu vs %zu", recvtype->size() * recvcounts[comm->rank()], real_sendtype->size() * real_sendcounts[comm->rank()]);
smpi_bench_begin();
return MPI_ERR_TRUNCATE;
}
int send_size = 0;
int recv_size = 0;
- auto* trace_sendcounts = new std::vector<int>();
- auto* trace_recvcounts = new std::vector<int>();
+ auto trace_sendcounts = std::make_shared<std::vector<int>>();
+ auto trace_recvcounts = std::make_shared<std::vector<int>>();
const int* real_sendcounts = sendcounts;
const int* real_senddispls = senddispls;
const MPI_Datatype* real_sendtypes = sendtypes;
unsigned long maxsize = 0;
for (int i = 0; i < size; i++) { // copy data to avoid bad free
- if (recvtypes[i] == MPI_DATATYPE_NULL) {
- delete trace_recvcounts;
- delete trace_sendcounts;
+ if (recvtypes[i] == MPI_DATATYPE_NULL)
return MPI_ERR_TYPE;
- }
recv_size += recvcounts[i] * recvtypes[i]->size();
trace_recvcounts->push_back(recvcounts[i] * recvtypes[i]->size());
if ((recvdispls[i] + (recvcounts[i] * recvtypes[i]->size())) > maxsize)
if(recvtypes[comm->rank()]->size() * recvcounts[comm->rank()] != real_sendtypes[comm->rank()]->size() * real_sendcounts[comm->rank()]){
- XBT_WARN("MPI_(I)Alltoallw : receive size from me differs from sent size to me");
+ XBT_WARN("MPI_(I)Alltoallw : receive size from me differs from sent size to me : %zu vs %zu", recvtypes[comm->rank()]->size() * recvcounts[comm->rank()], real_sendtypes[comm->rank()]->size() * real_sendcounts[comm->rank()]);
smpi_bench_begin();
return MPI_ERR_TRUNCATE;
}