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

From-SVN: r17504

gcc/ChangeLog

+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

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);
 }