mpi/c: MPI_PROC_NULL is not a valid rank in MPI_Win_{lock,unlock}
Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
родитель
f2ed293ecd
Коммит
ebe6125750
@ -12,7 +12,7 @@
|
|||||||
* All rights reserved.
|
* All rights reserved.
|
||||||
* Copyright (c) 2014 Los Alamos National Security, LLC. All rights
|
* Copyright (c) 2014 Los Alamos National Security, LLC. All rights
|
||||||
* reserved.
|
* reserved.
|
||||||
* Copyright (c) 2015 Research Organization for Information Science
|
* Copyright (c) 2015-2017 Research Organization for Information Science
|
||||||
* and Technology (RIST). All rights reserved.
|
* and Technology (RIST). All rights reserved.
|
||||||
* $COPYRIGHT$
|
* $COPYRIGHT$
|
||||||
*
|
*
|
||||||
@ -61,9 +61,6 @@ int MPI_Win_lock(int lock_type, int rank, int assert, MPI_Win win)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/* NTH: do not bother keeping track of locking MPI_PROC_NULL. */
|
|
||||||
if (MPI_PROC_NULL == rank) return MPI_SUCCESS;
|
|
||||||
|
|
||||||
OPAL_CR_ENTER_LIBRARY();
|
OPAL_CR_ENTER_LIBRARY();
|
||||||
|
|
||||||
rc = win->w_osc_module->osc_lock(lock_type, rank, assert, win);
|
rc = win->w_osc_module->osc_lock(lock_type, rank, assert, win);
|
||||||
|
@ -12,7 +12,7 @@
|
|||||||
* All rights reserved.
|
* All rights reserved.
|
||||||
* Copyright (c) 2014 Los Alamos National Security, LLC. All rights
|
* Copyright (c) 2014 Los Alamos National Security, LLC. All rights
|
||||||
* reserved.
|
* reserved.
|
||||||
* Copyright (c) 2015 Research Organization for Information Science
|
* Copyright (c) 2015-2017 Research Organization for Information Science
|
||||||
* and Technology (RIST). All rights reserved.
|
* and Technology (RIST). All rights reserved.
|
||||||
* $COPYRIGHT$
|
* $COPYRIGHT$
|
||||||
*
|
*
|
||||||
@ -54,9 +54,6 @@ int MPI_Win_unlock(int rank, MPI_Win win)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/* NTH: do not bother keeping track of unlocking MPI_PROC_NULL. */
|
|
||||||
if (MPI_PROC_NULL == rank) return MPI_SUCCESS;
|
|
||||||
|
|
||||||
OPAL_CR_ENTER_LIBRARY();
|
OPAL_CR_ENTER_LIBRARY();
|
||||||
|
|
||||||
rc = win->w_osc_module->osc_unlock(rank, win);
|
rc = win->w_osc_module->osc_unlock(rank, win);
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user