* elf32-hppa.c (hppa_handle_PIC_calls): Rename to mark_PIC_calls.

(allocate_PIC_calls): New function.
	(allocate_dynrelocs): Don't allocate pic_call plt entries here.
	(elf32_hppa_size_dynamic_sections): Call allocate_PIC_calls.
	(elf32_hppa_finish_dynamic_symbol): Remove dead code.

bfd/ChangeLog

@@ -1,3 +1,11 @@
+2001-11-02  Alan Modra  <amodra@bigpond.net.au>
+
+	* elf32-hppa.c (hppa_handle_PIC_calls): Rename to mark_PIC_calls.
+	(allocate_PIC_calls): New function.
+	(allocate_dynrelocs): Don't allocate pic_call plt entries here.
+	(elf32_hppa_size_dynamic_sections): Call allocate_PIC_calls.
+	(elf32_hppa_finish_dynamic_symbol): Remove dead code.
+
 2001-11-02  Hans-Peter Nilsson  <hp@axis.com>
 
 	* elf32-cris.c (cris_elf_grok_prstatus): New function.

bfd/elf32-hppa.c

@@ -338,7 +338,10 @@ static void elf32_hppa_hide_symbol
 static boolean elf32_hppa_adjust_dynamic_symbol
   PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *));
 
-static boolean hppa_handle_PIC_calls
+static boolean mark_PIC_calls
+  PARAMS ((struct elf_link_hash_entry *, PTR));
+
+static boolean allocate_PIC_calls
   PARAMS ((struct elf_link_hash_entry *, PTR));
 
 static boolean allocate_dynrelocs
@@ -1967,7 +1970,7 @@ elf32_hppa_adjust_dynamic_symbol (info, h)
    the first part of elf32_hppa_adjust_dynamic_symbol.  */
 
 static boolean
-hppa_handle_PIC_calls (h, inf)
+mark_PIC_calls (h, inf)
      struct elf_link_hash_entry *h;
      PTR inf ATTRIBUTE_UNUSED;
 {
@@ -1988,6 +1991,42 @@ hppa_handle_PIC_calls (h, inf)
   return true;
 }
 
+/* Allocate space in the .plt for pic_call entries.  */
+
+static boolean
+allocate_PIC_calls (h, inf)
+     struct elf_link_hash_entry *h;
+     PTR inf;
+{
+  struct bfd_link_info *info;
+  struct elf32_hppa_link_hash_table *htab;
+  asection *s;
+
+  if (h->root.type == bfd_link_hash_indirect
+      || h->root.type == bfd_link_hash_warning)
+    return true;
+
+  info = (struct bfd_link_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.  */
+      s = htab->splt;
+      h->plt.offset = s->_raw_size;
+      if (PLABEL_PLT_ENTRY_SIZE != PLT_ENTRY_SIZE
+	  && ((struct elf32_hppa_link_hash_entry *) h)->plabel
+	  && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
+	{
+	  /* Add some extra space for the dynamic linker to use.  */
+	  s->_raw_size += PLABEL_PLT_ENTRY_SIZE;
+	}
+      else
+	s->_raw_size += PLT_ENTRY_SIZE;
+    }
+
+  return true;
+}
+
 /* Allocate space in .plt, .got and associated reloc sections for
    global syms.  */
 
@@ -2023,8 +2062,11 @@ allocate_dynrelocs (h, inf)
 	    return false;
 	}
 
-      if (((struct elf32_hppa_link_hash_entry *) h)->pic_call
+      if (((struct elf32_hppa_link_hash_entry *) h)->pic_call)
-	  || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info, h))
+	{
+	  /* Already handled by allocate_PIC_calls.  */
+	}
+      else if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info, h))
 	{
 	  /* Make an entry in the .plt section.  */
 	  s = htab->splt;
@@ -2039,12 +2081,9 @@ allocate_dynrelocs (h, inf)
 	  else
 	    s->_raw_size += PLT_ENTRY_SIZE;
 
-	  if (! ((struct elf32_hppa_link_hash_entry *) h)->pic_call)
+	  /* We also need to make an entry in the .rela.plt section.  */
-	    {
+	  htab->srelplt->_raw_size += sizeof (Elf32_External_Rela);
-	      /* We also need to make an entry in the .rela.plt section.  */
+	  htab->need_plt_stub = 1;
-	      htab->srelplt->_raw_size += sizeof (Elf32_External_Rela);
-	      htab->need_plt_stub = 1;
-	    }
 	}
       else
 	{
@@ -2249,12 +2288,10 @@ elf32_hppa_size_dynamic_sections (output_bfd, info)
   else
     {
       /* Run through the function symbols, looking for any that are
-	 PIC, and allocate space for the necessary .plt entries so
+	 PIC, and mark them as needing .plt entries so that %r19 will
-	 that %r19 will be set up.  */
+	 be set up.  */
       if (! info->shared)
-	elf_link_hash_traverse (&htab->elf,
+	elf_link_hash_traverse (&htab->elf, mark_PIC_calls, (PTR) info);
-				hppa_handle_PIC_calls,
-				info);
     }
 
   /* Set up .got and .plt offsets for local syms, and space for local
@@ -2332,6 +2369,9 @@ elf32_hppa_size_dynamic_sections (output_bfd, info)
 	}
     }
 
+  if (! info->shared)
+    elf_link_hash_traverse (&htab->elf, allocate_PIC_calls, (PTR) info);
+
   /* Allocate global sym .plt and .got entries, and space for global
      sym dynamic relocs.  */
   elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, (PTR) info);
@@ -4082,15 +4122,6 @@ elf32_hppa_finish_dynamic_symbol (output_bfd, info, h, sym)
 			  + htab->splt->output_section->vma);
 	  if (h->dynindx != -1)
 	    {
-	      /* To support lazy linking, the function pointer is
-		 initialised to point to a special stub stored at the
-		 end of the .plt.  This is not done for plt entries
-		 with a base-relative dynamic relocation.  */
-	      value = (htab->splt->output_offset
-		       + htab->splt->output_section->vma
-		       + htab->splt->_raw_size
-		       - sizeof (plt_stub)
-		       + PLT_STUB_ENTRY);
 	      rel.r_info = ELF32_R_INFO (h->dynindx, R_PARISC_IPLT);
 	      rel.r_addend = 0;
 	    }