fc3637a7c6
that a) STATUS[ES]_IGNORE *is* NULL, and b) ROMIO blindly sends its status through to STATUS_SET_ELEMENTS, even if the status is IGNORE. So we have some legal cases where IGNORE can be passed through here. Well, that's what we get for trying to do good error checking. :-( This commit was SVN r12999.
67 строки
2.1 KiB
C
67 строки
2.1 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. 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 Cisco Systems, Inc. All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
#include "ompi_config.h"
|
|
#include <stdio.h>
|
|
|
|
#include "ompi/mpi/c/bindings.h"
|
|
#include "ompi/datatype/datatype.h"
|
|
|
|
#if OMPI_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;
|
|
|
|
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_ddt_is_predefined(datatype) ) {
|
|
ompi_ddt_type_size( datatype, &size );
|
|
status->_count = (int)(count * size);
|
|
} else {
|
|
ompi_ddt_set_element_count( datatype, count, &size );
|
|
status->_count = (int)size;
|
|
}
|
|
return MPI_SUCCESS;
|
|
}
|