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

ompi/win: use type int* for MPI_WIN_DISP_UNIT, MPI_WIN_CREATE_FLAVOR and MPI_WIN_MODEL

Просмотр исходного кода 
Thanks Alastair McKinstry for the report.
Этот коммит содержится в:
Gilles Gouaillardet 2016-03-11 09:22:25 +09:00
родитель 6f17b46a3c
Коммит d08fb46ec7
1 изменённых файлов: 4 добавлений и 4 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -14,7 +14,7 @@
* Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. * Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
* Copyright (c) 2013-2015 Los Alamos National Security, LLC. All rights * Copyright (c) 2013-2015 Los Alamos National Security, LLC. All rights
* reserved. * reserved.
* Copyright (c) 2015 Research Organization for Information Science * Copyright (c) 2015-2016 Research Organization for Information Science
* and Technology (RIST). All rights reserved. * and Technology (RIST). All rights reserved.
* $COPYRIGHT$ * $COPYRIGHT$
* *
@ -167,18 +167,18 @@ config_window(void *base, size_t size, int disp_unit,
MPI_WIN_SIZE, size, true); MPI_WIN_SIZE, size, true);
if (OMPI_SUCCESS != ret) return ret; if (OMPI_SUCCESS != ret) return ret;
ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win, ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win,
&win->w_keyhash, &win->w_keyhash,
MPI_WIN_DISP_UNIT, disp_unit, MPI_WIN_DISP_UNIT, disp_unit,
true); true);
if (OMPI_SUCCESS != ret) return ret; if (OMPI_SUCCESS != ret) return ret;
ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win, ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win,
&win->w_keyhash, &win->w_keyhash,
MPI_WIN_CREATE_FLAVOR, flavor, true); MPI_WIN_CREATE_FLAVOR, flavor, true);
if (OMPI_SUCCESS != ret) return ret; if (OMPI_SUCCESS != ret) return ret;
ret = ompi_attr_set_fortran_mpi2(WIN_ATTR, win, ret = ompi_attr_set_fortran_mpi1(WIN_ATTR, win,
&win->w_keyhash, &win->w_keyhash,
MPI_WIN_MODEL, model, true); MPI_WIN_MODEL, model, true);
if (OMPI_SUCCESS != ret) return ret; if (OMPI_SUCCESS != ret) return ret;