(finclude): Clean error msf if file_size_and_mode fails.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@1558 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/cccp.c b/gcc/cccp.c
index 76feed7..c84e620 100644 (file)
--- a/gcc/cccp.c
+++ b/gcc/cccp.c
@@ -3972,7 +3972,11 @@ finclude (f, fname, op, system_header_p, dirptr)
   CHECK_DEPTH (return;);
 
   if (file_size_and_mode (f, &st_mode, &st_size) < 0)
-    goto nope;         /* Impossible? */
+    {
+      perror_with_name (fname);
+      close (f);
+      return;
+    }
 
   fp = &instack[indepth + 1];
   bzero (fp, sizeof (FILE_BUF));