Return bfd_error_wrong_format on a format mismatch.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 773cf69..a242248 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,9 @@
+2000-03-11  Alan Modra  <alan@spri.levels.unisa.edu.au>
+
+       * ieee.c (ieee_archive_p): Return bfd_error_wrong_format on 
+       a format mismatch rather than an "error" from bfd_read such as
+       bfd_error_file_truncated.
+
 2000-03-10  Geoff Keating  <geoffk@cygnus.com>
 
        * elf32-mips.c (_bfd_mips_elf_relocate_section): Do proper

diff --git a/bfd/ieee.c b/bfd/ieee.c
index 989d724..82b3bac 100644 (file)
--- a/bfd/ieee.c
+++ b/bfd/ieee.c
@@ -1336,7 +1336,7 @@ ieee_archive_p (abfd)
   if (this_byte (&(ieee->h)) != Module_Beginning)
     {
       abfd->tdata.ieee_ar_data = save;
-      goto error_return;
+      goto got_wrong_format_error;
     }
 
   next_byte (&(ieee->h));
@@ -1345,7 +1345,7 @@ ieee_archive_p (abfd)
     {
       bfd_release (abfd, ieee);
       abfd->tdata.ieee_ar_data = save;
-      goto error_return;
+      goto got_wrong_format_error;
     }
   /* Throw away the filename */
   read_id (&(ieee->h));
@@ -1448,6 +1448,8 @@ ieee_archive_p (abfd)
 
   return abfd->xvec;
 
+ got_wrong_format_error:
+  bfd_set_error (bfd_error_wrong_format);
  error_return:
   if (elts != NULL)
     free (elts);