Minor cleanups and additional comments for attribute stuff
This commit was SVN r2807.
Этот коммит содержится в:
родитель
d1c3ed046e
Коммит
a9010be2e5
src/mpi/c
@ -31,6 +31,8 @@ int MPI_Attr_get(MPI_Comm comm, int keyval, void *attribute_val, int *flag)
|
||||
}
|
||||
}
|
||||
|
||||
/* This stuff is very confusing. Be sure to see MPI-2 4.12.7. */
|
||||
|
||||
ret = ompi_attr_get(comm->c_keyhash, keyval, attribute_val, flag);
|
||||
OMPI_ERRHANDLER_RETURN(ret, comm, ret, FUNC_NAME);
|
||||
}
|
||||
|
@ -27,13 +27,12 @@ int MPI_Comm_get_attr(MPI_Comm comm, int comm_keyval,
|
||||
if (MPI_PARAM_CHECK) {
|
||||
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
|
||||
if ((NULL == attribute_val) || (NULL == flag)) {
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
|
||||
FUNC_NAME);
|
||||
return OMPI_ERRHANDLER_INVOKE(comm, MPI_ERR_ARG, FUNC_NAME);
|
||||
}
|
||||
}
|
||||
|
||||
ret = ompi_attr_get(comm->c_keyhash, comm_keyval,
|
||||
attribute_val, flag);
|
||||
attribute_val, flag);
|
||||
|
||||
OMPI_ERRHANDLER_RETURN(ret, comm, MPI_ERR_OTHER, FUNC_NAME);
|
||||
}
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user