2b4b754925
* Combine polling of the long requests and buffer requests into
one type, and in one place
* Associate the list of 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. Not the best, but without some asynch notification
from the PML that a given set of requests has completed, there
isn't much better
* 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 futher 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 r14703.
51 строка
1.5 KiB
C
51 строка
1.5 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$
|
|
*
|
|
* 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_pt2pt_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_pt2pt_op_create(int op_id)
|
|
{
|
|
ompi_op_t *op = MPI_Op_f2c(op_id);
|
|
OBJ_RETAIN(op);
|
|
return op;
|
|
}
|
|
|
|
|
|
int ompi_osc_pt2pt_process_op(ompi_osc_pt2pt_module_t *module,
|
|
ompi_osc_pt2pt_send_header_t *header,
|
|
struct ompi_datatype_t *datatype,
|
|
ompi_op_t *op,
|
|
void *inbuf,
|
|
size_t inbuflen);
|