2003-11-22 19:36:58 +03:00
|
|
|
/*
|
2004-01-07 11:08:59 +03:00
|
|
|
* $HEADER$
|
2003-11-22 19:36:58 +03:00
|
|
|
*/
|
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
#include "ompi_config.h"
|
2004-01-08 16:42:23 +03:00
|
|
|
|
2003-11-22 19:36:58 +03:00
|
|
|
#include <string.h>
|
|
|
|
|
2004-03-17 21:45:16 +03:00
|
|
|
#include "util/strncpy.h"
|
2004-03-19 00:35:28 +03:00
|
|
|
#include "include/totalview.h"
|
2004-01-11 03:13:58 +03:00
|
|
|
#include "mpi.h"
|
2004-03-17 21:45:16 +03:00
|
|
|
#include "mpi/c/bindings.h"
|
2004-03-26 23:03:38 +03:00
|
|
|
#include "runtime/runtime.h"
|
2004-03-17 21:45:16 +03:00
|
|
|
#include "communicator/communicator.h"
|
2003-11-22 19:36:58 +03:00
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
|
2004-01-15 08:24:14 +03:00
|
|
|
#pragma weak MPI_Comm_set_name = PMPI_Comm_set_name
|
2004-01-08 16:42:23 +03:00
|
|
|
#endif
|
2003-11-22 19:36:58 +03:00
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
#if OMPI_PROFILING_DEFINES
|
2004-04-20 22:50:43 +04:00
|
|
|
#include "mpi/c/profile/defines.h"
|
|
|
|
#endif
|
|
|
|
|
2004-07-30 06:58:53 +04:00
|
|
|
static const char FUNC_NAME[] = "MPI_Comm_set_name";
|
2004-06-23 00:21:35 +04:00
|
|
|
|
|
|
|
|
2004-03-26 23:03:38 +03:00
|
|
|
int MPI_Comm_set_name(MPI_Comm comm, char *name) {
|
2003-11-22 19:36:58 +03:00
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
ompi_communicator_t* comp;
|
2003-11-22 19:36:58 +03:00
|
|
|
|
2004-03-26 23:03:38 +03:00
|
|
|
if ( MPI_PARAM_CHECK ) {
|
2004-06-23 00:21:35 +04:00
|
|
|
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
|
2004-03-26 23:03:38 +03:00
|
|
|
|
2004-07-30 06:58:53 +04:00
|
|
|
if ( MPI_COMM_NULL == comm || ompi_comm_invalid ( comm ) ) {
|
2004-06-07 19:33:53 +04:00
|
|
|
return OMPI_ERRHANDLER_INVOKE ( MPI_COMM_WORLD, MPI_ERR_COMM,
|
2004-06-23 00:21:35 +04:00
|
|
|
FUNC_NAME);
|
2004-07-30 06:58:53 +04:00
|
|
|
}
|
2004-03-26 23:03:38 +03:00
|
|
|
|
2004-07-30 06:58:53 +04:00
|
|
|
if ( NULL == name ) {
|
2004-06-07 19:33:53 +04:00
|
|
|
return OMPI_ERRHANDLER_INVOKE ( comm, MPI_ERR_ARG,
|
2004-06-23 00:21:35 +04:00
|
|
|
FUNC_NAME);
|
2004-07-30 06:58:53 +04:00
|
|
|
}
|
2004-03-26 23:03:38 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
/* -- Thread safety entrance -- */
|
2003-11-22 19:36:58 +03:00
|
|
|
|
2004-03-26 23:03:38 +03:00
|
|
|
/* Copy in the name */
|
2004-06-07 19:33:53 +04:00
|
|
|
comp = (ompi_communicator_t*) comm;
|
2004-03-28 18:25:27 +04:00
|
|
|
|
|
|
|
strncpy(comp->c_name, name, MPI_MAX_OBJECT_NAME);
|
|
|
|
comp->c_name[MPI_MAX_OBJECT_NAME - 1] = 0;
|
2004-06-07 19:33:53 +04:00
|
|
|
comp->c_flags |= OMPI_COMM_NAMEISSET;
|
2004-02-12 07:20:49 +03:00
|
|
|
|
2004-03-26 23:03:38 +03:00
|
|
|
/* -- Tracing information for new communicator name -- */
|
2004-02-12 07:20:49 +03:00
|
|
|
#if 0
|
2003-11-22 19:36:58 +03:00
|
|
|
/* Force TotalView DLL to take note of this name setting */
|
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
++ompi_tv_comm_sequence_number;
|
2004-02-12 07:20:49 +03:00
|
|
|
#endif
|
2003-11-22 19:36:58 +03:00
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
#if OMPI_PROFILING_DEFINES
|
2004-04-20 22:50:43 +04:00
|
|
|
#include "mpi/c/profile/defines.h"
|
|
|
|
#endif
|
|
|
|
|
2003-11-22 19:36:58 +03:00
|
|
|
/* -- Thread safety exit -- */
|
|
|
|
|
|
|
|
return MPI_SUCCESS;
|
|
|
|
}
|