From: Kamil Iskra <iskra@student.uci.agh.edu.pl>
Date: Tue, 27 Jan 1998 09:23:08 +0000 (+0100)
Subject: * tlink.c (scan_linker_output): Call fclose() for opened files.
X-Git-Tag: releases/libf2c-0.5.21~63
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=7b6ffd1189e854afec67a05baca2e1a58819b5b3;p=thirdparty%2Fgcc.git

* tlink.c (scan_linker_output): Call fclose() for opened files.

From-SVN: r17504
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index ba970d5f15c3..545ac816f67b 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jan 27 10:22:13 1998  Kamil Iskra  <iskra@student.uci.agh.edu.pl>
+
+	* tlink.c (scan_linker_output): Call fclose() for opened files.
+
 Tue Jan 27 05:05:26 1998  Richard Henderson  <rth@cygnus.com>
 
 	* alpha.c (output_epilog [!VMS]): Don't tag global functions if
diff --git a/gcc/tlink.c b/gcc/tlink.c
index 017ac42131ed..eb3d878ec513 100644
--- a/gcc/tlink.c
+++ b/gcc/tlink.c
@@ -575,7 +575,10 @@ scan_linker_output (fname)
 	}
 
       if (sym && sym->tweaked)
-	return 0;
+	{
+	  fclose (stream);
+	  return 0;
+	}
       if (sym && !sym->tweaking)
 	{
 	  if (tlink_verbose >= 2)
@@ -588,6 +591,7 @@ scan_linker_output (fname)
       obstack_free (&temporary_obstack, temporary_firstobj);
     }
 
+  fclose (stream);
   return (file_stack != NULL);
 }