File tree Expand file tree Collapse file tree 2 files changed +9
-3
lines changed Expand file tree Collapse file tree 2 files changed +9
-3
lines changed Original file line number Diff line number Diff line change @@ -776,6 +776,7 @@ enum {
776776 */
777777#define MPI_T_PVAR_ALL_HANDLES ((MPI_T_pvar_handle) -1)
778778#define MPI_T_PVAR_HANDLE_NULL ((MPI_T_pvar_handle) 0)
779+ #define MPI_T_PVAR_SESSION_NULL ((MPI_T_pvar_session) 0)
779780#define MPI_T_CVAR_HANDLE_NULL ((MPI_T_cvar_handle) 0)
780781
781782/* MPI-2 specifies that the name "MPI_TYPE_NULL_DELETE_FN" (and all
Original file line number Diff line number Diff line change 2323
2424int MPI_T_pvar_session_free (MPI_T_pvar_session * session )
2525{
26+ int ret = MPI_SUCCESS ;
27+
2628 if (!mpit_is_initialized ()) {
2729 return MPI_T_ERR_NOT_INITIALIZED ;
2830 }
2931
30- if (NULL != * session ) {
32+ /* Check that this is a valid session */
33+ if (MPI_T_PVAR_SESSION_NULL == * session ) {
34+ ret = MPI_T_ERR_INVALID_SESSION ;
35+ } else {
3136 OBJ_RELEASE (* session );
32- * session = NULL ;
37+ * session = MPI_T_PVAR_SESSION_NULL ;
3338 }
3439
35- return MPI_SUCCESS ;
40+ return ret ;
3641}
You can’t perform that action at this time.
0 commit comments