Skip to content

Commit 82c7e98

Browse files
vehrezbeekman
authored andcommitted
Changes corresponding to compiler bug 78505 fix
Remove the sync_all from the `register()`, because the compiler now generates it after the assignment in an `ALLOCATE(, SOURCE=)` has been done. Comment on `MPI_Win_allocate()` implicitly synchronizing. (cherry picked from commit 7e917b2, minor wording changes to commit log from @zbeekman for clarity)
1 parent 4196f42 commit 82c7e98

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

src/mpi/mpi_caf.c

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -562,6 +562,7 @@ PREFIX (register) (size_t size, caf_register_t type, caf_token_t *token,
562562
#if MPI_VERSION >= 3
563563
if (type != CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY)
564564
{
565+
// Note, MPI_Win_allocate implicitly synchronizes.
565566
MPI_Win_allocate (actual_size, 1, MPI_INFO_NULL, CAF_COMM_WORLD, &mem, p);
566567
CAF_Win_lock_all (*p);
567568
}
@@ -584,8 +585,6 @@ PREFIX (register) (size_t size, caf_register_t type, caf_token_t *token,
584585

585586
if (type != CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY)
586587
{
587-
// PREFIX(sync_all) (NULL,NULL,0);
588-
589588
caf_static_t *tmp = malloc (sizeof (caf_static_t));
590589
tmp->prev = caf_tot;
591590
tmp->token = *token;

0 commit comments

Comments
 (0)