Match the latest changes in the datatype engine.
This commit was SVN r8967.
Этот коммит содержится в:
родитель
d56656580a
Коммит
9c1547373d
@ -36,7 +36,6 @@ static const char FUNC_NAME[] = "MPI_Pack_external_size";
|
|||||||
int MPI_Pack_external_size(char *datarep, int incount,
|
int MPI_Pack_external_size(char *datarep, int incount,
|
||||||
MPI_Datatype datatype, MPI_Aint *size)
|
MPI_Datatype datatype, MPI_Aint *size)
|
||||||
{
|
{
|
||||||
int ret;
|
|
||||||
ompi_convertor_t local_convertor;
|
ompi_convertor_t local_convertor;
|
||||||
size_t length;
|
size_t length;
|
||||||
|
|
||||||
@ -52,8 +51,8 @@ int MPI_Pack_external_size(char *datarep, int incount,
|
|||||||
ompi_convertor_copy_and_prepare_for_send( ompi_mpi_external32_convertor,
|
ompi_convertor_copy_and_prepare_for_send( ompi_mpi_external32_convertor,
|
||||||
datatype, incount, NULL, &local_convertor );
|
datatype, incount, NULL, &local_convertor );
|
||||||
|
|
||||||
ret = ompi_convertor_get_packed_size( &local_convertor, &length );
|
ompi_convertor_get_packed_size( &local_convertor, &length );
|
||||||
*size = (int)length;
|
*size = (MPI_Aint)length;
|
||||||
OBJ_DESTRUCT( &local_convertor );
|
OBJ_DESTRUCT( &local_convertor );
|
||||||
|
|
||||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);
|
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME);
|
||||||
|
@ -35,7 +35,6 @@ static const char FUNC_NAME[] = "MPI_Pack_size";
|
|||||||
int MPI_Pack_size(int incount, MPI_Datatype datatype, MPI_Comm comm,
|
int MPI_Pack_size(int incount, MPI_Datatype datatype, MPI_Comm comm,
|
||||||
int *size)
|
int *size)
|
||||||
{
|
{
|
||||||
int ret;
|
|
||||||
ompi_convertor_t local_convertor;
|
ompi_convertor_t local_convertor;
|
||||||
size_t length;
|
size_t length;
|
||||||
|
|
||||||
@ -55,9 +54,9 @@ int MPI_Pack_size(int incount, MPI_Datatype datatype, MPI_Comm comm,
|
|||||||
/* the resulting convertor will be set to the position ZERO */
|
/* the resulting convertor will be set to the position ZERO */
|
||||||
ompi_convertor_copy_and_prepare_for_send( ompi_mpi_local_convertor, datatype, incount, NULL, &local_convertor );
|
ompi_convertor_copy_and_prepare_for_send( ompi_mpi_local_convertor, datatype, incount, NULL, &local_convertor );
|
||||||
|
|
||||||
ret = ompi_convertor_get_packed_size( &local_convertor, &length );
|
ompi_convertor_get_packed_size( &local_convertor, &length );
|
||||||
*size = (int)length;
|
*size = (int)length;
|
||||||
OBJ_DESTRUCT( &local_convertor );
|
OBJ_DESTRUCT( &local_convertor );
|
||||||
|
|
||||||
OMPI_ERRHANDLER_RETURN(ret, comm, MPI_ERR_UNKNOWN, FUNC_NAME);
|
return MPI_SUCCESS;
|
||||||
}
|
}
|
||||||
|
Загрузка…
Ссылка в новой задаче
Block a user