* config/tc-hppa.c (hppa_fix_struct): Add new "segment" field.

        (hppa_fix_new): Initialize segment field.
        (md_apply_fix): Do nothing for pc-relative fixup which involves
        crossing a segment boundary.
        (pa_procend): Undefine the current label after handling .PROC
        and .PROCEND directives.
        (dummy_symbol): Make type "symbolS *".  Change references as
        appropriate.

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 5005bbd786ee902894a59365f97afd663473c2c9..b070ae245acf10097aff1ae6dd5c7e31a42b7d59 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -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.  */
@@ -724,7 +727,7 @@ static label_symbol_struct *label_symbols_rootp = NULL;
 static int hppa_field_selector;
 
 /* A dummy bfd symbol so that all relocations have symbols of some kind.  */
-static asymbol *dummy_symbol;
+static symbolS *dummy_symbol;
 
 /* Nonzero if errors are to be printed.  */
 static int print_errors = 1;
@@ -1211,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);
@@ -1329,7 +1333,7 @@ md_begin ()
   subseg_set (text_section, 0);
 
   dummy_symbol = symbol_find_or_make ("L$dummy");
-  dummy_symbol->section = text_section;
+  S_SET_SEGMENT (dummy_symbol, text_section);
 }
 
 /* Assemble a single instruction storing it into a frag.  */
@@ -2739,7 +2743,7 @@ tc_gen_reloc (section, fixp)
        case R_LSEL:
        case R_RSEL:
          /* There is no symbol or addend associated with these fixups.  */
-         relocs[i]->sym_ptr_ptr = dummy_symbol;
+         relocs[i]->sym_ptr_ptr = &dummy_symbol->bsym;
          relocs[i]->addend = 0;
          break;
 
@@ -2904,10 +2908,17 @@ 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_addsy
+             && S_GET_SEGMENT (fixP->fx_addsy) != hppa_fixP->segment)
+         || (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.  */
@@ -4864,6 +4875,7 @@ pa_procend (unused)
 
   within_procedure = FALSE;
   demand_empty_rest_of_line ();
+  pa_undefine_label ();
 }
 
 /* Parse the parameters to a .SPACE directive; if CREATE_FLAG is nonzero,