- Add parameter checking as required by the standard.
This commit was SVN r12318.
Этот коммит содержится в:
родитель
9024c5be4b
Коммит
5861ed865d
@ -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);
|
||||
}
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user