mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-05 15:42:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r961] Added barrier after MPI_File_set_size to prevent race condition:

Browse Source 
subsequent writes were being truncated, causing holes in file.
This commit is contained in:
Robert Kim Yates 1998-12-07 18:21:41 -05:00
parent bf250c6bb2
commit 5ba9869b49
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/H5Fmpio.c
View File

@ -295,6 +295,10 @@ H5F_mpio_access(const char *name, const H5F_access_t *access_parms, int mode,
* Added H5F_mpio_Debug debug flags controlled by MPI_Info. * Added H5F_mpio_Debug debug flags controlled by MPI_Info.
* *
* rky 980828 Init flag controlling redundant metadata writes to disk. * rky 980828 Init flag controlling redundant metadata writes to disk.
*
* rky 19981207 Added barrier after MPI_File_set_size to prevent
* race condition: subsequent writes were being truncated,
* causing holes in file.
*------------------------------------------------------------------------- *-------------------------------------------------------------------------
*/ */
static H5F_low_t * static H5F_low_t *
@ -354,6 +358,12 @@ H5F_mpio_open(const char *name, const H5F_access_t *access_parms, uintn flags,
HRETURN_ERROR(H5E_IO, H5E_CANTOPENFILE, NULL, HRETURN_ERROR(H5E_IO, H5E_CANTOPENFILE, NULL,
"MPI_File_set_size failed trying to truncate file" ); "MPI_File_set_size failed trying to truncate file" );
} }
/* Don't let any proc return until all have truncated the file. */
mpierr = MPI_Barrier( access_parms->u.mpio.comm );
if (MPI_SUCCESS!=mpierr) {
MPI_File_close( &fh );
HRETURN_ERROR( H5E_IO, H5E_MPI, NULL, "MPI_Barrier failed" );
}
} }
/* Build the return value */ /* Build the return value */