PR binutils/716
[deliverable/binutils-gdb.git] / bfd / elf32-hppa.c
index 933879379dffc6ee8f6e5be60d2a5e97db6236e2..d861847628c05c38c2987f8da6deb9405ac69a6e 100644 (file)
@@ -1,6 +1,6 @@
 /* BFD back-end for HP PA-RISC ELF files.
    Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1999, 2000, 2001,
-   2002, 2003 Free Software Foundation, Inc.
+   2002, 2003, 2004, 2005 Free Software Foundation, Inc.
 
    Original code by
        Center for Software Science
@@ -141,6 +141,12 @@ static const bfd_byte plt_stub[] =
 #define IS_ABSOLUTE_RELOC(r_type) 1
 #endif
 
+/* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
+   copying dynamic variables from a shared lib into an app's dynbss
+   section, and instead use a dynamic relocation to point into the
+   shared lib.  */
+#define ELIMINATE_COPY_RELOCS 1
+
 enum elf32_hppa_stub_type {
   hppa_stub_long_branch,
   hppa_stub_long_branch_shared,
@@ -203,10 +209,6 @@ struct elf32_hppa_link_hash_entry {
 #endif
   } *dyn_relocs;
 
-  /* Set if the only reason we need a .plt entry is for a non-PIC to
-     PIC function call.  */
-  unsigned int pic_call:1;
-
   /* Set if this symbol is used by a plabel reloc.  */
   unsigned int plabel:1;
 };
@@ -345,7 +347,6 @@ hppa_link_hash_newfunc (struct bfd_hash_entry *entry,
       eh = (struct elf32_hppa_link_hash_entry *) entry;
       eh->stub_cache = NULL;
       eh->dyn_relocs = NULL;
-      eh->pic_call = 0;
       eh->plabel = 0;
     }
 
@@ -538,8 +539,8 @@ hppa_add_stub (const char *stub_name,
                                      TRUE, FALSE);
   if (stub_entry == NULL)
     {
-      (*_bfd_error_handler) (_("%s: cannot create stub entry %s"),
-                            bfd_archive_filename (section->owner),
+      (*_bfd_error_handler) (_("%B: cannot create stub entry %s"),
+                            section->owner,
                             stub_name);
       return NULL;
     }
@@ -556,7 +557,8 @@ static enum elf32_hppa_stub_type
 hppa_type_of_stub (asection *input_sec,
                   const Elf_Internal_Rela *rel,
                   struct elf32_hppa_link_hash_entry *hash,
-                  bfd_vma destination)
+                  bfd_vma destination,
+                  struct bfd_link_info *info)
 {
   bfd_vma location;
   bfd_vma branch_offset;
@@ -565,8 +567,11 @@ hppa_type_of_stub (asection *input_sec,
 
   if (hash != NULL
       && hash->elf.plt.offset != (bfd_vma) -1
-      && (hash->elf.dynindx != -1 || hash->pic_call)
-      && !hash->plabel)
+      && hash->elf.dynindx != -1
+      && !hash->plabel
+      && (info->shared
+         || !hash->elf.def_regular
+         || hash->elf.root.type == bfd_link_hash_defweak))
     {
       /* We need an import stub.  Decide between hppa_stub_import
         and hppa_stub_import_shared later.  */
@@ -667,7 +672,7 @@ hppa_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
   stub_sec = stub_entry->stub_sec;
 
   /* Make a note of the offset within the stubs for this entry.  */
-  stub_entry->stub_offset = stub_sec->_raw_size;
+  stub_entry->stub_offset = stub_sec->size;
   loc = stub_sec->contents + stub_entry->stub_offset;
 
   stub_bfd = stub_sec->owner;
@@ -769,39 +774,6 @@ hppa_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
          size = 16;
        }
 
-      if (!info->shared
-         && stub_entry->h != NULL
-         && stub_entry->h->pic_call)
-       {
-         /* Build the .plt entry needed to call a PIC function from
-            statically linked code.  We don't need any relocs.  */
-         bfd *dynobj;
-         struct elf32_hppa_link_hash_entry *eh;
-         bfd_vma value;
-
-         dynobj = htab->elf.dynobj;
-         eh = (struct elf32_hppa_link_hash_entry *) stub_entry->h;
-
-         if (eh->elf.root.type != bfd_link_hash_defined
-             && eh->elf.root.type != bfd_link_hash_defweak)
-           abort ();
-
-         value = (eh->elf.root.u.def.value
-                  + eh->elf.root.u.def.section->output_offset
-                  + eh->elf.root.u.def.section->output_section->vma);
-
-         /* Fill in the entry in the procedure linkage table.
-
-            The format of a plt entry is
-            <funcaddr>
-            <__gp>.  */
-
-         bfd_put_32 (htab->splt->owner, value,
-                     htab->splt->contents + off);
-         value = elf_gp (htab->splt->output_section->owner);
-         bfd_put_32 (htab->splt->owner, value,
-                     htab->splt->contents + off + 4);
-       }
       break;
 
     case hppa_stub_export:
@@ -820,9 +792,9 @@ hppa_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
              || sym_value - 8 + (1 << (22 + 1)) >= (1 << (22 + 2))))
        {
          (*_bfd_error_handler)
-           (_("%s(%s+0x%lx): cannot reach %s, recompile with -ffunction-sections"),
-            bfd_archive_filename (stub_entry->target_section->owner),
-            stub_sec->name,
+           (_("%B(%A+0x%lx): cannot reach %s, recompile with -ffunction-sections"),
+            stub_entry->target_section->owner,
+            stub_sec,
             (long) stub_entry->stub_offset,
             stub_entry->root.string);
          bfd_set_error (bfd_error_bad_value);
@@ -844,7 +816,7 @@ hppa_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
 
       /* Point the function symbol at the stub.  */
       stub_entry->h->elf.root.u.def.section = stub_sec;
-      stub_entry->h->elf.root.u.def.value = stub_sec->_raw_size;
+      stub_entry->h->elf.root.u.def.value = stub_sec->size;
 
       size = 24;
       break;
@@ -854,7 +826,7 @@ hppa_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
       return FALSE;
     }
 
-  stub_sec->_raw_size += size;
+  stub_sec->size += size;
   return TRUE;
 }
 
@@ -863,7 +835,6 @@ hppa_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
 #undef BL_R1
 #undef ADDIL_R1
 #undef DEPI_R1
-#undef ADDIL_DP
 #undef LDW_R1_R21
 #undef LDW_R1_DLT
 #undef LDW_R1_R19
@@ -908,7 +879,7 @@ hppa_size_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
        size = 16;
     }
 
-  stub_entry->stub_sec->_raw_size += size;
+  stub_entry->stub_sec->size += size;
   return TRUE;
 }
 
@@ -924,7 +895,18 @@ elf32_hppa_object_p (bfd *abfd)
   i_ehdrp = elf_elfheader (abfd);
   if (strcmp (bfd_get_target (abfd), "elf32-hppa-linux") == 0)
     {
-      if (i_ehdrp->e_ident[EI_OSABI] != ELFOSABI_LINUX)
+      /* GCC on hppa-linux produces binaries with OSABI=Linux,
+        but the kernel produces corefiles with OSABI=SysV.  */
+      if (i_ehdrp->e_ident[EI_OSABI] != ELFOSABI_LINUX &&
+         i_ehdrp->e_ident[EI_OSABI] != ELFOSABI_NONE) /* aka SYSV */
+       return FALSE;
+    }
+  else if (strcmp (bfd_get_target (abfd), "elf32-hppa-netbsd") == 0)
+    {
+      /* GCC on hppa-netbsd produces binaries with OSABI=NetBSD,
+        but the kernel produces corefiles with OSABI=SysV.  */
+      if (i_ehdrp->e_ident[EI_OSABI] != ELFOSABI_NETBSD &&
+         i_ehdrp->e_ident[EI_OSABI] != ELFOSABI_NONE) /* aka SYSV */
        return FALSE;
     }
   else
@@ -990,7 +972,7 @@ elf32_hppa_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
 /* Copy the extra info we tack onto an elf_link_hash_entry.  */
 
 static void
-elf32_hppa_copy_indirect_symbol (struct elf_backend_data *bed,
+elf32_hppa_copy_indirect_symbol (const struct elf_backend_data *bed,
                                 struct elf_link_hash_entry *dir,
                                 struct elf_link_hash_entry *ind)
 {
@@ -1035,7 +1017,20 @@ elf32_hppa_copy_indirect_symbol (struct elf_backend_data *bed,
       eind->dyn_relocs = NULL;
     }
 
-  _bfd_elf_link_hash_copy_indirect (bed, dir, ind);
+  if (ELIMINATE_COPY_RELOCS
+      && ind->root.type != bfd_link_hash_indirect
+      && dir->dynamic_adjusted)
+    {
+      /* If called to transfer flags for a weakdef during processing
+        of elf_adjust_dynamic_symbol, don't copy non_got_ref.
+        We clear it ourselves for ELIMINATE_COPY_RELOCS.  */
+      dir->ref_dynamic |= ind->ref_dynamic;
+      dir->ref_regular |= ind->ref_regular;
+      dir->ref_regular_nonweak |= ind->ref_regular_nonweak;
+      dir->needs_plt |= ind->needs_plt;
+    }
+  else
+    _bfd_elf_link_hash_copy_indirect (bed, dir, ind);
 }
 
 /* Look through the relocs for a section during the first phase, and
@@ -1097,9 +1092,6 @@ elf32_hppa_check_relocs (bfd *abfd,
        case R_PARISC_DLTIND21L:
          /* This symbol requires a global offset table entry.  */
          need_entry = NEED_GOT;
-
-         /* Mark this section as containing PIC code.  */
-         sec->flags |= SEC_HAS_GOT_REF;
          break;
 
        case R_PARISC_PLABEL14R: /* "Official" procedure labels.  */
@@ -1164,12 +1156,13 @@ elf32_hppa_check_relocs (bfd *abfd,
            }
          break;
 
-       case R_PARISC_SEGBASE: /* Used to set segment base.  */
+       case R_PARISC_SEGBASE:  /* Used to set segment base.  */
        case R_PARISC_SEGREL32: /* Relative reloc, used for unwind.  */
        case R_PARISC_PCREL14F: /* PC relative load/store.  */
        case R_PARISC_PCREL14R:
        case R_PARISC_PCREL17R: /* External branches.  */
        case R_PARISC_PCREL21L: /* As above, and for load/store too.  */
+       case R_PARISC_PCREL32:
          /* We don't need to propagate the relocation if linking a
             shared object since these are section relative.  */
          continue;
@@ -1180,8 +1173,8 @@ elf32_hppa_check_relocs (bfd *abfd,
          if (info->shared)
            {
              (*_bfd_error_handler)
-               (_("%s: relocation %s can not be used when making a shared object; recompile with -fPIC"),
-                bfd_archive_filename (abfd),
+               (_("%B: relocation %s can not be used when making a shared object; recompile with -fPIC"),
+                abfd,
                 elf_hppa_howto_table[r_type].name);
              bfd_set_error (bfd_error_bad_value);
              return FALSE;
@@ -1193,20 +1186,6 @@ elf32_hppa_check_relocs (bfd *abfd,
        case R_PARISC_DIR14F: /* Used for load/store from absolute locn.  */
        case R_PARISC_DIR14R:
        case R_PARISC_DIR21L: /* As above, and for ext branches too.  */
-#if 0
-         /* Help debug shared library creation.  Any of the above
-            relocs can be used in shared libs, but they may cause
-            pages to become unshared.  */
-         if (info->shared)
-           {
-             (*_bfd_error_handler)
-               (_("%s: relocation %s should not be used when making a shared object; recompile with -fPIC"),
-                bfd_archive_filename (abfd),
-                elf_hppa_howto_table[r_type].name);
-           }
-         /* Fall through.  */
-#endif
-
        case R_PARISC_DIR32: /* .word relocs.  */
          /* We may want to output a dynamic relocation later.  */
          need_entry = NEED_DYNREL;
@@ -1215,16 +1194,14 @@ elf32_hppa_check_relocs (bfd *abfd,
          /* This relocation describes the C++ object vtable hierarchy.
             Reconstruct it for later use during GC.  */
        case R_PARISC_GNU_VTINHERIT:
-         if (!_bfd_elf32_gc_record_vtinherit (abfd, sec,
-                                              &h->elf, rel->r_offset))
+         if (!bfd_elf_gc_record_vtinherit (abfd, sec, &h->elf, rel->r_offset))
            return FALSE;
          continue;
 
          /* This relocation describes which C++ vtable entries are actually
             used.  Record for later use during GC.  */
        case R_PARISC_GNU_VTENTRY:
-         if (!_bfd_elf32_gc_record_vtentry (abfd, sec,
-                                            &h->elf, rel->r_addend))
+         if (!bfd_elf_gc_record_vtentry (abfd, sec, &h->elf, rel->r_addend))
            return FALSE;
          continue;
 
@@ -1288,7 +1265,7 @@ elf32_hppa_check_relocs (bfd *abfd,
            {
              if (h != NULL)
                {
-                 h->elf.elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
+                 h->elf.needs_plt = 1;
                  h->elf.plt.refcount += 1;
 
                  /* If this .plt entry is for a plabel, mark it so
@@ -1329,7 +1306,7 @@ elf32_hppa_check_relocs (bfd *abfd,
             so that we generate copy relocs if it turns out to be
             dynamic.  */
          if (h != NULL && !info->shared)
-           h->elf.elf_link_hash_flags |= ELF_LINK_NON_GOT_REF;
+           h->elf.non_got_ref = 1;
 
          /* If we are creating a shared library then we need to copy
             the reloc into the shared library.  However, if we are
@@ -1365,14 +1342,13 @@ elf32_hppa_check_relocs (bfd *abfd,
                   || (h != NULL
                       && (!info->symbolic
                           || h->elf.root.type == bfd_link_hash_defweak
-                          || (h->elf.elf_link_hash_flags
-                              & ELF_LINK_HASH_DEF_REGULAR) == 0))))
-             || (!info->shared
+                          || !h->elf.def_regular))))
+             || (ELIMINATE_COPY_RELOCS
+                 && !info->shared
                  && (sec->flags & SEC_ALLOC) != 0
                  && h != NULL
                  && (h->elf.root.type == bfd_link_hash_defweak
-                     || (h->elf.elf_link_hash_flags
-                         & ELF_LINK_HASH_DEF_REGULAR) == 0)))
+                     || !h->elf.def_regular)))
            {
              struct elf32_hppa_dyn_reloc_entry *p;
              struct elf32_hppa_dyn_reloc_entry **head;
@@ -1547,6 +1523,9 @@ elf32_hppa_gc_sweep_hook (bfd *abfd,
          struct elf32_hppa_dyn_reloc_entry *p;
 
          h = sym_hashes[r_symndx - symtab_hdr->sh_info];
+         while (h->root.type == bfd_link_hash_indirect
+                || h->root.type == bfd_link_hash_warning)
+           h = (struct elf_link_hash_entry *) h->root.u.i.link;
          eh = (struct elf32_hppa_link_hash_entry *) h;
 
          for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
@@ -1610,6 +1589,67 @@ elf32_hppa_gc_sweep_hook (bfd *abfd,
   return TRUE;
 }
 
+/* Support for core dump NOTE sections.  */
+
+static bfd_boolean
+elf32_hppa_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
+{
+  int offset;
+  size_t size;
+
+  switch (note->descsz)
+    {
+      default:
+       return FALSE;
+
+      case 396:                /* Linux/hppa */
+       /* pr_cursig */
+       elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
+
+       /* pr_pid */
+       elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
+
+       /* pr_reg */
+       offset = 72;
+       size = 320;
+
+       break;
+    }
+
+  /* Make a ".reg/999" section.  */
+  return _bfd_elfcore_make_pseudosection (abfd, ".reg",
+                                         size, note->descpos + offset);
+}
+
+static bfd_boolean
+elf32_hppa_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
+{
+  switch (note->descsz)
+    {
+      default:
+       return FALSE;
+
+      case 124:                /* Linux/hppa elf_prpsinfo.  */
+       elf_tdata (abfd)->core_program
+         = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
+       elf_tdata (abfd)->core_command
+         = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
+    }
+
+  /* Note that for some reason, a spurious space is tacked
+     onto the end of the args in some (at least one anyway)
+     implementations, so strip it off if it exists.  */
+  {
+    char *command = elf_tdata (abfd)->core_command;
+    int n = strlen (command);
+
+    if (0 < n && command[n - 1] == ' ')
+      command[n - 1] = '\0';
+  }
+
+  return TRUE;
+}
+
 /* Our own version of hide_symbol, so that we can keep plt entries for
    plabels.  */
 
@@ -1620,7 +1660,7 @@ elf32_hppa_hide_symbol (struct bfd_link_info *info,
 {
   if (force_local)
     {
-      h->elf_link_hash_flags |= ELF_LINK_FORCED_LOCAL;
+      h->forced_local = 1;
       if (h->dynindx != -1)
        {
          h->dynindx = -1;
@@ -1631,22 +1671,11 @@ elf32_hppa_hide_symbol (struct bfd_link_info *info,
 
   if (! ((struct elf32_hppa_link_hash_entry *) h)->plabel)
     {
-      h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
-      h->plt.offset = (bfd_vma) -1;
+      h->needs_plt = 0;
+      h->plt = elf_hash_table (info)->init_refcount;
     }
 }
 
-/* This is the condition under which elf32_hppa_finish_dynamic_symbol
-   will be called from elflink.h.  If elflink.h doesn't call our
-   finish_dynamic_symbol routine, we'll need to do something about
-   initializing any .plt and .got entries in elf32_hppa_relocate_section.  */
-#define WILL_CALL_FINISH_DYNAMIC_SYMBOL(DYN, INFO, H) \
-  ((DYN)                                                               \
-   && ((INFO)->shared                                                  \
-       || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)     \
-   && ((H)->dynindx != -1                                              \
-       || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0))
-
 /* Adjust a symbol defined by a dynamic object and referenced by a
    regular object.  The current definition is in some section of the
    dynamic object, but we're not including those sections.  We have to
@@ -1658,18 +1687,16 @@ elf32_hppa_adjust_dynamic_symbol (struct bfd_link_info *info,
                                  struct elf_link_hash_entry *h)
 {
   struct elf32_hppa_link_hash_table *htab;
-  struct elf32_hppa_link_hash_entry *eh;
-  struct elf32_hppa_dyn_reloc_entry *p;
   asection *s;
   unsigned int power_of_two;
 
   /* If this is a function, put it in the procedure linkage table.  We
      will fill in the contents of the procedure linkage table later.  */
   if (h->type == STT_FUNC
-      || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
+      || h->needs_plt)
     {
       if (h->plt.refcount <= 0
-         || ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0
+         || (h->def_regular
              && h->root.type != bfd_link_hash_defweak
              && ! ((struct elf32_hppa_link_hash_entry *) h)->plabel
              && (!info->shared || info->symbolic)))
@@ -1682,18 +1709,8 @@ elf32_hppa_adjust_dynamic_symbol (struct bfd_link_info *info,
             used by a plabel relocation.  Either this object is the
             application or we are doing a shared symbolic link.  */
 
-         /* As a special sop to the hppa ABI, we keep a .plt entry
-            for functions in sections containing PIC code.  */
-         if (!info->shared
-             && h->plt.refcount > 0
-             && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0
-             && (h->root.u.def.section->flags & SEC_HAS_GOT_REF) != 0)
-           ((struct elf32_hppa_link_hash_entry *) h)->pic_call = 1;
-         else
-           {
-             h->plt.offset = (bfd_vma) -1;
-             h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
-           }
+         h->plt.offset = (bfd_vma) -1;
+         h->needs_plt = 0;
        }
 
       return TRUE;
@@ -1704,13 +1721,15 @@ elf32_hppa_adjust_dynamic_symbol (struct bfd_link_info *info,
   /* If this is a weak symbol, and there is a real definition, the
      processor independent code will have arranged for us to see the
      real definition first, and we can just use the same value.  */
-  if (h->weakdef != NULL)
+  if (h->u.weakdef != NULL)
     {
-      if (h->weakdef->root.type != bfd_link_hash_defined
-         && h->weakdef->root.type != bfd_link_hash_defweak)
+      if (h->u.weakdef->root.type != bfd_link_hash_defined
+         && h->u.weakdef->root.type != bfd_link_hash_defweak)
        abort ();
-      h->root.u.def.section = h->weakdef->root.u.def.section;
-      h->root.u.def.value = h->weakdef->root.u.def.value;
+      h->root.u.def.section = h->u.weakdef->root.u.def.section;
+      h->root.u.def.value = h->u.weakdef->root.u.def.value;
+      if (ELIMINATE_COPY_RELOCS)
+       h->non_got_ref = h->u.weakdef->non_got_ref;
       return TRUE;
     }
 
@@ -1726,23 +1745,29 @@ elf32_hppa_adjust_dynamic_symbol (struct bfd_link_info *info,
 
   /* If there are no references to this symbol that do not use the
      GOT, we don't need to generate a copy reloc.  */
-  if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0)
+  if (!h->non_got_ref)
     return TRUE;
 
-  eh = (struct elf32_hppa_link_hash_entry *) h;
-  for (p = eh->dyn_relocs; p != NULL; p = p->next)
+  if (ELIMINATE_COPY_RELOCS)
     {
-      s = p->sec->output_section;
-      if (s != NULL && (s->flags & SEC_READONLY) != 0)
-       break;
-    }
+      struct elf32_hppa_link_hash_entry *eh;
+      struct elf32_hppa_dyn_reloc_entry *p;
 
-  /* If we didn't find any dynamic relocs in read-only sections, then
-     we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
-  if (p == NULL)
-    {
-      h->elf_link_hash_flags &= ~ELF_LINK_NON_GOT_REF;
-      return TRUE;
+      eh = (struct elf32_hppa_link_hash_entry *) h;
+      for (p = eh->dyn_relocs; p != NULL; p = p->next)
+       {
+         s = p->sec->output_section;
+         if (s != NULL && (s->flags & SEC_READONLY) != 0)
+           break;
+       }
+
+      /* If we didn't find any dynamic relocs in read-only sections, then
+        we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
+      if (p == NULL)
+       {
+         h->non_got_ref = 0;
+         return TRUE;
+       }
     }
 
   /* We must allocate the symbol in our .dynbss section, which will
@@ -1762,8 +1787,8 @@ elf32_hppa_adjust_dynamic_symbol (struct bfd_link_info *info,
      runtime process image.  */
   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
     {
-      htab->srelbss->_raw_size += sizeof (Elf32_External_Rela);
-      h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
+      htab->srelbss->size += sizeof (Elf32_External_Rela);
+      h->needs_copy = 1;
     }
 
   /* We need to figure out the alignment required for this symbol.  I
@@ -1775,8 +1800,7 @@ elf32_hppa_adjust_dynamic_symbol (struct bfd_link_info *info,
 
   /* Apply the required alignment.  */
   s = htab->sdynbss;
-  s->_raw_size = BFD_ALIGN (s->_raw_size,
-                           (bfd_size_type) (1 << power_of_two));
+  s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
   if (power_of_two > bfd_get_section_alignment (htab->elf.dynobj, s))
     {
       if (! bfd_set_section_alignment (htab->elf.dynobj, s, power_of_two))
@@ -1785,42 +1809,16 @@ elf32_hppa_adjust_dynamic_symbol (struct bfd_link_info *info,
 
   /* Define the symbol as being at this point in the section.  */
   h->root.u.def.section = s;
-  h->root.u.def.value = s->_raw_size;
+  h->root.u.def.value = s->size;
 
   /* Increment the section size to make room for the symbol.  */
-  s->_raw_size += h->size;
-
-  return TRUE;
-}
-
-/* Called via elf_link_hash_traverse to create .plt entries for an
-   application that uses statically linked PIC functions.  Similar to
-   the first part of elf32_hppa_adjust_dynamic_symbol.  */
-
-static bfd_boolean
-mark_PIC_calls (struct elf_link_hash_entry *h, void *inf ATTRIBUTE_UNUSED)
-{
-  if (h->root.type == bfd_link_hash_warning)
-    h = (struct elf_link_hash_entry *) h->root.u.i.link;
-
-  if (! (h->plt.refcount > 0
-        && (h->root.type == bfd_link_hash_defined
-            || h->root.type == bfd_link_hash_defweak)
-        && (h->root.u.def.section->flags & SEC_HAS_GOT_REF) != 0))
-    {
-      h->plt.offset = (bfd_vma) -1;
-      h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
-      return TRUE;
-    }
-
-  h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
-  ((struct elf32_hppa_link_hash_entry *) h)->pic_call = 1;
+  s->size += h->size;
 
   return TRUE;
 }
 
 /* Allocate space in the .plt for entries that won't have relocations.
-   ie. pic_call and plabel entries.  */
+   ie. plabel entries.  */
 
 static bfd_boolean
 allocate_plt_static (struct elf_link_hash_entry *h, void *inf)
@@ -1837,29 +1835,20 @@ allocate_plt_static (struct elf_link_hash_entry *h, void *inf)
 
   info = inf;
   htab = hppa_link_hash_table (info);
-  if (((struct elf32_hppa_link_hash_entry *) h)->pic_call)
-    {
-      /* Make an entry in the .plt section for non-pic code that is
-        calling pic code.  */
-      ((struct elf32_hppa_link_hash_entry *) h)->plabel = 0;
-      s = htab->splt;
-      h->plt.offset = s->_raw_size;
-      s->_raw_size += PLT_ENTRY_SIZE;
-    }
-  else if (htab->elf.dynamic_sections_created
+  if (htab->elf.dynamic_sections_created
           && h->plt.refcount > 0)
     {
       /* Make sure this symbol is output as a dynamic symbol.
         Undefined weak syms won't yet be marked as dynamic.  */
       if (h->dynindx == -1
-         && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0
+         && !h->forced_local
          && h->type != STT_PARISC_MILLI)
        {
-         if (! bfd_elf32_link_record_dynamic_symbol (info, h))
+         if (! bfd_elf_link_record_dynamic_symbol (info, h))
            return FALSE;
        }
 
-      if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info, h))
+      if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info->shared, h))
        {
          /* Allocate these later.  From this point on, h->plabel
             means that the plt entry is only used by a plabel.
@@ -1872,20 +1861,20 @@ allocate_plt_static (struct elf_link_hash_entry *h, void *inf)
          /* Make an entry in the .plt section for plabel references
             that won't have a .plt entry for other reasons.  */
          s = htab->splt;
-         h->plt.offset = s->_raw_size;
-         s->_raw_size += PLT_ENTRY_SIZE;
+         h->plt.offset = s->size;
+         s->size += PLT_ENTRY_SIZE;
        }
       else
        {
          /* No .plt entry needed.  */
          h->plt.offset = (bfd_vma) -1;
-         h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
+         h->needs_plt = 0;
        }
     }
   else
     {
       h->plt.offset = (bfd_vma) -1;
-      h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
+      h->needs_plt = 0;
     }
 
   return TRUE;
@@ -1913,16 +1902,15 @@ allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
   htab = hppa_link_hash_table (info);
   if (htab->elf.dynamic_sections_created
       && h->plt.offset != (bfd_vma) -1
-      && !((struct elf32_hppa_link_hash_entry *) h)->pic_call
       && !((struct elf32_hppa_link_hash_entry *) h)->plabel)
     {
       /* Make an entry in the .plt section.  */
       s = htab->splt;
-      h->plt.offset = s->_raw_size;
-      s->_raw_size += PLT_ENTRY_SIZE;
+      h->plt.offset = s->size;
+      s->size += PLT_ENTRY_SIZE;
 
       /* We also need to make an entry in the .rela.plt section.  */
-      htab->srelplt->_raw_size += sizeof (Elf32_External_Rela);
+      htab->srelplt->size += sizeof (Elf32_External_Rela);
       htab->need_plt_stub = 1;
     }
 
@@ -1931,22 +1919,22 @@ allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
       /* Make sure this symbol is output as a dynamic symbol.
         Undefined weak syms won't yet be marked as dynamic.  */
       if (h->dynindx == -1
-         && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0
+         && !h->forced_local
          && h->type != STT_PARISC_MILLI)
        {
-         if (! bfd_elf32_link_record_dynamic_symbol (info, h))
+         if (! bfd_elf_link_record_dynamic_symbol (info, h))
            return FALSE;
        }
 
       s = htab->sgot;
-      h->got.offset = s->_raw_size;
-      s->_raw_size += GOT_ENTRY_SIZE;
+      h->got.offset = s->size;
+      s->size += GOT_ENTRY_SIZE;
       if (htab->elf.dynamic_sections_created
          && (info->shared
              || (h->dynindx != -1
-                 && h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0))
+                 && !h->forced_local)))
        {
-         htab->srelgot->_raw_size += sizeof (Elf32_External_Rela);
+         htab->srelgot->size += sizeof (Elf32_External_Rela);
        }
     }
   else
@@ -1964,9 +1952,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
   if (info->shared)
     {
 #if RELATIVE_DYNRELOCS
-      if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0
-         && ((h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0
-             || info->symbolic))
+      if (SYMBOL_CALLS_LOCAL (info, h))
        {
          struct elf32_hppa_dyn_reloc_entry **pp;
 
@@ -1981,15 +1967,22 @@ allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
            }
        }
 #endif
+
+      /* Also discard relocs on undefined weak syms with non-default
+        visibility.  */
+      if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
+         && h->root.type == bfd_link_hash_undefweak)
+       eh->dyn_relocs = NULL;
     }
   else
     {
       /* For the non-shared case, discard space for relocs against
         symbols which turn out to need copy relocs or are not
         dynamic.  */
-      if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
-         && (((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
-              && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
+      if (!h->non_got_ref
+         && ((ELIMINATE_COPY_RELOCS
+              && h->def_dynamic
+              && !h->def_regular)
              || (htab->elf.dynamic_sections_created
                  && (h->root.type == bfd_link_hash_undefweak
                      || h->root.type == bfd_link_hash_undefined))))
@@ -1997,10 +1990,10 @@ allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
          /* Make sure this symbol is output as a dynamic symbol.
             Undefined weak syms won't yet be marked as dynamic.  */
          if (h->dynindx == -1
-             && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0
+             && !h->forced_local
              && h->type != STT_PARISC_MILLI)
            {
-             if (! bfd_elf32_link_record_dynamic_symbol (info, h))
+             if (! bfd_elf_link_record_dynamic_symbol (info, h))
                return FALSE;
            }
 
@@ -2020,7 +2013,7 @@ allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
   for (p = eh->dyn_relocs; p != NULL; p = p->next)
     {
       asection *sreloc = elf_section_data (p->sec)->sreloc;
-      sreloc->_raw_size += p->count * sizeof (Elf32_External_Rela);
+      sreloc->size += p->count * sizeof (Elf32_External_Rela);
     }
 
   return TRUE;
@@ -2041,7 +2034,7 @@ clobber_millicode_symbols (struct elf_link_hash_entry *h,
     h = (struct elf_link_hash_entry *) h->root.u.i.link;
 
   if (h->type == STT_PARISC_MILLI
-      && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
+      && !h->forced_local)
     {
       elf32_hppa_hide_symbol (info, h, TRUE);
     }
@@ -2097,12 +2090,12 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
   if (htab->elf.dynamic_sections_created)
     {
       /* Set the contents of the .interp section to the interpreter.  */
-      if (! info->shared)
+      if (info->executable)
        {
          s = bfd_get_section_by_name (dynobj, ".interp");
          if (s == NULL)
            abort ();
-         s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
+         s->size = sizeof ELF_DYNAMIC_INTERPRETER;
          s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
        }
 
@@ -2111,14 +2104,6 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
                              clobber_millicode_symbols,
                              info);
     }
-  else
-    {
-      /* Run through the function symbols, looking for any that are
-        PIC, and mark them as needing .plt entries so that %r19 will
-        be set up.  */
-      if (! info->shared)
-       elf_link_hash_traverse (&htab->elf, mark_PIC_calls, info);
-    }
 
   /* Set up .got and .plt offsets for local syms, and space for local
      dynamic relocs.  */
@@ -2155,7 +2140,7 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
              else if (p->count != 0)
                {
                  srel = elf_section_data (p->sec)->sreloc;
-                 srel->_raw_size += p->count * sizeof (Elf32_External_Rela);
+                 srel->size += p->count * sizeof (Elf32_External_Rela);
                  if ((p->sec->output_section->flags & SEC_READONLY) != 0)
                    info->flags |= DF_TEXTREL;
                }
@@ -2175,10 +2160,10 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
        {
          if (*local_got > 0)
            {
-             *local_got = s->_raw_size;
-             s->_raw_size += GOT_ENTRY_SIZE;
+             *local_got = s->size;
+             s->size += GOT_ENTRY_SIZE;
              if (info->shared)
-               srel->_raw_size += sizeof (Elf32_External_Rela);
+               srel->size += sizeof (Elf32_External_Rela);
            }
          else
            *local_got = (bfd_vma) -1;
@@ -2200,10 +2185,10 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
            {
              if (*local_plt > 0)
                {
-                 *local_plt = s->_raw_size;
-                 s->_raw_size += PLT_ENTRY_SIZE;
+                 *local_plt = s->size;
+                 s->size += PLT_ENTRY_SIZE;
                  if (info->shared)
-                   srel->_raw_size += sizeof (Elf32_External_Rela);
+                   srel->size += sizeof (Elf32_External_Rela);
                }
              else
                *local_plt = (bfd_vma) -1;
@@ -2243,14 +2228,14 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
              if (gotalign > pltalign)
                bfd_set_section_alignment (dynobj, s, gotalign);
              mask = ((bfd_size_type) 1 << gotalign) - 1;
-             s->_raw_size = (s->_raw_size + sizeof (plt_stub) + mask) & ~mask;
+             s->size = (s->size + sizeof (plt_stub) + mask) & ~mask;
            }
        }
       else if (s == htab->sgot)
        ;
       else if (strncmp (bfd_get_section_name (dynobj, s), ".rela", 5) == 0)
        {
-         if (s->_raw_size != 0)
+         if (s->size != 0)
            {
              /* Remember whether there are any reloc sections other
                 than .rela.plt.  */
@@ -2268,7 +2253,7 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
          continue;
        }
 
-      if (s->_raw_size == 0)
+      if (s->size == 0)
        {
          /* If we don't need this section, strip it from the
             output file.  This is mostly to handle .rela.bss and
@@ -2285,8 +2270,8 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
 
       /* Allocate memory for the section contents.  Zero it, because
         we may not fill in all the reloc sections.  */
-      s->contents = bfd_zalloc (dynobj, s->_raw_size);
-      if (s->contents == NULL && s->_raw_size != 0)
+      s->contents = bfd_zalloc (dynobj, s->size);
+      if (s->contents == NULL && s->size != 0)
        return FALSE;
     }
 
@@ -2297,7 +2282,7 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
         communicate the LTP value of a load module to the dynamic
         linker.  */
 #define add_dynamic_entry(TAG, VAL) \
-  bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
+  _bfd_elf_add_dynamic_entry (info, TAG, VAL)
 
       if (!add_dynamic_entry (DT_PLTGOT, 0))
        return FALSE;
@@ -2313,7 +2298,7 @@ elf32_hppa_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
            return FALSE;
        }
 
-      if (htab->srelplt->_raw_size != 0)
+      if (htab->srelplt->size != 0)
        {
          if (!add_dynamic_entry (DT_PLTRELSZ, 0)
              || !add_dynamic_entry (DT_PLTREL, DT_RELA)
@@ -2362,9 +2347,6 @@ elf32_hppa_setup_section_lists (bfd *output_bfd, struct bfd_link_info *info)
   bfd_size_type amt;
   struct elf32_hppa_link_hash_table *htab = hppa_link_hash_table (info);
 
-  if (htab->elf.root.creator->flavour != bfd_target_elf_flavour)
-    return 0;
-
   /* Count the number of input BFDs and find the top input section id.  */
   for (input_bfd = info->input_bfds, bfd_count = 0, top_id = 0;
        input_bfd != NULL;
@@ -2473,10 +2455,7 @@ group_sections (struct elf32_hppa_link_hash_table *htab,
          bfd_boolean big_sec;
 
          curr = tail;
-         if (tail->_cooked_size)
-           total = tail->_cooked_size;
-         else
-           total = tail->_raw_size;
+         total = tail->size;
          big_sec = total >= stub_group_size;
 
          while ((prev = PREV_SEC (curr)) != NULL
@@ -2614,8 +2593,8 @@ get_local_syms (bfd *output_bfd, bfd *input_bfd, struct bfd_link_info *info)
                  && (hash->elf.root.u.def.section->output_section->owner
                      == output_bfd)
                  && hash->elf.root.u.def.section->owner == input_bfd
-                 && (hash->elf.elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)
-                 && !(hash->elf.elf_link_hash_flags & ELF_LINK_FORCED_LOCAL)
+                 && hash->elf.def_regular
+                 && !hash->elf.forced_local
                  && ELF_ST_VISIBILITY (hash->elf.other) == STV_DEFAULT)
                {
                  asection *sec;
@@ -2641,8 +2620,8 @@ get_local_syms (bfd *output_bfd, bfd *input_bfd, struct bfd_link_info *info)
                    }
                  else
                    {
-                     (*_bfd_error_handler) (_("%s: duplicate export stub %s"),
-                                            bfd_archive_filename (input_bfd),
+                     (*_bfd_error_handler) (_("%B: duplicate export stub %s"),
+                                            input_bfd,
                                             stub_name);
                    }
                }
@@ -2852,8 +2831,7 @@ elf32_hppa_size_stubs
                        }
                      else if (hash->elf.root.type == bfd_link_hash_undefined)
                        {
-                         if (! (info->shared
-                                && !info->no_undefined
+                         if (! (info->unresolved_syms_in_objects == RM_IGNORE
                                 && (ELF_ST_VISIBILITY (hash->elf.other)
                                     == STV_DEFAULT)
                                 && hash->elf.type != STT_PARISC_MILLI))
@@ -2868,7 +2846,7 @@ elf32_hppa_size_stubs
 
                  /* Determine what (if any) linker stub is needed.  */
                  stub_type = hppa_type_of_stub (section, irela, hash,
-                                                destination);
+                                                destination, info);
                  if (stub_type == hppa_stub_none)
                    continue;
 
@@ -2925,10 +2903,7 @@ elf32_hppa_size_stubs
       for (stub_sec = htab->stub_bfd->sections;
           stub_sec != NULL;
           stub_sec = stub_sec->next)
-       {
-         stub_sec->_raw_size = 0;
-         stub_sec->_cooked_size = 0;
-       }
+       stub_sec->size = 0;
 
       bfd_hash_traverse (&htab->stub_hash_table, hppa_size_one_stub, htab);
 
@@ -2968,21 +2943,8 @@ elf32_hppa_set_gp (bfd *abfd, struct bfd_link_info *info)
     }
   else
     {
-      asection *splt;
-      asection *sgot;
-
-      if (htab->elf.root.creator->flavour == bfd_target_elf_flavour)
-       {
-         splt = htab->splt;
-         sgot = htab->sgot;
-       }
-      else
-       {
-         /* If we're not elf, look up the output sections in the
-            hope we may actually find them.  */
-         splt = bfd_get_section_by_name (abfd, ".plt");
-         sgot = bfd_get_section_by_name (abfd, ".got");
-       }
+      asection *splt = bfd_get_section_by_name (abfd, ".plt");
+      asection *sgot = bfd_get_section_by_name (abfd, ".got");
 
       /* Choose to point our LTP at, in this order, one of .plt, .got,
         or .data, if these sections exist.  In the case of choosing
@@ -2992,11 +2954,12 @@ elf32_hppa_set_gp (bfd *abfd, struct bfd_link_info *info)
         if either the .plt or .got is larger than 0x2000.  If both
         the .plt and .got are smaller than 0x2000, choose the end of
         the .plt section.  */
-      sec = splt;
+      sec = strcmp (bfd_get_target (abfd), "elf32-hppa-netbsd") == 0
+         ? NULL : splt;
       if (sec != NULL)
        {
-         gp_val = sec->_raw_size;
-         if (gp_val > 0x2000 || (sgot && sgot->_raw_size > 0x2000))
+         gp_val = sec->size;
+         if (gp_val > 0x2000 || (sgot && sgot->size > 0x2000))
            {
              gp_val = 0x2000;
            }
@@ -3006,10 +2969,13 @@ elf32_hppa_set_gp (bfd *abfd, struct bfd_link_info *info)
          sec = sgot;
          if (sec != NULL)
            {
-             /* We know we don't have a .plt.  If .got is large,
-                offset our LTP.  */
-             if (sec->_raw_size > 0x2000)
-               gp_val = 0x2000;
+             if (strcmp (bfd_get_target (abfd), "elf32-hppa-netbsd") != 0)
+               {
+                 /* We know we don't have a .plt.  If .got is large,
+                    offset our LTP.  */
+                 if (sec->size > 0x2000)
+                   gp_val = 0x2000;
+               }
            }
          else
            {
@@ -3058,11 +3024,11 @@ elf32_hppa_build_stubs (struct bfd_link_info *info)
       bfd_size_type size;
 
       /* Allocate memory to hold the linker stubs.  */
-      size = stub_sec->_raw_size;
+      size = stub_sec->size;
       stub_sec->contents = bfd_zalloc (htab->stub_bfd, size);
       if (stub_sec->contents == NULL && size != 0)
        return FALSE;
-      stub_sec->_raw_size = 0;
+      stub_sec->size = 0;
     }
 
   /* Build the stubs as directed by the stub hash table.  */
@@ -3078,7 +3044,7 @@ static bfd_boolean
 elf32_hppa_final_link (bfd *abfd, struct bfd_link_info *info)
 {
   /* Invoke the regular ELF linker to do all the work.  */
-  if (!bfd_elf32_bfd_final_link (abfd, info))
+  if (!bfd_elf_final_link (abfd, info))
     return FALSE;
 
   /* If we're producing a final executable, sort the contents of the
@@ -3123,10 +3089,12 @@ final_link_relocate (asection *input_section,
                     bfd_vma value,
                     struct elf32_hppa_link_hash_table *htab,
                     asection *sym_sec,
-                    struct elf32_hppa_link_hash_entry *h)
+                    struct elf32_hppa_link_hash_entry *h,
+                    struct bfd_link_info *info)
 {
   int insn;
   unsigned int r_type = ELF32_R_TYPE (rel->r_info);
+  unsigned int orig_r_type = r_type;
   reloc_howto_type *howto = elf_hppa_howto_table + r_type;
   int r_format = howto->bitsize;
   enum hppa_reloc_field_selector_type_alt r_field;
@@ -3149,6 +3117,26 @@ final_link_relocate (asection *input_section,
              input_section->output_offset +
              input_section->output_section->vma);
 
+  /* If we are not building a shared library, convert DLTIND relocs to
+     DPREL relocs.  */
+  if (!info->shared)
+    {
+      switch (r_type)
+       {
+         case R_PARISC_DLTIND21L:
+           r_type = R_PARISC_DPREL21L;
+           break;
+
+         case R_PARISC_DLTIND14R:
+           r_type = R_PARISC_DPREL14R;
+           break;
+
+         case R_PARISC_DLTIND14F:
+           r_type = R_PARISC_DPREL14F;
+           break;
+       }
+    }
+
   switch (r_type)
     {
     case R_PARISC_PCREL12F:
@@ -3160,8 +3148,11 @@ final_link_relocate (asection *input_section,
          || sym_sec->output_section == NULL
          || (h != NULL
              && h->elf.plt.offset != (bfd_vma) -1
-             && (h->elf.dynindx != -1 || h->pic_call)
-             && !h->plabel))
+             && h->elf.dynindx != -1
+             && !h->plabel
+             && (info->shared
+                 || !h->elf.def_regular
+                 || h->elf.root.type == bfd_link_hash_defweak)))
        {
          stub_entry = hppa_get_stub_entry (input_section, sym_sec,
                                            h, rel, htab);
@@ -3193,6 +3184,7 @@ final_link_relocate (asection *input_section,
     case R_PARISC_PCREL17R:
     case R_PARISC_PCREL14R:
     case R_PARISC_PCREL14F:
+    case R_PARISC_PCREL32:
       /* Make it a pc relative offset.  */
       value -= location;
       addend -= 8;
@@ -3201,6 +3193,38 @@ final_link_relocate (asection *input_section,
     case R_PARISC_DPREL21L:
     case R_PARISC_DPREL14R:
     case R_PARISC_DPREL14F:
+      /* Convert instructions that use the linkage table pointer (r19) to
+        instructions that use the global data pointer (dp).  This is the
+        most efficient way of using PIC code in an incomplete executable,
+        but the user must follow the standard runtime conventions for
+        accessing data for this to work.  */
+      if (orig_r_type == R_PARISC_DLTIND21L)
+       {
+         /* Convert addil instructions if the original reloc was a
+            DLTIND21L.  GCC sometimes uses a register other than r19 for
+            the operation, so we must convert any addil instruction
+            that uses this relocation.  */
+         if ((insn & 0xfc000000) == ((int) OP_ADDIL << 26))
+           insn = ADDIL_DP;
+         else
+           /* We must have a ldil instruction.  It's too hard to find
+              and convert the associated add instruction, so issue an
+              error.  */
+           (*_bfd_error_handler)
+             (_("%B(%A+0x%lx): %s fixup for insn 0x%x is not supported in a non-shared link"),
+              input_bfd,
+              input_section,
+              (long) rel->r_offset,
+              howto->name,
+              insn);
+       }
+      else if (orig_r_type == R_PARISC_DLTIND14F)
+       {
+         /* This must be a format 1 load/store.  Change the base
+            register to dp.  */
+         insn = (insn & 0xfc1ffff) | (27 << 21);
+       }
+
     /* For all the DP relative relocations, we need to examine the symbol's
        section.  If it has no section or if it's a code section, then
        "data pointer relative" makes no sense.  In that case we don't
@@ -3215,14 +3239,6 @@ final_link_relocate (asection *input_section,
              == (((int) OP_ADDIL << 26) | (27 << 21)))
            {
              insn &= ~ (0x1f << 21);
-#if 0 /* debug them.  */
-             (*_bfd_error_handler)
-               (_("%s(%s+0x%lx): fixing %s"),
-                bfd_archive_filename (input_bfd),
-                input_section->name,
-                (long) rel->r_offset,
-                howto->name);
-#endif
            }
          /* Now try to make things easy for the dynamic linker.  */
 
@@ -3254,6 +3270,7 @@ final_link_relocate (asection *input_section,
     case R_PARISC_DIR17F:
     case R_PARISC_PCREL17C:
     case R_PARISC_PCREL14F:
+    case R_PARISC_PCREL32:
     case R_PARISC_DPREL14F:
     case R_PARISC_PLABEL32:
     case R_PARISC_DLTIND14F:
@@ -3339,9 +3356,9 @@ final_link_relocate (asection *input_section,
       && value + addend + max_branch_offset >= 2*max_branch_offset)
     {
       (*_bfd_error_handler)
-       (_("%s(%s+0x%lx): cannot reach %s, recompile with -ffunction-sections"),
-        bfd_archive_filename (input_bfd),
-        input_section->name,
+       (_("%B(%A+0x%lx): cannot reach %s, recompile with -ffunction-sections"),
+        input_bfd,
+        input_section,
         (long) rel->r_offset,
         stub_entry->root.string);
       bfd_set_error (bfd_error_bad_value);
@@ -3440,47 +3457,36 @@ elf32_hppa_relocate_section (bfd *output_bfd,
          /* This is a local symbol, h defaults to NULL.  */
          sym = local_syms + r_symndx;
          sym_sec = local_sections[r_symndx];
-         relocation = _bfd_elf_rela_local_sym (output_bfd, sym, sym_sec, rel);
+         relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sym_sec, rel);
        }
       else
        {
-         int indx;
-
-         /* It's a global; Find its entry in the link hash.  */
-         indx = r_symndx - symtab_hdr->sh_info;
-         h = ((struct elf32_hppa_link_hash_entry *)
-              elf_sym_hashes (input_bfd)[indx]);
-         while (h->elf.root.type == bfd_link_hash_indirect
-                || h->elf.root.type == bfd_link_hash_warning)
-           h = (struct elf32_hppa_link_hash_entry *) h->elf.root.u.i.link;
-
-         relocation = 0;
-         if (h->elf.root.type == bfd_link_hash_defined
-             || h->elf.root.type == bfd_link_hash_defweak)
+         struct elf_link_hash_entry *hh;
+         bfd_boolean unresolved_reloc;
+         struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
+
+         RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
+                                  r_symndx, symtab_hdr, sym_hashes,
+                                  hh, sym_sec, relocation,
+                                  unresolved_reloc, warned_undef);
+
+         if (relocation == 0
+             && hh->root.type != bfd_link_hash_defined
+             && hh->root.type != bfd_link_hash_defweak
+             && hh->root.type != bfd_link_hash_undefweak)
            {
-             sym_sec = h->elf.root.u.def.section;
-             /* If sym_sec->output_section is NULL, then it's a
-                symbol defined in a shared library.  */
-             if (sym_sec->output_section != NULL)
-               relocation = (h->elf.root.u.def.value
-                             + sym_sec->output_offset
-                             + sym_sec->output_section->vma);
-           }
-         else if (h->elf.root.type == bfd_link_hash_undefweak)
-           ;
-         else if (info->shared
-                  && !info->no_undefined
-                  && ELF_ST_VISIBILITY (h->elf.other) == STV_DEFAULT
-                  && h->elf.type != STT_PARISC_MILLI)
-           ;
-         else
-           {
-             if (!((*info->callbacks->undefined_symbol)
-                   (info, h->elf.root.root.string, input_bfd,
-                    input_section, rel->r_offset, TRUE)))
-               return FALSE;
-             warned_undef = TRUE;
+             if (info->unresolved_syms_in_objects == RM_IGNORE
+                 && ELF_ST_VISIBILITY (hh->other) == STV_DEFAULT
+                 && hh->type == STT_PARISC_MILLI)
+               {
+                 if (! info->callbacks->undefined_symbol
+                     (info, hh->root.root.string, input_bfd,
+                      input_section, rel->r_offset, FALSE))
+                   return FALSE;
+                 warned_undef = TRUE;
+               }
            }
+         h = (struct elf32_hppa_link_hash_entry *) hh;
        }
 
       /* Do any required modifications to the relocation value, and
@@ -3504,7 +3510,8 @@ elf32_hppa_relocate_section (bfd *output_bfd,
 
                off = h->elf.got.offset;
                dyn = htab->elf.dynamic_sections_created;
-               if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info, &h->elf))
+               if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared,
+                                                      &h->elf))
                  {
                    /* If we aren't going to call finish_dynamic_symbol,
                       then we need to handle initialisation of the .got
@@ -3596,7 +3603,8 @@ elf32_hppa_relocate_section (bfd *output_bfd,
              if (h != NULL)
                {
                  off = h->elf.plt.offset;
-                 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info, &h->elf))
+                 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info->shared,
+                                                        &h->elf))
                    {
                      /* In a non-shared link, adjust_dynamic_symbols
                         isn't called for symbols forced local.  We
@@ -3713,20 +3721,18 @@ elf32_hppa_relocate_section (bfd *output_bfd,
             Conversely, DEF_DYNAMIC can't be used in check_relocs as
             there all files have not been loaded.  */
          if ((info->shared
+              && (h == NULL
+                  || ELF_ST_VISIBILITY (h->elf.other) == STV_DEFAULT
+                  || h->elf.root.type != bfd_link_hash_undefweak)
               && (IS_ABSOLUTE_RELOC (r_type)
-                  || (h != NULL
-                      && h->elf.dynindx != -1
-                      && (!info->symbolic
-                          || (h->elf.elf_link_hash_flags
-                              & ELF_LINK_HASH_DEF_REGULAR) == 0))))
+                  || !SYMBOL_CALLS_LOCAL (info, &h->elf)))
              || (!info->shared
                  && h != NULL
                  && h->elf.dynindx != -1
-                 && (h->elf.elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
-                 && (((h->elf.elf_link_hash_flags
-                       & ELF_LINK_HASH_DEF_DYNAMIC) != 0
-                      && (h->elf.elf_link_hash_flags
-                          & ELF_LINK_HASH_DEF_REGULAR) == 0)
+                 && !h->elf.non_got_ref
+                 && ((ELIMINATE_COPY_RELOCS
+                      && h->elf.def_dynamic
+                      && !h->elf.def_regular)
                      || h->elf.root.type == bfd_link_hash_undefweak
                      || h->elf.root.type == bfd_link_hash_undefined)))
            {
@@ -3758,8 +3764,7 @@ elf32_hppa_relocate_section (bfd *output_bfd,
                           || !IS_ABSOLUTE_RELOC (r_type)
                           || !info->shared
                           || !info->symbolic
-                          || (h->elf.elf_link_hash_flags
-                              & ELF_LINK_HASH_DEF_REGULAR) == 0))
+                          || !h->elf.def_regular))
                {
                  outrel.r_info = ELF32_R_INFO (h->elf.dynindx, r_type);
                }
@@ -3781,6 +3786,11 @@ elf32_hppa_relocate_section (bfd *output_bfd,
                      && sym_sec->output_section != NULL
                      && ! bfd_is_abs_section (sym_sec))
                    {
+                     /* Skip this relocation if the output section has
+                        been discarded.  */
+                     if (bfd_is_abs_section (sym_sec->output_section))
+                       break;
+
                      indx = elf_section_data (sym_sec->output_section)->dynindx;
                      /* We are turning this relocation into one
                         against a section symbol, so subtract out the
@@ -3791,13 +3801,6 @@ elf32_hppa_relocate_section (bfd *output_bfd,
 
                  outrel.r_info = ELF32_R_INFO (indx, r_type);
                }
-#if 0
-             /* EH info can cause unaligned DIR32 relocs.
-                Tweak the reloc type for the dynamic linker.  */
-             if (r_type == R_PARISC_DIR32 && (outrel.r_offset & 3) != 0)
-               outrel.r_info = ELF32_R_INFO (ELF32_R_SYM (outrel.r_info),
-                                             R_PARISC_DIR32U);
-#endif
              sreloc = elf_section_data (input_section)->sreloc;
              if (sreloc == NULL)
                abort ();
@@ -3813,7 +3816,7 @@ elf32_hppa_relocate_section (bfd *output_bfd,
        }
 
       r = final_link_relocate (input_section, contents, rel, relocation,
-                              htab, sym_sec, h);
+                              htab, sym_sec, h, info);
 
       if (r == bfd_reloc_ok)
        continue;
@@ -3838,9 +3841,9 @@ elf32_hppa_relocate_section (bfd *output_bfd,
          if (r == bfd_reloc_notsupported || !warned_undef)
            {
              (*_bfd_error_handler)
-               (_("%s(%s+0x%lx): cannot handle %s for %s"),
-                bfd_archive_filename (input_bfd),
-                input_section->name,
+               (_("%B(%A+0x%lx): cannot handle %s for %s"),
+                input_bfd,
+                input_section,
                 (long) rel->r_offset,
                 howto->name,
                 sym_name);
@@ -3851,8 +3854,8 @@ elf32_hppa_relocate_section (bfd *output_bfd,
       else
        {
          if (!((*info->callbacks->reloc_overflow)
-               (info, sym_name, howto->name, 0, input_bfd, input_section,
-                rel->r_offset)))
+               (info, (h ? &h->elf.root : NULL), sym_name, howto->name,
+                (bfd_vma) 0, input_bfd, input_section, rel->r_offset)))
            return FALSE;
        }
     }
@@ -3870,6 +3873,8 @@ elf32_hppa_finish_dynamic_symbol (bfd *output_bfd,
                                  Elf_Internal_Sym *sym)
 {
   struct elf32_hppa_link_hash_table *htab;
+  Elf_Internal_Rela rel;
+  bfd_byte *loc;
 
   htab = hppa_link_hash_table (info);
 
@@ -3897,44 +3902,28 @@ elf32_hppa_finish_dynamic_symbol (bfd *output_bfd,
                      + h->root.u.def.section->output_section->vma);
        }
 
-      if (! ((struct elf32_hppa_link_hash_entry *) h)->pic_call)
+      /* Create a dynamic IPLT relocation for this entry.  */
+      rel.r_offset = (h->plt.offset
+                     + htab->splt->output_offset
+                     + htab->splt->output_section->vma);
+      if (h->dynindx != -1)
        {
-         Elf_Internal_Rela rel;
-         bfd_byte *loc;
-
-         /* Create a dynamic IPLT relocation for this entry.  */
-         rel.r_offset = (h->plt.offset
-                         + htab->splt->output_offset
-                         + htab->splt->output_section->vma);
-         if (h->dynindx != -1)
-           {
-             rel.r_info = ELF32_R_INFO (h->dynindx, R_PARISC_IPLT);
-             rel.r_addend = 0;
-           }
-         else
-           {
-             /* This symbol has been marked to become local, and is
-                used by a plabel so must be kept in the .plt.  */
-             rel.r_info = ELF32_R_INFO (0, R_PARISC_IPLT);
-             rel.r_addend = value;
-           }
-
-         loc = htab->srelplt->contents;
-         loc += htab->srelplt->reloc_count++ * sizeof (Elf32_External_Rela);
-         bfd_elf32_swap_reloca_out (htab->splt->output_section->owner,
-                                    &rel, loc);
+         rel.r_info = ELF32_R_INFO (h->dynindx, R_PARISC_IPLT);
+         rel.r_addend = 0;
        }
       else
        {
-         bfd_put_32 (htab->splt->owner,
-                     value,
-                     htab->splt->contents + h->plt.offset);
-         bfd_put_32 (htab->splt->owner,
-                     elf_gp (htab->splt->output_section->owner),
-                     htab->splt->contents + h->plt.offset + 4);
+         /* This symbol has been marked to become local, and is
+            used by a plabel so must be kept in the .plt.  */
+         rel.r_info = ELF32_R_INFO (0, R_PARISC_IPLT);
+         rel.r_addend = value;
        }
 
-      if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
+      loc = htab->srelplt->contents;
+      loc += htab->srelplt->reloc_count++ * sizeof (Elf32_External_Rela);
+      bfd_elf32_swap_reloca_out (htab->splt->output_section->owner, &rel, loc);
+
+      if (!h->def_regular)
        {
          /* Mark the symbol as undefined, rather than as defined in
             the .plt section.  Leave the value alone.  */
@@ -3944,9 +3933,6 @@ elf32_hppa_finish_dynamic_symbol (bfd *output_bfd,
 
   if (h->got.offset != (bfd_vma) -1)
     {
-      Elf_Internal_Rela rel;
-      bfd_byte *loc;
-
       /* This symbol has an entry in the global offset table.  Set it
         up.  */
 
@@ -3961,7 +3947,7 @@ elf32_hppa_finish_dynamic_symbol (bfd *output_bfd,
         relocate_section function.  */
       if (info->shared
          && (info->symbolic || h->dynindx == -1)
-         && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR))
+         && h->def_regular)
        {
          rel.r_info = ELF32_R_INFO (0, R_PARISC_DIR32);
          rel.r_addend = (h->root.u.def.value
@@ -3982,11 +3968,9 @@ elf32_hppa_finish_dynamic_symbol (bfd *output_bfd,
       bfd_elf32_swap_reloca_out (output_bfd, &rel, loc);
     }
 
-  if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
+  if (h->needs_copy)
     {
       asection *s;
-      Elf_Internal_Rela rel;
-      bfd_byte *loc;
 
       /* This symbol needs a copy reloc.  Set it up.  */
 
@@ -4060,7 +4044,7 @@ elf32_hppa_finish_dynamic_sections (bfd *output_bfd,
        abort ();
 
       dyncon = (Elf32_External_Dyn *) sdyn->contents;
-      dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
+      dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
       for (; dyncon < dynconend; dyncon++)
        {
          Elf_Internal_Dyn dyn;
@@ -4085,7 +4069,7 @@ elf32_hppa_finish_dynamic_sections (bfd *output_bfd,
 
            case DT_PLTRELSZ:
              s = htab->srelplt;
-             dyn.d_un.d_val = s->_raw_size;
+             dyn.d_un.d_val = s->size;
              break;
 
            case DT_RELASZ:
@@ -4094,7 +4078,7 @@ elf32_hppa_finish_dynamic_sections (bfd *output_bfd,
              s = htab->srelplt;
              if (s == NULL)
                continue;
-             dyn.d_un.d_val -= s->_raw_size;
+             dyn.d_un.d_val -= s->size;
              break;
 
            case DT_RELA:
@@ -4106,7 +4090,7 @@ elf32_hppa_finish_dynamic_sections (bfd *output_bfd,
                continue;
              if (dyn.d_un.d_ptr != s->output_section->vma + s->output_offset)
                continue;
-             dyn.d_un.d_ptr += s->_raw_size;
+             dyn.d_un.d_ptr += s->size;
              break;
            }
 
@@ -4114,7 +4098,7 @@ elf32_hppa_finish_dynamic_sections (bfd *output_bfd,
        }
     }
 
-  if (htab->sgot != NULL && htab->sgot->_raw_size != 0)
+  if (htab->sgot != NULL && htab->sgot->size != 0)
     {
       /* Fill in the first entry in the global offset table.
         We use it to point to our dynamic section, if we have one.  */
@@ -4130,7 +4114,7 @@ elf32_hppa_finish_dynamic_sections (bfd *output_bfd,
        ->this_hdr.sh_entsize = GOT_ENTRY_SIZE;
     }
 
-  if (htab->splt != NULL && htab->splt->_raw_size != 0)
+  if (htab->splt != NULL && htab->splt->size != 0)
     {
       /* Set plt entry size.  */
       elf_section_data (htab->splt->output_section)
@@ -4140,12 +4124,12 @@ elf32_hppa_finish_dynamic_sections (bfd *output_bfd,
        {
          /* Set up the .plt stub.  */
          memcpy (htab->splt->contents
-                 + htab->splt->_raw_size - sizeof (plt_stub),
+                 + htab->splt->size - sizeof (plt_stub),
                  plt_stub, sizeof (plt_stub));
 
          if ((htab->splt->output_offset
               + htab->splt->output_section->vma
-              + htab->splt->_raw_size)
+              + htab->splt->size)
              != (htab->sgot->output_offset
                  + htab->sgot->output_section->vma))
            {
@@ -4173,6 +4157,10 @@ elf32_hppa_post_process_headers (bfd *abfd,
     {
       i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_LINUX;
     }
+  else if (strcmp (bfd_get_target (abfd), "elf32-hppa-netbsd") == 0)
+    {
+      i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_NETBSD;
+    }
   else
     {
       i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_HPUX;
@@ -4212,6 +4200,8 @@ elf32_hppa_elf_get_symbol_type (Elf_Internal_Sym *elf_sym, int type)
 #define elf_backend_size_dynamic_sections    elf32_hppa_size_dynamic_sections
 #define elf_backend_gc_mark_hook            elf32_hppa_gc_mark_hook
 #define elf_backend_gc_sweep_hook           elf32_hppa_gc_sweep_hook
+#define elf_backend_grok_prstatus           elf32_hppa_grok_prstatus
+#define elf_backend_grok_psinfo                     elf32_hppa_grok_psinfo
 #define elf_backend_object_p                elf32_hppa_object_p
 #define elf_backend_final_write_processing   elf_hppa_final_write_processing
 #define elf_backend_post_process_headers     elf32_hppa_post_process_headers
@@ -4242,3 +4232,10 @@ elf32_hppa_elf_get_symbol_type (Elf_Internal_Sym *elf_sym, int type)
 
 #define INCLUDED_TARGET_FILE 1
 #include "elf32-target.h"
+
+#undef TARGET_BIG_SYM
+#define TARGET_BIG_SYM                 bfd_elf32_hppa_nbsd_vec
+#undef TARGET_BIG_NAME
+#define TARGET_BIG_NAME                        "elf32-hppa-netbsd"
+
+#include "elf32-target.h"
This page took 0.045421 seconds and 4 git commands to generate.