10612bef8a
This commit fixes trac:1378. This commit was SVN r19309. The following Trac tickets were found above: Ticket 1378 --> https://svn.open-mpi.org/trac/ompi/ticket/1378
29 строки
1.5 KiB
C
29 строки
1.5 KiB
C
#ifndef MCA_BTL_SM_FIFO_H
|
|
#define MCA_BTL_SM_FIFO_H
|
|
|
|
#include "btl_sm.h"
|
|
#include "btl_sm_endpoint.h"
|
|
|
|
#define MCA_BTL_SM_FIFO_WRITE(endpoint_peer, my_smp_rank, \
|
|
peer_smp_rank, hdr, resend, rc) \
|
|
do { \
|
|
ompi_fifo_t* fifo; \
|
|
fifo=&(mca_btl_sm_component.fifo[peer_smp_rank][my_smp_rank]); \
|
|
\
|
|
/* thread lock */ \
|
|
if(opal_using_threads()) \
|
|
opal_atomic_lock(fifo->head_lock); \
|
|
/* post fragment */ \
|
|
if(ompi_fifo_write_to_head(hdr, fifo) != OMPI_SUCCESS) { \
|
|
btl_sm_add_pending(endpoint_peer, hdr, resend); \
|
|
rc = OMPI_ERR_RESOURCE_BUSY; \
|
|
} else { \
|
|
MCA_BTL_SM_SIGNAL_PEER(endpoint_peer); \
|
|
rc = OMPI_SUCCESS; \
|
|
} \
|
|
if(opal_using_threads()) \
|
|
opal_atomic_unlock(fifo->head_lock); \
|
|
} while(0)
|
|
|
|
#endif
|