Re: bfd_cleanup for object_p

[deliverable/binutils-gdb.git] / bfd / sco5-core.c

diff --git a/bfd/sco5-core.c b/bfd/sco5-core.c
index a9afbbacd9af3cf7467ed6627605211cd58d7424..84dbf4f27fc4394935940e1431a263eba59cfe80 100644 (file)
--- a/bfd/sco5-core.c
+++ b/bfd/sco5-core.c
@@ -101,7 +101,7 @@ read_uarea (bfd *abfd, int filepos)
   return &rawptr->u;
 }
 
-const bfd_target *
+const bfd_cleanup
 sco5_core_file_p (bfd *abfd)
 {
   int coffset_siz, val, nsecs, cheadoffs;
@@ -300,7 +300,7 @@ sco5_core_file_p (bfd *abfd)
 
     }
 
-  return abfd->xvec;
+  return _bfd_no_cleanup;
 
  fail:
   if (abfd->tdata.any)