yann@1: http://sources.redhat.com/ml/binutils/2004-06/msg00010.html
yann@1: --- binutils-2.15.90.0.3-old/bfd/elf32-arm.h	2004-04-12 14:56:33.000000000 -0500
yann@1: +++ binutils-2.15.90.0.3/bfd/elf32-arm.h	2004-09-03 06:56:40.000000000 -0500
yann@1: @@ -87,6 +87,8 @@
yann@1:  #endif
yann@1:  static bfd_boolean allocate_dynrelocs 
yann@1:    PARAMS ((struct elf_link_hash_entry *h, PTR inf));
yann@1: +static bfd_boolean elf32_arm_readonly_dynrelocs
yann@1: +  PARAMS ((struct elf_link_hash_entry *, PTR));
yann@1:  static bfd_boolean create_got_section 
yann@1:    PARAMS ((bfd * dynobj, struct bfd_link_info * info));
yann@1:  static bfd_boolean elf32_arm_create_dynamic_sections 
yann@1: @@ -3531,6 +3533,37 @@
yann@1:    return TRUE;
yann@1:  }
yann@1:  
yann@1: +/* Find any dynamic relocs that apply to read-only sections.  */
yann@1: +
yann@1: +static bfd_boolean
yann@1: +elf32_arm_readonly_dynrelocs (h, inf)
yann@1: +     struct elf_link_hash_entry *h;
yann@1: +     PTR inf;
yann@1: +{
yann@1: +  struct elf32_arm_link_hash_entry *eh;
yann@1: +  struct elf32_arm_relocs_copied *p;
yann@1: +
yann@1: +  if (h->root.type == bfd_link_hash_warning)
yann@1: +    h = (struct elf_link_hash_entry *) h->root.u.i.link;
yann@1: +
yann@1: +  eh = (struct elf32_arm_link_hash_entry *) h;
yann@1: +  for (p = eh->relocs_copied; p != NULL; p = p->next)
yann@1: +    {
yann@1: +      asection *s = p->section;
yann@1: +
yann@1: +      if (s != NULL && (s->flags & SEC_READONLY) != 0)
yann@1: +       {
yann@1: +         struct bfd_link_info *info = (struct bfd_link_info *) inf;
yann@1: +
yann@1: +         info->flags |= DF_TEXTREL;
yann@1: +
yann@1: +         /* Not an error, just cut short the traversal.  */
yann@1: +         return FALSE;
yann@1: +       }
yann@1: +    }
yann@1: +  return TRUE;
yann@1: +}
yann@1: +
yann@1:  /* Set the sizes of the dynamic sections.  */
yann@1:  
yann@1:  static bfd_boolean
yann@1: @@ -3740,6 +3773,12 @@
yann@1:  	    return FALSE;
yann@1:  	}
yann@1:  
yann@1: +      /* If any dynamic relocs apply to a read-only section,
yann@1: +         then we need a DT_TEXTREL entry.  */
yann@1: +      if ((info->flags & DF_TEXTREL) == 0)
yann@1: +        elf_link_hash_traverse (&htab->root, elf32_arm_readonly_dynrelocs,
yann@1: +                                (PTR) info);
yann@1: +
yann@1:        if ((info->flags & DF_TEXTREL) != 0)
yann@1:  	{
yann@1:  	  if (!add_dynamic_entry (DT_TEXTREL, 0))