ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Solution to ticket #172. If we received more bytes than we delivered, then

Просмотр исходного кода 
the message was truncated.  So set the error accordingly.

This commit was SVN r10811.
Этот коммит содержится в:
Brian Barrett 2006-07-14 19:36:56 +00:00
родитель 6ed255f114
Коммит 4c5fbfdcd2
1 изменённых файлов: 9 добавлений и 3 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

12
ompi/mca/pml/ob1/pml_ob1_recvreq.h
Просмотреть файл

@ -159,9 +159,15 @@ do {
} else { \
/* initialize request status */ \
recvreq->req_recv.req_base.req_pml_complete = true; \
recvreq->req_recv.req_base.req_ompi.req_status._count = \
(recvreq->req_bytes_received < recvreq->req_bytes_delivered ? \
recvreq->req_bytes_received : recvreq->req_bytes_delivered); \
if (recvreq->req_bytes_received > recvreq->req_bytes_delivered) { \
recvreq->req_recv.req_base.req_ompi.req_status._count = \
recvreq->req_bytes_delivered; \
recvreq->req_recv.req_base.req_ompi.req_status.MPI_ERROR = \
MPI_ERR_TRUNCATE; \
} else { \
recvreq->req_recv.req_base.req_ompi.req_status._count = \
recvreq->req_bytes_received; \
} \
MCA_PML_OB1_RECV_REQUEST_MPI_COMPLETE( recvreq ); \
} \
OPAL_THREAD_UNLOCK(&ompi_request_lock); \