X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/79f4c4c467150b3bea841b968cabd629e9d9282a..9dca29757b5d8add4a2719c28f620686e7132556:/src/smpi/bindings/smpi_pmpi_coll.cpp diff --git a/src/smpi/bindings/smpi_pmpi_coll.cpp b/src/smpi/bindings/smpi_pmpi_coll.cpp index 7f6f627fe7..2a0a7458ab 100644 --- a/src/smpi/bindings/smpi_pmpi_coll.cpp +++ b/src/smpi/bindings/smpi_pmpi_coll.cpp @@ -19,6 +19,15 @@ XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(smpi_pmpi); return (errcode); \ } + static const void* smpi_get_in_place_buf(const void* inplacebuf, const void* otherbuf,std::unique_ptr& tmp_sendbuf, int count, MPI_Datatype datatype){ + if (inplacebuf == MPI_IN_PLACE) { + tmp_sendbuf.reset(new unsigned char[count * datatype->get_extent()]); + simgrid::smpi::Datatype::copy(otherbuf, count, datatype, tmp_sendbuf.get(), count, datatype); + return tmp_sendbuf.get(); + }else{ + return inplacebuf; + } +} /* PMPI User level calls */ int PMPI_Barrier(MPI_Comm comm) @@ -38,11 +47,11 @@ int PMPI_Ibarrier(MPI_Comm comm, MPI_Request *request) TRACE_smpi_comm_in(rank, request == MPI_REQUEST_IGNORED ? "PMPI_Barrier" : "PMPI_Ibarrier", new simgrid::instr::NoOpTIData(request == MPI_REQUEST_IGNORED ? "barrier" : "ibarrier")); if (request == MPI_REQUEST_IGNORED) { - simgrid::smpi::Colls::barrier(comm); + simgrid::smpi::colls::barrier(comm); // Barrier can be used to synchronize RMA calls. Finish all requests from comm before. comm->finish_rma_calls(); } else - simgrid::smpi::Colls::ibarrier(comm, request); + simgrid::smpi::colls::ibarrier(comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -78,9 +87,9 @@ int PMPI_Ibcast(void *buf, int count, MPI_Datatype datatype, simgrid::smpi::Datatype::encode(datatype), "")); if (comm->size() > 1) { if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::bcast(buf, count, datatype, root, comm); + simgrid::smpi::colls::bcast(buf, count, datatype, root, comm); else - simgrid::smpi::Colls::ibcast(buf, count, datatype, root, comm, request); + simgrid::smpi::colls::ibcast(buf, count, datatype, root, comm, request); } else { if (request != MPI_REQUEST_IGNORED) *request = MPI_REQUEST_NULL; @@ -130,9 +139,9 @@ int PMPI_Igather(const void* sendbuf, int sendcount, MPI_Datatype sendtype, void (comm->rank() != root || recvtype->is_replayable()) ? recvcount : recvcount * recvtype->size(), simgrid::smpi::Datatype::encode(real_sendtype), simgrid::smpi::Datatype::encode(recvtype))); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::gather(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, root, comm); + simgrid::smpi::colls::gather(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, root, comm); else - simgrid::smpi::Colls::igather(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, root, comm, + simgrid::smpi::colls::igather(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, root, comm, request); TRACE_smpi_comm_out(rank); @@ -194,10 +203,10 @@ int PMPI_Igatherv(const void* sendbuf, int sendcount, MPI_Datatype sendtype, voi nullptr, dt_size_recv, trace_recvcounts, simgrid::smpi::Datatype::encode(real_sendtype), simgrid::smpi::Datatype::encode(recvtype))); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::gatherv(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcounts, displs, recvtype, + simgrid::smpi::colls::gatherv(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcounts, displs, recvtype, root, comm); else - simgrid::smpi::Colls::igatherv(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcounts, displs, recvtype, + simgrid::smpi::colls::igatherv(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcounts, displs, recvtype, root, comm, request); TRACE_smpi_comm_out(rank); @@ -240,9 +249,9 @@ int PMPI_Iallgather(const void* sendbuf, int sendcount, MPI_Datatype sendtype, v recvtype->is_replayable() ? recvcount : recvcount * recvtype->size(), simgrid::smpi::Datatype::encode(sendtype), simgrid::smpi::Datatype::encode(recvtype))); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm); + simgrid::smpi::colls::allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm); else - simgrid::smpi::Colls::iallgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm, request); + simgrid::smpi::colls::iallgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -298,9 +307,9 @@ int PMPI_Iallgatherv(const void* sendbuf, int sendcount, MPI_Datatype sendtype, dt_size_recv, trace_recvcounts, simgrid::smpi::Datatype::encode(sendtype), simgrid::smpi::Datatype::encode(recvtype))); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm); + simgrid::smpi::colls::allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm); else - simgrid::smpi::Colls::iallgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm, + simgrid::smpi::colls::iallgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm, request); TRACE_smpi_comm_out(rank); @@ -345,9 +354,9 @@ int PMPI_Iscatter(const void* sendbuf, int sendcount, MPI_Datatype sendtype, voi recvtype->is_replayable() ? recvcount : recvcount * recvtype->size(), simgrid::smpi::Datatype::encode(sendtype), simgrid::smpi::Datatype::encode(recvtype))); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm); + simgrid::smpi::colls::scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm); else - simgrid::smpi::Colls::iscatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm, request); + simgrid::smpi::colls::iscatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -373,7 +382,7 @@ int PMPI_Iscatterv(const void* sendbuf, const int* sendcounts, const int* displs "Iscatterv: the recvtype cannot be NULL when not receiving in place"); CHECK_ARGS(request == nullptr, MPI_ERR_ARG, "Iscatterv: param 10 request cannot be NULL"); CHECK_ARGS(recvbuf != MPI_IN_PLACE && recvcount < 0, MPI_ERR_COUNT, - "Iscatterv: When not receiving in place, the recvcound cannot be negative"); + "Iscatterv: When not receiving in place, the recvcount cannot be negative"); CHECK_ARGS(root < 0, MPI_ERR_ROOT, "Iscatterv: root cannot be negative"); CHECK_ARGS(root >= comm->size(), MPI_ERR_ROOT, "Iscatterv: root (=%d) is larger than communicator size (=%d)", root, comm->size()); @@ -407,9 +416,9 @@ int PMPI_Iscatterv(const void* sendbuf, const int* sendcounts, const int* displs nullptr, simgrid::smpi::Datatype::encode(sendtype), simgrid::smpi::Datatype::encode(recvtype))); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::scatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm); + simgrid::smpi::colls::scatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm); else - simgrid::smpi::Colls::iscatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm, + simgrid::smpi::colls::iscatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm, request); TRACE_smpi_comm_out(rank); @@ -447,9 +456,9 @@ int PMPI_Ireduce(const void *sendbuf, void *recvbuf, int count, MPI_Datatype dat datatype->is_replayable() ? count : count * datatype->size(), -1, simgrid::smpi::Datatype::encode(datatype), "")); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::reduce(sendbuf, recvbuf, count, datatype, op, root, comm); + simgrid::smpi::colls::reduce(sendbuf, recvbuf, count, datatype, op, root, comm); else - simgrid::smpi::Colls::ireduce(sendbuf, recvbuf, count, datatype, op, root, comm, request); + simgrid::smpi::colls::ireduce(sendbuf, recvbuf, count, datatype, op, root, comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -492,13 +501,9 @@ int PMPI_Iallreduce(const void *sendbuf, void *recvbuf, int count, MPI_Datatype return MPI_ERR_ARG; smpi_bench_end(); - const void* real_sendbuf = sendbuf; std::unique_ptr tmp_sendbuf; - if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[count * datatype->get_extent()]); - simgrid::smpi::Datatype::copy(recvbuf, count, datatype, tmp_sendbuf.get(), count, datatype); - real_sendbuf = tmp_sendbuf.get(); - } + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, count, datatype); + int rank = simgrid::s4u::this_actor::get_pid(); TRACE_smpi_comm_in(rank, request == MPI_REQUEST_IGNORED ? "PMPI_Allreduce" : "PMPI_Iallreduce", @@ -507,9 +512,9 @@ int PMPI_Iallreduce(const void *sendbuf, void *recvbuf, int count, MPI_Datatype simgrid::smpi::Datatype::encode(datatype), "")); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::allreduce(real_sendbuf, recvbuf, count, datatype, op, comm); + simgrid::smpi::colls::allreduce(real_sendbuf, recvbuf, count, datatype, op, comm); else - simgrid::smpi::Colls::iallreduce(real_sendbuf, recvbuf, count, datatype, op, comm, request); + simgrid::smpi::colls::iallreduce(real_sendbuf, recvbuf, count, datatype, op, comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -538,12 +543,9 @@ int PMPI_Iscan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datat smpi_bench_end(); int rank = simgrid::s4u::this_actor::get_pid(); - const void* real_sendbuf = sendbuf; std::unique_ptr tmp_sendbuf; - if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[count * datatype->size()]); - real_sendbuf = memcpy(tmp_sendbuf.get(), recvbuf, count * datatype->size()); - } + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, count, datatype); + TRACE_smpi_comm_in(rank, request == MPI_REQUEST_IGNORED ? "PMPI_Scan" : "PMPI_Iscan", new simgrid::instr::Pt2PtTIData(request == MPI_REQUEST_IGNORED ? "scan" : "iscan", -1, datatype->is_replayable() ? count : count * datatype->size(), @@ -551,9 +553,9 @@ int PMPI_Iscan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype datat int retval; if (request == MPI_REQUEST_IGNORED) - retval = simgrid::smpi::Colls::scan(real_sendbuf, recvbuf, count, datatype, op, comm); + retval = simgrid::smpi::colls::scan(real_sendbuf, recvbuf, count, datatype, op, comm); else - retval = simgrid::smpi::Colls::iscan(real_sendbuf, recvbuf, count, datatype, op, comm, request); + retval = simgrid::smpi::colls::iscan(real_sendbuf, recvbuf, count, datatype, op, comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -581,12 +583,8 @@ int PMPI_Iexscan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype dat smpi_bench_end(); int rank = simgrid::s4u::this_actor::get_pid(); - const void* real_sendbuf = sendbuf; std::unique_ptr tmp_sendbuf; - if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[count * datatype->size()]); - real_sendbuf = memcpy(tmp_sendbuf.get(), recvbuf, count * datatype->size()); - } + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, count, datatype); TRACE_smpi_comm_in(rank, request == MPI_REQUEST_IGNORED ? "PMPI_Exscan" : "PMPI_Iexscan", new simgrid::instr::Pt2PtTIData(request == MPI_REQUEST_IGNORED ? "exscan" : "iexscan", -1, @@ -595,9 +593,9 @@ int PMPI_Iexscan(const void *sendbuf, void *recvbuf, int count, MPI_Datatype dat int retval; if (request == MPI_REQUEST_IGNORED) - retval = simgrid::smpi::Colls::exscan(real_sendbuf, recvbuf, count, datatype, op, comm); + retval = simgrid::smpi::colls::exscan(real_sendbuf, recvbuf, count, datatype, op, comm); else - retval = simgrid::smpi::Colls::iexscan(real_sendbuf, recvbuf, count, datatype, op, comm, request); + retval = simgrid::smpi::colls::iexscan(real_sendbuf, recvbuf, count, datatype, op, comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -639,13 +637,8 @@ int PMPI_Ireduce_scatter(const void *sendbuf, void *recvbuf, const int *recvcoun trace_recvcounts->push_back(recvcounts[i] * dt_send_size); totalcount += recvcounts[i]; } - - const void* real_sendbuf = sendbuf; std::unique_ptr tmp_sendbuf; - if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[totalcount * datatype->size()]); - real_sendbuf = memcpy(tmp_sendbuf.get(), recvbuf, totalcount * datatype->size()); - } + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, totalcount, datatype); TRACE_smpi_comm_in(rank, request == MPI_REQUEST_IGNORED ? "PMPI_Reduce_scatter" : "PMPI_Ireduce_scatter", new simgrid::instr::VarCollTIData( @@ -653,9 +646,9 @@ int PMPI_Ireduce_scatter(const void *sendbuf, void *recvbuf, const int *recvcoun -1, trace_recvcounts, simgrid::smpi::Datatype::encode(datatype), "")); if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::reduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm); + simgrid::smpi::colls::reduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm); else - simgrid::smpi::Colls::ireduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm, request); + simgrid::smpi::colls::ireduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm, request); TRACE_smpi_comm_out(rank); smpi_bench_begin(); @@ -688,13 +681,8 @@ int PMPI_Ireduce_scatter_block(const void* sendbuf, void* recvbuf, int recvcount int rank = simgrid::s4u::this_actor::get_pid(); int dt_send_size = datatype->is_replayable() ? 1 : datatype->size(); std::vector* trace_recvcounts = new std::vector(recvcount * dt_send_size); // copy data to avoid bad free - - const void* real_sendbuf = sendbuf; std::unique_ptr tmp_sendbuf; - if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[recvcount * count * datatype->size()]); - real_sendbuf = memcpy(tmp_sendbuf.get(), recvbuf, recvcount * count * datatype->size()); - } + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, recvcount * count, datatype); TRACE_smpi_comm_in( rank, request == MPI_REQUEST_IGNORED ? "PMPI_Reduce_scatter_block" : "PMPI_Ireduce_scatter_block", @@ -705,9 +693,9 @@ int PMPI_Ireduce_scatter_block(const void* sendbuf, void* recvbuf, int recvcount for (int i = 0; i < count; i++) recvcounts[i] = recvcount; if (request == MPI_REQUEST_IGNORED) - simgrid::smpi::Colls::reduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm); + simgrid::smpi::colls::reduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm); else - simgrid::smpi::Colls::ireduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm, request); + simgrid::smpi::colls::ireduce_scatter(real_sendbuf, recvbuf, recvcounts, datatype, op, comm, request); delete[] recvcounts; TRACE_smpi_comm_out(rank); @@ -736,16 +724,13 @@ int PMPI_Ialltoall(const void* sendbuf, int sendcount, MPI_Datatype sendtype, vo smpi_bench_end(); int rank = simgrid::s4u::this_actor::get_pid(); - const void* real_sendbuf = sendbuf; int real_sendcount = sendcount; MPI_Datatype real_sendtype = sendtype; + std::unique_ptr tmp_sendbuf; + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, recvcount * comm->size(), recvtype); + if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[recvcount * comm->size() * recvtype->size()]); - // memcpy(??,nullptr,0) is actually undefined behavor, even if harmless. - if (recvbuf != nullptr) - memcpy(tmp_sendbuf.get(), recvbuf, recvcount * comm->size() * recvtype->size()); - real_sendbuf = tmp_sendbuf.get(); real_sendcount = recvcount; real_sendtype = recvtype; } @@ -759,9 +744,9 @@ int PMPI_Ialltoall(const void* sendbuf, int sendcount, MPI_Datatype sendtype, vo int retval; if (request == MPI_REQUEST_IGNORED) retval = - simgrid::smpi::Colls::alltoall(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, comm); + simgrid::smpi::colls::alltoall(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, comm); else - retval = simgrid::smpi::Colls::ialltoall(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, + retval = simgrid::smpi::colls::ialltoall(real_sendbuf, real_sendcount, real_sendtype, recvbuf, recvcount, recvtype, comm, request); TRACE_smpi_comm_out(rank); @@ -804,7 +789,6 @@ int PMPI_Ialltoallv(const void* sendbuf, const int* sendcounts, const int* sendd std::vector* trace_recvcounts = new std::vector; int dt_size_recv = recvtype->size(); - const void* real_sendbuf = sendbuf; const int* real_sendcounts = sendcounts; const int* real_senddisps = senddisps; MPI_Datatype real_sendtype = sendtype; @@ -819,9 +803,8 @@ int PMPI_Ialltoallv(const void* sendbuf, const int* sendcounts, const int* sendd std::unique_ptr tmp_sendbuf; std::unique_ptr tmp_sendcounts; std::unique_ptr tmp_senddisps; + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, maxsize, MPI_CHAR); if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[maxsize]); - real_sendbuf = memcpy(tmp_sendbuf.get(), recvbuf, maxsize); tmp_sendcounts.reset(new int[size]); std::copy(recvcounts, recvcounts + size, tmp_sendcounts.get()); real_sendcounts = tmp_sendcounts.get(); @@ -846,10 +829,10 @@ int PMPI_Ialltoallv(const void* sendbuf, const int* sendcounts, const int* sendd int retval; if (request == MPI_REQUEST_IGNORED) - retval = simgrid::smpi::Colls::alltoallv(real_sendbuf, real_sendcounts, real_senddisps, real_sendtype, recvbuf, + retval = simgrid::smpi::colls::alltoallv(real_sendbuf, real_sendcounts, real_senddisps, real_sendtype, recvbuf, recvcounts, recvdisps, recvtype, comm); else - retval = simgrid::smpi::Colls::ialltoallv(real_sendbuf, real_sendcounts, real_senddisps, real_sendtype, recvbuf, + retval = simgrid::smpi::colls::ialltoallv(real_sendbuf, real_sendcounts, real_senddisps, real_sendtype, recvbuf, recvcounts, recvdisps, recvtype, comm, request); TRACE_smpi_comm_out(rank); @@ -890,7 +873,6 @@ int PMPI_Ialltoallw(const void* sendbuf, const int* sendcounts, const int* sendd std::vector* trace_sendcounts = new std::vector; std::vector* trace_recvcounts = new std::vector; - const void* real_sendbuf = sendbuf; const int* real_sendcounts = sendcounts; const int* real_senddisps = senddisps; const MPI_Datatype* real_sendtypes = sendtypes; @@ -911,9 +893,8 @@ int PMPI_Ialltoallw(const void* sendbuf, const int* sendcounts, const int* sendd std::unique_ptr tmp_sendcounts; std::unique_ptr tmp_senddisps; std::unique_ptr tmp_sendtypes; + const void* real_sendbuf = smpi_get_in_place_buf(sendbuf, recvbuf, tmp_sendbuf, maxsize, MPI_CHAR); if (sendbuf == MPI_IN_PLACE) { - tmp_sendbuf.reset(new unsigned char[maxsize]); - real_sendbuf = memcpy(tmp_sendbuf.get(), recvbuf, maxsize); tmp_sendcounts.reset(new int[size]); std::copy(recvcounts, recvcounts + size, tmp_sendcounts.get()); real_sendcounts = tmp_sendcounts.get(); @@ -938,10 +919,10 @@ int PMPI_Ialltoallw(const void* sendbuf, const int* sendcounts, const int* sendd int retval; if (request == MPI_REQUEST_IGNORED) - retval = simgrid::smpi::Colls::alltoallw(real_sendbuf, real_sendcounts, real_senddisps, real_sendtypes, recvbuf, + retval = simgrid::smpi::colls::alltoallw(real_sendbuf, real_sendcounts, real_senddisps, real_sendtypes, recvbuf, recvcounts, recvdisps, recvtypes, comm); else - retval = simgrid::smpi::Colls::ialltoallw(real_sendbuf, real_sendcounts, real_senddisps, real_sendtypes, recvbuf, + retval = simgrid::smpi::colls::ialltoallw(real_sendbuf, real_sendcounts, real_senddisps, real_sendtypes, recvbuf, recvcounts, recvdisps, recvtypes, comm, request); TRACE_smpi_comm_out(rank);