Merge pull request #3102 from omor1/master
Add missing definition of MPI_T_PVAR_SESSION_NULL (resolve #2652)
Этот коммит содержится в:
Коммит
086748bb70
@ -776,6 +776,7 @@ enum {
|
|||||||
*/
|
*/
|
||||||
#define MPI_T_PVAR_ALL_HANDLES ((MPI_T_pvar_handle) -1)
|
#define MPI_T_PVAR_ALL_HANDLES ((MPI_T_pvar_handle) -1)
|
||||||
#define MPI_T_PVAR_HANDLE_NULL ((MPI_T_pvar_handle) 0)
|
#define MPI_T_PVAR_HANDLE_NULL ((MPI_T_pvar_handle) 0)
|
||||||
|
#define MPI_T_PVAR_SESSION_NULL ((MPI_T_pvar_session) 0)
|
||||||
#define MPI_T_CVAR_HANDLE_NULL ((MPI_T_cvar_handle) 0)
|
#define MPI_T_CVAR_HANDLE_NULL ((MPI_T_cvar_handle) 0)
|
||||||
|
|
||||||
/* MPI-2 specifies that the name "MPI_TYPE_NULL_DELETE_FN" (and all
|
/* MPI-2 specifies that the name "MPI_TYPE_NULL_DELETE_FN" (and all
|
||||||
|
@ -23,14 +23,19 @@
|
|||||||
|
|
||||||
int MPI_T_pvar_session_free(MPI_T_pvar_session *session)
|
int MPI_T_pvar_session_free(MPI_T_pvar_session *session)
|
||||||
{
|
{
|
||||||
|
int ret = MPI_SUCCESS;
|
||||||
|
|
||||||
if (!mpit_is_initialized ()) {
|
if (!mpit_is_initialized ()) {
|
||||||
return MPI_T_ERR_NOT_INITIALIZED;
|
return MPI_T_ERR_NOT_INITIALIZED;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (NULL != *session) {
|
/* Check that this is a valid session */
|
||||||
|
if (MPI_T_PVAR_SESSION_NULL == *session) {
|
||||||
|
ret = MPI_T_ERR_INVALID_SESSION;
|
||||||
|
} else {
|
||||||
OBJ_RELEASE(*session);
|
OBJ_RELEASE(*session);
|
||||||
*session = NULL;
|
*session = MPI_T_PVAR_SESSION_NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
return MPI_SUCCESS;
|
return ret;
|
||||||
}
|
}
|
||||||
|
Загрузка…
Ссылка в новой задаче
Block a user