ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Minor fix -- double check that status isn't MPI_STATUS_IGNORE before

Просмотр исходного кода 
assigning to it

This commit was SVN r2351.
Этот коммит содержится в:
Jeff Squyres 2004-08-28 08:46:36 +00:00
родитель 9a96a9cb80
Коммит c704267665
1 изменённых файлов: 6 добавлений и 5 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

11
src/mpi/c/sendrecv.c
Просмотреть файл

@ -71,11 +71,12 @@ int MPI_Sendrecv(void *sendbuf, int sendcount, MPI_Datatype recvtype,
rc = mca_pml.pml_wait(1, &req, NULL, status); rc = mca_pml.pml_wait(1, &req, NULL, status);
} else { } else {
if (MPI_STATUS_IGNORE != status) {
status->MPI_ERROR = MPI_SUCCESS; status->MPI_ERROR = MPI_SUCCESS;
status->MPI_SOURCE = MPI_PROC_NULL; status->MPI_SOURCE = MPI_PROC_NULL;
status->MPI_TAG = MPI_ANY_TAG; status->MPI_TAG = MPI_ANY_TAG;
status->_count = 0; status->_count = 0;
}
rc = MPI_SUCCESS; rc = MPI_SUCCESS;
} }
OMPI_ERRHANDLER_RETURN(rc, comm, rc, FUNC_NAME); OMPI_ERRHANDLER_RETURN(rc, comm, rc, FUNC_NAME);