libctf: actually close bfds we have opened

[deliverable/binutils-gdb.git] / libctf / ctf-archive.c

diff --git a/libctf/ctf-archive.c b/libctf/ctf-archive.c
index 8de11d6d583e8a892623b8d125d31b30d563429a..979641cc1e728b76ee0956fa7fd5f9514389905f 100644 (file)
--- a/libctf/ctf-archive.c
+++ b/libctf/ctf-archive.c
@@ -436,6 +436,8 @@ ctf_arc_close (ctf_archive_t *arc)
   free ((void *) arc->ctfi_symsect.cts_data);
   /* Do not free the ctfi_strsect: it is bound to the bfd.  */
   free (arc->ctfi_data);
+  if (arc->ctfi_bfd_close)
+    arc->ctfi_bfd_close (arc);
   free (arc);
 }