2006-07-18 02:08:55 +04:00
|
|
|
/*
|
|
|
|
* 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.
|
2007-05-24 19:41:24 +04:00
|
|
|
* Copyright (c) 2007 Los Alamos National Security, LLC. All rights
|
|
|
|
* reserved.
|
2010-03-25 07:03:52 +03:00
|
|
|
* Copyright (c) 2010 IBM Corporation. All rights reserved.
|
2014-02-25 21:36:43 +04:00
|
|
|
* Copyright (c) 2012 Sandia National Laboratories. All rights reserved.
|
2006-07-18 02:08:55 +04:00
|
|
|
* $COPYRIGHT$
|
|
|
|
*
|
|
|
|
* Additional copyrights may follow
|
|
|
|
*
|
|
|
|
* $HEADER$
|
|
|
|
*/
|
|
|
|
|
|
|
|
/*
|
|
|
|
* utility functions for dealing with remote datatype and op structures
|
|
|
|
*/
|
|
|
|
|
|
|
|
/**
|
|
|
|
* 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 */
|
2014-02-25 21:36:43 +04:00
|
|
|
OPAL_THREAD_LOCK(&mca_osc_rdma_component.lock);
|
|
|
|
ret = opal_hash_table_get_value_uint32(&mca_osc_rdma_component.modules,
|
2006-07-18 02:08:55 +04:00
|
|
|
windx,
|
|
|
|
(void**) (&module));
|
2014-02-25 21:36:43 +04:00
|
|
|
OPAL_THREAD_UNLOCK(&mca_osc_rdma_component.lock);
|
2006-07-18 02:08:55 +04:00
|
|
|
if (OMPI_SUCCESS != ret) {
|
2008-06-09 18:53:58 +04:00
|
|
|
opal_output(0, "Could not translate windx %d to a local MPI_Win instance",
|
2006-07-18 02:08:55 +04:00
|
|
|
windx);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
return module;
|
|
|
|
}
|