* config/tc-hppa.c (pa_ip): Handle 'N', 'O', 'o', '0', '1', 'u',
[deliverable/binutils-gdb.git] / gas / config / tc-hppa.c
index 87d2922cc1948e423f23bc5bdd00f179d55126bb..53f94b6f01bc2b3a55ffa34f2833be2af5571e32 100644 (file)
@@ -422,6 +422,9 @@ struct hppa_fix_struct
 
     /* The unwind descriptor associated with this fixup.  */
     char fx_unwind[8];
+
+    /* The segment this fixup appears in.  */
+    segT segment;
   };
 
 /* Structure to hold information about predefined registers.  */
@@ -723,6 +726,9 @@ static label_symbol_struct *label_symbols_rootp = NULL;
 /* Holds the last field selector.  */
 static int hppa_field_selector;
 
+/* A dummy bfd symbol so that all relocations have symbols of some kind.  */
+static symbolS *dummy_symbol;
+
 /* Nonzero if errors are to be printed.  */
 static int print_errors = 1;
 
@@ -787,101 +793,101 @@ static const struct pd_reg pre_defined_registers[] =
   {"%eiem", 15},
   {"%eirr", 23},
   {"%fr0", 0},
-  {"%fr0L", 0},
-  {"%fr0R", 0},
+  {"%fr0l", 0},
+  {"%fr0r", 0},
   {"%fr1", 1},
   {"%fr10", 10},
-  {"%fr10L", 10},
-  {"%fr10R", 10},
+  {"%fr10l", 10},
+  {"%fr10r", 10},
   {"%fr11", 11},
-  {"%fr11L", 11},
-  {"%fr11R", 11},
+  {"%fr11l", 11},
+  {"%fr11r", 11},
   {"%fr12", 12},
-  {"%fr12L", 12},
-  {"%fr12R", 12},
+  {"%fr12l", 12},
+  {"%fr12r", 12},
   {"%fr13", 13},
-  {"%fr13L", 13},
-  {"%fr13R", 13},
+  {"%fr13l", 13},
+  {"%fr13r", 13},
   {"%fr14", 14},
-  {"%fr14L", 14},
-  {"%fr14R", 14},
+  {"%fr14l", 14},
+  {"%fr14r", 14},
   {"%fr15", 15},
-  {"%fr15L", 15},
-  {"%fr15R", 15},
+  {"%fr15l", 15},
+  {"%fr15r", 15},
   {"%fr16", 16},
-  {"%fr16L", 16},
-  {"%fr16R", 16},
+  {"%fr16l", 16},
+  {"%fr16r", 16},
   {"%fr17", 17},
-  {"%fr17L", 17},
-  {"%fr17R", 17},
+  {"%fr17l", 17},
+  {"%fr17r", 17},
   {"%fr18", 18},
-  {"%fr18L", 18},
-  {"%fr18R", 18},
+  {"%fr18l", 18},
+  {"%fr18r", 18},
   {"%fr19", 19},
-  {"%fr19L", 19},
-  {"%fr19R", 19},
-  {"%fr1L", 1},
-  {"%fr1R", 1},
+  {"%fr19l", 19},
+  {"%fr19r", 19},
+  {"%fr1l", 1},
+  {"%fr1r", 1},
   {"%fr2", 2},
   {"%fr20", 20},
-  {"%fr20L", 20},
-  {"%fr20R", 20},
+  {"%fr20l", 20},
+  {"%fr20r", 20},
   {"%fr21", 21},
-  {"%fr21L", 21},
-  {"%fr21R", 21},
+  {"%fr21l", 21},
+  {"%fr21r", 21},
   {"%fr22", 22},
-  {"%fr22L", 22},
-  {"%fr22R", 22},
+  {"%fr22l", 22},
+  {"%fr22r", 22},
   {"%fr23", 23},
-  {"%fr23L", 23},
-  {"%fr23R", 23},
+  {"%fr23l", 23},
+  {"%fr23r", 23},
   {"%fr24", 24},
-  {"%fr24L", 24},
-  {"%fr24R", 24},
+  {"%fr24l", 24},
+  {"%fr24r", 24},
   {"%fr25", 25},
-  {"%fr25L", 25},
-  {"%fr25R", 25},
+  {"%fr25l", 25},
+  {"%fr25r", 25},
   {"%fr26", 26},
-  {"%fr26L", 26},
-  {"%fr26R", 26},
+  {"%fr26l", 26},
+  {"%fr26r", 26},
   {"%fr27", 27},
-  {"%fr27L", 27},
-  {"%fr27R", 27},
+  {"%fr27l", 27},
+  {"%fr27r", 27},
   {"%fr28", 28},
-  {"%fr28L", 28},
-  {"%fr28R", 28},
+  {"%fr28l", 28},
+  {"%fr28r", 28},
   {"%fr29", 29},
-  {"%fr29L", 29},
-  {"%fr29R", 29},
-  {"%fr2L", 2},
-  {"%fr2R", 2},
+  {"%fr29l", 29},
+  {"%fr29r", 29},
+  {"%fr2l", 2},
+  {"%fr2r", 2},
   {"%fr3", 3},
   {"%fr30", 30},
-  {"%fr30L", 30},
-  {"%fr30R", 30},
+  {"%fr30l", 30},
+  {"%fr30r", 30},
   {"%fr31", 31},
-  {"%fr31L", 31},
-  {"%fr31R", 31},
-  {"%fr3L", 3},
-  {"%fr3R", 3},
+  {"%fr31l", 31},
+  {"%fr31r", 31},
+  {"%fr3l", 3},
+  {"%fr3r", 3},
   {"%fr4", 4},
-  {"%fr4L", 4},
-  {"%fr4R", 4},
+  {"%fr4l", 4},
+  {"%fr4r", 4},
   {"%fr5", 5},
-  {"%fr5L", 5},
-  {"%fr5R", 5},
+  {"%fr5l", 5},
+  {"%fr5r", 5},
   {"%fr6", 6},
-  {"%fr6L", 6},
-  {"%fr6R", 6},
+  {"%fr6l", 6},
+  {"%fr6r", 6},
   {"%fr7", 7},
-  {"%fr7L", 7},
-  {"%fr7R", 7},
+  {"%fr7l", 7},
+  {"%fr7r", 7},
   {"%fr8", 8},
-  {"%fr8L", 8},
-  {"%fr8R", 8},
+  {"%fr8l", 8},
+  {"%fr8r", 8},
   {"%fr9", 9},
-  {"%fr9L", 9},
-  {"%fr9R", 9},
+  {"%fr9l", 9},
+  {"%fr9r", 9},
   {"%hta", 25},
   {"%iir", 19},
   {"%ior", 21},
@@ -923,23 +929,11 @@ static const struct pd_reg pre_defined_registers[] =
   {"%r30", 30},
   {"%r31", 31},
   {"%r4", 4},
-  {"%r4L", 4},
-  {"%r4R", 4},
   {"%r5", 5},
-  {"%r5L", 5},
-  {"%r5R", 5},
   {"%r6", 6},
-  {"%r6L", 6},
-  {"%r6R", 6},
   {"%r7", 7},
-  {"%r7L", 7},
-  {"%r7R", 7},
   {"%r8", 8},
-  {"%r8L", 8},
-  {"%r8R", 8},
   {"%r9", 9},
-  {"%r9L", 9},
-  {"%r9R", 9},
   {"%rctr", 0},
   {"%ret0", 28},
   {"%ret1", 29},
@@ -1005,37 +999,21 @@ static const struct fp_cond_map fp_cond_map[] =
 
 static const struct selector_entry selector_table[] =
 {
-  {"F'", e_fsel},
-  {"F%", e_fsel},
-  {"LS'", e_lssel},
-  {"LS%", e_lssel},
-  {"RS'", e_rssel},
-  {"RS%", e_rssel},
-  {"L'", e_lsel},
-  {"L%", e_lsel},
-  {"R'", e_rsel},
-  {"R%", e_rsel},
-  {"LD'", e_ldsel},
-  {"LD%", e_ldsel},
-  {"RD'", e_rdsel},
-  {"RD%", e_rdsel},
-  {"LR'", e_lrsel},
-  {"LR%", e_lrsel},
-  {"RR'", e_rrsel},
-  {"RR%", e_rrsel},
-  {"P'", e_psel},
-  {"P%", e_psel},
-  {"RP'", e_rpsel},
-  {"RP%", e_rpsel},
-  {"LP'", e_lpsel},
-  {"LP%", e_lpsel},
-  {"T'", e_tsel},
-  {"T%", e_tsel},
-  {"RT'", e_rtsel},
-  {"RT%", e_rtsel},
-  {"LT'", e_ltsel},
-  {"LT%", e_ltsel},
-  {NULL, e_fsel}
+  {"f", e_fsel},
+  {"l", e_lsel},
+  {"ld", e_ldsel},
+  {"lp", e_lpsel},
+  {"lr", e_lrsel},
+  {"ls", e_lssel},
+  {"lt", e_ltsel},
+  {"p", e_psel},
+  {"r", e_rsel},
+  {"rd", e_rdsel},
+  {"rp", e_rpsel},
+  {"rr", e_rrsel},
+  {"rs", e_rssel},
+  {"rt", e_rtsel},
+  {"t", e_tsel},
 };
 
 /* default space and subspace dictionaries */
@@ -1236,6 +1214,7 @@ fix_new_hppa (frag, where, size, add_symbol, offset, exp, pcrel,
   hppa_fix->fx_r_field = r_field;
   hppa_fix->fx_r_format = r_format;
   hppa_fix->fx_arg_reloc = arg_reloc;
+  hppa_fix->segment = now_seg;
   if (unwind_desc)
     {
       bcopy (unwind_desc, hppa_fix->fx_unwind, 8);
@@ -1277,20 +1256,20 @@ cons_fix_new_hppa (frag, where, size, exp)
      int size;
      expressionS *exp;
 {
-  unsigned int reloc_type;
+  unsigned int rel_type;
 
   if (is_DP_relative (*exp))
-    reloc_type = R_HPPA_GOTOFF;
+    rel_type = R_HPPA_GOTOFF;
   else if (is_complex (*exp))
-    reloc_type = R_HPPA_COMPLEX;
+    rel_type = R_HPPA_COMPLEX;
   else
-    reloc_type = R_HPPA;
+    rel_type = R_HPPA;
 
   if (hppa_field_selector != e_psel && hppa_field_selector != e_fsel)
     as_warn ("Invalid field selector.  Assuming F%%.");
 
   fix_new_hppa (frag, where, size,
-               (symbolS *) NULL, (offsetT) 0, exp, 0, reloc_type,
+               (symbolS *) NULL, (offsetT) 0, exp, 0, rel_type,
                hppa_field_selector, 32, 0, (char *) 0);
 
   /* Reset field selector to its default state.  */
@@ -1322,8 +1301,6 @@ md_begin ()
   pa_spaces_begin ();
 
   op_hash = hash_new ();
-  if (op_hash == NULL)
-    as_fatal ("Virtual memory exhausted");
 
   while (i < NUMOPCODES)
     {
@@ -1354,15 +1331,9 @@ md_begin ()
   /* SOM will change text_section.  To make sure we never put
      anything into the old one switch to the new one now.  */
   subseg_set (text_section, 0);
-}
-
-/* Called at the end of assembling a source file.  Nothing to do
-   at this point on the PA.  */
 
-void
-md_end ()
-{
-  return;
+  dummy_symbol = symbol_find_or_make ("L$dummy");
+  S_SET_SEGMENT (dummy_symbol, text_section);
 }
 
 /* Assemble a single instruction storing it into a frag.  */
@@ -1375,6 +1346,44 @@ md_assemble (str)
   /* The had better be something to assemble.  */
   assert (str);
 
+  /* If we are within a procedure definition, make sure we've
+     defined a label for the procedure; handle case where the
+     label was defined after the .PROC directive. 
+
+     Note there's not need to diddle with the segment or fragment
+     for the label symbol in this case.  We have already switched
+     into the new $CODE$ subspace at this point.  */
+  if (within_procedure && last_call_info->start_symbol == NULL)
+    {
+      label_symbol_struct *label_symbol = pa_get_label ();
+
+      if (label_symbol)
+       {
+         if (label_symbol->lss_label)
+           {
+             last_call_info->start_symbol = label_symbol->lss_label;
+             label_symbol->lss_label->bsym->flags |= BSF_FUNCTION;
+#ifdef OBJ_SOM
+             /* Also handle allocation of a fixup to hold the unwind
+                information when the label appears after the proc/procend.  */
+             if (within_entry_exit)
+               {
+                 char *where = frag_more (0);
+
+                 fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
+                               last_call_info->start_symbol, (offsetT) 0, NULL,
+                               0, R_HPPA_ENTRY, e_fsel, 0, 0,
+                               (char *) &last_call_info->ci_unwind.descriptor);
+               }
+#endif
+           }
+         else
+           as_bad ("Missing function name for .PROC (corrupted label chain)");
+       }
+      else
+       as_bad ("Missing function name for .PROC");
+    }
+
   /* Assemble the instruction.  Results are saved into "the_insn".  */
   pa_ip (str);
 
@@ -1390,7 +1399,6 @@ md_assemble (str)
                  (offsetT) 0, &the_insn.exp, the_insn.pcrel,
                  the_insn.reloc, the_insn.field_selector,
                  the_insn.format, the_insn.arg_reloc, NULL);
-
 }
 
 /* Do the real work for assembling a single instruction.  Store results
@@ -1759,17 +1767,17 @@ pa_ip (str)
                      cmpltr = 0;
                      flag = 1;
                    }
-                 else if (strcasecmp (name, "<>") == 0)
+                 else if (strcmp (name, "<>") == 0)
                    {
                      cmpltr = 1;
                      flag = 1;
                    }
-                 else if (strcasecmp (name, ">=") == 0)
+                 else if (strcmp (name, ">=") == 0)
                    {
                      cmpltr = 2;
                      flag = 1;
                    }
-                 else if (strcasecmp (name, ">") == 0)
+                 else if (strcmp (name, ">") == 0)
                    {
                      cmpltr = 3;
                      flag = 1;
@@ -2007,6 +2015,11 @@ pa_ip (str)
              nullif = pa_parse_nullif (&s);
              INSERT_FIELD_AND_CONTINUE (opcode, nullif, 1);
 
+           /* Handle a nullification completer for copr and spop insns.  */
+           case 'N':
+             nullif = pa_parse_nullif (&s);
+             INSERT_FIELD_AND_CONTINUE (opcode, nullif, 5);
+
            /* Handle a 11 bit immediate at 31.  */
            case 'i':
              the_insn.field_selector = pa_chk_field_selector (&s);
@@ -2239,12 +2252,51 @@ pa_ip (str)
              CHECK_FIELD (num, 7, 0, 0);
              INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
 
-           /* We don't support any of these.  FIXME.  */
+           /* Handle a 20 bit SOP field for spop0.  */
            case 'O':
-             get_expression (s);
+             num = pa_get_absolute_expression (&the_insn, &s);
              s = expr_end;
-             abort ();
-             continue;
+             CHECK_FIELD (num, 1048575, 0, 0);
+             num = (num & 0x1f) | ((num & 0x000fffe0) << 6);
+             INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
+
+           /* Handle a 15bit SOP field for spop1.  */
+           case 'o':
+             num = pa_get_absolute_expression (&the_insn, &s);
+             s = expr_end;
+             CHECK_FIELD (num, 32767, 0, 0);
+             INSERT_FIELD_AND_CONTINUE (opcode, num, 11);
+
+           /* Handle a 10bit SOP field for spop3.  */
+           case '0':
+             num = pa_get_absolute_expression (&the_insn, &s);
+             s = expr_end;
+             CHECK_FIELD (num, 1023, 0, 0);
+             num = (num & 0x1f) | ((num & 0x000003e0) << 6);
+             INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
+
+           /* Handle a 15 bit SOP field for spop2.  */
+           case '1':
+             num = pa_get_absolute_expression (&the_insn, &s);
+             s = expr_end;
+             CHECK_FIELD (num, 32767, 0, 0);
+             num = (num & 0x1f) | ((num & 0x00007fe0) << 6);
+             INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
+
+           /* Handle a 3-bit co-processor ID field.  */
+           case 'u':
+             num = pa_get_absolute_expression (&the_insn, &s);
+             s = expr_end;
+             CHECK_FIELD (num, 7, 0, 0);
+             INSERT_FIELD_AND_CONTINUE (opcode, num, 6);
+
+           /* Handle a 22bit SOP field for copr.  */
+           case '2':
+             num = pa_get_absolute_expression (&the_insn, &s);
+             s = expr_end;
+             CHECK_FIELD (num, 4194303, 0, 0);
+             num = (num & 0x1f) | ((num & 0x003fffe0) << 4);
+             INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
 
            /* Handle a source FP operand format completer.  */
            case 'F':
@@ -2436,7 +2488,6 @@ pa_ip (str)
     }
 
   the_insn.opcode = opcode;
-  return;
 }
 
 /* Turn a string in input_line_pointer into a floating point constant of type
@@ -2748,8 +2799,12 @@ tc_gen_reloc (section, fixp)
        case R_S_MODE:
        case R_D_MODE:
        case R_R_MODE:
+       case R_EXIT:
+       case R_FSEL:
+       case R_LSEL:
+       case R_RSEL:
          /* There is no symbol or addend associated with these fixups.  */
-         relocs[i]->sym_ptr_ptr = 0;
+         relocs[i]->sym_ptr_ptr = &dummy_symbol->bsym;
          relocs[i]->addend = 0;
          break;
 
@@ -2807,7 +2862,6 @@ md_section_align (segment, size)
   int align2 = (1 << align) - 1;
 
   return (size + align2) & ~align2;
-
 }
 
 /* Create a short jump from FROM_ADDR to TO_ADDR.  Not used on the PA.  */
@@ -2915,10 +2969,19 @@ md_apply_fix (fixP, valp)
       fixP->fx_addnumber = val;
 
       /* Check if this is an undefined symbol.  No relocation can
-         possibly be performed in this case.  */
+        possibly be performed in this case.
+
+        Also avoid doing anything for pc-relative fixups in which the
+        fixup is in a different space than the symbol it references.  */
       if ((fixP->fx_addsy && fixP->fx_addsy->bsym->section == &bfd_und_section)
          || (fixP->fx_subsy
-             && fixP->fx_subsy->bsym->section == &bfd_und_section))
+             && fixP->fx_subsy->bsym->section == &bfd_und_section)
+         || (fixP->fx_pcrel
+             && fixP->fx_addsy
+             && S_GET_SEGMENT (fixP->fx_addsy) != hppa_fixP->segment)
+         || (fixP->fx_pcrel
+             && fixP->fx_subsy
+             && S_GET_SEGMENT (fixP->fx_subsy) != hppa_fixP->segment))
        return 1;
 
       /* PLABEL field selectors should not be passed to hppa_field_adjust.  */
@@ -3020,7 +3083,14 @@ md_apply_fix (fixP, valp)
            {
              result = 0;
              fixP->fx_addnumber = fixP->fx_offset;
-             bfd_put_32 (stdoutput, 0, buf);
+             /* If we have a real relocation, then we want zero to
+                be stored in the object file.  If no relocation is going
+                to be emitted, then we need to store new_val into the
+                object file.  */
+             if (fixP->fx_addsy)
+               bfd_put_32 (stdoutput, 0, buf);
+             else
+               bfd_put_32 (stdoutput, new_val, buf);
              return 1;
            }
          break;
@@ -3292,6 +3362,7 @@ reg_name_search (name)
      char *name;
 {
   int middle, low, high;
+  int cmp;
 
   low = 0;
   high = REG_NAME_CNT - 1;
@@ -3299,18 +3370,17 @@ reg_name_search (name)
   do
     {
       middle = (low + high) / 2;
-      if (strcasecmp (name, pre_defined_registers[middle].name) < 0)
+      cmp = strcasecmp (name, pre_defined_registers[middle].name);
+      if (cmp < 0)
        high = middle - 1;
-      else
+      else if (cmp > 0)
        low = middle + 1;
+      else
+       return pre_defined_registers[middle].value;
     }
-  while (!((strcasecmp (name, pre_defined_registers[middle].name) == 0) ||
-          (low > high)));
+  while (low <= high);
 
-  if (strcasecmp (name, pre_defined_registers[middle].name) == 0)
-    return (pre_defined_registers[middle].value);
-  else
-    return (-1);
+  return -1;
 }
 
 
@@ -3400,28 +3470,45 @@ static int
 pa_chk_field_selector (str)
      char **str;
 {
-  int selector;
-  const struct selector_entry *tablep;
-
-  selector = e_fsel;
+  int middle, low, high;
+  int cmp;
+  char name[3];
 
   /* Read past any whitespace.  */
+  /* FIXME: should we read past newlines and formfeeds??? */
   while (**str == ' ' || **str == '\t' || **str == '\n' || **str == '\f')
     *str = *str + 1;
 
-  /* Yuk.  Looks like a linear search through the table.  With the
-     frequence of some selectors it might make sense to sort the
-     table by usage.  */
-  for (tablep = selector_table; tablep->prefix; tablep++)
+  if ((*str)[1] == '\'' || (*str)[1] == '%')
+    name[0] = tolower ((*str)[0]),
+    name[1] = 0;
+  else if ((*str)[2] == '\'' || (*str)[2] == '%')
+    name[0] = tolower ((*str)[0]),
+    name[1] = tolower ((*str)[1]),
+    name[2] = 0;
+  else
+    return e_fsel;
+
+  low = 0;
+  high = sizeof (selector_table) / sizeof (struct selector_entry) - 1;
+
+  do
     {
-      if (strncasecmp (tablep->prefix, *str, strlen (tablep->prefix)) == 0)
+      middle = (low + high) / 2;
+      cmp = strcmp (name, selector_table[middle].prefix);
+      if (cmp < 0)
+       high = middle - 1;
+      else if (cmp > 0)
+       low = middle + 1;
+      else
        {
-         *str += strlen (tablep->prefix);
-         selector = tablep->field_selector;
-         break;
+         *str += strlen (name) + 1;
+         return selector_table[middle].field_selector;
        }
     }
-  return selector;
+  while (low <= high);
+
+  return e_fsel;
 }
 
 /* Mark (via expr_end) the end of an expression (I think).  FIXME.  */
@@ -3890,11 +3977,11 @@ pa_parse_neg_add_cmpltr (s, isbranch)
        {
          cmpltr = 3;
        }
-      else if (strcmp (name, "uv") == 0)
+      else if (strcasecmp (name, "uv") == 0)
        {
          cmpltr = 4;
        }
-      else if (strcmp (name, "vnz") == 0)
+      else if (strcasecmp (name, "vnz") == 0)
        {
          cmpltr = 5;
        }
@@ -3957,7 +4044,6 @@ pa_block (z)
 
   pa_undefine_label ();
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Handle a .CALL pseudo-op.  This involves storing away information
@@ -3970,7 +4056,6 @@ pa_call (unused)
 {
   pa_call_args (&last_call_desc);
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Do the dirty work of building a call descriptor which describes
@@ -4235,7 +4320,6 @@ pa_callinfo (unused)
     }
 
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Switch into the code subspace.  */
@@ -4262,7 +4346,6 @@ pa_code (unused)
   SPACE_DEFINED (sdchain) = 1;
   subseg_set (text_section, SUBSEG_CODE);
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* This is different than the standard GAS s_comm(). On HP9000/800 machines,
@@ -4323,7 +4406,6 @@ pa_end (unused)
      int unused;
 {
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Process a .ENTER pseudo-op.  This is not supported.  */
@@ -4332,7 +4414,6 @@ pa_enter (unused)
      int unused;
 {
   abort ();
-  return;
 }
 
 /* Process a .ENTRY pseudo-op.  .ENTRY marks the beginning of the
@@ -4351,10 +4432,6 @@ pa_entry (unused)
   demand_empty_rest_of_line ();
   within_entry_exit = TRUE;
 
-  /* Go back to the last symbol and turn on the BSF_FUNCTION flag.
-     It will not be on if no .EXPORT pseudo-op exists (static function).  */
-  last_call_info->start_symbol->bsym->flags |= BSF_FUNCTION;
-
 #ifdef OBJ_SOM
   /* SOM defers building of unwind descriptors until the link phase.
      The assembler is responsible for creating an R_ENTRY relocation
@@ -4365,17 +4442,16 @@ pa_entry (unused)
      is an unwind requires too much relocation space.  Hmmm.  Maybe
      if we split the unwind bits up between the relocations which
      denote the entry and exit points.  */
-  {
-    char *where = frag_more (0);
+  if (last_call_info->start_symbol != NULL)
+    {
+      char *where = frag_more (0);
 
-    fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
-                 last_call_info->start_symbol, (offsetT) 0, NULL,
-                 0, R_HPPA_ENTRY, e_fsel, 0, 0,
-                 (char *) &last_call_info->ci_unwind.descriptor);
-  }
+      fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
+                   last_call_info->start_symbol, (offsetT) 0, NULL,
+                   0, R_HPPA_ENTRY, e_fsel, 0, 0,
+                   (char *) &last_call_info->ci_unwind.descriptor);
+    }
 #endif
-
-  return;
 }
 
 /* Handle a .EQU pseudo-op.  */
@@ -4403,7 +4479,6 @@ pa_equ (reg)
 
   pa_undefine_label ();
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Helper function.  Does processing for the end of a function.  This
@@ -4437,7 +4512,6 @@ process_exit ()
                last_call_info->start_symbol, (offsetT) 0,
                NULL, 0, R_HPPA_EXIT, e_fsel, 0, 0, NULL);
 #endif
-
 }
 
 /* Process a .EXIT pseudo-op.  */
@@ -4464,7 +4538,6 @@ pa_exit (unused)
        }
     }
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Process a .EXPORT directive.  This makes functions external
@@ -4505,7 +4578,6 @@ pa_export (unused)
     }
 
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Helper function to process arguments to a .EXPORT pseudo-op.  */
@@ -4687,7 +4759,6 @@ pa_import (unused)
     }
 
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Handle a .LABEL pseudo-op.  */
@@ -4718,7 +4789,6 @@ pa_label (unused)
       ignore_rest_of_line ();
     }
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Handle a .LEAVE pseudo-op.  This is not supported yet.  */
@@ -4738,7 +4808,6 @@ pa_origin (unused)
 {
   s_org (0);
   pa_undefine_label ();
-  return;
 }
 
 /* Handle a .PARAM pseudo-op.  This is much like a .EXPORT, except it
@@ -4774,7 +4843,6 @@ pa_param (unused)
     }
 
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Handle a .PROC pseudo-op.  It is used to mark the beginning
@@ -4785,6 +4853,7 @@ pa_proc (unused)
      int unused;
 {
   struct call_info *call_info;
+  segT seg;
 
   if (within_procedure)
     as_fatal ("Nested procedures");
@@ -4793,6 +4862,33 @@ pa_proc (unused)
   callinfo_found = FALSE;
   within_procedure = TRUE;
 
+  /* Create a new CODE subspace for each procedure if we are not
+     using space/subspace aliases.  */
+  if (!USE_ALIASES && call_info_root != NULL)
+    {
+      /* Force creation of a new $CODE$ subspace; inherit attributes from
+        the first $CODE$ subspace.  */
+      seg = subseg_force_new ("$CODE$", 0);
+
+      /* Now set the flags.  */
+      bfd_set_section_flags (stdoutput, seg, 
+                            bfd_get_section_flags (abfd, text_section));
+
+      /* Record any alignment request for this section.  */
+      record_alignment (seg, 
+                       bfd_get_section_alignment (stdoutput, text_section));
+
+      /* Change the "text_section" to be our new $CODE$ subspace.  */
+      text_section = seg;
+      subseg_set (text_section, 0);
+
+#ifdef obj_set_subsection_attributes
+      /* Need a way to inherit the the access bits, sort key and quadrant
+        from the first $CODE$ subspace.  FIXME.  */
+      obj_set_subsection_attributes (seg, current_space->sd_seg, 0x2c, 24, 0);
+#endif
+    }
+
   /* Create another call_info structure.  */
   call_info = (struct call_info *) xmalloc (sizeof (struct call_info));
 
@@ -4831,16 +4927,25 @@ pa_proc (unused)
          {
            last_call_info->start_symbol = label_symbol->lss_label;
            label_symbol->lss_label->bsym->flags |= BSF_FUNCTION;
+           if (! USE_ALIASES)
+             {
+               /* The label was defined in a different segment.  Fix that
+                  along with the value and associated fragment.  */
+               S_SET_SEGMENT (last_call_info->start_symbol, now_seg);
+                S_SET_VALUE (last_call_info->start_symbol,
+                            ((char*)obstack_next_free (&frags)
+                              - frag_now->fr_literal));
+               last_call_info->start_symbol->sy_frag = frag_now;
+             }
          }
        else
-         as_bad ("Missing function name for .PROC (corrupted label)");
+         as_bad ("Missing function name for .PROC (corrupted label chain)");
       }
     else
-      as_bad ("Missing function name for .PROC");
+      last_call_info->start_symbol = NULL;
   }
 
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* Process the syntatical end of a procedure.  Make sure all the 
@@ -4868,7 +4973,7 @@ pa_procend (unused)
 
   within_procedure = FALSE;
   demand_empty_rest_of_line ();
-  return;
+  pa_undefine_label ();
 }
 
 /* Parse the parameters to a .SPACE directive; if CREATE_FLAG is nonzero,
@@ -4892,12 +4997,12 @@ pa_parse_space_stmt (space_name, create_flag)
   loadable = TRUE;
   defined = TRUE;
   private = FALSE;
-  if (strcasecmp (space_name, "$TEXT$") == 0)
+  if (strcmp (space_name, "$TEXT$") == 0)
     {
       seg = pa_def_spaces[0].segment;
       sort = pa_def_spaces[0].sort;
     }
-  else if (strcasecmp (space_name, "$PRIVATE$") == 0)
+  else if (strcmp (space_name, "$PRIVATE$") == 0)
     {
       seg = pa_def_spaces[1].segment;
       sort = pa_def_spaces[1].sort;
@@ -4919,29 +5024,29 @@ pa_parse_space_stmt (space_name, create_flag)
              input_line_pointer++;
              name = input_line_pointer;
              c = get_symbol_end ();
-             if ((strncasecmp (name, "SPNUM", 5) == 0))
+             if ((strncasecmp (name, "spnum", 5) == 0))
                {
                  *input_line_pointer = c;
                  input_line_pointer++;
                  spnum = get_absolute_expression ();
                }
-             else if ((strncasecmp (name, "SORT", 4) == 0))
+             else if ((strncasecmp (name, "sort", 4) == 0))
                {
                  *input_line_pointer = c;
                  input_line_pointer++;
                  sort = get_absolute_expression ();
                }
-             else if ((strncasecmp (name, "UNLOADABLE", 10) == 0))
+             else if ((strncasecmp (name, "unloadable", 10) == 0))
                {
                  *input_line_pointer = c;
                  loadable = FALSE;
                }
-             else if ((strncasecmp (name, "NOTDEFINED", 10) == 0))
+             else if ((strncasecmp (name, "notdefined", 10) == 0))
                {
                  *input_line_pointer = c;
                  defined = FALSE;
                }
-             else if ((strncasecmp (name, "PRIVATE", 7) == 0))
+             else if ((strncasecmp (name, "private", 7) == 0))
                {
                  *input_line_pointer = c;
                  private = TRUE;
@@ -5005,7 +5110,9 @@ pa_space (unused)
       /* Check for some of the predefined spaces.   FIXME: most of the code
          below is repeated several times, can we extract the common parts
          and place them into a subroutine or something similar?  */
-      if (strncasecmp (input_line_pointer, "$text$", 6) == 0)
+      /* FIXME Is this (and the next IF stmt) really right?
+        What if INPUT_LINE_POINTER points to "$TEXT$FOO"?  */
+      if (strncmp (input_line_pointer, "$TEXT$", 6) == 0)
        {
          input_line_pointer += 6;
          sd_chain = is_defined_space ("$TEXT$");
@@ -5022,7 +5129,7 @@ pa_space (unused)
          demand_empty_rest_of_line ();
          return;
        }
-      if (strncasecmp (input_line_pointer, "$private$", 9) == 0)
+      if (strncmp (input_line_pointer, "$PRIVATE$", 9) == 0)
        {
          input_line_pointer += 9;
          sd_chain = is_defined_space ("$PRIVATE$");
@@ -5100,7 +5207,6 @@ pa_space (unused)
                                                  sd_chain->sd_last_subseg);
       demand_empty_rest_of_line ();
     }
-  return;
 }
 
 /* Switch to a new space.  (I think).  FIXME.  */
@@ -5127,7 +5233,6 @@ pa_spnum (unused)
 
   *input_line_pointer = c;
   demand_empty_rest_of_line ();
-  return;
 }
 
 /* If VALUE is an exact power of two between zero and 2^31, then 
@@ -5239,13 +5344,13 @@ pa_subspace (unused)
            {
              name = input_line_pointer;
              c = get_symbol_end ();
-             if ((strncasecmp (name, "QUAD", 4) == 0))
+             if ((strncasecmp (name, "quad", 4) == 0))
                {
                  *input_line_pointer = c;
                  input_line_pointer++;
                  quadrant = get_absolute_expression ();
                }
-             else if ((strncasecmp (name, "ALIGN", 5) == 0))
+             else if ((strncasecmp (name, "align", 5) == 0))
                {
                  *input_line_pointer = c;
                  input_line_pointer++;
@@ -5256,44 +5361,44 @@ pa_subspace (unused)
                      alignment = 1;
                    }
                }
-             else if ((strncasecmp (name, "ACCESS", 6) == 0))
+             else if ((strncasecmp (name, "access", 6) == 0))
                {
                  *input_line_pointer = c;
                  input_line_pointer++;
                  access = get_absolute_expression ();
                }
-             else if ((strncasecmp (name, "SORT", 4) == 0))
+             else if ((strncasecmp (name, "sort", 4) == 0))
                {
                  *input_line_pointer = c;
                  input_line_pointer++;
                  sort = get_absolute_expression ();
                }
-             else if ((strncasecmp (name, "CODE_ONLY", 9) == 0))
+             else if ((strncasecmp (name, "code_only", 9) == 0))
                {
                  *input_line_pointer = c;
                  code_only = 1;
                }
-             else if ((strncasecmp (name, "UNLOADABLE", 10) == 0))
+             else if ((strncasecmp (name, "unloadable", 10) == 0))
                {
                  *input_line_pointer = c;
                  loadable = 0;
                }
-             else if ((strncasecmp (name, "COMMON", 6) == 0))
+             else if ((strncasecmp (name, "common", 6) == 0))
                {
                  *input_line_pointer = c;
                  common = 1;
                }
-             else if ((strncasecmp (name, "DUP_COMM", 8) == 0))
+             else if ((strncasecmp (name, "dup_comm", 8) == 0))
                {
                  *input_line_pointer = c;
                  dup_common = 1;
                }
-             else if ((strncasecmp (name, "ZERO", 4) == 0))
+             else if ((strncasecmp (name, "zero", 4) == 0))
                {
                  *input_line_pointer = c;
                  zero = 1;
                }
-             else if ((strncasecmp (name, "FIRST", 5) == 0))
+             else if ((strncasecmp (name, "first", 5) == 0))
                as_bad ("FIRST not supported as a .SUBSPACE argument");
              else
                as_bad ("Invalid .SUBSPACE argument");
@@ -5371,7 +5476,6 @@ pa_subspace (unused)
       subseg_set (current_subspace->ssd_seg, current_subspace->ssd_subseg);
     }
   SUBSPACE_DEFINED (current_subspace) = 1;
-  return;
 }
 
 
@@ -5641,7 +5745,6 @@ create_new_subspace (space, name, loadable, code_only, common,
 #endif
 
   return chain_entry;
-
 }
 
 /* Update the information for the given subspace based upon the
@@ -5674,7 +5777,6 @@ update_subspace (space, name, loadable, code_only, common, dup_common, sort,
 #endif
 
   return chain_entry;
-
 }
 
 /* Return the space chain entry for the space with the name NAME or
@@ -5823,7 +5925,7 @@ pa_subspace_start (space, quadrant)
 {
   /* FIXME.  Assumes everyone puts read/write data at 0x4000000, this
      is not correct for the PA OSF1 port.  */
-  if ((strcasecmp (SPACE_NAME (space), "$PRIVATE$") == 0) && quadrant == 1)
+  if ((strcmp (SPACE_NAME (space), "$PRIVATE$") == 0) && quadrant == 1)
     return 0x40000000;
   else if (space->sd_seg == data_section && quadrant == 1)
     return 0x40000000;
@@ -6244,8 +6346,6 @@ hppa_tc_make_sections (abfd)
 
   /* Switch back to the original segment.  */
   subseg_set (save_seg, save_subseg);
-
-  return;
 }
 
 /* Make the symbol extension section.  */
@@ -6295,7 +6395,6 @@ pa_build_symextn_section ()
                         | SEC_ALLOC | SEC_LOAD);
 
   subseg_set (save_seg, save_subseg);
-
 }
 
 /* For ELF, this function serves one purpose:  to setup the st_size
This page took 0.040176 seconds and 4 git commands to generate.