1
1

Remove all references to the ompi_mpi_long_long variable. The MPI_LONG_LONG is now

a synonym to MPI_LONG_LONG_INT.

This commit was SVN r9703.
Этот коммит содержится в:
George Bosilca 2006-04-24 22:15:42 +00:00
родитель 40bcb2fb36
Коммит 29fe545451
3 изменённых файлов: 4 добавлений и 5 удалений

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

@ -542,7 +542,6 @@ int32_t ompi_ddt_init( void )
MOOG(unsigned);
MOOG(long);
MOOG(unsigned_long);
MOOG(long_long);
MOOG(long_long_int);
MOOG(unsigned_long_long);

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

@ -556,7 +556,7 @@ OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_dblprec, ompi_mpi_character
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_2real, ompi_mpi_2dblprec;
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_2integer, ompi_mpi_longdbl_int;
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_wchar, ompi_mpi_long_long_int;
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_long_long, ompi_mpi_unsigned_long_long;
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_unsigned_long_long;
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_cxx_cplex, ompi_mpi_cxx_dblcplex;
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_cxx_ldblcplex;
OMPI_DECLSPEC extern struct ompi_datatype_t ompi_mpi_cxx_bool;
@ -657,7 +657,7 @@ OMPI_DECLSPEC extern MPI_Fint *MPI_F_STATUSES_IGNORE;
#define MPI_WCHAR (&ompi_mpi_wchar)
#if HAVE_LONG_LONG
#define MPI_LONG_LONG_INT (&ompi_mpi_long_long_int)
#define MPI_LONG_LONG (&ompi_mpi_long_long)
#define MPI_LONG_LONG (&ompi_mpi_long_long_int)
#define MPI_UNSIGNED_LONG_LONG (&ompi_mpi_unsigned_long_long)
#endif /* HAVE_LONG_LONG */

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

@ -43,7 +43,7 @@ int MPI_Type_create_f90_integer(int r, MPI_Datatype *newtype)
if (r > 38) *newtype = &ompi_mpi_datatype_null;
#if OMPI_HAVE_F90_INTEGER16
else if (r > 18) *newtype = &ompi_mpi_long_long;
else if (r > 18) *newtype = &ompi_mpi_long_long_int;
#else
else if (r > 18) *newtype = &ompi_mpi_datatype_null;
#endif /* OMPI_HAVE_F90_INTEGER16 */
@ -51,7 +51,7 @@ int MPI_Type_create_f90_integer(int r, MPI_Datatype *newtype)
else if (r > 9) *newtype = &ompi_mpi_long;
#else
#if SIZEOF_LONG_LONG > SIZEOF_INT
else if (r > 9) *newtype = &ompi_mpi_long_long;
else if (r > 9) *newtype = &ompi_mpi_long_long_int;
#else
else if (r > 9) *newtype = &ompi_mpi_datatype_null;
#endif /* SIZEOF_LONG_LONG > SIZEOF_INT */