From a9010be2e5438593e71af415111fd018a5e9f8a8 Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Wed, 22 Sep 2004 21:31:17 +0000 Subject: [PATCH] Minor cleanups and additional comments for attribute stuff This commit was SVN r2807. --- src/mpi/c/attr_get.c | 2 ++ src/mpi/c/comm_get_attr.c | 5 ++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/mpi/c/attr_get.c b/src/mpi/c/attr_get.c index db23e69693..59886e9d38 100644 --- a/src/mpi/c/attr_get.c +++ b/src/mpi/c/attr_get.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); } diff --git a/src/mpi/c/comm_get_attr.c b/src/mpi/c/comm_get_attr.c index cefe88455e..bd398bc635 100644 --- a/src/mpi/c/comm_get_attr.c +++ b/src/mpi/c/comm_get_attr.c @@ -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); }