[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2a2-168-g13b62b9
Service Account
noreply at mpich.org
Mon Feb 23 14:01:48 CST 2015
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "MPICH primary repository".
The branch, master has been updated
via 13b62b9fa5e12a5008dbccee530ae65c1a3ea954 (commit)
from ebe4354c2d26c6ba3a9aeab2f915b90329acf81a (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
http://git.mpich.org/mpich.git/commitdiff/13b62b9fa5e12a5008dbccee530ae65c1a3ea954
commit 13b62b9fa5e12a5008dbccee530ae65c1a3ea954
Author: Wesley Bland <wbland at anl.gov>
Date: Fri Feb 20 16:13:42 2015 -0600
Clear error bits in MPIC functions
When an operation is completed in an MPIC function, it should no longer
have the error bits set since that information has now been captured in
the errflag. This prevents unnecessary assert failures.
Signed-off-by: Huiwei Lu <huiweilu at mcs.anl.gov>
diff --git a/src/mpi/coll/helper_fns.c b/src/mpi/coll/helper_fns.c
index 1e5daa4..62c81df 100644
--- a/src/mpi/coll/helper_fns.c
+++ b/src/mpi/coll/helper_fns.c
@@ -231,6 +231,8 @@ int MPIC_Wait(MPID_Request * request_ptr, mpir_errflag_t *errflag)
if (request_ptr->kind == MPID_REQUEST_RECV)
MPIR_Process_status(&request_ptr->status, errflag);
+ MPIR_TAG_CLEAR_ERROR_BITS(request_ptr->status.MPI_TAG);
+
fn_exit:
MPIU_DBG_MSG_D(PT2PT, TYPICAL, "OUT: errflag = %d", *errflag);
MPIDI_PT2PT_FUNC_EXIT(MPID_STATE_MPIC_WAIT);
@@ -359,6 +361,8 @@ int MPIC_Recv(void *buf, int count, MPI_Datatype datatype, int source, int tag,
MPID_Request_release(request_ptr);
} else {
MPIR_Process_status(status, errflag);
+
+ MPIR_TAG_CLEAR_ERROR_BITS(status->MPI_TAG);
}
if (MPI_SUCCESS == MPIR_ERR_GET_CLASS(status->MPI_ERROR)) {
@@ -768,6 +772,8 @@ int MPIC_Waitall(int numreq, MPID_Request *requests[], MPI_Status statuses[], mp
* single time, we may have to change that. */
for (i = 0; i < numreq; ++i) {
MPIR_Process_status(&status_array[i], errflag);
+
+ MPIR_TAG_CLEAR_ERROR_BITS(status_array[i].MPI_TAG);
}
fn_exit:
-----------------------------------------------------------------------
Summary of changes:
src/mpi/coll/helper_fns.c | 6 ++++++
1 files changed, 6 insertions(+), 0 deletions(-)
hooks/post-receive
--
MPICH primary repository
More information about the commits
mailing list