* elf.c (bfd_elf_set_dt_needed_name): Don't do anything if the

	format is not bfd_object.
	(bfd_elf_get_dt_soname): Likewise.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index cc6060cb46b5785cdc0b9cc56df55864efdef823..1e7f305500004928ba12f397c30d99e5cdfa4eb1 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,9 @@
+Sat Feb 24 11:38:58 1996  Ian Lance Taylor  <ian@cygnus.com>
+
+       * elf.c (bfd_elf_set_dt_needed_name): Don't do anything if the
+       format is not bfd_object.
+       (bfd_elf_get_dt_soname): Likewise.
+
 Wed Feb 21 13:58:04 1996  Ian Lance Taylor  <ian@cygnus.com>
 
        * coff-sh.c (sh_relax_delete_bytes): Correct range of R_SH_USES

diff --git a/bfd/elf.c b/bfd/elf.c
index da082e07edc5e0965ac02fcf928e393bc493d74f..eab15b009b3bd3aac06471c239ca7ef0cac05557 100644 (file)
--- a/bfd/elf.c
+++ b/bfd/elf.c
@@ -618,11 +618,13 @@ bfd_elf_set_dt_needed_name (abfd, name)
      bfd *abfd;
      const char *name;
 {
-  if (bfd_get_flavour (abfd) == bfd_target_elf_flavour)
-    elf_dt_needed_name (abfd) = name;
+  if (bfd_get_flavour (abfd) == bfd_target_elf_flavour
+      && bfd_get_format (abfd) == bfd_object)
+    elf_dt_name (abfd) = name;
 }
 
-/* Get the list of DT_NEEDED entries for a link.  */
+/* Get the list of DT_NEEDED entries for a link.  This is a hook for
+   the ELF emulation code.  */
 
 struct bfd_link_needed_list *
 bfd_elf_get_needed_list (abfd, info)
@@ -633,6 +635,20 @@ bfd_elf_get_needed_list (abfd, info)
     return NULL;
   return elf_hash_table (info)->needed;
 }
+
+/* Get the name actually used for a dynamic object for a link.  This
+   is the SONAME entry if there is one.  Otherwise, it is the string
+   passed to bfd_elf_set_dt_needed_name, or it is the filename.  */
+
+const char *
+bfd_elf_get_dt_soname (abfd)
+     bfd *abfd;
+{
+  if (bfd_get_flavour (abfd) == bfd_target_elf_flavour
+      && bfd_get_format (abfd) == bfd_object)
+    return elf_dt_name (abfd);
+  return NULL;
+}
 \f
 /* Allocate an ELF string table--force the first byte to be zero.  */