* elf-hppa.h (elf_hppa_reloc_final_type): Handle R_PARISC_GPREL64,

	R_PARISC_SEGREL32 and R_PARISC_SEGREL64.
	* som.c (som_fixup_formats): Add R_DATA_GPREL fixup.
	(som_hppa_howto_table): Likewise.
	(hppa_som_gen_reloc_type): In case R_HPPA_GOTOFF, detect R_DATA_GPREL
	final type.
	(som_write_fixups): Handle R_DATA_GPREL.

	* config/tc-hppa.c (is_SB_relative): New macro.
	(fix_new_hppa): Remove $segrel$ marker.
	(cons_fix_new_hppa): Set reloc type R_PARISC_SEGREL32 if expression is
	segment relative.
	* config/tc-hppa.h (tc_frob_symbol): Check for $segrel$.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 6912012628690acc46ab1bb7ee1a0a3f40ed5e31..fbd71321fdf57b049fe0e59a8d3a32b536576014 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,13 @@
+2008-08-27  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+       * elf-hppa.h (elf_hppa_reloc_final_type): Handle R_PARISC_GPREL64,
+       R_PARISC_SEGREL32 and R_PARISC_SEGREL64.
+       * som.c (som_fixup_formats): Add R_DATA_GPREL fixup.
+       (som_hppa_howto_table): Likewise.
+       (hppa_som_gen_reloc_type): In case R_HPPA_GOTOFF, detect R_DATA_GPREL
+       final type.
+       (som_write_fixups): Handle R_DATA_GPREL.
+
 2008-08-26  Nick Clifton  <nickc@redhat.com>
 
        * elf32-arm.c: Fix up comment describing Thumb to ARM interworking

diff --git a/bfd/elf-hppa.h b/bfd/elf-hppa.h
index d2b5dfd663f4dd1ee18dd6affb4e483e4dd8f325..0aff4ccc711d041c9b8e4cd2baeee28a8a01b034 100644 (file)
--- a/bfd/elf-hppa.h
+++ b/bfd/elf-hppa.h
@@ -745,6 +745,17 @@ elf_hppa_reloc_final_type (bfd *abfd,
            }
          break;
 
+       case 64:
+         switch (field)
+           {
+           case e_fsel:
+             final_type = R_PARISC_GPREL64;
+             break;
+           default:
+             return R_PARISC_NONE;
+           }
+         break;
+
        default:
          return R_PARISC_NONE;
        }
@@ -930,9 +941,38 @@ elf_hppa_reloc_final_type (bfd *abfd,
        }
       break;
 
+    case R_PARISC_SEGREL32:
+      switch (format)
+       {
+       case 32:
+         switch (field)
+           {
+           case e_fsel:
+             final_type = R_PARISC_SEGREL32;
+             break;
+           default:
+             return R_PARISC_NONE;
+           }
+         break;
+
+       case 64:
+         switch (field)
+           {
+           case e_fsel:
+             final_type = R_PARISC_SEGREL64;
+             break;
+           default:
+             return R_PARISC_NONE;
+           }
+         break;
+
+       default:
+         return R_PARISC_NONE;
+       }
+      break;
+
     case R_PARISC_GNU_VTENTRY:
     case R_PARISC_GNU_VTINHERIT:
-    case R_PARISC_SEGREL32:
     case R_PARISC_SEGBASE:
       /* The defaults are fine for these cases.  */
       break;

diff --git a/bfd/som.c b/bfd/som.c
index f9aed1628bd31720aa3a559282935b23ea7320a0..360819dc686ad9feb325c891bd2529fa55196d31 100644 (file)
--- a/bfd/som.c
+++ b/bfd/som.c
@@ -353,7 +353,7 @@ static const struct fixup_format som_fixup_formats[256] =
   /* R_DATA_ONE_SYMBOL.  */
   {  0, "L4=Sb=" },            /* 0x25 */
   {  1, "L4=Sd=" },            /* 0x26 */
-  /* R_DATA_PLEBEL.  */
+  /* R_DATA_PLABEL.  */
   {  0, "L4=Sb=" },            /* 0x27 */
   {  1, "L4=Sd=" },            /* 0x28 */
   /* R_SPACE_REF.  */
@@ -437,8 +437,9 @@ static const struct fixup_format som_fixup_formats[256] =
   { 31, "L4=SD=" },            /* 0x6f */
   { 32, "L4=Sb=" },            /* 0x70 */
   { 33, "L4=Sd=" },            /* 0x71 */
+  /* R_DATA_GPREL.  */
+  {  0, "L4=Sd=" },            /* 0x72 */
   /* R_RESERVED.  */
-  {  0, "" },                  /* 0x72 */
   {  0, "" },                  /* 0x73 */
   {  0, "" },                  /* 0x74 */
   {  0, "" },                  /* 0x75 */
@@ -825,7 +826,7 @@ static reloc_howto_type som_hppa_howto_table[] =
   SOM_HOWTO (R_DP_RELATIVE, "R_DP_RELATIVE"),
   SOM_HOWTO (R_DP_RELATIVE, "R_DP_RELATIVE"),
   SOM_HOWTO (R_DP_RELATIVE, "R_DP_RELATIVE"),
-  SOM_HOWTO (R_DP_RELATIVE, "R_DP_RELATIVE"),
+  SOM_HOWTO (R_DATA_GPREL, "R_DATA_GPREL"),
   SOM_HOWTO (R_RESERVED, "R_RESERVED"),
   SOM_HOWTO (R_RESERVED, "R_RESERVED"),
   SOM_HOWTO (R_RESERVED, "R_RESERVED"),
@@ -1571,6 +1572,8 @@ hppa_som_gen_reloc_type (bfd *abfd,
          || field == e_lpsel
          || field == e_rpsel)
        *final_type = R_DATA_PLABEL;
+      else if (field == e_fsel && format == 32)
+       *final_type = R_DATA_GPREL;
       break;
 
     case R_HPPA_COMPLEX:
@@ -2799,6 +2802,24 @@ som_write_fixups (bfd *abfd,
                    abort ();
                  break;
 
+               case R_DATA_GPREL:
+                 /* Account for any addend.  */
+                 if (bfd_reloc->addend)
+                   p = som_reloc_addend (abfd, bfd_reloc->addend, p,
+                                         &subspace_reloc_size, reloc_queue);
+
+                 if (sym_num < 0x10000000)
+                   {
+                     bfd_put_8 (abfd, bfd_reloc->howto->type, p);
+                     bfd_put_8 (abfd, sym_num >> 16, p + 1);
+                     bfd_put_16 (abfd, (bfd_vma) sym_num, p + 2);
+                     p = try_prev_fixup (abfd, &subspace_reloc_size,
+                                         p, 4, reloc_queue);
+                   }
+                 else
+                   abort ();
+                 break;
+
                case R_DATA_ONE_SYMBOL:
                case R_DATA_PLABEL:
                case R_CODE_PLABEL:

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 5e636250769be2e15bbf2b2f8ab28ba05c8ba613..d953475d86e309f0dd3af3f8904d161576592c8a 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,11 @@
+2008-08-27  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+       * config/tc-hppa.c (is_SB_relative): New macro.
+       (fix_new_hppa): Remove $segrel$ marker.
+       (cons_fix_new_hppa): Set reloc type R_PARISC_SEGREL32 if expression is
+       segment relative.
+       * config/tc-hppa.h (tc_frob_symbol): Check for $segrel$.
+
 2008-08-27  Jan Beulich  <jbeulich@novell.com>
 
        * config/tc-i386.c (check_string): Use register_prefix for error

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 5f6efbda6ff0eadd4af663ff9ce051498474d07e..da84526fa9513ccf01aa9d27dc8c62f249b7b583 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -1050,6 +1050,10 @@ static struct default_space_dict pa_def_spaces[] =
   ((exp).X_op == O_subtract                    \
    && strcmp (S_GET_NAME ((exp).X_op_symbol), "$global$") == 0)
 
+#define is_SB_relative(exp)                    \
+  ((exp).X_op == O_subtract                    \
+   && strcmp (S_GET_NAME ((exp).X_op_symbol), "$segrel$") == 0)
+
 #define is_PC_relative(exp)                    \
   ((exp).X_op == O_subtract                    \
    && strcmp (S_GET_NAME ((exp).X_op_symbol), "$PIC_pcrel$0") == 0)
@@ -1233,6 +1237,7 @@ fix_new_hppa (fragS *frag,
      it now so as not to confuse write.c.  Ditto for $PIC_pcrel$0.  */
   if (new_fix->fx_subsy
       && (strcmp (S_GET_NAME (new_fix->fx_subsy), "$global$") == 0
+         || strcmp (S_GET_NAME (new_fix->fx_subsy), "$segrel$") == 0
          || strcmp (S_GET_NAME (new_fix->fx_subsy), "$PIC_pcrel$0") == 0
          || strcmp (S_GET_NAME (new_fix->fx_subsy), "$tls_gdidx$") == 0
          || strcmp (S_GET_NAME (new_fix->fx_subsy), "$tls_ldidx$") == 0
@@ -1256,6 +1261,8 @@ cons_fix_new_hppa (fragS *frag, int where, int size, expressionS *exp)
   else if (is_PC_relative (*exp))
     rel_type = R_HPPA_PCREL_CALL;
 #ifdef OBJ_ELF
+  else if (is_SB_relative (*exp))
+    rel_type = R_PARISC_SEGREL32;
   else if (is_tls_gdidx (*exp))
     rel_type = R_PARISC_TLS_GD21L;
   else if (is_tls_ldidx (*exp))

diff --git a/gas/config/tc-hppa.h b/gas/config/tc-hppa.h
index b53527b0c7bbf99eec28d1dc2bd28e0c9ffc89d4..393a1440ac460a23c71d627be91bb6264d652808 100644 (file)
--- a/gas/config/tc-hppa.h
+++ b/gas/config/tc-hppa.h
@@ -175,6 +175,7 @@ int hppa_fix_adjustable (struct fix *);
        || (S_GET_SEGMENT (sym) == &bfd_abs_section \
            && ! S_IS_EXTERNAL (sym)) \
        || strcmp (S_GET_NAME (sym), "$global$") == 0 \
+       || strcmp (S_GET_NAME (sym), "$segrel$") == 0 \
        || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \
        || strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \
        || strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \