1
1

Minor cleanups and additional comments for attribute stuff

This commit was SVN r2807.
Этот коммит содержится в:
Jeff Squyres 2004-09-22 21:31:17 +00:00
родитель d1c3ed046e
Коммит a9010be2e5
2 изменённых файлов: 4 добавлений и 3 удалений

@ -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);
}