mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-20 11:00:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/38248 (Ignored temporary module files manipulation errors)

Browse Source 
2008-11-25  Jan Kratochvil  <jan.kratochvil@redhat.com>

        PR fortran/38248
        * module.c (gfc_dump_module): Check rename/unlink syscalls errors.

From-SVN: r142190
This commit is contained in:
Jan Kratochvil 2008-11-25 12:51:44 +00:00 committed by Tobias Burnus
parent b0ff8d7af5
commit 056c165212
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2008-11-25 Jan Kratochvil <jan.kratochvil@redhat.com>
PR fortran/38248
* module.c (gfc_dump_module): Check rename/unlink syscalls errors.
2008-11-25 Eric Botcazou <ebotcazou@adacore.com>
PR fortran/37319

14
gcc/fortran/module.c
View File

@ -4850,11 +4850,19 @@ gfc_dump_module (const char *name, int dump_flag)
|| memcmp (md5_old, md5_new, sizeof (md5_old)) != 0)
{
/* Module file have changed, replace the old one. */
unlink (filename);
rename (filename_tmp, filename);
if (unlink (filename))
gfc_fatal_error ("Can't delete module file '%s': %s", filename,
strerror (errno));
if (rename (filename_tmp, filename))
gfc_fatal_error ("Can't rename module file '%s' to '%s': %s",
filename_tmp, filename, strerror (errno));
}
else
unlink (filename_tmp);
{
if (unlink (filename_tmp))
gfc_fatal_error ("Can't delete temporary module file '%s': %s",
filename_tmp, strerror (errno));
}
}