1
1

Fix issues identified by @derbeyn.

Этот коммит содержится в:
George Bosilca 2016-03-29 15:50:32 -04:00
родитель bd18d9c9d5
Коммит 004c0cc05b
3 изменённых файлов: 3 добавлений и 4 удалений

Просмотреть файл

@ -288,8 +288,7 @@ ompi_coll_base_alltoallv_intra_basic_linear(const void *sbuf, const int *scounts
* So free them anyway -- even if there was an error, and return the
* error after we free everything. */
err = ompi_request_wait_all(nreqs, reqs, MPI_STATUSES_IGNORE);
if( MPI_SUCCESS == err )
return MPI_SUCCESS;
err_hndl:
/* Free the requests in all cases as they are persistent */
ompi_coll_base_free_reqs(reqs, nreqs);

Просмотреть файл

@ -100,7 +100,7 @@ mca_coll_basic_alltoall_inter(const void *sbuf, int scount,
MCA_COLL_BASE_TAG_ALLTOALL,
MCA_PML_BASE_SEND_STANDARD, comm, sreq));
if (OMPI_SUCCESS != err) {
ompi_coll_base_free_reqs(req, i + 1);
ompi_coll_base_free_reqs(req, i + size + 1);
return err;
}
}

Просмотреть файл

@ -219,7 +219,7 @@ mca_coll_basic_neighbor_allgather_dist_graph(const void *sbuf, int scount,
rc = ompi_request_wait_all (indegree + outdegree, reqs, MPI_STATUSES_IGNORE);
if (OMPI_SUCCESS != rc) {
ompi_coll_base_free_reqs(reqs, indegree + outdegree + 1);
ompi_coll_base_free_reqs(reqs, indegree + outdegree);
}
return rc;
}