1a9f48c89d
r14703 for the point-to-point component. * Associate the list of long message requests to poll with the component, not the individual modules * add progress thread that sits on the OMPI request structure and wakes up at the appropriate time to poll the message list to move long messages asynchronously. * Instead of calling opal_progress() all over the place, move to using the condition variables like the rest of the project. Has the advantage of moving it slightly further along in the becoming thread safe thing. * Fix a problem with the passive side of unlock where it could go recursive and cause all kinds of problems, especially when progress threads are used. Instead, have two parts of passive unlock -- one to start the unlock, and another to complete the lock and send the ack back. The data moving code trips the second at the right time. This commit was SVN r14751. The following SVN revision numbers were found above: r14703 --> open-mpi/ompi@2b4b754925
75 строки
2.2 KiB
C
75 строки
2.2 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* Copyright (c) 2007 Los Alamos National Security, LLC. All rights
|
|
* reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
/*
|
|
* utility functions for dealing with remote datatype and op structures
|
|
*/
|
|
|
|
#include "mpi.h"
|
|
|
|
#include "ompi/datatype/datatype.h"
|
|
|
|
static inline
|
|
struct ompi_datatype_t*
|
|
ompi_osc_rdma_datatype_create(ompi_proc_t *remote_proc, void **payload)
|
|
{
|
|
struct ompi_datatype_t *datatype =
|
|
ompi_ddt_create_from_packed_description(payload, remote_proc);
|
|
if (ompi_ddt_is_predefined(datatype)) OBJ_RETAIN(datatype);
|
|
return datatype;
|
|
}
|
|
|
|
static inline
|
|
ompi_op_t *
|
|
ompi_osc_rdma_op_create(int op_id)
|
|
{
|
|
ompi_op_t *op = MPI_Op_f2c(op_id);
|
|
OBJ_RETAIN(op);
|
|
return op;
|
|
}
|
|
|
|
|
|
int ompi_osc_rdma_process_op(ompi_osc_rdma_module_t *module,
|
|
ompi_osc_rdma_send_header_t *header,
|
|
struct ompi_datatype_t *datatype,
|
|
ompi_op_t *op,
|
|
void *inbuf,
|
|
size_t inbuflen);
|
|
|
|
/**
|
|
* Convert a window index number into a module instance.
|
|
*/
|
|
static inline ompi_osc_rdma_module_t*
|
|
ompi_osc_rdma_windx_to_module(uint32_t windx)
|
|
{
|
|
int ret;
|
|
ompi_osc_rdma_module_t *module;
|
|
|
|
/* find the right module and dispatch */
|
|
ret = opal_hash_table_get_value_uint32(&mca_osc_rdma_component.c_modules,
|
|
windx,
|
|
(void**) (&module));
|
|
if (OMPI_SUCCESS != ret) {
|
|
opal_output(0, "Could not translate windx %d to a local MPI_Win instance",
|
|
windx);
|
|
return NULL;
|
|
}
|
|
|
|
return module;
|
|
}
|