From b113c052994d9c4ffdf4b886b65f733fcb66b556 Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Wed, 17 Jul 2013 15:31:41 +0200 Subject: [PATCH] add one binding --- src/smpi/private.h | 1 + src/smpi/smpi_f77.c | 4 ++++ src/smpi/smpi_mpi.c | 4 ++++ src/smpi/smpi_pmpi.c | 4 ++++ 4 files changed, 13 insertions(+) diff --git a/src/smpi/private.h b/src/smpi/private.h index 0a63808f69..864cb33359 100644 --- a/src/smpi/private.h +++ b/src/smpi/private.h @@ -458,6 +458,7 @@ void mpi_errhandler_free_ (void* errhandler, int* ierr) ; void mpi_errhandler_get_ (int* comm, void* errhandler, int* ierr) ; void mpi_errhandler_set_ (int* comm, void* errhandler, int* ierr) ; void mpi_comm_set_errhandler_ (int* comm, void* errhandler, int* ierr) ; +void mpi_comm_get_errhandler_ (int* comm, void* errhandler, int* ierr) ; void mpi_type_contiguous_ (int* count, int* old_type, int* newtype, int* ierr) ; void mpi_cancel_ (int* request, int* ierr) ; void mpi_buffer_attach_ (void* buffer, int* size, int* ierr) ; diff --git a/src/smpi/smpi_f77.c b/src/smpi/smpi_f77.c index dbd1895a8e..61d4b4639c 100644 --- a/src/smpi/smpi_f77.c +++ b/src/smpi/smpi_f77.c @@ -1117,6 +1117,10 @@ void mpi_comm_set_errhandler_ (int* comm, void* errhandler, int* ierr) { *ierr = MPI_Errhandler_set(get_comm(*comm), *(MPI_Errhandler*)errhandler); } +void mpi_comm_get_errhandler_ (int* comm, void* errhandler, int* ierr) { + *ierr = MPI_Errhandler_set(get_comm(*comm), (MPI_Errhandler*)errhandler); +} + void mpi_type_contiguous_ (int* count, int* old_type, int* newtype, int* ierr) { MPI_Datatype tmp; *ierr = MPI_Type_contiguous(*count, get_datatype(*old_type), &tmp); diff --git a/src/smpi/smpi_mpi.c b/src/smpi/smpi_mpi.c index c3dd85ed92..433668d8bd 100644 --- a/src/smpi/smpi_mpi.c +++ b/src/smpi/smpi_mpi.c @@ -615,6 +615,10 @@ int MPI_Comm_set_errhandler(MPI_Comm comm, MPI_Errhandler errhandler) { return PMPI_Errhandler_set(comm, errhandler); } +int MPI_Comm_get_errhandler(MPI_Comm comm, MPI_Errhandler* errhandler) { + return PMPI_Errhandler_set(comm, errhandler); +} + int MPI_Type_contiguous(int count, MPI_Datatype old_type, MPI_Datatype* newtype) { return PMPI_Type_contiguous(count, old_type, newtype); } diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c index 59083e60e8..345e128622 100644 --- a/src/smpi/smpi_pmpi.c +++ b/src/smpi/smpi_pmpi.c @@ -2563,6 +2563,10 @@ int PMPI_Comm_set_errhandler(MPI_Comm comm, MPI_Errhandler errhandler) { NOT_YET_IMPLEMENTED } +int PMPI_Comm_get_errhandler(MPI_Comm comm, MPI_Errhandler* errhandler) { + NOT_YET_IMPLEMENTED +} + int PMPI_Cancel(MPI_Request* request) { NOT_YET_IMPLEMENTED } -- 2.30.2