Commit 056c1652 by Jan Kratochvil Committed by Tobias Burnus

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

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
parent b0ff8d7a
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
......
......@@ -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));
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment