module.c (gfc_dump_module): Report error on unlink only if errno != ENOENT.

2008-11-25  H.J. Lu  <hongjiu.lu@intel.com>

	* module.c (gfc_dump_module): Report error on unlink only if
	errno != ENOENT.

From-SVN: r142192

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b22c8da..a01ae8f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-25  H.J. Lu  <hongjiu.lu@intel.com>
+
+       * module.c (gfc_dump_module): Report error on unlink only if
+       errno != ENOENT.
+
 2008-11-25  Mikael Morin  <mikael.morin@tele2.fr>
 
        PR fortran/36463

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index a49745a..1b32ee2 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -4850,7 +4850,7 @@ 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.  */
-      if (unlink (filename))
+      if (unlink (filename) && errno != ENOENT)
        gfc_fatal_error ("Can't delete module file '%s': %s", filename,
                         strerror (errno));
       if (rename (filename_tmp, filename))