- switch (r_type)
- {
- case R_PARISC_NONE:
- break;
-
- /* Basic function call support.
-
- Note for a call to a function defined in another dynamic library
- we want to redirect the call to a stub. */
-
- /* Random PC relative relocs. */
- case R_PARISC_PCREL21L:
- case R_PARISC_PCREL14R:
- case R_PARISC_PCREL14F:
- case R_PARISC_PCREL14WR:
- case R_PARISC_PCREL14DR:
- case R_PARISC_PCREL16F:
- case R_PARISC_PCREL16WF:
- case R_PARISC_PCREL16DF:
- {
- /* If this is a call to a function defined in another dynamic
- library, then redirect the call to the local stub for this
- function. */
- if (sym_sec == NULL || sym_sec->output_section == NULL)
- value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
- + hppa_info->stub_sec->output_section->vma);
-
- /* Turn VALUE into a proper PC relative address. */
- value -= (offset + input_section->output_offset
- + input_section->output_section->vma);
-
- /* Adjust for any field selectors. */
- if (r_type == R_PARISC_PCREL21L)
- value = hppa_field_adjust (value, -8 + addend, e_lsel);
- else if (r_type == R_PARISC_PCREL14F
- || r_type == R_PARISC_PCREL16F
- || r_type == R_PARISC_PCREL16WF
- || r_type == R_PARISC_PCREL16DF)
- value = hppa_field_adjust (value, -8 + addend, e_fsel);
- else
- value = hppa_field_adjust (value, -8 + addend, e_rsel);
-
- /* Apply the relocation to the given instruction. */
- insn = elf_hppa_relocate_insn (insn, (int) value, r_type);
- break;
- }
-
- case R_PARISC_PCREL12F:
- case R_PARISC_PCREL22F:
- case R_PARISC_PCREL17F:
- case R_PARISC_PCREL22C:
- case R_PARISC_PCREL17C:
- case R_PARISC_PCREL17R:
- {
- /* If this is a call to a function defined in another dynamic
- library, then redirect the call to the local stub for this
- function. */
- if (sym_sec == NULL || sym_sec->output_section == NULL)
- value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
- + hppa_info->stub_sec->output_section->vma);
-
- /* Turn VALUE into a proper PC relative address. */
- value -= (offset + input_section->output_offset
- + input_section->output_section->vma);
-
- /* Adjust for any field selectors. */
- if (r_type == R_PARISC_PCREL17R)
- value = hppa_field_adjust (value, -8 + addend, e_rsel);
- else
- value = hppa_field_adjust (value, -8 + addend, e_fsel);
-
- /* All branches are implicitly shifted by 2 places. */
- value >>= 2;
-
- /* Apply the relocation to the given instruction. */
- insn = elf_hppa_relocate_insn (insn, (int) value, r_type);
- break;
- }
-
- /* Indirect references to data through the DLT. */
- case R_PARISC_DLTIND14R:
- case R_PARISC_DLTIND14F:
- case R_PARISC_DLTIND14DR:
- case R_PARISC_DLTIND14WR:
- case R_PARISC_DLTIND21L:
- case R_PARISC_LTOFF_FPTR14R:
- case R_PARISC_LTOFF_FPTR14DR:
- case R_PARISC_LTOFF_FPTR14WR:
- case R_PARISC_LTOFF_FPTR21L:
- case R_PARISC_LTOFF_FPTR16F:
- case R_PARISC_LTOFF_FPTR16WF:
- case R_PARISC_LTOFF_FPTR16DF:
- case R_PARISC_LTOFF_TP21L:
- case R_PARISC_LTOFF_TP14R:
- case R_PARISC_LTOFF_TP14F:
- case R_PARISC_LTOFF_TP14WR:
- case R_PARISC_LTOFF_TP14DR:
- case R_PARISC_LTOFF_TP16F:
- case R_PARISC_LTOFF_TP16WF:
- case R_PARISC_LTOFF_TP16DF:
- case R_PARISC_LTOFF16F:
- case R_PARISC_LTOFF16WF:
- case R_PARISC_LTOFF16DF:
- {
- /* If this relocation was against a local symbol, then we still
- have not set up the DLT entry (it's not convenient to do so
- in the "finalize_dlt" routine because it is difficult to get
- to the local symbol's value).
-
- So, if this is a local symbol (h == NULL), then we need to
- fill in its DLT entry.
-
- Similarly we may still need to set up an entry in .opd for
- a local function which had its address taken. */
- if (dyn_h->h == NULL)
- {
- /* Now do .opd creation if needed. */
- if (r_type == R_PARISC_LTOFF_FPTR14R
- || r_type == R_PARISC_LTOFF_FPTR14DR
- || r_type == R_PARISC_LTOFF_FPTR14WR
- || r_type == R_PARISC_LTOFF_FPTR21L
- || r_type == R_PARISC_LTOFF_FPTR16F
- || r_type == R_PARISC_LTOFF_FPTR16WF
- || r_type == R_PARISC_LTOFF_FPTR16DF)
- {
- /* The first two words of an .opd entry are zero. */
- memset (hppa_info->opd_sec->contents + dyn_h->opd_offset,
- 0, 16);
-
- /* The next word is the address of the function. */
- bfd_put_64 (hppa_info->opd_sec->owner, value + addend,
- (hppa_info->opd_sec->contents
- + dyn_h->opd_offset + 16));
-
- /* The last word is our local __gp value. */
- value = _bfd_get_gp_value
- (hppa_info->opd_sec->output_section->owner);
- bfd_put_64 (hppa_info->opd_sec->owner, value,
- (hppa_info->opd_sec->contents
- + dyn_h->opd_offset + 24));
-
- /* The DLT value is the address of the .opd entry. */
- value = (dyn_h->opd_offset
- + hppa_info->opd_sec->output_offset
- + hppa_info->opd_sec->output_section->vma);
- addend = 0;
- }
-
- bfd_put_64 (hppa_info->dlt_sec->owner,
- value + addend,
- hppa_info->dlt_sec->contents + dyn_h->dlt_offset);
- }
-
- /* We want the value of the DLT offset for this symbol, not
- the symbol's actual address. Note that __gp may not point
- to the start of the DLT, so we have to compute the absolute
- address, then subtract out the value of __gp. */
- value = (dyn_h->dlt_offset
- + hppa_info->dlt_sec->output_offset
- + hppa_info->dlt_sec->output_section->vma);
- value -= _bfd_get_gp_value (output_bfd);
-
- /* All DLTIND relocations are basically the same at this point,
- except that we need different field selectors for the 21bit
- version vs the 14bit versions. */
- if (r_type == R_PARISC_DLTIND21L
- || r_type == R_PARISC_LTOFF_FPTR21L
- || r_type == R_PARISC_LTOFF_TP21L)
- value = hppa_field_adjust (value, 0, e_lsel);
- else if (r_type == R_PARISC_DLTIND14F
- || r_type == R_PARISC_LTOFF_FPTR16F
- || r_type == R_PARISC_LTOFF_FPTR16WF
- || r_type == R_PARISC_LTOFF_FPTR16DF
- || r_type == R_PARISC_LTOFF16F
- || r_type == R_PARISC_LTOFF16DF
- || r_type == R_PARISC_LTOFF16WF
- || r_type == R_PARISC_LTOFF_TP16F
- || r_type == R_PARISC_LTOFF_TP16WF
- || r_type == R_PARISC_LTOFF_TP16DF)
- value = hppa_field_adjust (value, 0, e_fsel);
- else
- value = hppa_field_adjust (value, 0, e_rsel);
-
- insn = elf_hppa_relocate_insn (insn, (int) value, r_type);
- break;
- }
-
- case R_PARISC_DLTREL14R:
- case R_PARISC_DLTREL14F:
- case R_PARISC_DLTREL14DR:
- case R_PARISC_DLTREL14WR:
- case R_PARISC_DLTREL21L:
- case R_PARISC_DPREL21L:
- case R_PARISC_DPREL14WR:
- case R_PARISC_DPREL14DR:
- case R_PARISC_DPREL14R:
- case R_PARISC_DPREL14F:
- case R_PARISC_GPREL16F:
- case R_PARISC_GPREL16WF:
- case R_PARISC_GPREL16DF:
- {
- /* Subtract out the global pointer value to make value a DLT
- relative address. */
- value -= _bfd_get_gp_value (output_bfd);
-
- /* All DLTREL relocations are basically the same at this point,
- except that we need different field selectors for the 21bit
- version vs the 14bit versions. */
- if (r_type == R_PARISC_DLTREL21L
- || r_type == R_PARISC_DPREL21L)
- value = hppa_field_adjust (value, addend, e_lrsel);
- else if (r_type == R_PARISC_DLTREL14F
- || r_type == R_PARISC_DPREL14F
- || r_type == R_PARISC_GPREL16F
- || r_type == R_PARISC_GPREL16WF
- || r_type == R_PARISC_GPREL16DF)
- value = hppa_field_adjust (value, addend, e_fsel);
- else
- value = hppa_field_adjust (value, addend, e_rrsel);
-
- insn = elf_hppa_relocate_insn (insn, (int) value, r_type);
- break;
- }
-
- case R_PARISC_DIR21L:
- case R_PARISC_DIR17R:
- case R_PARISC_DIR17F:
- case R_PARISC_DIR14R:
- case R_PARISC_DIR14F:
- case R_PARISC_DIR14WR:
- case R_PARISC_DIR14DR:
- case R_PARISC_DIR16F:
- case R_PARISC_DIR16WF:
- case R_PARISC_DIR16DF:
- {
- /* All DIR relocations are basically the same at this point,
- except that branch offsets need to be divided by four, and
- we need different field selectors. Note that we don't
- redirect absolute calls to local stubs. */
-
- if (r_type == R_PARISC_DIR21L)
- value = hppa_field_adjust (value, addend, e_lrsel);
- else if (r_type == R_PARISC_DIR17F
- || r_type == R_PARISC_DIR16F
- || r_type == R_PARISC_DIR16WF
- || r_type == R_PARISC_DIR16DF
- || r_type == R_PARISC_DIR14F)
- value = hppa_field_adjust (value, addend, e_fsel);
- else
- value = hppa_field_adjust (value, addend, e_rrsel);
-
- if (r_type == R_PARISC_DIR17R || r_type == R_PARISC_DIR17F)
- {
- /* All branches are implicitly shifted by 2 places. */
- value >>= 2;
- }
-
- insn = elf_hppa_relocate_insn (insn, (int) value, r_type);
- break;
- }
-
- case R_PARISC_PLTOFF21L:
- case R_PARISC_PLTOFF14R:
- case R_PARISC_PLTOFF14F:
- case R_PARISC_PLTOFF14WR:
- case R_PARISC_PLTOFF14DR:
- case R_PARISC_PLTOFF16F:
- case R_PARISC_PLTOFF16WF:
- case R_PARISC_PLTOFF16DF:
- {
- /* We want the value of the PLT offset for this symbol, not
- the symbol's actual address. Note that __gp may not point
- to the start of the DLT, so we have to compute the absolute
- address, then subtract out the value of __gp. */
- value = (dyn_h->plt_offset
- + hppa_info->plt_sec->output_offset
- + hppa_info->plt_sec->output_section->vma);
- value -= _bfd_get_gp_value (output_bfd);
-
- /* All PLTOFF relocations are basically the same at this point,
- except that we need different field selectors for the 21bit
- version vs the 14bit versions. */
- if (r_type == R_PARISC_PLTOFF21L)
- value = hppa_field_adjust (value, addend, e_lrsel);
- else if (r_type == R_PARISC_PLTOFF14F
- || r_type == R_PARISC_PLTOFF16F
- || r_type == R_PARISC_PLTOFF16WF
- || r_type == R_PARISC_PLTOFF16DF)
- value = hppa_field_adjust (value, addend, e_fsel);
- else
- value = hppa_field_adjust (value, addend, e_rrsel);
-
- insn = elf_hppa_relocate_insn (insn, (int) value, r_type);
- break;
- }
-
- case R_PARISC_LTOFF_FPTR32:
- {
- /* We may still need to create the FPTR itself if it was for
- a local symbol. */
- if (dyn_h->h == NULL)
- {
- /* The first two words of an .opd entry are zero. */
- memset (hppa_info->opd_sec->contents + dyn_h->opd_offset, 0, 16);
-
- /* The next word is the address of the function. */
- bfd_put_64 (hppa_info->opd_sec->owner, value + addend,
- (hppa_info->opd_sec->contents
- + dyn_h->opd_offset + 16));
-
- /* The last word is our local __gp value. */
- value = _bfd_get_gp_value
- (hppa_info->opd_sec->output_section->owner);
- bfd_put_64 (hppa_info->opd_sec->owner, value,
- hppa_info->opd_sec->contents + dyn_h->opd_offset + 24);
-
- /* The DLT value is the address of the .opd entry. */
- value = (dyn_h->opd_offset
- + hppa_info->opd_sec->output_offset
- + hppa_info->opd_sec->output_section->vma);
-
- bfd_put_64 (hppa_info->dlt_sec->owner,
- value,
- hppa_info->dlt_sec->contents + dyn_h->dlt_offset);
- }
-
- /* We want the value of the DLT offset for this symbol, not
- the symbol's actual address. Note that __gp may not point
- to the start of the DLT, so we have to compute the absolute
- address, then subtract out the value of __gp. */
- value = (dyn_h->dlt_offset
- + hppa_info->dlt_sec->output_offset
- + hppa_info->dlt_sec->output_section->vma);
- value -= _bfd_get_gp_value (output_bfd);
- bfd_put_32 (input_bfd, value, hit_data);
- return bfd_reloc_ok;
- }
-
- case R_PARISC_LTOFF_FPTR64:
- case R_PARISC_LTOFF_TP64:
- {
- /* We may still need to create the FPTR itself if it was for
- a local symbol. */
- if (dyn_h->h == NULL && r_type == R_PARISC_LTOFF_FPTR64)
- {
- /* The first two words of an .opd entry are zero. */
- memset (hppa_info->opd_sec->contents + dyn_h->opd_offset, 0, 16);
-
- /* The next word is the address of the function. */
- bfd_put_64 (hppa_info->opd_sec->owner, value + addend,
- (hppa_info->opd_sec->contents
- + dyn_h->opd_offset + 16));
-
- /* The last word is our local __gp value. */
- value = _bfd_get_gp_value
- (hppa_info->opd_sec->output_section->owner);
- bfd_put_64 (hppa_info->opd_sec->owner, value,
- hppa_info->opd_sec->contents + dyn_h->opd_offset + 24);
-
- /* The DLT value is the address of the .opd entry. */
- value = (dyn_h->opd_offset
- + hppa_info->opd_sec->output_offset
- + hppa_info->opd_sec->output_section->vma);
-
- bfd_put_64 (hppa_info->dlt_sec->owner,
- value,
- hppa_info->dlt_sec->contents + dyn_h->dlt_offset);
- }
-
- /* We want the value of the DLT offset for this symbol, not
- the symbol's actual address. Note that __gp may not point
- to the start of the DLT, so we have to compute the absolute
- address, then subtract out the value of __gp. */
- value = (dyn_h->dlt_offset
- + hppa_info->dlt_sec->output_offset
- + hppa_info->dlt_sec->output_section->vma);
- value -= _bfd_get_gp_value (output_bfd);
- bfd_put_64 (input_bfd, value, hit_data);
- return bfd_reloc_ok;
- }
-
- case R_PARISC_DIR32:
- bfd_put_32 (input_bfd, value + addend, hit_data);
- return bfd_reloc_ok;
-
- case R_PARISC_DIR64:
- bfd_put_64 (input_bfd, value + addend, hit_data);
- return bfd_reloc_ok;
-
- case R_PARISC_GPREL64:
- /* Subtract out the global pointer value to make value a DLT
- relative address. */
- value -= _bfd_get_gp_value (output_bfd);
-
- bfd_put_64 (input_bfd, value + addend, hit_data);
- return bfd_reloc_ok;
-
- case R_PARISC_LTOFF64:
- /* We want the value of the DLT offset for this symbol, not
- the symbol's actual address. Note that __gp may not point
- to the start of the DLT, so we have to compute the absolute
- address, then subtract out the value of __gp. */
- value = (dyn_h->dlt_offset
- + hppa_info->dlt_sec->output_offset
- + hppa_info->dlt_sec->output_section->vma);
- value -= _bfd_get_gp_value (output_bfd);
-
- bfd_put_64 (input_bfd, value + addend, hit_data);
- return bfd_reloc_ok;
-
- case R_PARISC_PCREL32:
- {
- /* If this is a call to a function defined in another dynamic
- library, then redirect the call to the local stub for this
- function. */
- if (sym_sec == NULL || sym_sec->output_section == NULL)
- value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
- + hppa_info->stub_sec->output_section->vma);
-
- /* Turn VALUE into a proper PC relative address. */
- value -= (offset + input_section->output_offset
- + input_section->output_section->vma);
-
- value += addend;
- value -= 8;
- bfd_put_32 (input_bfd, value, hit_data);
- return bfd_reloc_ok;
- }
-
- case R_PARISC_PCREL64:
- {
- /* If this is a call to a function defined in another dynamic
- library, then redirect the call to the local stub for this
- function. */
- if (sym_sec == NULL || sym_sec->output_section == NULL)
- value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
- + hppa_info->stub_sec->output_section->vma);
-
- /* Turn VALUE into a proper PC relative address. */
- value -= (offset + input_section->output_offset
- + input_section->output_section->vma);
-
- value += addend;
- value -= 8;
- bfd_put_64 (input_bfd, value, hit_data);
- return bfd_reloc_ok;
- }
-
- case R_PARISC_FPTR64:
- {
- /* We may still need to create the FPTR itself if it was for
- a local symbol. */
- if (dyn_h->h == NULL)
- {
- /* The first two words of an .opd entry are zero. */
- memset (hppa_info->opd_sec->contents + dyn_h->opd_offset, 0, 16);
-
- /* The next word is the address of the function. */
- bfd_put_64 (hppa_info->opd_sec->owner, value + addend,
- (hppa_info->opd_sec->contents
- + dyn_h->opd_offset + 16));
-
- /* The last word is our local __gp value. */
- value = _bfd_get_gp_value
- (hppa_info->opd_sec->output_section->owner);
- bfd_put_64 (hppa_info->opd_sec->owner, value,
- hppa_info->opd_sec->contents + dyn_h->opd_offset + 24);
- }
-
- if (dyn_h->want_opd)
- /* We want the value of the OPD offset for this symbol. */
- value = (dyn_h->opd_offset
- + hppa_info->opd_sec->output_offset
- + hppa_info->opd_sec->output_section->vma);
- else
- /* We want the address of the symbol. */
- value += addend;
-
- bfd_put_64 (input_bfd, value, hit_data);
- return bfd_reloc_ok;
- }
-
- case R_PARISC_SECREL32:
- bfd_put_32 (input_bfd,
- value + addend - sym_sec->output_section->vma,
- hit_data);
- return bfd_reloc_ok;