[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.2a2-168-g13b62b9

[Service Account]

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