c4c69b4ddf
Add support for MPI_Count type and MPI_COUNT datatype and add the required MPI-3 functions MPI_Get_elements_x, MPI_Status_set_elements_x, MPI_Type_get_extent_x, MPI_Type_get_true_extent_x, and MPI_Type_size_x. This commit adds only the C bindings. Fortran bindins will be added in another commit. For now the MPI_Count type is define to have the same size as MPI_Offset. The type is required to be at least as large as MPI_Offset and MPI_Aint. The type was initially intended to be a ssize_t (if it was the same size as a long long) but there were issues compiling romio with that definition (despite the inclusion of stddef.h). I updated the datatype engine to use size_t instead of uint32_t to support large datatypes. This will require some review to make sure that 1) the changes are beneficial, 2) nothing was broken by the change (I doubt anything was), and 3) there are no performance regressions due to this change. Increase the maximum number of predifined datatypes to support MPI_Count Put common get_elements code to ompi/datatype/ompi_datatype_get_elements.c Update MPI_Get_count to reflect changes in MPI-3 (return MPI_UNDEFINED when the count is too large for an int) This commit was SVN r28932.
86 строки
2.8 KiB
C
86 строки
2.8 KiB
C
/*
|
|
* Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2010 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2008 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 Cisco Systems, Inc. All rights reserved.
|
|
* Copyright (c) 2013 Los Alamos National Security, LLC. All rights
|
|
* reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
#include <stdio.h>
|
|
|
|
#include "ompi/mpi/c/bindings.h"
|
|
#include "ompi/runtime/params.h"
|
|
#include "ompi/communicator/communicator.h"
|
|
#include "ompi/errhandler/errhandler.h"
|
|
#include "ompi/datatype/ompi_datatype.h"
|
|
#include "ompi/memchecker.h"
|
|
|
|
#if OPAL_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
|
|
#pragma weak MPI_Status_set_elements = PMPI_Status_set_elements
|
|
#endif
|
|
|
|
#if OMPI_PROFILING_DEFINES
|
|
#include "ompi/mpi/c/profile/defines.h"
|
|
#endif
|
|
|
|
static const char FUNC_NAME[] = "MPI_Status_set_elements";
|
|
|
|
int MPI_Status_set_elements(MPI_Status *status, MPI_Datatype datatype, int count)
|
|
{
|
|
int rc = MPI_SUCCESS;
|
|
size_t size;
|
|
|
|
MEMCHECKER(
|
|
if(status != MPI_STATUSES_IGNORE) {
|
|
/*
|
|
* Before checking the complete status, we need to reset the definedness
|
|
* of the MPI_ERROR-field (single-completion calls wait/test).
|
|
*/
|
|
opal_memchecker_base_mem_defined(&status->MPI_ERROR, sizeof(int));
|
|
memchecker_status (status);
|
|
memchecker_datatype(datatype);
|
|
}
|
|
);
|
|
|
|
OPAL_CR_NOOP_PROGRESS();
|
|
|
|
if (MPI_PARAM_CHECK) {
|
|
OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
|
|
if (NULL == datatype || MPI_DATATYPE_NULL == datatype) {
|
|
rc = MPI_ERR_TYPE;
|
|
} else if (count < 0) {
|
|
rc = MPI_ERR_COUNT;
|
|
}
|
|
OMPI_ERRHANDLER_CHECK(rc, MPI_COMM_WORLD, rc, FUNC_NAME);
|
|
}
|
|
|
|
/* ROMIO calls MPI_STATUS_SET_ELEMENTS with IGNORE values, so we
|
|
need to allow it. Blah! */
|
|
if (MPI_STATUS_IGNORE == status || MPI_STATUSES_IGNORE == status) {
|
|
return MPI_SUCCESS;
|
|
}
|
|
|
|
if( ompi_datatype_is_predefined(datatype) ) {
|
|
ompi_datatype_type_size( datatype, &size );
|
|
status->_ucount = count * size;
|
|
} else {
|
|
ompi_datatype_set_element_count( datatype, count, &size );
|
|
status->_ucount = size;
|
|
}
|
|
return MPI_SUCCESS;
|
|
}
|