1
1

minor fixes to make the trunk compile, if ompi has been configured with the --enable-mpi2-one-sided option

This commit was SVN r6518.
Этот коммит содержится в:
Edgar Gabriel 2005-07-15 13:53:10 +00:00
родитель f57be9425b
Коммит 213be28613
5 изменённых файлов: 8 добавлений и 5 удалений

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

@ -644,7 +644,7 @@ int ompi_attr_delete(ompi_attribute_type_t type, void *object,
#if OMPI_WANT_MPI2_ONE_SIDED
case WIN_ATTR:
DELETE_ATTR_CALLBACKS(win, attre, key_item);
DELETE_ATTR_CALLBACKS(win, attr, key_item);
break;
#endif

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

@ -44,7 +44,7 @@ int MPI_Win_set_attr(MPI_Win win, int win_keyval, void *attribute_val)
}
}
ret = ompi_attr_set(WIN_ATTR, win, &win->w_keyhash,
ret = ompi_attr_set_c(WIN_ATTR, win, &win->w_keyhash,
win_keyval, attribute_val, false, true);
OMPI_ERRHANDLER_RETURN(ret, win, MPI_ERR_OTHER, FUNC_NAME);
}

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

@ -60,7 +60,7 @@ static char FUNC_NAME[] = "MPI_Win_create_keyval";
void mpi_win_create_keyval_f(ompi_mpi2_fortran_copy_attr_function* win_copy_attr_fn,
ompi_mpi2_fortran_delete_attr_function* win_delete_attr_fn,
MPI_F_int *win_keyval, MPI_F_int *extra_state, MPI_F_int *ierr)
MPI_Fint *win_keyval, MPI_Fint *extra_state, MPI_Fint *ierr)
{
int ret, c_err;
ompi_attribute_fn_ptr_union_t copy_fn;

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

@ -67,9 +67,9 @@ void mpi_win_get_attr_f(MPI_Fint *win, MPI_Fint *win_keyval,
the top of src/attributes/attributes.c. */
c_err = ompi_attr_get_fortran_mpi2(c_win->w_keyhash,
OMPI_FINT_2_INT(*keyhash),
OMPI_FINT_2_INT(*win_keyval),
attribute_val,
&c_flag)
&c_flag);
*ierr = OMPI_INT_2_FINT(c_err);
*flag = OMPI_INT_2_FINT(c_flag);
}

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

@ -17,6 +17,9 @@
#include "ompi_config.h"
#include "mpi/f77/bindings.h"
#include "attribute/attribute.h"
#include "win/win.h"
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER
#pragma weak PMPI_WIN_SET_ATTR = mpi_win_set_attr_f