1
1

- Add parameter checking as required by the standard.

This commit was SVN r12318.
Этот коммит содержится в:
Sven Stork 2006-10-26 09:18:21 +00:00
родитель 9024c5be4b
Коммит 5861ed865d
3 изменённых файлов: 12 добавлений и 0 удалений

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

@ -59,6 +59,10 @@ int MPI_Accumulate(void *origin_addr, int origin_count, MPI_Datatype origin_data
rc = MPI_ERR_OP;
} else if (!ompi_win_comm_allowed(win)) {
rc = MPI_ERR_RMA_SYNC;
} else if ( target_disp < 0 ) {
rc = MPI_ERR_DISP;
} else if ( (origin_count < 0) || (target_count < 0) ) {
rc = MPI_ERR_COUNT;
} else {
OMPI_CHECK_DATATYPE_FOR_SEND(rc, origin_datatype, origin_count);
}

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

@ -55,6 +55,10 @@ int MPI_Get(void *origin_addr, int origin_count,
rc = MPI_ERR_RANK;
} else if (!ompi_win_comm_allowed(win)) {
rc = MPI_ERR_RMA_SYNC;
} else if ( target_disp < 0 ) {
rc = MPI_ERR_DISP;
} else if ( (origin_count < 0) || (target_count < 0) ) {
rc = MPI_ERR_COUNT;
} else {
OMPI_CHECK_DATATYPE_FOR_SEND(rc, origin_datatype, origin_count);
}

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

@ -54,6 +54,10 @@ int MPI_Put(void *origin_addr, int origin_count, MPI_Datatype origin_datatype,
rc = MPI_ERR_RANK;
} else if (!ompi_win_comm_allowed(win)) {
rc = MPI_ERR_RMA_SYNC;
} else if ( target_disp < 0 ) {
rc = MPI_ERR_DISP;
} else if ( (origin_count < 0) || (target_count < 0) ) {
rc = MPI_ERR_COUNT;
} else {
OMPI_CHECK_DATATYPE_FOR_SEND(rc, origin_datatype, origin_count);
}