[committed] hppa64: Implement support for DT_TEXTREL

[John David Anglin]

Tested on linux and hpux.  Committed to trunk.

Dave
---

hppa64: Implement support for DT_TEXTREL

This fixes ld-elf/pr19539, DT_TEXTREL in shared lib, and DT_TEXTREL
map file warning tests on hppa64.

2026-01-22  John David Anglin  <danglin@gcc.gnu.org>

bfd/ChangeLog:

	* elf64-hppa.c (allocate_dynrel_entries): Set DF_TEXTREL
	if it isn't already set and we encounter a relocation
	against a readonly section.
	(elf64_hppa_late_size_sections): Add DT_TEXTREL dynamic
	entry if we have relocs and DF_TEXTREL is set in info->flags.

diff --git a/bfd/elf64-hppa.c b/bfd/elf64-hppa.c
index ca61c9c7d78..29efacbf432 100644
--- a/bfd/elf64-hppa.c
+++ b/bfd/elf64-hppa.c
@@ -1454,16 +1454,17 @@ allocate_dynrel_entries (struct elf_link_hash_entry *eh, void *data)
 {
   struct elf64_hppa_link_hash_entry *hh = hppa_elf_hash_entry (eh);
   struct elf64_hppa_allocate_data *x = (struct elf64_hppa_allocate_data *)data;
+  struct bfd_link_info *info = (struct bfd_link_info *) x->info;
   struct elf64_hppa_link_hash_table *hppa_info;
   struct elf64_hppa_dyn_reloc_entry *rent;
   bool dynamic_symbol, shared;
 
-  hppa_info = hppa_link_hash_table (x->info);
+  hppa_info = hppa_link_hash_table (info);
   if (hppa_info == NULL)
     return false;
 
-  dynamic_symbol = elf64_hppa_dynamic_symbol_p (eh, x->info);
-  shared = bfd_link_pic (x->info);
+  dynamic_symbol = elf64_hppa_dynamic_symbol_p (eh, info);
+  shared = bfd_link_pic (info);
 
   /* Take care of the GOT and PLT relocations.  */
 
@@ -1498,17 +1499,17 @@ allocate_dynrel_entries (struct elf_link_hash_entry *eh, void *data)
   /* Discard relocs on undefined syms with non-default visibility.  */
   else if ((eh->root.type == bfd_link_hash_undefined
 	    && ELF_ST_VISIBILITY (eh->other) != STV_DEFAULT)
-	   || UNDEFWEAK_NO_DYNAMIC_RELOC (x->info, eh))
+	   || UNDEFWEAK_NO_DYNAMIC_RELOC (info, eh))
     hh->reloc_entries = NULL;
 
   if (hh->reloc_entries == NULL)
     return true;
 
-  if (bfd_link_pic (x->info))
+  if (bfd_link_pic (info))
     {
       /* Discard space for relocs that have become local due to
 	 symbol visibility changes.  */
-      if (!ensure_undef_dynamic (x->info, eh))
+      if (!ensure_undef_dynamic (info, eh))
 	return false;
     }
 
@@ -1516,13 +1517,14 @@ allocate_dynrel_entries (struct elf_link_hash_entry *eh, void *data)
 
   for (rent = hh->reloc_entries; rent; rent = rent->next)
     {
+      asection *sec = rent->sec;
+
       switch (rent->type)
 	{
 	case R_PARISC_FPTR64:
 	  /* Allocate one if we are building a shared library, or
 	     we don't want an OPD entry.  Ignore text relocations.  */
-	  if ((hh->want_opd && !shared)
-	      || (rent->sec->flags & SEC_READONLY))
+	  if ((hh->want_opd && !shared) || (sec->flags & SEC_READONLY))
 	    continue;
 	  break;
 	case R_PARISC_DIR64:
@@ -1533,7 +1535,7 @@ allocate_dynrel_entries (struct elf_link_hash_entry *eh, void *data)
 	  abort();
 	}
 
-      if (discarded_section (rent->sec)
+      if (discarded_section (sec)
 	  || discarded_section (hppa_info->other_rel_sec))
 	continue;
 
@@ -1548,6 +1550,23 @@ allocate_dynrel_entries (struct elf_link_hash_entry *eh, void *data)
 	    continue;
         }
 
+      if ((sec->flags & SEC_READONLY) != 0
+	  && (info->flags & DF_TEXTREL) == 0)
+	{
+	  info->flags |= DF_TEXTREL;
+	  /* xgettext:c-format */
+	  info->callbacks->minfo (_("%pB: dynamic relocation against `%pT'"
+				    " in read-only section `%pA'\n"),
+				  sec->owner, eh->root.root.string, sec);
+
+	  if (bfd_link_textrel_check (info))
+	    /* xgettext:c-format */
+	    info->callbacks->einfo (_("%P: %pB: warning: relocation "
+				      "against `%s' in read-only section "
+				      "`%pA'\n"),
+				    sec->owner, eh->root.root.string, sec);
+	}
+
       hppa_info->other_rel_sec->size += sizeof (Elf64_External_Rela);
     }
 
@@ -2022,6 +2041,14 @@ elf64_hppa_late_size_sections (bfd *output_bfd, struct bfd_link_info *info)
 	  if (!add_dynamic_entry (DT_FLAGS, (info)->flags))
 	    return false;
 	}
+
+      /* If we have a dynamic relocation against a readonly section,
+	 we need a DT_TEXTREL entry.  */
+      if (relocs && (info->flags & DF_TEXTREL) != 0)
+	{
+	  if (!add_dynamic_entry (DT_TEXTREL, 0))
+	    return false;
+	}
     }
 #undef add_dynamic_entry
 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 833 bytes
Desc: not available
URL: <https://sourceware.org/pipermail/binutils/attachments/20260122/3656910f/attachment.sig>