1
1

Fix #3094: do the correct cast for the right integer size.

This commit was SVN r26439.
Этот коммит содержится в:
Jeff Squyres 2012-05-15 15:15:33 +00:00
родитель 8c209ca32a
Коммит d74795b299
3 изменённых файлов: 3 добавлений и 3 удалений

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

@ -74,6 +74,6 @@ void ompi_file_get_position_f(MPI_Fint *fh, MPI_Offset *offset, MPI_Fint *ierr)
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
if (MPI_SUCCESS == c_ierr) {
*offset = (MPI_Fint) c_offset;
*offset = (MPI_Offset) c_offset;
}
}

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

@ -74,6 +74,6 @@ void ompi_file_get_size_f(MPI_Fint *fh, MPI_Offset *size, MPI_Fint *ierr)
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
if (MPI_SUCCESS == c_ierr) {
*size = (MPI_Fint) c_size;
*size = (MPI_Offset) c_size;
}
}

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

@ -81,7 +81,7 @@ void ompi_file_get_view_f(MPI_Fint *fh, MPI_Offset *disp,
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
if (MPI_SUCCESS == c_ierr) {
*disp = (MPI_Fint) c_disp;
*disp = (MPI_Offset) c_disp;
*etype = MPI_Type_c2f(c_etype);
*filetype = MPI_Type_c2f(c_filetype);
ompi_fortran_string_c2f(c_datarep, datarep, datarep_len);