* config/tc-hppa.c (selector_table): Add "n", "nl", and "nlr" to

        the selector table.
        (pa_chk_field_selector): Handle new field selectors for SOM.
More new stuff for hpux10.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 445aaff5f9b9687b2e32b63e17b0428834de81b2..949c91da47da1296968901f5955d58b8d0cc8c7a 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,9 @@
+Wed Feb 28 11:30:55 1996  Jeffrey A Law  (law@cygnus.com)
+
+       * config/tc-hppa.c (selector_table): Add "n", "nl", and "nlr" to
+       the selector table.
+       (pa_chk_field_selector): Handle new field selectors for SOM.
+
 Tue Feb 27 14:42:27 1996  Andreas Schwab  <schwab@issan.informatik.uni-dortmund.de>
 
        * configure.in (m68k-*-linux*aout*, m68k-*-linux*): New targets.

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index b8db7b16a6cd7448cba359bd362fe9d69befc655..f06f44a567a3d4b4ec6178b4471858520b1c8f41 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -611,6 +611,7 @@ const pseudo_typeS md_pseudo_table[] =
   {"leave", pa_leave, 0},
   {"long", pa_cons, 4},
   {"lsym", pa_lsym, 0},
+  {"nsubspa", pa_subspace, 1},
   {"octa", pa_cons, 16},
   {"org", pa_origin, 0},
   {"origin", pa_origin, 0},
@@ -960,6 +961,9 @@ static const struct selector_entry selector_table[] =
   {"lr", e_lrsel},
   {"ls", e_lssel},
   {"lt", e_ltsel},
+  {"n", e_nsel},
+  {"nl", e_nlsel},
+  {"nlr", e_nlrsel},
   {"p", e_psel},
   {"r", e_rsel},
   {"rd", e_rdsel},
@@ -2107,7 +2111,7 @@ pa_ip (str)
                      as_bad ("Branch to unaligned address");
                      break;
                    }
-                 CHECK_FIELD (num, 8191, -8192, 0);
+                 CHECK_FIELD (num, 8199, -8184, 0);
                  sign_unext ((num - 8) >> 2, 12, &result);
                  dis_assemble_12 (result, &w1, &w);
                  INSERT_FIELD_AND_CONTINUE (opcode, ((w1 << 2) | w), 0);
@@ -2897,10 +2901,13 @@ md_apply_fix (fixP, valp)
 
   hppa_fixP = (struct hppa_fix_struct *) fixP->tc_fix_data;
   /* SOM uses R_HPPA_ENTRY and R_HPPA_EXIT relocations which can
-     never be "applied" (they are just markers).  */
+     never be "applied" (they are just markers).  Likewise for
+     R_HPPA_BEGIN_BRTAB and R_HPPA_END_BRTAB.  */
 #ifdef OBJ_SOM
   if (fixP->fx_r_type == R_HPPA_ENTRY
-      || fixP->fx_r_type == R_HPPA_EXIT)
+      || fixP->fx_r_type == R_HPPA_EXIT
+      || fixP->fx_r_type == R_HPPA_BEGIN_BRTAB
+      || fixP->fx_r_type == R_HPPA_END_BRTAB)
     return;
 #endif
 
@@ -2994,7 +3001,7 @@ md_apply_fix (fixP, valp)
 
        /* Handle all the opcodes with the 'w' operand type.  */
        case 12:
-         CHECK_FIELD (new_val, 8191, -8192, 0)
+         CHECK_FIELD (new_val, 8199, -8184, 0)
 
          /* Mask off 11 bits to be changed.  */
            sign_unext ((new_val - 8) >> 2, 12, &result);
@@ -3419,7 +3426,7 @@ pa_chk_field_selector (str)
 {
   int middle, low, high;
   int cmp;
-  char name[3];
+  char name[4];
 
   /* Read past any whitespace.  */
   /* FIXME: should we read past newlines and formfeeds??? */
@@ -3433,6 +3440,13 @@ pa_chk_field_selector (str)
     name[0] = tolower ((*str)[0]),
     name[1] = tolower ((*str)[1]),
     name[2] = 0;
+#ifdef OBJ_SOM
+  else if ((*str)[3] == '\'' || (*str)[3] == '%')
+    name[0] = tolower ((*str)[0]),
+    name[1] = tolower ((*str)[1]),
+    name[2] = tolower ((*str)[2]),
+    name[3] = 0;
+#endif
   else
     return e_fsel;
 
@@ -3450,6 +3464,10 @@ pa_chk_field_selector (str)
       else
        {
          *str += strlen (name) + 1;
+#ifndef OBJ_SOM
+         if (selector_table[middle].field_selector == e_nsel)
+           return e_fsel;
+#endif
          return selector_table[middle].field_selector;
        }
     }
@@ -5303,8 +5321,8 @@ log2 (value)
    they're broken up into subroutines.  */
 
 static void
-pa_subspace (unused)
-     int unused;
+pa_subspace (create_new)
+     int create_new;
 {
   char *name, *ss_name, *alias, c;
   char loadable, code_only, common, dup_common, zero, sort;
@@ -5343,7 +5361,10 @@ pa_subspace (unused)
       alias = NULL;
 
       space = current_space;
-      ssd = is_defined_subspace (ss_name);
+      if (create_new)
+       ssd = NULL;
+      else
+       ssd = is_defined_subspace (ss_name);
       /* Allow user to override the builtin attributes of subspaces.  But
          only allow the attributes to be changed once!  */
       if (ssd && SUBSPACE_DEFINED (ssd))
@@ -5480,7 +5501,9 @@ pa_subspace (unused)
          lots of sections.  It might be a problem in the PA ELF
          code, I do not know yet.  For now avoid creating anything
          but the "standard" sections for ELF.  */
-      if (ssd)
+      if (create_new)
+       section = subseg_force_new (ss_name, 0);
+      else if (ssd)
        section = ssd->ssd_seg;
       else if (alias)
        section = subseg_new (alias, 0);
@@ -6273,6 +6296,13 @@ hppa_fix_adjustable (fixp)
       fixp->fx_subsy->sy_used_in_reloc = 1;
       return 0;
     }
+
+  /* We can't adjust DP relative relocs that use LR% and RR% field
+     selectors.  That confuses the optimization pass in HP linker.  */
+  if (fixp->fx_r_type == R_DP_RELATIVE
+      && (hppa_fix->fx_r_field == e_lrsel
+         || hppa_fix->fx_r_field == e_rrsel))
+    return 0;
 #endif
 
   /* Reject reductions of symbols in DLT relative relocs,
@@ -6379,9 +6409,7 @@ hppa_elf_mark_end_of_function ()
        {
          /* symbol value should be the offset of the
             last instruction of the function */
-         symbolP = symbol_new (name, now_seg,
-                               (valueT) (obstack_next_free (&frags)
-                                         - frag_now->fr_literal - 4),
+         symbolP = symbol_new (name, now_seg, (valueT) (frag_now_fix () - 4),
                                frag_now);
 
          assert (symbolP);