1
1

osc/pt2pt: make progress in flush*_local

There is no reason not to progress OSC during the MPI_Win_flush_local
and MPI_Win_flush_all_local calls. This fixes #3750.

Signed-off-by: Nathan Hjelm <hjelmn@lanl.gov>
Этот коммит содержится в:
Nathan Hjelm 2017-06-27 09:24:11 -06:00 коммит произвёл Nathan Hjelm
родитель 832f1b03a4
Коммит bf1c863b96

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

@ -8,7 +8,7 @@
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2007-2016 Los Alamos National Security, LLC. All rights
* Copyright (c) 2007-2017 Los Alamos National Security, LLC. All rights
* reserved.
* Copyright (c) 2010-2016 IBM Corporation. All rights reserved.
* Copyright (c) 2012-2013 Sandia National Laboratories. All rights reserved.
@ -633,6 +633,9 @@ int ompi_osc_pt2pt_flush_local (int target, struct ompi_win_t *win)
}
OPAL_THREAD_UNLOCK(&module->lock);
/* make some progress */
opal_progress ();
return OMPI_SUCCESS;
}
@ -659,6 +662,9 @@ int ompi_osc_pt2pt_flush_local_all (struct ompi_win_t *win)
}
OPAL_THREAD_UNLOCK(&module->lock);
/* make some progress */
opal_progress ();
return OMPI_SUCCESS;
}