SIMIX_communication_destroy(comm_finished);
THROW0(network_error, 0, "Link failure");
}
+ SIMIX_communication_destroy(comm_finished);
return found_comm;
}
smpi_mpi_recv(buf, count, datatype, tree->parent, system_tag + rank, comm, MPI_STATUS_IGNORE);
}
requests = xbt_new(MPI_Request, tree->numChildren);
- DEBUG2("<%d> creates %d requests (1 per child)\n", rank, tree->numChildren);
+ DEBUG2("<%d> creates %d requests (1 per child)", rank, tree->numChildren);
/* iniates sends to ranks lower in the tree */
for(i = 0; i < tree->numChildren; i++) {
if(tree->child[i] == -1) {
}
//every one receives as many messages as it has children
requests = xbt_new(MPI_Request, tree->numChildren);
- DEBUG2("<%d> creates %d requests (1 per child)\n", rank, tree->numChildren);
+ DEBUG2("<%d> creates %d requests (1 per child)", rank, tree->numChildren);
for(i = 0; i < tree->numChildren; i++) {
if(tree->child[i] == -1) {
requests[i] = MPI_REQUEST_NULL;