1
1

Part 1 of ompi_status_empty. More coming.

This commit was SVN r3357.
Этот коммит содержится в:
Jeff Squyres 2004-10-26 21:55:20 +00:00
родитель 923ece8537
Коммит de5d8c5c11
3 изменённых файлов: 14 добавлений и 4 удалений

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

@ -36,10 +36,13 @@ int ompi_request_test_any(
rptr++;
}
/* Only fall through here if we found nothing */
*index = MPI_UNDEFINED;
*completed = false;
if (MPI_STATUS_IGNORE != status)
*status = ompi_request_null.req_status;
if (MPI_STATUS_IGNORE != status) {
*status = ompi_status_empty;
}
return OMPI_SUCCESS;
}

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

@ -14,6 +14,7 @@ int ompi_request_poll_iterations = 20000;
ompi_mutex_t ompi_request_lock;
ompi_condition_t ompi_request_cond;
ompi_request_t ompi_request_null;
ompi_status_public_t ompi_status_empty;
static void ompi_request_construct(ompi_request_t* req)
@ -71,6 +72,12 @@ int ompi_request_init(void)
if (0 != ompi_request_null.req_f_to_c_index) {
return OMPI_ERR_REQUEST;
}
ompi_status_empty.MPI_SOURCE = MPI_ANY_SOURCE;
ompi_status_empty.MPI_TAG = MPI_ANY_TAG;
ompi_status_empty.MPI_ERROR = MPI_SUCCESS;
ompi_status_empty._count = 0;
return OMPI_SUCCESS;
}

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

@ -129,7 +129,7 @@ OMPI_DECLSPEC extern ompi_mutex_t ompi_request_lock;
OMPI_DECLSPEC extern ompi_condition_t ompi_request_cond;
OMPI_DECLSPEC extern int ompi_request_poll_iterations;
OMPI_DECLSPEC extern ompi_request_t ompi_request_null;
OMPI_DECLSPEC extern ompi_status_public_t ompi_status_empty;
/**
@ -198,7 +198,7 @@ static inline int ompi_request_test(
if (request == MPI_REQUEST_NULL) {
*completed = true;
if (MPI_STATUS_IGNORE != status) {
*status = ompi_request_null.req_status;
*status = ompi_status_empty;
}
return OMPI_SUCCESS;
}