[mpich2-commits] r6639 - mpich2/trunk/src/mpi/errhan

[goodell at mcs.anl.gov]

Author: goodell
Date: 2010-05-10 21:58:32 -0500 (Mon, 10 May 2010)
New Revision: 6639

Modified:
   mpich2/trunk/src/mpi/errhan/comm_set_errhandler.c
Log:
MPI_Comm_set_errhandler was not acquiring/releasing the ALLFUNC CS

There are probably other places like this out there, a systematic sweep
needs to be done at some point.

No reviewer.

Modified: mpich2/trunk/src/mpi/errhan/comm_set_errhandler.c
===================================================================
--- mpich2/trunk/src/mpi/errhan/comm_set_errhandler.c	2010-05-11 02:58:28 UTC (rev 6638)
+++ mpich2/trunk/src/mpi/errhan/comm_set_errhandler.c	2010-05-11 02:58:32 UTC (rev 6639)
@@ -54,10 +54,12 @@
     MPID_Comm *comm_ptr = NULL;
     int in_use;
     MPID_Errhandler *errhan_ptr = NULL;
+    MPIU_THREADPRIV_DECL;
     MPID_MPI_STATE_DECL(MPID_STATE_MPI_COMM_SET_ERRHANDLER);
 
     MPIR_ERRTEST_INITIALIZED_ORDIE();
-    
+
+    MPIU_THREAD_CS_ENTER(ALLFUNC,);
     MPID_MPI_FUNC_ENTER(MPID_STATE_MPI_COMM_SET_ERRHANDLER);
 
     /* Validate parameters, especially handles needing to be converted */
@@ -117,6 +119,7 @@
   fn_exit:
 #endif
     MPID_MPI_FUNC_EXIT(MPID_STATE_MPI_COMM_SET_ERRHANDLER);
+    MPIU_THREAD_CS_EXIT(ALLFUNC,);
     return mpi_errno;
     
     /* --BEGIN ERROR HANDLING-- */