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

common/ompio: fix an ordering problem during file_open

Просмотр исходного кода 
the sharedfp component has to be selected and opened before
we set the default file view during file_open. Otherwise
there is a sperious error message from the sharefp_file_seek
operation that is called during the file_set_view.

Fixes Issue #5560

Signed-off-by: Edgar Gabriel <egabriel@central.uh.edu>
Этот коммит содержится в:
Edgar Gabriel 2018-08-20 09:26:21 -05:00
родитель fc9218dd01
Коммит 2742273ee3
1 изменённых файлов: 11 добавлений и 11 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

22
ompi/mca/common/ompio/common_ompio_file_open.c
Просмотреть файл

@ -9,7 +9,7 @@
* University of Stuttgart. All rights reserved. * University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California. * Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved. * All rights reserved.
* Copyright (c) 2008-2017 University of Houston. All rights reserved. * Copyright (c) 2008-2018 University of Houston. All rights reserved.
* Copyright (c) 2015-2018 Research Organization for Information Science * Copyright (c) 2015-2018 Research Organization for Information Science
* and Technology (RIST). All rights reserved. * and Technology (RIST). All rights reserved.
* Copyright (c) 2016 Cisco Systems, Inc. All rights reserved. * Copyright (c) 2016 Cisco Systems, Inc. All rights reserved.
@ -164,15 +164,6 @@ int mca_common_ompio_file_open (ompi_communicator_t *comm,
goto fn_fail; goto fn_fail;
} }
/* Set default file view */
mca_common_ompio_set_view(ompio_fh,
0,
&ompi_mpi_byte.dt,
&ompi_mpi_byte.dt,
"native",
info);
if ( true == use_sharedfp ) { if ( true == use_sharedfp ) {
/* open the file once more for the shared file pointer if required. /* open the file once more for the shared file pointer if required.
** Can be disabled by the user if no shared file pointer operations ** Can be disabled by the user if no shared file pointer operations
@ -191,6 +182,15 @@ int mca_common_ompio_file_open (ompi_communicator_t *comm,
} }
} }
/* Set default file view */
mca_common_ompio_set_view(ompio_fh,
0,
&ompi_mpi_byte.dt,
&ompi_mpi_byte.dt,
"native",
info);
/* If file has been opened in the append mode, move the internal /* If file has been opened in the append mode, move the internal
file pointer of OMPIO to the very end of the file. */ file pointer of OMPIO to the very end of the file. */
@ -506,7 +506,7 @@ int mca_common_ompio_file_delete (const char *filename,
return ret; return ret;
} }
ret = fh->f_fs->fs_file_delete (filename, NULL); ret = fh->f_fs->fs_file_delete ( (char *)filename, NULL);
free(fh); free(fh);
if (OMPI_SUCCESS != ret) { if (OMPI_SUCCESS != ret) {