ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Remove two warnings about "cast from pointer to integer of different size".

Просмотр исходного кода 
This commit was SVN r20941.
Этот коммит содержится в:
George Bosilca 2009-04-05 21:02:36 +00:00
родитель a13dfb2140
Коммит 045b0e8871
1 изменённых файлов: 4 добавлений и 4 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

4
ompi/attribute/attribute.c
Просмотреть файл

@ -249,7 +249,7 @@
/* MPI-1 Fortran-style */ \ /* MPI-1 Fortran-style */ \
if (0 != (keyval_obj->attr_flag & OMPI_KEYVAL_F77_MPI1)) { \ if (0 != (keyval_obj->attr_flag & OMPI_KEYVAL_F77_MPI1)) { \
MPI_Fint attr_val = translate_to_fortran_mpi1(attribute); \ MPI_Fint attr_val = translate_to_fortran_mpi1(attribute); \
MPI_Fint extra_state = (MPI_Fint)keyval_obj->extra_state; \ MPI_Fint extra_state = (MPI_Fint)(uintptr_t)keyval_obj->extra_state; \
(*((keyval_obj->delete_attr_fn).attr_mpi1_fortran_delete_fn)) \ (*((keyval_obj->delete_attr_fn).attr_mpi1_fortran_delete_fn)) \
(&(((ompi_##type##_t *)object)->attr_##type##_f), \ (&(((ompi_##type##_t *)object)->attr_##type##_f), \
&f_key, &attr_val, &extra_state, &f_err); \ &f_key, &attr_val, &extra_state, &f_err); \
@ -301,7 +301,7 @@
if (0 != (keyval_obj->attr_flag & OMPI_KEYVAL_F77_MPI1)) { \ if (0 != (keyval_obj->attr_flag & OMPI_KEYVAL_F77_MPI1)) { \
MPI_Fint in, out, extra_state; \ MPI_Fint in, out, extra_state; \
in = translate_to_fortran_mpi1(in_attr); \ in = translate_to_fortran_mpi1(in_attr); \
extra_state = (MPI_Fint)keyval_obj->extra_state; \ extra_state = (MPI_Fint)(uintptr_t)keyval_obj->extra_state; \
(*((keyval_obj->copy_attr_fn).attr_mpi1_fortran_copy_fn)) \ (*((keyval_obj->copy_attr_fn).attr_mpi1_fortran_copy_fn)) \
(&(((ompi_##type##_t *)old_object)->attr_##type##_f), \ (&(((ompi_##type##_t *)old_object)->attr_##type##_f), \
&f_key, &extra_state, \ &f_key, &extra_state, \