sessions: define mpi_err_session

note this error class not currently used

related to issue open-mpi#10588

Signed-off-by: Howard Pritchard <[email protected]>

Author: hppritcha

docs/man-openmpi/man5/Open-MPI.5.rst

@@ -390,6 +390,10 @@ Standard error return classes for Open MPI:
      - 73
      - The variable or category name is invalid.
 
+   * - MPI_ERR_SESSION
+     - 78
+     - Invalid session
+
    * - MPI_ERR_LASTCODE
      - 93
      - Last error code.

ompi/errhandler/errcode.c

@@ -125,6 +125,7 @@ static ompi_mpi_errcode_t ompi_err_proc_fail_stop;
 static ompi_mpi_errcode_t ompi_err_proc_fail_pending;
 static ompi_mpi_errcode_t ompi_err_revoked;
 #endif
+static ompi_mpi_errcode_t ompi_err_session;
 
 static void ompi_mpi_errcode_construct(ompi_mpi_errcode_t* errcode);
 static void ompi_mpi_errcode_destruct(ompi_mpi_errcode_t* errcode);
@@ -241,6 +242,7 @@ int ompi_mpi_errcode_init (void)
     CONSTRUCT_ERRCODE( ompi_err_proc_fail_pending,  MPI_ERR_PROC_FAILED_PENDING,  "MPI_ERR_PROC_FAILED_PENDING: Process Failure during an MPI_ANY_SOURCE non-blocking receive, request is still active" );
     CONSTRUCT_ERRCODE( ompi_err_revoked,  MPI_ERR_REVOKED,  "MPI_ERR_REVOKED: Communication Object Revoked" );
 #endif
+    CONSTRUCT_ERRCODE( ompi_err_session,  MPI_ERR_SESSION,  "MPI_ERR_SESSION: Invalid session handle" );
 
     /* Per MPI-3 p353:27-32, MPI_LASTUSEDCODE must be >=
        MPI_ERR_LASTCODE.  So just start it as == MPI_ERR_LASTCODE. */
@@ -356,7 +358,7 @@ int ompi_mpi_errcode_finalize (void)
     OBJ_DESTRUCT(&ompi_err_proc_fail_pending);
     OBJ_DESTRUCT(&ompi_err_revoked);
 #endif
-
+    OBJ_DESTRUCT(&ompi_err_session);
     OBJ_DESTRUCT(&ompi_mpi_errcodes);
     ompi_mpi_errcode_lastpredefined = 0;
     opal_mutex_unlock(&errcode_lock);

ompi/include/mpi.h.in

@@ -745,6 +745,7 @@ enum {
 #define MPI_ERR_PROC_FAILED           75
 #define MPI_ERR_PROC_FAILED_PENDING   76
 #define MPI_ERR_REVOKED               77
+#define MPI_ERR_SESSION               78
 
 /* Per MPI-3 p349 47, MPI_ERR_LASTCODE must be >= the last predefined
    MPI_ERR_<foo> code. Set the last code to allow some room for adding

ompi/include/mpif-values.pl

@@ -354,6 +354,7 @@ sub write_file {
 $constants->{MPI_ERR_RMA_FLAVOR} = 70;
 $constants->{MPI_ERR_RMA_SHARED} = 71;
 $constants->{MPI_T_ERR_INVALID} = 72;
+$constants->{MPI_ERR_SESSION} = 78;
 $constants->{MPI_ERR_LASTCODE} = 92;
 
 $constants->{MPI_IDENT} = 0;