1
1
This commit was SVN r32697.

The following SVN revision numbers were found above:
  r32696 --> open-mpi/ompi@e4c3500166
Этот коммит содержится в:
Gilles Gouaillardet 2014-09-10 04:35:47 +00:00
родитель e4c3500166
Коммит e71452d73a
2 изменённых файлов: 14 добавлений и 10 удалений

Просмотреть файл

@ -12,8 +12,6 @@
* Copyright (c) 2007 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2013 Los Alamos National Security, LLC. All rights
* reserved.
* Copyright (c) 2014 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -76,8 +74,12 @@ int MPI_Status_set_elements(MPI_Status *status, MPI_Datatype datatype, int count
return MPI_SUCCESS;
}
ompi_datatype_type_size( datatype, &size );
status->_ucount = count * size;
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;
}

Просмотреть файл

@ -12,8 +12,6 @@
* Copyright (c) 2007 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2013 Los Alamos National Security, LLC. All rights
* reserved.
* Copyright (c) 2014 Research Organization for Information Science
* and Technology (RIST). All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
@ -76,8 +74,12 @@ int MPI_Status_set_elements_x(MPI_Status *status, MPI_Datatype datatype, MPI_Cou
return MPI_SUCCESS;
}
ompi_datatype_type_size( datatype, &size );
status->_ucount = count * size;
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;
}