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

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index ba970d5..545ac81 100644 (file)
--- 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 017ac42..eb3d878 100644 (file)
--- 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);
 }