From 30c1e454c9236cf470be6c287ebac55df5efc4c4 Mon Sep 17 00:00:00 2001 From: law Date: Tue, 27 Jan 1998 09:23:08 +0000 Subject: [PATCH] * 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 --- gcc/ChangeLog | 4 ++++ gcc/tlink.c | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index ba970d5..545ac81 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,7 @@ +Tue Jan 27 10:22:13 1998 Kamil Iskra + + * tlink.c (scan_linker_output): Call fclose() for opened files. + Tue Jan 27 05:05:26 1998 Richard Henderson * 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 --- 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); } -- 2.7.4