0324fdb407
status structure or the _ucount field in the status structure. On 64-bit sparc, the macros resolve into integer array assignments. For all others, they are just simple assignments. This fixes possible BUS errors seen when running on the SPARC processor. This bug was introduced when the _count field changed from an int into a size_t. See the changes to request.h for additional details. This commit fixes trac:2514. This commit was SVN r23554. The following Trac tickets were found above: Ticket 2514 --> https://svn.open-mpi.org/trac/ompi/ticket/2514
76 строки
2.6 KiB
C
76 строки
2.6 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2006 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* Copyright (c) 2009-2010 Oracle and/or its affiliates. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
#include "ompi/request/request.h"
|
|
#include "pml_dr_recvreq.h"
|
|
|
|
|
|
int mca_pml_dr_iprobe(int src,
|
|
int tag,
|
|
struct ompi_communicator_t *comm,
|
|
int *matched, ompi_status_public_t * status)
|
|
{
|
|
int rc = OMPI_SUCCESS;
|
|
mca_pml_dr_recv_request_t recvreq;
|
|
|
|
OBJ_CONSTRUCT( &recvreq, mca_pml_dr_recv_request_t );
|
|
recvreq.req_recv.req_base.req_ompi.req_type = OMPI_REQUEST_PML;
|
|
recvreq.req_recv.req_base.req_type = MCA_PML_REQUEST_IPROBE;
|
|
|
|
MCA_PML_DR_RECV_REQUEST_INIT(&recvreq, NULL, 0, &ompi_mpi_char.dt, src, tag, comm, true);
|
|
MCA_PML_DR_RECV_REQUEST_START(&recvreq);
|
|
|
|
if( recvreq.req_recv.req_base.req_ompi.req_complete == true ) {
|
|
if( NULL != status ) {
|
|
OMPI_STATUS_SET(status, &recvreq.req_recv.req_base.req_ompi.req_status);
|
|
}
|
|
*matched = 1;
|
|
} else {
|
|
*matched = 0;
|
|
opal_progress();
|
|
}
|
|
MCA_PML_BASE_RECV_REQUEST_FINI( &recvreq.req_recv );
|
|
return rc;
|
|
}
|
|
|
|
|
|
int mca_pml_dr_probe(int src,
|
|
int tag,
|
|
struct ompi_communicator_t *comm,
|
|
ompi_status_public_t * status)
|
|
{
|
|
mca_pml_dr_recv_request_t recvreq;
|
|
|
|
OBJ_CONSTRUCT( &recvreq, mca_pml_dr_recv_request_t );
|
|
recvreq.req_recv.req_base.req_ompi.req_type = OMPI_REQUEST_PML;
|
|
recvreq.req_recv.req_base.req_type = MCA_PML_REQUEST_PROBE;
|
|
|
|
MCA_PML_DR_RECV_REQUEST_INIT(&recvreq, NULL, 0, &ompi_mpi_char.dt, src, tag, comm, true);
|
|
MCA_PML_DR_RECV_REQUEST_START(&recvreq);
|
|
|
|
ompi_request_wait_completion(&recvreq.req_recv.req_base.req_ompi);
|
|
|
|
if (NULL != status) {
|
|
OMPI_STATUS_SET(status, &recvreq.req_recv.req_base.req_ompi.req_status);
|
|
}
|
|
MCA_PML_BASE_RECV_REQUEST_FINI( &recvreq.req_recv );
|
|
return OMPI_SUCCESS;
|
|
}
|