1
1
openmpi/src/mpi/c/errhandler_set.c
Jeff Squyres c3c63b57c4 Arf. Anju and I misunderstood each other yesterday -- the OMPI_EXPORT
thingy needs to go on the *declaration*, not the *definition*.  Well,
at least this was all done en masse and via an automated mechanism, so
total time wasted was only about 15 minutes...

This commit was SVN r2858.
2004-09-24 18:33:36 +00:00

34 строки
679 B
C

/*
* $HEADER$
*/
#include "ompi_config.h"
#include "mpi.h"
#include "mpi/c/bindings.h"
#include "communicator/communicator.h"
#include "errhandler/errhandler.h"
#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
#pragma weak MPI_Errhandler_set = PMPI_Errhandler_set
#endif
#if OMPI_PROFILING_DEFINES
#include "mpi/c/profile/defines.h"
#endif
static const char FUNC_NAME[] = "MPI_Errhandler_set";
int MPI_Errhandler_set(MPI_Comm comm, MPI_Errhandler errhandler)
{
if (MPI_PARAM_CHECK) {
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
}
/* This is a deprecated -- just turn around and call the real
function */
return MPI_Comm_set_errhandler(comm, errhandler);
}