39bcbe439a
Fortunately the sizes of `ompi_osc_pt2pt_header_put_t` and `ompi_osc_pt2pt_header_get_t` are same. So this doesn't affect the behavior.
1124 строки
45 KiB
C
1124 строки
45 KiB
C
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
|
|
/*
|
|
* 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-2016 Los Alamos National Security, LLC. All rights
|
|
* reserved.
|
|
* Copyright (c) 2010 Cisco Systems, Inc. All rights reserved.
|
|
* Copyright (c) 2012-2013 Sandia National Laboratories. All rights reserved.
|
|
* Copyright (c) 2015 Research Organization for Information Science
|
|
* and Technology (RIST). All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "osc_pt2pt.h"
|
|
#include "osc_pt2pt_request.h"
|
|
#include "osc_pt2pt_header.h"
|
|
#include "osc_pt2pt_frag.h"
|
|
#include "osc_pt2pt_data_move.h"
|
|
|
|
#include "opal_stdint.h"
|
|
#include "ompi/memchecker.h"
|
|
#include "ompi/mca/osc/base/osc_base_obj_convert.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
/* progress an OSC request */
|
|
static int ompi_osc_pt2pt_comm_complete (ompi_request_t *request)
|
|
{
|
|
ompi_osc_pt2pt_module_t *module =
|
|
(ompi_osc_pt2pt_module_t*) request->req_complete_cb_data;
|
|
|
|
OPAL_OUTPUT_VERBOSE((10, ompi_osc_base_framework.framework_output,
|
|
"isend_completion_cb called"));
|
|
|
|
mark_outgoing_completion(module);
|
|
|
|
/* put this request on the garbage colletion list */
|
|
osc_pt2pt_gc_add_request (module, request);
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
static int ompi_osc_pt2pt_req_comm_complete (ompi_request_t *request)
|
|
{
|
|
ompi_osc_pt2pt_request_t *pt2pt_request = (ompi_osc_pt2pt_request_t *) request->req_complete_cb_data;
|
|
|
|
OPAL_OUTPUT_VERBOSE((10, ompi_osc_base_framework.framework_output,
|
|
"ompi_osc_pt2pt_req_comm_complete called tag = %d",
|
|
request->req_status.MPI_TAG));
|
|
|
|
/* update the cbdata for ompi_osc_pt2pt_comm_complete */
|
|
request->req_complete_cb_data = pt2pt_request->module;
|
|
|
|
if (0 == OPAL_THREAD_ADD32(&pt2pt_request->outstanding_requests, -1)) {
|
|
ompi_osc_pt2pt_request_complete (pt2pt_request, request->req_status.MPI_ERROR);
|
|
}
|
|
|
|
return ompi_osc_pt2pt_comm_complete (request);
|
|
}
|
|
|
|
static inline int ompi_osc_pt2pt_data_isend (ompi_osc_pt2pt_module_t *module, const void *buf,
|
|
size_t count, ompi_datatype_t *datatype, int dest,
|
|
int tag, ompi_osc_pt2pt_request_t *request)
|
|
{
|
|
/* increment the outgoing send count */
|
|
ompi_osc_signal_outgoing (module, dest, 1);
|
|
|
|
if (NULL != request) {
|
|
++request->outstanding_requests;
|
|
return ompi_osc_pt2pt_isend_w_cb (buf, count, datatype, dest, tag, module->comm,
|
|
ompi_osc_pt2pt_req_comm_complete, request);
|
|
}
|
|
|
|
return ompi_osc_pt2pt_isend_w_cb (buf, count, datatype, dest, tag, module->comm,
|
|
ompi_osc_pt2pt_comm_complete, module);
|
|
}
|
|
|
|
|
|
static int ompi_osc_pt2pt_dt_send_complete (ompi_request_t *request)
|
|
{
|
|
ompi_datatype_t *datatype = (ompi_datatype_t *) request->req_complete_cb_data;
|
|
ompi_osc_pt2pt_module_t *module = NULL;
|
|
|
|
OBJ_RELEASE(datatype);
|
|
|
|
OPAL_THREAD_LOCK(&mca_osc_pt2pt_component.lock);
|
|
(void) opal_hash_table_get_value_uint32(&mca_osc_pt2pt_component.modules,
|
|
ompi_comm_get_cid(request->req_mpi_object.comm),
|
|
(void **) &module);
|
|
OPAL_THREAD_UNLOCK(&mca_osc_pt2pt_component.lock);
|
|
assert (NULL != module);
|
|
|
|
/* put this request on the garbage colletion list */
|
|
osc_pt2pt_gc_add_request (module, request);
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
/* self communication optimizations */
|
|
static inline int ompi_osc_pt2pt_put_self (ompi_osc_pt2pt_sync_t *pt2pt_sync, const void *source, int source_count,
|
|
ompi_datatype_t *source_datatype, OPAL_PTRDIFF_TYPE target_disp, int target_count,
|
|
ompi_datatype_t *target_datatype, ompi_osc_pt2pt_module_t *module,
|
|
ompi_osc_pt2pt_request_t *request)
|
|
{
|
|
void *target = (unsigned char*) module->baseptr +
|
|
((unsigned long) target_disp * module->disp_unit);
|
|
int ret;
|
|
|
|
/* if we are in active target mode wait until all post messages arrive */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
|
|
ret = ompi_datatype_sndrcv ((void *)source, source_count, source_datatype,
|
|
target, target_count, target_datatype);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
return ret;
|
|
}
|
|
|
|
if (request) {
|
|
ompi_osc_pt2pt_request_complete (request, MPI_SUCCESS);
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
static inline int ompi_osc_pt2pt_get_self (ompi_osc_pt2pt_sync_t *pt2pt_sync, void *target, int target_count, ompi_datatype_t *target_datatype,
|
|
OPAL_PTRDIFF_TYPE source_disp, int source_count, ompi_datatype_t *source_datatype,
|
|
ompi_osc_pt2pt_module_t *module, ompi_osc_pt2pt_request_t *request)
|
|
{
|
|
void *source = (unsigned char*) module->baseptr +
|
|
((unsigned long) source_disp * module->disp_unit);
|
|
int ret;
|
|
|
|
/* if we are in active target mode wait until all post messages arrive */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
|
|
ret = ompi_datatype_sndrcv (source, source_count, source_datatype,
|
|
target, target_count, target_datatype);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
return ret;
|
|
}
|
|
|
|
if (request) {
|
|
ompi_osc_pt2pt_request_complete (request, MPI_SUCCESS);
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
static inline int ompi_osc_pt2pt_cas_self (ompi_osc_pt2pt_sync_t *pt2pt_sync, const void *source, const void *compare, void *result,
|
|
ompi_datatype_t *datatype, OPAL_PTRDIFF_TYPE target_disp, ompi_osc_pt2pt_module_t *module)
|
|
{
|
|
void *target = (unsigned char*) module->baseptr +
|
|
((unsigned long) target_disp * module->disp_unit);
|
|
|
|
/* if we are in active target mode wait until all post messages arrive */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
|
|
ompi_osc_pt2pt_accumulate_lock (module);
|
|
|
|
memcpy (result, target, datatype->super.size);
|
|
|
|
if (0 == memcmp (compare, target, datatype->super.size)) {
|
|
memcpy (target, source, datatype->super.size);
|
|
}
|
|
|
|
ompi_osc_pt2pt_accumulate_unlock (module);
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
static inline int ompi_osc_pt2pt_acc_self (ompi_osc_pt2pt_sync_t *pt2pt_sync, const void *source, int source_count, ompi_datatype_t *source_datatype,
|
|
OPAL_PTRDIFF_TYPE target_disp, int target_count, ompi_datatype_t *target_datatype,
|
|
ompi_op_t *op, ompi_osc_pt2pt_module_t *module, ompi_osc_pt2pt_request_t *request)
|
|
{
|
|
void *target = (unsigned char*) module->baseptr +
|
|
((unsigned long) target_disp * module->disp_unit);
|
|
int ret;
|
|
|
|
/* if we are in active target mode wait until all post messages arrive */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
|
|
ompi_osc_pt2pt_accumulate_lock (module);
|
|
|
|
if (&ompi_mpi_op_replace.op != op) {
|
|
ret = ompi_osc_base_sndrcv_op (source, source_count, source_datatype, target, target_count, target_datatype, op);
|
|
} else {
|
|
ret = ompi_datatype_sndrcv ((void *)source, source_count, source_datatype, target, target_count, target_datatype);
|
|
}
|
|
|
|
ompi_osc_pt2pt_accumulate_unlock (module);
|
|
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
OPAL_OUTPUT_VERBOSE((5, ompi_osc_base_framework.framework_output,
|
|
"ompi_osc_pt2pt_acc_self: failed performing accumulate operation. ret = %d", ret));
|
|
return ret;
|
|
}
|
|
|
|
if (request) {
|
|
ompi_osc_pt2pt_request_complete (request, MPI_SUCCESS);
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
static inline int ompi_osc_pt2pt_gacc_self (ompi_osc_pt2pt_sync_t *pt2pt_sync, const void *source, int source_count, ompi_datatype_t *source_datatype,
|
|
void *result, int result_count, ompi_datatype_t *result_datatype,
|
|
OPAL_PTRDIFF_TYPE target_disp, int target_count, ompi_datatype_t *target_datatype,
|
|
ompi_op_t *op, ompi_osc_pt2pt_module_t *module, ompi_osc_pt2pt_request_t *request)
|
|
{
|
|
void *target = (unsigned char*) module->baseptr +
|
|
((unsigned long) target_disp * module->disp_unit);
|
|
int ret;
|
|
|
|
OPAL_OUTPUT_VERBOSE((MCA_BASE_VERBOSE_TRACE, ompi_osc_base_framework.framework_output, "ompi_osc_pt2pt_gacc_self: starting local "
|
|
"get accumulate"));
|
|
|
|
ompi_osc_pt2pt_accumulate_lock (module);
|
|
|
|
do {
|
|
ret = ompi_datatype_sndrcv (target, target_count, target_datatype,
|
|
result, result_count, result_datatype);
|
|
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
OPAL_OUTPUT_VERBOSE((5, ompi_osc_base_framework.framework_output,
|
|
"ompi_osc_pt2pt_gacc_self: failed copying to the target buffer. ret = %d", ret));
|
|
break;
|
|
}
|
|
|
|
if (&ompi_mpi_op_no_op.op != op) {
|
|
if (&ompi_mpi_op_replace.op != op) {
|
|
ret = ompi_osc_base_sndrcv_op (source, source_count, source_datatype, target, target_count, target_datatype, op);
|
|
} else {
|
|
ret = ompi_datatype_sndrcv ((void *)source, source_count, source_datatype, target, target_count, target_datatype);
|
|
}
|
|
}
|
|
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
OPAL_OUTPUT_VERBOSE((5, ompi_osc_base_framework.framework_output,
|
|
"ompi_osc_pt2pt_gacc_self: failed performing accumulate operation. ret = %d", ret));
|
|
break;
|
|
}
|
|
} while (0);
|
|
|
|
ompi_osc_pt2pt_accumulate_unlock (module);
|
|
|
|
OPAL_OUTPUT_VERBOSE((MCA_BASE_VERBOSE_TRACE, ompi_osc_base_framework.framework_output, "ompi_osc_pt2pt_gacc_self: local get "
|
|
"accumulate complete"));
|
|
|
|
if (request) {
|
|
/* NTH: is it ok to use an ompi error code here? */
|
|
ompi_osc_pt2pt_request_complete (request, ret);
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
/* end: self communication optimizations */
|
|
|
|
static inline int ompi_osc_pt2pt_put_w_req (const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp,
|
|
int target_count, struct ompi_datatype_t *target_dt,
|
|
ompi_win_t *win, ompi_osc_pt2pt_request_t *request)
|
|
{
|
|
ompi_osc_pt2pt_module_t *module = GET_MODULE(win);
|
|
ompi_proc_t *proc = ompi_comm_peer_lookup(module->comm, target);
|
|
ompi_osc_pt2pt_frag_t *frag;
|
|
ompi_osc_pt2pt_header_put_t *header;
|
|
ompi_osc_pt2pt_sync_t *pt2pt_sync;
|
|
size_t ddt_len, payload_len, frag_len;
|
|
bool is_long_datatype = false;
|
|
bool is_long_msg = false;
|
|
const void *packed_ddt;
|
|
int tag = -1, ret;
|
|
char *ptr;
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"put: 0x%lx, %d, %s, %d, %d, %d, %s, %s",
|
|
(unsigned long) origin_addr, origin_count,
|
|
origin_dt->name, target, (int) target_disp,
|
|
target_count, target_dt->name, win->w_name));
|
|
|
|
pt2pt_sync = ompi_osc_pt2pt_module_sync_lookup (module, target, NULL);
|
|
if (OPAL_UNLIKELY(NULL == pt2pt_sync)) {
|
|
return OMPI_ERR_RMA_SYNC;
|
|
}
|
|
|
|
/* short-circuit case */
|
|
if (0 == origin_count || 0 == target_count) {
|
|
if (request) {
|
|
ompi_osc_pt2pt_request_complete (request, MPI_SUCCESS);
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
/* optimize self communication. TODO: optimize local communication */
|
|
if (ompi_comm_rank (module->comm) == target) {
|
|
return ompi_osc_pt2pt_put_self (pt2pt_sync, origin_addr, origin_count, origin_dt,
|
|
target_disp, target_count, target_dt,
|
|
module, request);
|
|
}
|
|
|
|
/* Compute datatype and payload lengths. Note that the datatype description
|
|
* must fit in a single buffer */
|
|
ddt_len = ompi_datatype_pack_description_length(target_dt);
|
|
payload_len = origin_dt->super.size * origin_count;
|
|
frag_len = sizeof(ompi_osc_pt2pt_header_put_t) + ddt_len + payload_len;
|
|
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, false, true);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
frag_len = sizeof(ompi_osc_pt2pt_header_put_t) + ddt_len;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, true, false);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
/* allocate space for the header plus space to store ddt_len */
|
|
frag_len = sizeof(ompi_osc_pt2pt_header_put_t) + 8;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, true, false);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
return OMPI_ERR_OUT_OF_RESOURCE;
|
|
}
|
|
|
|
is_long_datatype = true;
|
|
}
|
|
|
|
is_long_msg = true;
|
|
tag = get_tag(module);
|
|
}
|
|
|
|
if (is_long_msg) {
|
|
/* wait for eager sends to be active before starting a long put */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
}
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"osc pt2pt: put long protocol: %d, large datatype: %d",
|
|
(int) is_long_msg, (int) is_long_datatype));
|
|
|
|
header = (ompi_osc_pt2pt_header_put_t *) ptr;
|
|
header->base.flags = 0;
|
|
header->len = frag_len;
|
|
header->count = target_count;
|
|
header->displacement = target_disp;
|
|
ptr += sizeof(ompi_osc_pt2pt_header_put_t);
|
|
|
|
do {
|
|
ret = ompi_datatype_get_pack_description(target_dt, &packed_ddt);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
if (is_long_datatype) {
|
|
/* the datatype does not fit in an eager message. send it seperately */
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_LARGE_DATATYPE;
|
|
|
|
OBJ_RETAIN(target_dt);
|
|
|
|
ret = ompi_osc_pt2pt_isend_w_cb ((void *) packed_ddt, ddt_len, MPI_BYTE, target,
|
|
tag, module->comm, ompi_osc_pt2pt_dt_send_complete,
|
|
target_dt);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
*((uint64_t *) ptr) = ddt_len;
|
|
ptr += 8;
|
|
} else {
|
|
memcpy((unsigned char*) ptr, packed_ddt, ddt_len);
|
|
ptr += ddt_len;
|
|
}
|
|
|
|
if (!is_long_msg) {
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_PUT;
|
|
osc_pt2pt_hton(header, proc);
|
|
|
|
osc_pt2pt_copy_for_send (ptr, payload_len, origin_addr, proc, origin_count,
|
|
origin_dt);
|
|
|
|
/* the user's buffer is no longer needed so mark the request as
|
|
* complete. */
|
|
if (request) {
|
|
ompi_osc_pt2pt_request_complete (request, MPI_SUCCESS);
|
|
}
|
|
} else {
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_PUT_LONG;
|
|
header->tag = tag;
|
|
osc_pt2pt_hton(header, proc);
|
|
|
|
ret = ompi_osc_pt2pt_data_isend (module,origin_addr, origin_count, origin_dt, target, tag,
|
|
request);
|
|
}
|
|
} while (0);
|
|
|
|
if (OPAL_LIKELY(OMPI_SUCCESS == ret)) {
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_VALID;
|
|
}
|
|
|
|
return ompi_osc_pt2pt_frag_finish(module, frag);
|
|
}
|
|
|
|
int
|
|
ompi_osc_pt2pt_put(const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp,
|
|
int target_count,
|
|
struct ompi_datatype_t *target_dt, ompi_win_t *win)
|
|
{
|
|
return ompi_osc_pt2pt_put_w_req (origin_addr, origin_count,
|
|
origin_dt, target, target_disp,
|
|
target_count, target_dt, win, NULL);
|
|
}
|
|
|
|
|
|
static int
|
|
ompi_osc_pt2pt_accumulate_w_req (const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp,
|
|
int target_count,
|
|
struct ompi_datatype_t *target_dt,
|
|
struct ompi_op_t *op, ompi_win_t *win,
|
|
ompi_osc_pt2pt_request_t *request)
|
|
{
|
|
int ret;
|
|
ompi_osc_pt2pt_module_t *module = GET_MODULE(win);
|
|
ompi_proc_t *proc = ompi_comm_peer_lookup(module->comm, target);
|
|
bool is_long_datatype = false;
|
|
bool is_long_msg = false;
|
|
ompi_osc_pt2pt_frag_t *frag;
|
|
ompi_osc_pt2pt_header_acc_t *header;
|
|
ompi_osc_pt2pt_sync_t *pt2pt_sync;
|
|
size_t ddt_len, payload_len, frag_len;
|
|
char *ptr;
|
|
const void *packed_ddt;
|
|
int tag = -1;
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"acc: 0x%lx, %d, %s, %d, %d, %d, %s, %s, %s",
|
|
(unsigned long) origin_addr, origin_count,
|
|
origin_dt->name, target, (int) target_disp,
|
|
target_count, target_dt->name, op->o_name,
|
|
win->w_name));
|
|
|
|
pt2pt_sync = ompi_osc_pt2pt_module_sync_lookup (module, target, NULL);
|
|
if (OPAL_UNLIKELY(NULL == pt2pt_sync)) {
|
|
return OMPI_ERR_RMA_SYNC;
|
|
}
|
|
|
|
/* short-circuit case */
|
|
if (0 == origin_count || 0 == target_count) {
|
|
if (request) {
|
|
ompi_osc_pt2pt_request_complete (request, MPI_SUCCESS);
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
/* optimize the self case. TODO: optimize the local case */
|
|
if (ompi_comm_rank (module->comm) == target) {
|
|
return ompi_osc_pt2pt_acc_self (pt2pt_sync, origin_addr, origin_count, origin_dt,
|
|
target_disp, target_count, target_dt,
|
|
op, module, request);
|
|
}
|
|
|
|
/* Compute datatype and payload lengths. Note that the datatype description
|
|
* must fit in a single frag */
|
|
ddt_len = ompi_datatype_pack_description_length(target_dt);
|
|
payload_len = origin_dt->super.size * origin_count;
|
|
|
|
frag_len = sizeof(*header) + ddt_len + payload_len;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, false, true);
|
|
if (OMPI_SUCCESS != ret) {
|
|
frag_len = sizeof(*header) + ddt_len;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, true, !request);
|
|
if (OMPI_SUCCESS != ret) {
|
|
/* allocate space for the header plus space to store ddt_len */
|
|
frag_len = sizeof(*header) + 8;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, true, !request);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
return OMPI_ERR_OUT_OF_RESOURCE;
|
|
}
|
|
|
|
is_long_datatype = true;
|
|
}
|
|
|
|
is_long_msg = true;
|
|
tag = get_rtag (module);
|
|
}
|
|
|
|
if (is_long_msg) {
|
|
/* wait for synchronization before posting a long message */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
}
|
|
|
|
header = (ompi_osc_pt2pt_header_acc_t*) ptr;
|
|
header->base.flags = 0;
|
|
header->len = frag_len;
|
|
header->count = target_count;
|
|
header->displacement = target_disp;
|
|
header->op = op->o_f_to_c_index;
|
|
ptr += sizeof (*header);
|
|
|
|
do {
|
|
ret = ompi_datatype_get_pack_description(target_dt, &packed_ddt);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
if (is_long_datatype) {
|
|
/* the datatype does not fit in an eager message. send it seperately */
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_LARGE_DATATYPE;
|
|
|
|
OBJ_RETAIN(target_dt);
|
|
|
|
ret = ompi_osc_pt2pt_isend_w_cb ((void *) packed_ddt, ddt_len, MPI_BYTE, target,
|
|
tag, module->comm, ompi_osc_pt2pt_dt_send_complete,
|
|
target_dt);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
*((uint64_t *) ptr) = ddt_len;
|
|
ptr += 8;
|
|
} else {
|
|
memcpy((unsigned char*) ptr, packed_ddt, ddt_len);
|
|
ptr += ddt_len;
|
|
}
|
|
|
|
if (!is_long_msg) {
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_ACC;
|
|
osc_pt2pt_hton(header, proc);
|
|
|
|
osc_pt2pt_copy_for_send (ptr, payload_len, origin_addr, proc,
|
|
origin_count, origin_dt);
|
|
|
|
/* the user's buffer is no longer needed so mark the request as
|
|
* complete. */
|
|
if (request) {
|
|
ompi_osc_pt2pt_request_complete (request, MPI_SUCCESS);
|
|
}
|
|
} else {
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_ACC_LONG;
|
|
header->tag = tag;
|
|
osc_pt2pt_hton(header, proc);
|
|
|
|
OPAL_OUTPUT_VERBOSE((25, ompi_osc_base_framework.framework_output,
|
|
"acc: starting long accumulate with tag %d", tag));
|
|
|
|
ret = ompi_osc_pt2pt_data_isend (module, origin_addr, origin_count, origin_dt, target, tag,
|
|
request);
|
|
}
|
|
} while (0);
|
|
|
|
if (OMPI_SUCCESS != ret) {
|
|
OPAL_OUTPUT_VERBOSE((25, ompi_osc_base_framework.framework_output,
|
|
"acc: failed with eror %d", ret));
|
|
} else {
|
|
/* mark the fragment as valid */
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_VALID;
|
|
}
|
|
|
|
return ompi_osc_pt2pt_frag_finish(module, frag);
|
|
}
|
|
|
|
int
|
|
ompi_osc_pt2pt_accumulate(const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp,
|
|
int target_count,
|
|
struct ompi_datatype_t *target_dt,
|
|
struct ompi_op_t *op, ompi_win_t *win)
|
|
{
|
|
return ompi_osc_pt2pt_accumulate_w_req (origin_addr, origin_count, origin_dt,
|
|
target, target_disp, target_count,
|
|
target_dt, op, win, NULL);
|
|
}
|
|
|
|
int ompi_osc_pt2pt_compare_and_swap (const void *origin_addr, const void *compare_addr,
|
|
void *result_addr, struct ompi_datatype_t *dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp,
|
|
struct ompi_win_t *win)
|
|
{
|
|
ompi_osc_pt2pt_module_t *module = GET_MODULE(win);
|
|
ompi_proc_t *proc = ompi_comm_peer_lookup(module->comm, target);
|
|
ompi_osc_pt2pt_frag_t *frag;
|
|
ompi_osc_pt2pt_header_cswap_t *header;
|
|
ompi_osc_pt2pt_sync_t *pt2pt_sync;
|
|
size_t ddt_len, payload_len, frag_len;
|
|
ompi_osc_pt2pt_request_t *request;
|
|
const void *packed_ddt;
|
|
int ret, tag;
|
|
char *ptr;
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"cswap: 0x%lx, 0x%lx, 0x%lx, %s, %d, %d, %s",
|
|
(unsigned long) origin_addr, (unsigned long) compare_addr,
|
|
(unsigned long) result_addr, dt->name, target, (int) target_disp,
|
|
win->w_name));
|
|
|
|
pt2pt_sync = ompi_osc_pt2pt_module_sync_lookup (module, target, NULL);
|
|
if (OPAL_UNLIKELY(NULL == pt2pt_sync)) {
|
|
return OMPI_ERR_RMA_SYNC;
|
|
}
|
|
|
|
/* optimize self case. TODO: optimize local case */
|
|
if (ompi_comm_rank (module->comm) == target) {
|
|
return ompi_osc_pt2pt_cas_self (pt2pt_sync, origin_addr, compare_addr, result_addr, dt, target_disp,
|
|
module);
|
|
}
|
|
|
|
/* compare-and-swaps are always request based, so that we know where to land the data */
|
|
OMPI_OSC_PT2PT_REQUEST_ALLOC(win, request);
|
|
|
|
request->type = OMPI_OSC_PT2PT_HDR_TYPE_CSWAP;
|
|
request->origin_addr = origin_addr;
|
|
request->internal = true;
|
|
OBJ_RETAIN(dt);
|
|
request->origin_dt = dt;
|
|
|
|
/* Compute datatype and payload lengths. Note that the datatype description
|
|
* must fit in a single frag. It should be small in this case. */
|
|
ddt_len = ompi_datatype_pack_description_length(dt);
|
|
|
|
/* we need to send both the origin and compare buffers */
|
|
payload_len = dt->super.size * 2;
|
|
|
|
ret = ompi_datatype_get_pack_description(dt, &packed_ddt);
|
|
if (OMPI_SUCCESS != ret) {
|
|
return ret;
|
|
}
|
|
|
|
frag_len = sizeof(ompi_osc_pt2pt_header_cswap_t) + ddt_len + payload_len;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, false, false);
|
|
if (OMPI_SUCCESS != ret) {
|
|
return OMPI_ERR_OUT_OF_RESOURCE;
|
|
}
|
|
|
|
tag = get_tag (module);
|
|
ompi_osc_signal_outgoing (module, target, 1);
|
|
|
|
header = (ompi_osc_pt2pt_header_cswap_t *) ptr;
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_CSWAP;
|
|
header->base.flags = OMPI_OSC_PT2PT_HDR_FLAG_VALID;
|
|
header->len = frag_len;
|
|
header->displacement = target_disp;
|
|
header->tag = tag;
|
|
osc_pt2pt_hton(header, proc);
|
|
ptr += sizeof(ompi_osc_pt2pt_header_cswap_t);
|
|
|
|
memcpy((unsigned char*) ptr, packed_ddt, ddt_len);
|
|
ptr += ddt_len;
|
|
|
|
/* pack the origin and compare data */
|
|
osc_pt2pt_copy_for_send (ptr, dt->super.size, origin_addr, proc, 1, dt);
|
|
ptr += dt->super.size;
|
|
osc_pt2pt_copy_for_send (ptr, dt->super.size, compare_addr, proc, 1, dt);
|
|
|
|
request->outstanding_requests = 1;
|
|
ret = ompi_osc_pt2pt_irecv_w_cb (result_addr, 1, dt, target, tag, module->comm,
|
|
NULL, ompi_osc_pt2pt_req_comm_complete, request);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
return ret;
|
|
}
|
|
|
|
return ompi_osc_pt2pt_frag_finish (module, frag);
|
|
}
|
|
|
|
|
|
int ompi_osc_pt2pt_fetch_and_op(const void *origin_addr, void *result_addr,
|
|
struct ompi_datatype_t *dt, int target,
|
|
OPAL_PTRDIFF_TYPE target_disp, struct ompi_op_t *op,
|
|
struct ompi_win_t *win)
|
|
{
|
|
return ompi_osc_pt2pt_get_accumulate(origin_addr, 1, dt, result_addr, 1, dt,
|
|
target, target_disp, 1, dt, op, win);
|
|
}
|
|
|
|
int ompi_osc_pt2pt_rput(const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp,
|
|
int target_count, struct ompi_datatype_t *target_dt,
|
|
struct ompi_win_t *win, struct ompi_request_t **request)
|
|
{
|
|
ompi_osc_pt2pt_request_t *pt2pt_request;
|
|
int ret;
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"rput: 0x%lx, %d, %s, %d, %d, %d, %s, %s",
|
|
(unsigned long) origin_addr, origin_count,
|
|
origin_dt->name, target, (int) target_disp,
|
|
target_count, target_dt->name, win->w_name));
|
|
|
|
OMPI_OSC_PT2PT_REQUEST_ALLOC(win, pt2pt_request);
|
|
|
|
/* short-circuit case */
|
|
if (0 == origin_count || 0 == target_count) {
|
|
ompi_osc_pt2pt_request_complete (pt2pt_request, MPI_SUCCESS);
|
|
*request = &pt2pt_request->super;
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
pt2pt_request->type = OMPI_OSC_PT2PT_HDR_TYPE_PUT;
|
|
|
|
ret = ompi_osc_pt2pt_put_w_req (origin_addr, origin_count, origin_dt, target,
|
|
target_disp, target_count, target_dt, win,
|
|
pt2pt_request);
|
|
if (OMPI_SUCCESS != ret) {
|
|
OMPI_OSC_PT2PT_REQUEST_RETURN(pt2pt_request);
|
|
return ret;
|
|
}
|
|
|
|
*request = (ompi_request_t *) pt2pt_request;
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
static inline int ompi_osc_pt2pt_rget_internal (void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
int target,
|
|
OPAL_PTRDIFF_TYPE target_disp,
|
|
int target_count,
|
|
struct ompi_datatype_t *target_dt,
|
|
struct ompi_win_t *win, bool release_req,
|
|
struct ompi_request_t **request)
|
|
{
|
|
int ret, tag;
|
|
ompi_osc_pt2pt_module_t *module = GET_MODULE(win);
|
|
bool is_long_datatype = false;
|
|
ompi_osc_pt2pt_frag_t *frag;
|
|
ompi_osc_pt2pt_header_get_t *header;
|
|
ompi_osc_pt2pt_sync_t *pt2pt_sync;
|
|
size_t ddt_len, frag_len;
|
|
char *ptr;
|
|
const void *packed_ddt;
|
|
ompi_osc_pt2pt_request_t *pt2pt_request;
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"get: 0x%lx, %d, %s, %d, %d, %d, %s, %s",
|
|
(unsigned long) origin_addr, origin_count,
|
|
origin_dt->name, target, (int) target_disp,
|
|
target_count, target_dt->name, win->w_name));
|
|
|
|
pt2pt_sync = ompi_osc_pt2pt_module_sync_lookup (module, target, NULL);
|
|
if (OPAL_UNLIKELY(NULL == pt2pt_sync)) {
|
|
return OMPI_ERR_RMA_SYNC;
|
|
}
|
|
|
|
/* gets are always request based, so that we know where to land the data */
|
|
OMPI_OSC_PT2PT_REQUEST_ALLOC(win, pt2pt_request);
|
|
|
|
pt2pt_request->internal = release_req;
|
|
|
|
/* short-circuit case */
|
|
if (0 == origin_count || 0 == target_count) {
|
|
ompi_osc_pt2pt_request_complete (pt2pt_request, MPI_SUCCESS);
|
|
*request = &pt2pt_request->super;
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
/* optimize self communication. TODO: optimize local communication */
|
|
if (ompi_comm_rank (module->comm) == target) {
|
|
*request = &pt2pt_request->super;
|
|
return ompi_osc_pt2pt_get_self (pt2pt_sync, origin_addr, origin_count, origin_dt,
|
|
target_disp, target_count, target_dt,
|
|
module, pt2pt_request);
|
|
}
|
|
|
|
pt2pt_request->type = OMPI_OSC_PT2PT_HDR_TYPE_GET;
|
|
pt2pt_request->origin_addr = origin_addr;
|
|
pt2pt_request->origin_count = origin_count;
|
|
OBJ_RETAIN(origin_dt);
|
|
pt2pt_request->origin_dt = origin_dt;
|
|
|
|
/* Compute datatype length. Note that the datatype description
|
|
* must fit in a single frag */
|
|
ddt_len = ompi_datatype_pack_description_length(target_dt);
|
|
|
|
frag_len = sizeof(ompi_osc_pt2pt_header_get_t) + ddt_len;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, false, release_req);
|
|
if (OMPI_SUCCESS != ret) {
|
|
/* allocate space for the header plus space to store ddt_len */
|
|
frag_len = sizeof(ompi_osc_pt2pt_header_get_t) + 8;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target, frag_len, &frag, &ptr, false, release_req);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
return OMPI_ERR_OUT_OF_RESOURCE;
|
|
}
|
|
|
|
is_long_datatype = true;
|
|
}
|
|
|
|
tag = get_tag (module);
|
|
|
|
/* for bookkeeping the get is "outgoing" */
|
|
ompi_osc_signal_outgoing (module, target, 1);
|
|
|
|
if (!release_req) {
|
|
/* wait for epoch to begin before starting rget operation */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
}
|
|
|
|
header = (ompi_osc_pt2pt_header_get_t*) ptr;
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_GET;
|
|
header->base.flags = 0;
|
|
header->len = frag_len;
|
|
header->count = target_count;
|
|
header->displacement = target_disp;
|
|
header->tag = tag;
|
|
OSC_PT2PT_HTON(header, module, target);
|
|
ptr += sizeof(ompi_osc_pt2pt_header_get_t);
|
|
|
|
do {
|
|
ret = ompi_datatype_get_pack_description(target_dt, &packed_ddt);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
if (is_long_datatype) {
|
|
/* the datatype does not fit in an eager message. send it seperately */
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_LARGE_DATATYPE;
|
|
|
|
OBJ_RETAIN(target_dt);
|
|
|
|
ret = ompi_osc_pt2pt_isend_w_cb ((void *) packed_ddt, ddt_len, MPI_BYTE, target,
|
|
tag, module->comm, ompi_osc_pt2pt_dt_send_complete,
|
|
target_dt);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
*((uint64_t *) ptr) = ddt_len;
|
|
ptr += 8;
|
|
} else {
|
|
memcpy((unsigned char*) ptr, packed_ddt, ddt_len);
|
|
ptr += ddt_len;
|
|
}
|
|
|
|
/* TODO -- store the request somewhere so we can cancel it on error */
|
|
pt2pt_request->outstanding_requests = 1;
|
|
ret = ompi_osc_pt2pt_irecv_w_cb (origin_addr, origin_count, origin_dt, target, tag,
|
|
module->comm, NULL, ompi_osc_pt2pt_req_comm_complete, pt2pt_request);
|
|
} while (0);
|
|
|
|
if (OMPI_SUCCESS == ret) {
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_VALID;
|
|
*request = &pt2pt_request->super;
|
|
}
|
|
|
|
return ompi_osc_pt2pt_frag_finish(module, frag);
|
|
}
|
|
|
|
int ompi_osc_pt2pt_rget (void *origin_addr, int origin_count, struct ompi_datatype_t *origin_dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp, int target_count,
|
|
struct ompi_datatype_t *target_dt, struct ompi_win_t *win,
|
|
struct ompi_request_t **request)
|
|
{
|
|
/* NTH: need to check for a passive access epoch and return the appropriate error if nececcesary */
|
|
return ompi_osc_pt2pt_rget_internal (origin_addr, origin_count, origin_dt, target, target_disp,
|
|
target_count, target_dt, win, false, request);
|
|
}
|
|
|
|
|
|
int ompi_osc_pt2pt_get (void *origin_addr, int origin_count, struct ompi_datatype_t *origin_dt,
|
|
int target, OPAL_PTRDIFF_TYPE target_disp, int target_count,
|
|
struct ompi_datatype_t *target_dt, struct ompi_win_t *win)
|
|
{
|
|
ompi_request_t *request;
|
|
|
|
return ompi_osc_pt2pt_rget_internal (origin_addr, origin_count, origin_dt, target, target_disp,
|
|
target_count, target_dt, win, true, &request);
|
|
}
|
|
|
|
int ompi_osc_pt2pt_raccumulate(const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt, int target,
|
|
OPAL_PTRDIFF_TYPE target_disp, int target_count,
|
|
struct ompi_datatype_t *target_dt, struct ompi_op_t *op,
|
|
struct ompi_win_t *win, struct ompi_request_t **request)
|
|
{
|
|
ompi_osc_pt2pt_request_t *pt2pt_request;
|
|
int ret;
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"raccumulate: 0x%lx, %d, %s, %d, %d, %d, %s, %s, %s",
|
|
(unsigned long) origin_addr, origin_count,
|
|
origin_dt->name, target, (int) target_disp,
|
|
target_count, target_dt->name, op->o_name,
|
|
win->w_name));
|
|
|
|
OMPI_OSC_PT2PT_REQUEST_ALLOC(win, pt2pt_request);
|
|
|
|
/* short-circuit case */
|
|
if (0 == origin_count || 0 == target_count) {
|
|
ompi_osc_pt2pt_request_complete (pt2pt_request, MPI_SUCCESS);
|
|
*request = (ompi_request_t *) pt2pt_request;
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
pt2pt_request->type = OMPI_OSC_PT2PT_HDR_TYPE_ACC;
|
|
|
|
ret = ompi_osc_pt2pt_accumulate_w_req (origin_addr, origin_count, origin_dt, target,
|
|
target_disp, target_count, target_dt, op, win,
|
|
pt2pt_request);
|
|
if (OMPI_SUCCESS != ret) {
|
|
OMPI_OSC_PT2PT_REQUEST_RETURN(pt2pt_request);
|
|
return ret;
|
|
}
|
|
|
|
*request = (ompi_request_t *) pt2pt_request;
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
|
|
static inline
|
|
int ompi_osc_pt2pt_rget_accumulate_internal (const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_datatype,
|
|
void *result_addr, int result_count,
|
|
struct ompi_datatype_t *result_datatype,
|
|
int target_rank, MPI_Aint target_disp,
|
|
int target_count, struct ompi_datatype_t *target_datatype,
|
|
struct ompi_op_t *op, struct ompi_win_t *win,
|
|
bool release_req, struct ompi_request_t **request)
|
|
{
|
|
int ret;
|
|
ompi_osc_pt2pt_module_t *module = GET_MODULE(win);
|
|
ompi_proc_t *proc = ompi_comm_peer_lookup(module->comm, target_rank);
|
|
bool is_long_datatype = false;
|
|
bool is_long_msg = false;
|
|
ompi_osc_pt2pt_frag_t *frag;
|
|
ompi_osc_pt2pt_header_acc_t *header;
|
|
ompi_osc_pt2pt_sync_t *pt2pt_sync;
|
|
size_t ddt_len, payload_len, frag_len;
|
|
char *ptr;
|
|
const void *packed_ddt;
|
|
int tag;
|
|
ompi_osc_pt2pt_request_t *pt2pt_request;
|
|
|
|
OPAL_OUTPUT_VERBOSE((50, ompi_osc_base_framework.framework_output,
|
|
"rget_acc: 0x%lx, %d, %s, 0x%lx, %d, %s, 0x%x, %d, %d, %s, %s, %s",
|
|
(unsigned long) origin_addr, origin_count, origin_datatype->name,
|
|
(unsigned long) result_addr, result_count, result_datatype->name,
|
|
target_rank, (int) target_disp, target_count, target_datatype->name,
|
|
op->o_name, win->w_name));
|
|
|
|
pt2pt_sync = ompi_osc_pt2pt_module_sync_lookup (module, target_rank, NULL);
|
|
if (OPAL_UNLIKELY(NULL == pt2pt_sync)) {
|
|
return OMPI_ERR_RMA_SYNC;
|
|
}
|
|
|
|
/* get_accumulates are always request based, so that we know where to land the data */
|
|
OMPI_OSC_PT2PT_REQUEST_ALLOC(win, pt2pt_request);
|
|
|
|
pt2pt_request->internal = release_req;
|
|
|
|
/* short-circuit case. note that origin_count may be 0 if op is MPI_NO_OP */
|
|
if (0 == result_count || 0 == target_count) {
|
|
ompi_osc_pt2pt_request_complete (pt2pt_request, MPI_SUCCESS);
|
|
*request = &pt2pt_request->super;
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
if (!release_req) {
|
|
/* wait for epoch to begin before starting operation */
|
|
ompi_osc_pt2pt_sync_wait (pt2pt_sync);
|
|
}
|
|
|
|
/* optimize the self case. TODO: optimize the local case */
|
|
if (ompi_comm_rank (module->comm) == target_rank) {
|
|
*request = &pt2pt_request->super;
|
|
return ompi_osc_pt2pt_gacc_self (pt2pt_sync, origin_addr, origin_count, origin_datatype,
|
|
result_addr, result_count, result_datatype,
|
|
target_disp, target_count, target_datatype,
|
|
op, module, pt2pt_request);
|
|
}
|
|
|
|
pt2pt_request->type = OMPI_OSC_PT2PT_HDR_TYPE_GET_ACC;
|
|
pt2pt_request->origin_addr = origin_addr;
|
|
pt2pt_request->origin_count = origin_count;
|
|
OBJ_RETAIN(origin_datatype);
|
|
pt2pt_request->origin_dt = origin_datatype;
|
|
|
|
/* Compute datatype and payload lengths. Note that the datatype description
|
|
* must fit in a single frag */
|
|
ddt_len = ompi_datatype_pack_description_length(target_datatype);
|
|
|
|
if (&ompi_mpi_op_no_op.op != op) {
|
|
payload_len = origin_datatype->super.size * origin_count;
|
|
} else {
|
|
payload_len = 0;
|
|
}
|
|
|
|
frag_len = sizeof(*header) + ddt_len + payload_len;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target_rank, frag_len, &frag, &ptr, false, release_req);
|
|
if (OMPI_SUCCESS != ret) {
|
|
frag_len = sizeof(*header) + ddt_len;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target_rank, frag_len, &frag, &ptr, true, release_req);
|
|
if (OMPI_SUCCESS != ret) {
|
|
/* allocate space for the header plus space to store ddt_len */
|
|
frag_len = sizeof(*header) + 8;
|
|
ret = ompi_osc_pt2pt_frag_alloc(module, target_rank, frag_len, &frag, &ptr, true, release_req);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
return OMPI_ERR_OUT_OF_RESOURCE;
|
|
}
|
|
|
|
is_long_datatype = true;
|
|
}
|
|
|
|
is_long_msg = true;
|
|
}
|
|
|
|
tag = get_tag (module);
|
|
|
|
/* If this is a long message then we need two completions before the
|
|
* request is complete (1 for the send, 1 for the receive) */
|
|
pt2pt_request->outstanding_requests = 1 + is_long_msg;
|
|
|
|
/* increment the number of outgoing fragments */
|
|
ompi_osc_signal_outgoing (module, target_rank, pt2pt_request->outstanding_requests);
|
|
|
|
header = (ompi_osc_pt2pt_header_acc_t *) ptr;
|
|
header->base.flags = 0;
|
|
header->len = frag_len;
|
|
header->count = target_count;
|
|
header->displacement = target_disp;
|
|
header->op = op->o_f_to_c_index;
|
|
header->tag = tag;
|
|
|
|
ptr = (char *)(header + 1);
|
|
|
|
do {
|
|
ret = ompi_datatype_get_pack_description(target_datatype, &packed_ddt);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
if (is_long_datatype) {
|
|
/* the datatype does not fit in an eager message. send it seperately */
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_LARGE_DATATYPE;
|
|
|
|
OBJ_RETAIN(target_datatype);
|
|
|
|
ret = ompi_osc_pt2pt_isend_w_cb ((void *) packed_ddt, ddt_len, MPI_BYTE, target_rank,
|
|
tag, module->comm, ompi_osc_pt2pt_dt_send_complete,
|
|
target_datatype);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
*((uint64_t *) ptr) = ddt_len;
|
|
ptr += 8;
|
|
} else {
|
|
memcpy((unsigned char*) ptr, packed_ddt, ddt_len);
|
|
ptr += ddt_len;
|
|
}
|
|
|
|
ret = ompi_osc_pt2pt_irecv_w_cb (result_addr, result_count, result_datatype, target_rank, tag,
|
|
module->comm, NULL, ompi_osc_pt2pt_req_comm_complete, pt2pt_request);
|
|
if (OPAL_UNLIKELY(OMPI_SUCCESS != ret)) {
|
|
break;
|
|
}
|
|
|
|
if (!is_long_msg) {
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_GET_ACC;
|
|
osc_pt2pt_hton(header, proc);
|
|
|
|
if (&ompi_mpi_op_no_op.op != op) {
|
|
osc_pt2pt_copy_for_send (ptr, payload_len, origin_addr, proc, origin_count,
|
|
origin_datatype);
|
|
}
|
|
} else {
|
|
header->base.type = OMPI_OSC_PT2PT_HDR_TYPE_GET_ACC_LONG;
|
|
osc_pt2pt_hton(header, proc);
|
|
|
|
ret = ompi_osc_pt2pt_isend_w_cb (origin_addr, origin_count, origin_datatype, target_rank,
|
|
tag, module->comm, ompi_osc_pt2pt_req_comm_complete, pt2pt_request);
|
|
}
|
|
} while (0);
|
|
|
|
if (OMPI_SUCCESS == ret) {
|
|
header->base.flags |= OMPI_OSC_PT2PT_HDR_FLAG_VALID;
|
|
*request = (ompi_request_t *) pt2pt_request;
|
|
}
|
|
|
|
return ompi_osc_pt2pt_frag_finish(module, frag);
|
|
}
|
|
|
|
int ompi_osc_pt2pt_get_accumulate(const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
void *result_addr, int result_count,
|
|
struct ompi_datatype_t *result_dt,
|
|
int target, MPI_Aint target_disp,
|
|
int target_count, struct ompi_datatype_t *target_dt,
|
|
struct ompi_op_t *op, struct ompi_win_t *win)
|
|
{
|
|
ompi_request_t *request;
|
|
|
|
return ompi_osc_pt2pt_rget_accumulate_internal (origin_addr, origin_count, origin_dt,
|
|
result_addr, result_count, result_dt,
|
|
target, target_disp, target_count,
|
|
target_dt, op, win, true, &request);
|
|
}
|
|
|
|
|
|
int ompi_osc_pt2pt_rget_accumulate(const void *origin_addr, int origin_count,
|
|
struct ompi_datatype_t *origin_dt,
|
|
void *result_addr, int result_count,
|
|
struct ompi_datatype_t *result_dt,
|
|
int target, MPI_Aint target_disp,
|
|
int target_count, struct ompi_datatype_t *target_dt,
|
|
struct ompi_op_t *op, struct ompi_win_t *win,
|
|
ompi_request_t **request)
|
|
{
|
|
return ompi_osc_pt2pt_rget_accumulate_internal (origin_addr, origin_count, origin_dt,
|
|
result_addr, result_count, result_dt,
|
|
target, target_disp, target_count,
|
|
target_dt, op, win, false, request);
|
|
}
|