3838#define MPI_Sendrecv_replace PMPI_Sendrecv_replace
3939#endif
4040
41- #if OMPI_ENABLE_MPI_PROFILING
42- #define MPI_Alloc_mem PMPI_Alloc_mem
43- #define MPI_Free_mem PMPI_Free_mem
44- #define MPI_Sendrecv PMPI_Sendrecv
45- #endif
46-
4741static const char FUNC_NAME [] = "MPI_Sendrecv_replace" ;
4842
4943
@@ -81,7 +75,7 @@ int MPI_Sendrecv_replace(void * buf, int count, MPI_Datatype datatype,
8175
8276 /* simple case */
8377 if ( source == MPI_PROC_NULL || dest == MPI_PROC_NULL || count == 0 ) {
84- rc = MPI_Sendrecv (buf ,count ,datatype ,dest ,sendtag ,buf ,count ,datatype ,source ,recvtag ,comm ,status );
78+ rc = PMPI_Sendrecv (buf ,count ,datatype ,dest ,sendtag ,buf ,count ,datatype ,source ,recvtag ,comm ,status );
8579
8680 return rc ;
8781 } else {
@@ -106,7 +100,7 @@ int MPI_Sendrecv_replace(void * buf, int count, MPI_Datatype datatype,
106100 /* setup a buffer for recv */
107101 opal_convertor_get_packed_size ( & convertor , & packed_size );
108102 if ( packed_size > sizeof (recv_data ) ) {
109- rc = MPI_Alloc_mem (packed_size , MPI_INFO_NULL , & iov .iov_base );
103+ rc = PMPI_Alloc_mem (packed_size , MPI_INFO_NULL , & iov .iov_base );
110104 if (OMPI_SUCCESS != rc ) {
111105 OMPI_ERRHANDLER_RETURN (OMPI_ERR_OUT_OF_RESOURCE , comm , MPI_ERR_BUFFER , FUNC_NAME );
112106 }
@@ -115,11 +109,11 @@ int MPI_Sendrecv_replace(void * buf, int count, MPI_Datatype datatype,
115109 }
116110
117111 /* recv into temporary buffer */
118- rc = MPI_Sendrecv ( buf , count , datatype , dest , sendtag , iov .iov_base , packed_size ,
112+ rc = PMPI_Sendrecv ( buf , count , datatype , dest , sendtag , iov .iov_base , packed_size ,
119113 MPI_BYTE , source , recvtag , comm , & recv_status );
120114 if (rc != MPI_SUCCESS ) {
121115 if (packed_size > sizeof (recv_data ))
122- MPI_Free_mem (iov .iov_base );
116+ PMPI_Free_mem (iov .iov_base );
123117 OBJ_DESTRUCT (& convertor );
124118 OMPI_ERRHANDLER_RETURN (rc , comm , rc , FUNC_NAME );
125119 }
@@ -137,7 +131,7 @@ int MPI_Sendrecv_replace(void * buf, int count, MPI_Datatype datatype,
137131
138132 /* release resources */
139133 if (packed_size > sizeof (recv_data )) {
140- MPI_Free_mem (iov .iov_base );
134+ PMPI_Free_mem (iov .iov_base );
141135 }
142136 OBJ_DESTRUCT (& convertor );
143137
0 commit comments