/* * $HEADER$ */ #include "ompi_config.h" #include #include "mpi.h" #include "mpi/c/bindings.h" #include "mca/pml/pml.h" #include "mca/pml/base/pml_base_bsend.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES #pragma weak MPI_Buffer_detach = PMPI_Buffer_detach #endif #if OMPI_PROFILING_DEFINES #include "mpi/c/profile/defines.h" #endif static const char FUNC_NAME[] = "MPI_Buffer_detach"; int MPI_Buffer_detach(void *buffer, int *size) { if (MPI_PARAM_CHECK) { OMPI_ERR_INIT_FINALIZE(FUNC_NAME); if (NULL == buffer || NULL == size || *size < 0) { return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_ARG, FUNC_NAME); } } return mca_pml_base_bsend_detach(buffer, size); }