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

Amazing that no compilers so far have identified this little

Просмотр исходного кода 
copy/paste mistake. Thanks VC !

This commit was SVN r17057.
Этот коммит содержится в:
George Bosilca 2008-01-05 00:19:08 +00:00
родитель d2324050f8
Коммит ebad33ad86
1 изменённых файлов: 2 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -200,7 +200,7 @@ static int read_intercept_fn(void *userbuf, MPI_Datatype type_c, int count_c,
void *filebuf, MPI_Offset position, void *filebuf, MPI_Offset position,
void *extra_state) void *extra_state)
{ {
MPI_Fint ierr, count_f77 = OMPI_FINT_2_INT(count_f77); MPI_Fint ierr, count_f77 = OMPI_FINT_2_INT(count_c);
MPI_Fint type_f77 = MPI_Type_c2f(type_c); MPI_Fint type_f77 = MPI_Type_c2f(type_c);
intercept_extra_state_t *intercept_data = intercept_extra_state_t *intercept_data =
(intercept_extra_state_t*) extra_state; (intercept_extra_state_t*) extra_state;
@ -218,7 +218,7 @@ static int write_intercept_fn(void *userbuf, MPI_Datatype type_c, int count_c,
void *filebuf, MPI_Offset position, void *filebuf, MPI_Offset position,
void *extra_state) void *extra_state)
{ {
MPI_Fint ierr, count_f77 = OMPI_FINT_2_INT(count_f77); MPI_Fint ierr, count_f77 = OMPI_FINT_2_INT(count_c);
MPI_Fint type_f77 = MPI_Type_c2f(type_c); MPI_Fint type_f77 = MPI_Type_c2f(type_c);
intercept_extra_state_t *intercept_data = intercept_extra_state_t *intercept_data =
(intercept_extra_state_t*) extra_state; (intercept_extra_state_t*) extra_state;