b1d2424013
complete, but stable enough that it will have no impact on general development, so into the trunk it goes. Changes in this commit include: - Remove the --with option for disabling MPI-2 onesided support. It complicated code, and has no real reason for existing - add a framework osc (OneSided Communication) for encapsulating all the MPI-2 onesided functionality - Modify the MPI interface functions for the MPI-2 onesided chapter to properly call the underlying framework and do the required error checking - Created an osc component pt2pt, which is layered over the BML/BTL for communication (although it also uses the PML for long message transfers). Currently, all support functions, all communication functions (Put, Get, Accumulate), and the Fence synchronization function are implemented. The PWSC active synchronization functions and Lock/Unlock passive synchronization functions are still not implemented This commit was SVN r8836.
76 строки
2.3 KiB
C
76 строки
2.3 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$
|
|
*/
|
|
|
|
#ifndef OSC_PT2PT_LONGREQ_H
|
|
#define OSC_PT2PT_LONGREQ_H
|
|
|
|
#include "osc_pt2pt.h"
|
|
|
|
#include "opal/class/opal_list.h"
|
|
#include "opal/class/opal_free_list.h"
|
|
#include "ompi/request/request.h"
|
|
|
|
struct ompi_osc_pt2pt_longreq_t;
|
|
typedef struct ompi_osc_pt2pt_longreq_t ompi_osc_pt2pt_longreq_t;
|
|
|
|
typedef void (*ompi_osc_pt2pt_longreq_comp_cb_t)(ompi_osc_pt2pt_longreq_t *longreq);
|
|
|
|
struct ompi_osc_pt2pt_longreq_t {
|
|
opal_list_item_t super;
|
|
|
|
/* warning - this doesn't always have a sane value */
|
|
ompi_osc_pt2pt_module_t *req_module;
|
|
|
|
ompi_request_t *req_pml_req;
|
|
ompi_osc_pt2pt_longreq_comp_cb_t req_comp_cb;
|
|
|
|
/* general storage place - usually holds a request of some type */
|
|
void *req_comp_cbdata;
|
|
|
|
/* for long receives, to avoid a longrecvreq type */
|
|
/* BWB - I don't like this, but I don't want another free list. What to do? */
|
|
struct ompi_op_t *req_op;
|
|
struct ompi_datatype_t *req_datatype;
|
|
};
|
|
OBJ_CLASS_DECLARATION(ompi_osc_pt2pt_longreq_t);
|
|
|
|
static inline int
|
|
ompi_osc_pt2pt_longreq_alloc(ompi_osc_pt2pt_longreq_t **longreq)
|
|
{
|
|
opal_list_item_t *item;
|
|
int ret;
|
|
|
|
OPAL_THREAD_LOCK(&mca_osc_pt2pt_component.p2p_c_lock);
|
|
OPAL_FREE_LIST_GET(&mca_osc_pt2pt_component.p2p_c_longreqs,
|
|
item, ret);
|
|
OPAL_THREAD_UNLOCK(&mca_osc_pt2pt_component.p2p_c_lock);
|
|
|
|
*longreq = (ompi_osc_pt2pt_longreq_t*) item;
|
|
return ret;
|
|
}
|
|
|
|
static inline int
|
|
ompi_osc_pt2pt_longreq_free(ompi_osc_pt2pt_longreq_t *longreq)
|
|
{
|
|
OPAL_THREAD_LOCK(&mca_osc_pt2pt_component.p2p_c_lock);
|
|
OPAL_FREE_LIST_RETURN(&mca_osc_pt2pt_component.p2p_c_longreqs,
|
|
(opal_list_item_t*) longreq);
|
|
OPAL_THREAD_UNLOCK(&mca_osc_pt2pt_component.p2p_c_lock);
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
#endif
|