Fortran: fix OMPI_GENERATE_F77_BINDINGS macro invokation
Some parameters were ommited and compilation failed if configured with --disable-weak-symbols cmr=v1.8.2:ticket=trac:4736 This commit was SVN r32064. The following Trac tickets were found above: Ticket 4736 --> https://svn.open-mpi.org/trac/ompi/ticket/4736
Этот коммит содержится в:
родитель
34e5573988
Коммит
d1f5d9f675
@ -37,7 +37,8 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_ALLOCATE_SHARED,
|
||||
pompi_win_allocate_shared_f,
|
||||
(MPI_Aint *size, MPI_Fint *disp_unit,
|
||||
MPI_Fint *info, MPI_Fint *comm, char *baseptr,
|
||||
MPI_Fint *win, MPI_Fint *ierr)
|
||||
MPI_Fint *win, MPI_Fint *ierr),
|
||||
(size, disp_unit, info, comm, baseptr, win, ierr) )
|
||||
#endif
|
||||
|
||||
#if OPAL_HAVE_WEAK_SYMBOLS
|
||||
@ -58,7 +59,8 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_ALLOCATE_SHARED,
|
||||
ompi_win_allocate_shared_f,
|
||||
(MPI_Aint *size, MPI_Fint *disp_unit,
|
||||
MPI_Fint *info, MPI_Fint *comm, char *baseptr,
|
||||
MPI_Fint *win, MPI_Fint *ierr)
|
||||
MPI_Fint *win, MPI_Fint *ierr),
|
||||
(size, disp_unit, info, comm, baseptr, win, ierr) )
|
||||
#endif
|
||||
|
||||
|
||||
|
@ -37,7 +37,8 @@ OMPI_GENERATE_F77_BINDINGS (PMPI_WIN_SHARED_QUERY,
|
||||
pompi_win_shared_query_f,
|
||||
(MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
|
||||
MPI_Fint *disp_unit, char *baseptr,
|
||||
MPI_Fint *ierr)
|
||||
MPI_Fint *ierr),
|
||||
(win, rank, size, disp_unit, baseptr, ierr) )
|
||||
#endif
|
||||
|
||||
#if OPAL_HAVE_WEAK_SYMBOLS
|
||||
@ -58,7 +59,8 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SHARED_QUERY,
|
||||
ompi_win_shared_query_f,
|
||||
(MPI_Fint *win, MPI_Fint *rank, MPI_Aint *size,
|
||||
MPI_Fint *disp_unit, char *baseptr,
|
||||
MPI_Fint *ierr)
|
||||
MPI_Fint *ierr),
|
||||
(win, rank, size, disp_unit, baseptr, ierr) )
|
||||
#endif
|
||||
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user