sessions: remove mpi_win_create_from_group

this was not part of the MPI 4.0 standard related to #54 Signed-off-by: Howard Pritchard <howardp@lanl.gov>
hpc · Jun 14, 2021 · f3cbf36 · f3cbf36
1 parent dec89cd
commit f3cbf36
Show file tree

Hide file tree

Showing 5 changed files with 0 additions and 112 deletions.
diff --git a/ompi/include/mpi.h.in b/ompi/include/mpi.h.in
@@ -1985,9 +1985,6 @@ OMPI_DECLSPEC  int MPI_Waitsome(int incount, MPI_Request array_of_requests[],
                                 MPI_Status array_of_statuses[]);
 OMPI_DECLSPEC  int MPI_Win_allocate(MPI_Aint size, int disp_unit, MPI_Info info,
                                     MPI_Comm comm, void *baseptr, MPI_Win *win);
-OMPI_DECLSPEC  int MPI_Win_allocate_from_group (MPI_Aint size, int disp_unit, MPI_Info info,
-                                                MPI_Group group, const char *tag, void *baseptr,
-                                                MPI_Win *win);
 OMPI_DECLSPEC  int MPI_Win_allocate_shared(MPI_Aint size, int disp_unit, MPI_Info info,
                                            MPI_Comm comm, void *baseptr, MPI_Win *win);
 OMPI_DECLSPEC  int MPI_Win_allocate_shared_from_group (MPI_Aint size, int disp_unit, MPI_Info info,
@@ -2710,9 +2707,6 @@ OMPI_DECLSPEC  int PMPI_Waitsome(int incount, MPI_Request array_of_requests[],
                                  MPI_Status array_of_statuses[]);
 OMPI_DECLSPEC  int PMPI_Win_allocate(MPI_Aint size, int disp_unit, MPI_Info info,
                                      MPI_Comm comm, void *baseptr, MPI_Win *win);
-OMPI_DECLSPEC  int PMPI_Win_allocate_from_group (MPI_Aint size, int disp_unit, MPI_Info info,
-                                                 MPI_Group group, const char *tag, void *baseptr,
-                                                 MPI_Win *win);
 OMPI_DECLSPEC  int PMPI_Win_allocate_shared(MPI_Aint size, int disp_unit, MPI_Info info,
                                             MPI_Comm comm, void *baseptr, MPI_Win *win);
 OMPI_DECLSPEC  int PMPI_Win_allocate_shared_from_group (MPI_Aint size, int disp_unit, MPI_Info info,

diff --git a/ompi/mpi/c/Makefile.am b/ompi/mpi/c/Makefile.am
@@ -424,7 +424,6 @@ libmpi_c_mpi_la_SOURCES = \
         get.c \
         put.c \
 	win_allocate.c \
-	win_allocate_from_group.c \
 	win_allocate_shared.c \
 	win_allocate_shared_from_group.c \
 	win_attach.c \

diff --git a/ompi/mpi/c/win_allocate_from_group.c b/ompi/mpi/c/win_allocate_from_group.c
diff --git a/ompi/win/win.c b/ompi/win/win.c
@@ -326,26 +326,6 @@ ompi_win_allocate(size_t size, int disp_unit, opal_info_t *info,
     return OMPI_SUCCESS;
 }
 
-int ompi_win_allocate_from_group (size_t size, int disp_unit, opal_info_t *info, ompi_group_t *group,
-                                  const char *tag, void *baseptr, ompi_win_t** newwin)
-{
-    /* NTH: dummy implementation until the osc modules are updated for group communicator
-    * creation. This implemention will probably continue to exist for modules that do
-    * not provide group-based window creation. */
-    ompi_communicator_t *comm;
-    int rc;
-
-    rc = ompi_comm_create_from_group (group, tag, info, MPI_ERRHANDLER_NULL, &comm);
-    if (OPAL_UNLIKELY(OMPI_SUCCESS == rc)) {
-        return rc;
-    }
-
-    rc = ompi_win_allocate (size, disp_unit, info, comm, baseptr, newwin);
-    ompi_comm_free (&comm);
-    return rc;
-}
-
-
 int
 ompi_win_allocate_shared(size_t size, int disp_unit, opal_info_t *info,
                          ompi_communicator_t *comm, void *baseptr, ompi_win_t **newwin)

diff --git a/ompi/win/win.h b/ompi/win/win.h
@@ -142,9 +142,6 @@ int ompi_win_create_from_group (void *base, size_t size, int disp_unit,
                                 ompi_win_t **newwin);
 int ompi_win_allocate(size_t size, int disp_unit, opal_info_t *info,
                       ompi_communicator_t *comm, void *baseptr, ompi_win_t **newwin);
-int ompi_win_allocate_from_group (size_t size, int disp_unit, opal_info_t *info,
-                                  ompi_group_t *group, const char *tag, void *baseptr,
-                                  ompi_win_t **newwin);
 int ompi_win_allocate_shared(size_t size, int disp_unit, opal_info_t *info,
                       ompi_communicator_t *comm, void *baseptr, ompi_win_t **newwin);
 int ompi_win_allocate_shared_from_group (size_t size, int disp_unit, opal_info_t *info,