1 /*
2 * Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
3 * University Research and Technology
4 * Corporation. All rights reserved.
5 * Copyright (c) 2004-2006 The University of Tennessee and The University
6 * of Tennessee Research Foundation. All rights
7 * reserved.
8 * Copyright (c) 2004-2008 High Performance Computing Center Stuttgart,
9 * University of Stuttgart. All rights reserved.
10 * Copyright (c) 2004-2005 The Regents of the University of California.
11 * All rights reserved.
12 * Copyright (c) 2015 Research Organization for Information Science
13 * and Technology (RIST). All rights reserved.
14 * $COPYRIGHT$
15 *
16 * Additional copyrights may follow
17 *
18 * $HEADER$
19 */
20
21 #include "ompi_config.h"
22 #include <stdio.h>
23
24 #include "ompi/mpi/c/bindings.h"
25 #include "ompi/runtime/params.h"
26 #include "ompi/communicator/communicator.h"
27 #include "ompi/errhandler/errhandler.h"
28 #include "ompi/attribute/attribute.h"
29 #include "ompi/memchecker.h"
30
31 #if OMPI_BUILD_MPI_PROFILING
32 #if OPAL_HAVE_WEAK_SYMBOLS
33 #pragma weak MPI_Attr_get = PMPI_Attr_get
34 #endif
35 #define MPI_Attr_get PMPI_Attr_get
36 #endif
37
38 static const char FUNC_NAME[] = "MPI_Attr_get";
39
40 int MPI_Attr_get(MPI_Comm comm, int keyval, void *attribute_val, int *flag)
41 {
42 int ret;
43
44 MEMCHECKER(
45 memchecker_comm(comm);
46 );
47
48 if (MPI_PARAM_CHECK) {
49 OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
50 if ((NULL == attribute_val) || (NULL == flag)) {
51 return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG,
52 FUNC_NAME);
53 }
54 }
55
56 OPAL_CR_ENTER_LIBRARY();
57
58 /* This stuff is very confusing. Be sure to see
59 src/attribute/attribute.c for a lengthy comment explaining Open
60 MPI attribute behavior. */
61
62 ret = ompi_attr_get_c(comm->c_keyhash, keyval, (void**)attribute_val, flag);
63 OMPI_ERRHANDLER_RETURN(ret, comm, ret, FUNC_NAME);
64 }
65