int MPIR_Ibsend_impl(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPIR_Comm *comm_ptr, MPI_Request *request) { int mpi_errno = MPI_SUCCESS; MPIR_Request *request_ptr, *new_request_ptr; ibsend_req_info *ibinfo=0; /* We don't try tbsend in for MPI_Ibsend because we must create a request even if we can send the message */ mpi_errno = MPIR_Bsend_isend( buf, count, datatype, dest, tag, comm_ptr, IBSEND, &request_ptr ); if (mpi_errno != MPI_SUCCESS) goto fn_fail; MPII_SENDQ_REMEMBER(request_ptr, dest, tag, comm_ptr->context_id); /* FIXME: use the memory management macros */ ibinfo = (ibsend_req_info *)MPL_malloc( sizeof(ibsend_req_info) ); ibinfo->req = request_ptr; ibinfo->cancelled = 0; mpi_errno = MPIR_Grequest_start_impl( MPIR_Ibsend_query, MPIR_Ibsend_free, MPIR_Ibsend_cancel, ibinfo, &new_request_ptr ); if (mpi_errno) MPIR_ERR_POP(mpi_errno); /* The request is immediately complete because the MPIR_Bsend_isend has already moved the data out of the user's buffer */ MPIR_Grequest_complete_impl(new_request_ptr); MPIR_OBJ_PUBLISH_HANDLE(*request, new_request_ptr->handle); fn_exit: return mpi_errno; fn_fail: goto fn_exit; }
/*@ MPI_Grequest_complete - Notify MPI that a user-defined request is complete Input Parameter: . request - Generalized request to mark as complete .N ThreadSafe .N Fortran .N Errors .N MPI_SUCCESS .seealso: MPI_Grequest_start @*/ int MPI_Grequest_complete( MPI_Request request ) { int mpi_errno = MPI_SUCCESS; MPID_Request *request_ptr; MPID_MPI_STATE_DECL(MPID_STATE_MPI_GREQUEST_COMPLETE); MPIR_ERRTEST_INITIALIZED_ORDIE(); MPIU_THREAD_CS_ENTER(ALLFUNC,); MPID_MPI_FUNC_ENTER(MPID_STATE_MPI_GREQUEST_COMPLETE); /* Validate handle parameters needing to be converted */ # ifdef HAVE_ERROR_CHECKING { MPID_BEGIN_ERROR_CHECKS; { MPIR_ERRTEST_REQUEST(request, mpi_errno); if (mpi_errno) goto fn_fail; } MPID_END_ERROR_CHECKS; } # endif /* HAVE_ERROR_CHECKING */ /* Convert MPI object handles to object pointers */ MPID_Request_get_ptr( request, request_ptr ); /* Validate parameters if error checking is enabled */ # ifdef HAVE_ERROR_CHECKING { MPID_BEGIN_ERROR_CHECKS; { MPID_Request_valid_ptr(request_ptr,mpi_errno); if (request_ptr && request_ptr->kind != MPID_UREQUEST) { mpi_errno = MPIR_Err_create_code( MPI_SUCCESS, MPIR_ERR_RECOVERABLE, FCNAME, __LINE__, MPI_ERR_ARG, "**notgenreq", 0 ); } if (mpi_errno) goto fn_fail; } MPID_END_ERROR_CHECKS; } # endif /* HAVE_ERROR_CHECKING */ /* ... body of routine ... */ MPIR_Grequest_complete_impl(request_ptr); /* ... end of body of routine ... */ #ifdef HAVE_ERROR_CHECKING fn_exit: #endif MPID_MPI_FUNC_EXIT(MPID_STATE_MPI_GREQUEST_COMPLETE); MPIU_THREAD_CS_EXIT(ALLFUNC,); return mpi_errno; /* --BEGIN ERROR HANDLING-- */ # ifdef HAVE_ERROR_CHECKING fn_fail: { mpi_errno = MPIR_Err_create_code( mpi_errno, MPIR_ERR_RECOVERABLE, FCNAME, __LINE__, MPI_ERR_OTHER, "**mpi_grequest_complete", "**mpi_grequest_complete %R", request); } mpi_errno = MPIR_Err_return_comm( NULL, FCNAME, mpi_errno ); goto fn_exit; # endif /* --END ERROR HANDLING-- */ }