1
1

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
Этот коммит содержится в:
Gilles Gouaillardet 2014-06-23 02:10:35 +00:00
родитель 34e5573988
Коммит d1f5d9f675
2 изменённых файлов: 8 добавлений и 4 удалений

Просмотреть файл

@ -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