From: Richard Stallman <rms@gnu.org>
Date: Sat, 11 Jul 1992 21:09:48 +0000 (+0000)
Subject: (finclude): Clean error msf if file_size_and_mode fails.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d75e62a9761a136e5bfa20f564cb9671a98f95c1;p=gcc.git

(finclude): Clean error msf if file_size_and_mode fails.

From-SVN: r1558
---

diff --git a/gcc/cccp.c b/gcc/cccp.c
index 76feed7f7d1..c84e62094cf 100644
--- 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));