OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [bfd/] [elf-hppa.h] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 104 markom 
/* Common code for PA ELF implementations.
2 
   Copyright (C) 1999 Free Software Foundation, Inc.
3 
 
4 
This file is part of BFD, the Binary File Descriptor library.
5 
 
6 
This program is free software; you can redistribute it and/or modify
7 
it under the terms of the GNU General Public License as published by
8 
the Free Software Foundation; either version 2 of the License, or
9 
(at your option) any later version.
10 
 
11 
This program is distributed in the hope that it will be useful,
12 
but WITHOUT ANY WARRANTY; without even the implied warranty of
13 
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 
GNU General Public License for more details.
15 
 
16 
You should have received a copy of the GNU General Public License
17 
along with this program; if not, write to the Free Software
18 
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
19 
 
20 
#define ELF_HOWTO_TABLE_SIZE       R_PARISC_UNIMPLEMENTED + 1
21 
 
22 
/* This file is included by multiple PA ELF BFD backends with different
23 
   sizes.
24 
 
25 
   Most of the routines are written to be size independent, but sometimes
26 
   external constraints require 32 or 64 bit specific code.  We remap
27 
   the definitions/functions as necessary here.  */
28 
#if ARCH_SIZE == 64
29 
#define ELF_R_TYPE(X)   ELF64_R_TYPE(X)
30 
#define ELF_R_SYM(X)   ELF64_R_SYM(X)
31 
#define _bfd_elf_hppa_gen_reloc_type _bfd_elf64_hppa_gen_reloc_type
32 
#define elf_hppa_relocate_section elf64_hppa_relocate_section
33 
#define bfd_elf_bfd_final_link bfd_elf64_bfd_final_link
34 
#define elf_hppa_final_link elf64_hppa_final_link
35 
#endif
36 
#if ARCH_SIZE == 32
37 
#define ELF_R_TYPE(X)   ELF32_R_TYPE(X)
38 
#define ELF_R_SYM(X)   ELF32_R_SYM(X)
39 
#define _bfd_elf_hppa_gen_reloc_type _bfd_elf32_hppa_gen_reloc_type
40 
#define elf_hppa_relocate_section elf32_hppa_relocate_section
41 
#define bfd_elf_bfd_final_link bfd_elf32_bfd_final_link
42 
#define elf_hppa_final_link elf32_hppa_final_link
43 
#endif
44 
 
45 
static boolean
46 
elf_hppa_relocate_section
47 
  PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *,
48 
           bfd_byte *, Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
49 
 
50 
static bfd_reloc_status_type elf_hppa_final_link_relocate
51 
  PARAMS ((Elf_Internal_Rela *, bfd *, bfd *, asection *,
52 
           bfd_byte *, bfd_vma, struct bfd_link_info *,
53 
           asection *, struct elf_link_hash_entry *,
54 
           struct elf64_hppa_dyn_hash_entry *));
55 
 
56 
static unsigned long elf_hppa_relocate_insn
57 
  PARAMS ((unsigned long, long, unsigned long));
58 
 
59 
static boolean elf_hppa_add_symbol_hook
60 
  PARAMS ((bfd *, struct bfd_link_info *, const Elf_Internal_Sym *,
61 
           const char **, flagword *, asection **, bfd_vma *));
62 
 
63 
static boolean elf_hppa_final_link
64 
  PARAMS ((bfd *, struct bfd_link_info *));
65 
 
66 
static boolean elf_hppa_unmark_useless_dynamic_symbols
67 
  PARAMS ((struct elf_link_hash_entry *, PTR));
68 
 
69 
static boolean elf_hppa_remark_useless_dynamic_symbols
70 
  PARAMS ((struct elf_link_hash_entry *, PTR));
71 
 
72 
static void elf_hppa_record_segment_addrs
73 
  PARAMS ((bfd *, asection *, PTR));
74 
 
75 
/* ELF/PA relocation howto entries.  */
76 
 
77 
static reloc_howto_type elf_hppa_howto_table[ELF_HOWTO_TABLE_SIZE] =
78 
{
79 
  {R_PARISC_NONE, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_NONE"},
80 
 
81 
  /* The values in DIR32 are to placate the check in
82 
     _bfd_stab_section_find_nearest_line.  */
83 
  {R_PARISC_DIR32, 0, 2, 32, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR32", false, 0, 0xffffffff, false},
84 
  {R_PARISC_DIR21L, 0, 0, 21, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR21L"},
85 
  {R_PARISC_DIR17R, 0, 0, 17, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR17R"},
86 
  {R_PARISC_DIR17F, 0, 0, 17, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR17F"},
87 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
88 
  {R_PARISC_DIR14R, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR14R"},
89 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
90 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
91 
  {R_PARISC_PCREL32, 0, 0, 32, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL32"},
92 
 
93 
  {R_PARISC_PCREL21L, 0, 0, 21, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL21L"},
94 
  {R_PARISC_PCREL17R, 0, 0, 17, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL17R"},
95 
  {R_PARISC_PCREL17F, 0, 0, 17, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL17F"},
96 
  {R_PARISC_PCREL17C, 0, 0, 17, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL17C"},
97 
  {R_PARISC_PCREL14R, 0, 0, 14, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL14R"},
98 
  {R_PARISC_PCREL14F, 0, 0, 14, true, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL14F"},
99 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
100 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
101 
  {R_PARISC_DPREL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DPREL21L"},
102 
  {R_PARISC_DPREL14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DPREL14WR"},
103 
 
104 
  {R_PARISC_DPREL14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DPREL14DR"},
105 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
106 
  {R_PARISC_DPREL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DPREL14R"},
107 
  {R_PARISC_DPREL14F, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DPREL14F"},
108 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
109 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
110 
  {R_PARISC_DLTREL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTREL21L"},
111 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
112 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
113 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
114 
 
115 
  {R_PARISC_DLTREL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTREL14R"},
116 
  {R_PARISC_DLTREL14F, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTREL14F"},
117 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
118 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
119 
  {R_PARISC_DLTIND21L, 0, 0, 21, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTIND21L"},
120 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
121 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
122 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
123 
  {R_PARISC_DLTIND14R, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTIND14R"},
124 
  {R_PARISC_DLTIND14F, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTIND14F"},
125 
 
126 
  {R_PARISC_SETBASE, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_SETBASE"},
127 
  {R_PARISC_SECREL32, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_SECREL32"},
128 
  {R_PARISC_BASEREL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_BASEREL21L"},
129 
  {R_PARISC_BASEREL17R, 0, 0, 17, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_BASEREL17R"},
130 
  {R_PARISC_BASEREL17F, 0, 0, 17, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_BASEREL17F"},
131 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
132 
  {R_PARISC_BASEREL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_BASEREL14R"},
133 
  {R_PARISC_BASEREL14F, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_BASEREL14F"},
134 
  {R_PARISC_SEGBASE, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_SEGBASE"},
135 
  {R_PARISC_SEGREL32, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_SEGREL32"},
136 
 
137 
  {R_PARISC_PLTOFF21L, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF21L"},
138 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
139 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
140 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
141 
  {R_PARISC_PLTOFF14R, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF14R"},
142 
  {R_PARISC_PLTOFF14F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF14F"},
143 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
144 
  {R_PARISC_LTOFF_FPTR32, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_FPTR32"},
145 
  {R_PARISC_LTOFF_FPTR21L, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_FPTR21L"},
146 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
147 
 
148 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
149 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
150 
  {R_PARISC_LTOFF_FPTR14R, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_FPTR14R"},
151 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
152 
  {R_PARISC_FPTR64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_FPTR64"},
153 
  {R_PARISC_PLABEL32, 0, 0, 32, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLABEL32"},
154 
  {R_PARISC_PLABEL21L, 0, 0, 21, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLABEL21L"},
155 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
156 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
157 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
158 
 
159 
  {R_PARISC_PLABEL14R, 0, 0, 14, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLABEL14R"},
160 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
161 
  {R_PARISC_PCREL64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL64"},
162 
  {R_PARISC_PCREL22C, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL22C"},
163 
  {R_PARISC_PCREL22F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL22F"},
164 
  {R_PARISC_PCREL14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL14WR"},
165 
  {R_PARISC_PCREL14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL14DR"},
166 
  {R_PARISC_PCREL16F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL16F"},
167 
  {R_PARISC_PCREL16WF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL16WF"},
168 
  {R_PARISC_PCREL16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PCREL16DF"},
169 
 
170 
  {R_PARISC_DIR64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR64"},
171 
  {R_PARISC_NONE, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_NONE"},
172 
  {R_PARISC_NONE, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_NONE"},
173 
  {R_PARISC_DIR14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR14WR"},
174 
  {R_PARISC_DIR14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR14DR"},
175 
  {R_PARISC_DIR16F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR16F"},
176 
  {R_PARISC_DIR16WF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR16WF"},
177 
  {R_PARISC_DIR16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DIR16DF"},
178 
  {R_PARISC_GPREL64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_GPREL64"},
179 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
180 
 
181 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
182 
  {R_PARISC_DLTREL14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTREL14WR"},
183 
  {R_PARISC_DLTREL14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTREL14DR"},
184 
  {R_PARISC_GPREL16F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_GPREL16F"},
185 
  {R_PARISC_GPREL16WF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_GPREL16WF"},
186 
  {R_PARISC_GPREL16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_GPREL16DF"},
187 
  {R_PARISC_LTOFF64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF64"},
188 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
189 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
190 
  {R_PARISC_DLTIND14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTIND14WR"},
191 
 
192 
  {R_PARISC_DLTIND14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_DLTIND14DR"},
193 
  {R_PARISC_LTOFF16F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF16F"},
194 
  {R_PARISC_LTOFF16WF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF16DF"},
195 
  {R_PARISC_LTOFF16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF16DF"},
196 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
197 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
198 
  {R_PARISC_BASEREL14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_BSEREL14WR"},
199 
  {R_PARISC_BASEREL14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_BASEREL14DR"},
200 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
201 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
202 
 
203 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
204 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
205 
  {R_PARISC_SEGREL64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_SEGREL64"},
206 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
207 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
208 
  {R_PARISC_PLTOFF14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF14WR"},
209 
  {R_PARISC_PLTOFF14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF14DR"},
210 
  {R_PARISC_PLTOFF16F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF16F"},
211 
  {R_PARISC_PLTOFF16WF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF16WF"},
212 
  {R_PARISC_PLTOFF16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_PLTOFF16DF"},
213 
 
214 
  {R_PARISC_LTOFF_FPTR64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
215 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
216 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
217 
  {R_PARISC_LTOFF_FPTR14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_FPTR14WR"},
218 
  {R_PARISC_LTOFF_FPTR14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_FPTR14DR"},
219 
  {R_PARISC_LTOFF_FPTR16F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_FPTR16F"},
220 
  {R_PARISC_LTOFF_FPTR16WF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_FPTR16WF"},
221 
  {R_PARISC_LTOFF_FPTR16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
222 
  {R_PARISC_COPY, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_COPY"},
223 
  {R_PARISC_IPLT, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_IPLT"},
224 
 
225 
  {R_PARISC_EPLT, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_EPLT"},
226 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
227 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
228 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
229 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
230 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
231 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
232 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
233 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
234 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
235 
 
236 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
237 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
238 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
239 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
240 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
241 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
242 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
243 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
244 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
245 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
246 
 
247 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
248 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
249 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
250 
  {R_PARISC_TPREL32, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_TPREL32"},
251 
  {R_PARISC_TPREL21L, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_TPREL21L"},
252 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
253 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
254 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
255 
  {R_PARISC_TPREL14R, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_TPREL14R"},
256 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
257 
 
258 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
259 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
260 
  {R_PARISC_LTOFF_TP21L, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_TP21L"},
261 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
262 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
263 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
264 
  {R_PARISC_LTOFF_TP14R, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
265 
  {R_PARISC_LTOFF_TP14F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_TP14F"},
266 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
267 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
268 
 
269 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
270 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
271 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
272 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
273 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
274 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
275 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
276 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
277 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
278 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
279 
 
280 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
281 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
282 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
283 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
284 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
285 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
286 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
287 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
288 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
289 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
290 
 
291 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
292 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
293 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
294 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
295 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
296 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
297 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
298 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
299 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
300 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
301 
 
302 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
303 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
304 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
305 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
306 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
307 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
308 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
309 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
310 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
311 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
312 
 
313 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
314 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
315 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_UNIMPLEMENTED"},
316 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
317 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
318 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
319 
  {R_PARISC_TPREL64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_TPREL64"},
320 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
321 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
322 
  {R_PARISC_TPREL14WR, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_TPREL14WR"},
323 
 
324 
  {R_PARISC_TPREL14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_TPREL14DR"},
325 
  {R_PARISC_TPREL16F, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_TPREL16F"},
326 
  {R_PARISC_TPREL16WF, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_TPREL16WF"},
327 
  {R_PARISC_TPREL16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_TPREL16DF"},
328 
  {R_PARISC_LTOFF_TP64, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_TP64"},
329 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
330 
  {R_PARISC_UNIMPLEMENTED, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_UNIMPLEMENTED"},
331 
  {R_PARISC_LTOFF_TP14WR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_TP14WR"},
332 
  {R_PARISC_LTOFF_TP14DR, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_TP14DR"},
333 
  {R_PARISC_LTOFF_TP16F, 0, 0, 0, false, 0, complain_overflow_dont, NULL, "R_PARISC_LTOFF_TP16F"},
334 
 
335 
  {R_PARISC_LTOFF_TP16WF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_TP16WF"},
336 
  {R_PARISC_LTOFF_TP16DF, 0, 0, 0, false, 0, complain_overflow_bitfield, bfd_elf_generic_reloc, "R_PARISC_LTOFF_TP16DF"},
337 
};
338 
 
339 
#define OFFSET_14R_FROM_21L 4
340 
#define OFFSET_14F_FROM_21L 5
341 
 
342 
/* Return one (or more) BFD relocations which implement the base
343 
   relocation with modifications based on format and field.  */
344 
 
345 
elf_hppa_reloc_type **
346 
_bfd_elf_hppa_gen_reloc_type (abfd, base_type, format, field, ignore, sym)
347 
     bfd *abfd;
348 
     elf_hppa_reloc_type base_type;
349 
     int format;
350 
     int field;
351 
     int ignore;
352 
     asymbol *sym;
353 
{
354 
  elf_hppa_reloc_type *finaltype;
355 
  elf_hppa_reloc_type **final_types;
356 
 
357 
  /* Allocate slots for the BFD relocation.  */
358 
  final_types = ((elf_hppa_reloc_type **)
359 
                 bfd_alloc (abfd, sizeof (elf_hppa_reloc_type *) * 2));
360 
  if (final_types == NULL)
361 
    return NULL;
362 
 
363 
  /* Allocate space for the relocation itself.  */
364 
  finaltype = ((elf_hppa_reloc_type *)
365 
               bfd_alloc (abfd, sizeof (elf_hppa_reloc_type)));
366 
  if (finaltype == NULL)
367 
    return NULL;
368 
 
369 
  /* Some reasonable defaults.  */
370 
  final_types[0] = finaltype;
371 
  final_types[1] = NULL;
372 
 
373 
#define final_type finaltype[0]
374 
 
375 
  final_type = base_type;
376 
 
377 
  /* Just a tangle of nested switch statements to deal with the braindamage
378 
     that a different field selector means a completely different relocation
379 
     for PA ELF.  */
380 
  switch (base_type)
381 
    {
382 
    /* We have been using generic relocation types.  However, that may not
383 
       really make sense.  Anyway, we need to support both R_PARISC_DIR64
384 
       and R_PARISC_DIR32 here.  */
385 
    case R_PARISC_DIR32:
386 
    case R_PARISC_DIR64:
387 
    case R_HPPA_ABS_CALL:
388 
      switch (format)
389 
        {
390 
        case 14:
391 
          switch (field)
392 
            {
393 
            case e_rsel:
394 
            case e_rrsel:
395 
              final_type = R_PARISC_DIR14R;
396 
              break;
397 
            case e_rtsel:
398 
              final_type = R_PARISC_DLTIND14R;
399 
              break;
400 
            case e_rtpsel:
401 
              final_type = R_PARISC_LTOFF_FPTR14DR;
402 
              break;
403 
            case e_tsel:
404 
              final_type = R_PARISC_DLTIND14F;
405 
              break;
406 
            case e_rpsel:
407 
              final_type = R_PARISC_PLABEL14R;
408 
              break;
409 
            default:
410 
              return NULL;
411 
            }
412 
          break;
413 
 
414 
        case 17:
415 
          switch (field)
416 
            {
417 
            case e_fsel:
418 
              final_type = R_PARISC_DIR17F;
419 
              break;
420 
            case e_rsel:
421 
            case e_rrsel:
422 
              final_type = R_PARISC_DIR17R;
423 
              break;
424 
            default:
425 
              return NULL;
426 
            }
427 
          break;
428 
 
429 
        case 21:
430 
          switch (field)
431 
            {
432 
            case e_lsel:
433 
            case e_lrsel:
434 
              final_type = R_PARISC_DIR21L;
435 
              break;
436 
            case e_ltsel:
437 
              final_type = R_PARISC_DLTIND21L;
438 
              break;
439 
            case e_ltpsel:
440 
              final_type = R_PARISC_LTOFF_FPTR21L;
441 
              break;
442 
            case e_lpsel:
443 
              final_type = R_PARISC_PLABEL21L;
444 
              break;
445 
            default:
446 
              return NULL;
447 
            }
448 
          break;
449 
 
450 
        case 32:
451 
          switch (field)
452 
            {
453 
            case e_fsel:
454 
              final_type = R_PARISC_DIR32;
455 
              /* When in 64bit mode, a 32bit relocation is supposed to
456 
                 be a section relative relocation.  Dwarf2 (for example)
457 
                 uses 32bit section relative relocations.  */
458 
              if (bfd_get_arch_info (abfd)->bits_per_address != 32)
459 
                final_type = R_PARISC_SECREL32;
460 
              break;
461 
            case e_psel:
462 
              final_type = R_PARISC_PLABEL32;
463 
              break;
464 
            default:
465 
              return NULL;
466 
            }
467 
          break;
468 
 
469 
        case 64:
470 
          switch (field)
471 
            {
472 
            case e_fsel:
473 
              final_type = R_PARISC_DIR64;
474 
              break;
475 
            case e_psel:
476 
              final_type = R_PARISC_FPTR64;
477 
              break;
478 
            default:
479 
              return NULL;
480 
            }
481 
          break;
482 
 
483 
        default:
484 
          return NULL;
485 
        }
486 
      break;
487 
 
488 
 
489 
    case R_HPPA_GOTOFF:
490 
      switch (format)
491 
        {
492 
        case 14:
493 
          switch (field)
494 
            {
495 
            case e_rsel:
496 
            case e_rrsel:
497 
              final_type = base_type + OFFSET_14R_FROM_21L;
498 
              break;
499 
            case e_fsel:
500 
              final_type = base_type + OFFSET_14F_FROM_21L;
501 
              break;
502 
            default:
503 
              return NULL;
504 
            }
505 
          break;
506 
 
507 
        case 21:
508 
          switch (field)
509 
            {
510 
            case e_lrsel:
511 
            case e_lsel:
512 
              final_type = base_type;
513 
              break;
514 
            default:
515 
              return NULL;
516 
            }
517 
          break;
518 
 
519 
        default:
520 
          return NULL;
521 
        }
522 
      break;
523 
 
524 
 
525 
    case R_HPPA_PCREL_CALL:
526 
      switch (format)
527 
        {
528 
        case 14:
529 
          switch (field)
530 
            {
531 
            case e_rsel:
532 
            case e_rrsel:
533 
              final_type = R_PARISC_PCREL14R;
534 
              break;
535 
            case e_fsel:
536 
              final_type = R_PARISC_PCREL14F;
537 
              break;
538 
            default:
539 
              return NULL;
540 
            }
541 
          break;
542 
 
543 
        case 17:
544 
          switch (field)
545 
            {
546 
            case e_rsel:
547 
            case e_rrsel:
548 
              final_type = R_PARISC_PCREL17R;
549 
              break;
550 
            case e_fsel:
551 
              final_type = R_PARISC_PCREL17F;
552 
              break;
553 
            default:
554 
              return NULL;
555 
            }
556 
          break;
557 
 
558 
        case 22:
559 
          switch (field)
560 
            {
561 
            case e_fsel:
562 
              final_type = R_PARISC_PCREL22F;
563 
              break;
564 
            default:
565 
              return NULL;
566 
            }
567 
          break;
568 
 
569 
        case 21:
570 
          switch (field)
571 
            {
572 
            case e_lsel:
573 
            case e_lrsel:
574 
              final_type = R_PARISC_PCREL21L;
575 
              break;
576 
            default:
577 
              return NULL;
578 
            }
579 
          break;
580 
 
581 
        default:
582 
          return NULL;
583 
        }
584 
      break;
585 
 
586 
    case R_PARISC_SEGREL32:
587 
    case R_PARISC_SEGBASE:
588 
      /* The defaults are fine for these cases.  */
589 
      break;
590 
 
591 
    default:
592 
      return NULL;
593 
    }
594 
 
595 
  return final_types;
596 
}
597 
 
598 
/* Translate from an elf into field into a howto relocation pointer.  */
599 
 
600 
static void
601 
elf_hppa_info_to_howto (abfd, bfd_reloc, elf_reloc)
602 
     bfd *abfd;
603 
     arelent *bfd_reloc;
604 
     Elf_Internal_Rela *elf_reloc;
605 
{
606 
  BFD_ASSERT (ELF_R_TYPE(elf_reloc->r_info)
607 
              < (unsigned int) R_PARISC_UNIMPLEMENTED);
608 
  bfd_reloc->howto = &elf_hppa_howto_table[ELF_R_TYPE (elf_reloc->r_info)];
609 
}
610 
 
611 
/* Translate from an elf into field into a howto relocation pointer.  */
612 
 
613 
static void
614 
elf_hppa_info_to_howto_rel (abfd, bfd_reloc, elf_reloc)
615 
     bfd *abfd;
616 
     arelent *bfd_reloc;
617 
     Elf_Internal_Rel *elf_reloc;
618 
{
619 
  BFD_ASSERT (ELF_R_TYPE(elf_reloc->r_info)
620 
              < (unsigned int) R_PARISC_UNIMPLEMENTED);
621 
  bfd_reloc->howto = &elf_hppa_howto_table[ELF_R_TYPE (elf_reloc->r_info)];
622 
}
623 
 
624 
/* Return the address of the howto table entry to perform the CODE
625 
   relocation for an ARCH machine.  */
626 
 
627 
static reloc_howto_type *
628 
elf_hppa_reloc_type_lookup (abfd, code)
629 
     bfd *abfd;
630 
     bfd_reloc_code_real_type code;
631 
{
632 
  if ((int) code < (int) R_PARISC_UNIMPLEMENTED)
633 
    {
634 
      BFD_ASSERT ((int) elf_hppa_howto_table[(int) code].type == (int) code);
635 
      return &elf_hppa_howto_table[(int) code];
636 
    }
637 
  return NULL;
638 
}
639 
 
640 
static void
641 
elf_hppa_final_write_processing (abfd, linker)
642 
     bfd *abfd;
643 
     boolean linker;
644 
{
645 
  int mach = bfd_get_mach (abfd);
646 
 
647 
  elf_elfheader (abfd)->e_flags &= ~(EF_PARISC_ARCH | EF_PARISC_TRAPNIL
648 
                                     | EF_PARISC_EXT | EF_PARISC_LSB
649 
                                     | EF_PARISC_WIDE | EF_PARISC_NO_KABP
650 
                                     | EF_PARISC_LAZYSWAP);
651 
 
652 
  if (mach == 10)
653 
    elf_elfheader (abfd)->e_flags |= EFA_PARISC_1_0;
654 
  else if (mach == 11)
655 
    elf_elfheader (abfd)->e_flags |= EFA_PARISC_1_1;
656 
  else if (mach == 20)
657 
    elf_elfheader (abfd)->e_flags |= EFA_PARISC_2_0;
658 
  else if (mach == 25)
659 
    elf_elfheader (abfd)->e_flags |= (EF_PARISC_WIDE
660 
                                      | EFA_PARISC_2_0
661 
                                      /* The GNU tools have trapped without
662 
                                         option since 1993, so need to take
663 
                                         a step backwards with the ELF
664 
                                         based toolchains.  */
665 
                                      | EF_PARISC_TRAPNIL);
666 
}
667 
 
668 
/* Return true if SYM represents a local label symbol.  */
669 
 
670 
static boolean
671 
elf_hppa_is_local_label_name (abfd, name)
672 
     bfd *abfd ATTRIBUTE_UNUSED;
673 
     const char *name;
674 
{
675 
  return (name[0] == 'L' && name[1] == '$');
676 
}
677 
 
678 
/* Set the correct type for an ELF section.  We do this by the
679 
   section name, which is a hack, but ought to work.  */
680 
 
681 
static boolean
682 
elf_hppa_fake_sections (abfd, hdr, sec)
683 
     bfd *abfd;
684 
     Elf64_Internal_Shdr *hdr;
685 
     asection *sec;
686 
{
687 
  register const char *name;
688 
 
689 
  name = bfd_get_section_name (abfd, sec);
690 
 
691 
  if (strcmp (name, ".PARISC.unwind") == 0)
692 
    {
693 
      int indx;
694 
      asection *sec;
695 
      hdr->sh_type = SHT_LOPROC + 1;
696 
      /* ?!? How are unwinds supposed to work for symbols in arbitrary
697 
         sections?  Or what if we have multiple .text sections in a single
698 
         .o file?  HP really messed up on this one.
699 
 
700 
         Ugh.  We can not use elf_section_data (sec)->this_idx at this
701 
         point because it is not initialized yet.
702 
 
703 
         So we (gasp) recompute it here.  Hopefully nobody ever changes the
704 
         way sections are numbered in elf.c!  */
705 
      for (sec = abfd->sections, indx = 1; sec; sec = sec->next, indx++)
706 
        {
707 
          if (sec->name && strcmp (sec->name, ".text") == 0)
708 
            {
709 
              hdr->sh_info = indx;
710 
              break;
711 
            }
712 
        }
713 
 
714 
      /* I have no idea if this is really necessary or what it means.  */
715 
      hdr->sh_entsize = 4;
716 
    }
717 
  return true;
718 
}
719 
 
720 
/* Hook called by the linker routine which adds symbols from an object
721 
   file.  HP's libraries define symbols with HP specific section
722 
   indices, which we have to handle.  */
723 
 
724 
static boolean
725 
elf_hppa_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
726 
     bfd *abfd;
727 
     struct bfd_link_info *info ATTRIBUTE_UNUSED;
728 
     const Elf_Internal_Sym *sym;
729 
     const char **namep ATTRIBUTE_UNUSED;
730 
     flagword *flagsp ATTRIBUTE_UNUSED;
731 
     asection **secp;
732 
     bfd_vma *valp;
733 
{
734 
  int index = sym->st_shndx;
735 
 
736 
  switch (index)
737 
    {
738 
    case SHN_PARISC_ANSI_COMMON:
739 
      *secp = bfd_make_section_old_way (abfd, ".PARISC.ansi.common");
740 
      (*secp)->flags |= SEC_IS_COMMON;
741 
      *valp = sym->st_size;
742 
      break;
743 
 
744 
    case SHN_PARISC_HUGE_COMMON:
745 
      *secp = bfd_make_section_old_way (abfd, ".PARISC.huge.common");
746 
      (*secp)->flags |= SEC_IS_COMMON;
747 
      *valp = sym->st_size;
748 
      break;
749 
    }
750 
 
751 
  return true;
752 
}
753 
 
754 
static boolean
755 
elf_hppa_unmark_useless_dynamic_symbols (h, data)
756 
     struct elf_link_hash_entry *h;
757 
     PTR data;
758 
{
759 
  struct bfd_link_info *info = (struct bfd_link_info *)data;
760 
 
761 
  /* If we are not creating a shared library, and this symbol is
762 
     referenced by a shared library but is not defined anywhere, then
763 
     the generic code will warn that it is undefined.
764 
 
765 
     This behavior is undesirable on HPs since the standard shared
766 
     libraries contain reerences to undefined symbols.
767 
 
768 
     So we twiddle the flags associated with such symbols so that they
769 
     will not trigger the warning.  ?!? FIXME.  This is horribly fraglie.
770 
 
771 
     Ultimately we should have better controls over the generic ELF BFD
772 
     linker code.  */
773 
  if (! info->relocateable
774 
      && ! (info->shared
775 
            && !info->no_undefined)
776 
      && h->root.type == bfd_link_hash_undefined
777 
      && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) != 0
778 
      && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0)
779 
    {
780 
      h->elf_link_hash_flags &= ~ELF_LINK_HASH_REF_DYNAMIC;
781 
      h->elf_link_hash_flags |= 0x8000;
782 
    }
783 
 
784 
  return true;
785 
}
786 
 
787 
 
788 
static boolean
789 
elf_hppa_remark_useless_dynamic_symbols (h, data)
790 
     struct elf_link_hash_entry *h;
791 
     PTR data;
792 
{
793 
  struct bfd_link_info *info = (struct bfd_link_info *)data;
794 
 
795 
  /* If we are not creating a shared library, and this symbol is
796 
     referenced by a shared library but is not defined anywhere, then
797 
     the generic code will warn that it is undefined.
798 
 
799 
     This behavior is undesirable on HPs since the standard shared
800 
     libraries contain reerences to undefined symbols.
801 
 
802 
     So we twiddle the flags associated with such symbols so that they
803 
     will not trigger the warning.  ?!? FIXME.  This is horribly fragile.
804 
 
805 
     Ultimately we should have better controls over the generic ELF BFD
806 
     linker code.  */
807 
  if (! info->relocateable
808 
      && ! (info->shared
809 
            && !info->no_undefined)
810 
      && h->root.type == bfd_link_hash_undefined
811 
      && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) == 0
812 
      && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR) == 0
813 
      && (h->elf_link_hash_flags & 0x8000) != 0)
814 
    {
815 
      h->elf_link_hash_flags |= ELF_LINK_HASH_REF_DYNAMIC;
816 
      h->elf_link_hash_flags &= ~0x8000;
817 
    }
818 
 
819 
  return true;
820 
}
821 
 
822 
/* Record the lowest address for the data and text segments.  */
823 
static void
824 
elf_hppa_record_segment_addrs (abfd, section, data)
825 
     bfd *abfd ATTRIBUTE_UNUSED;
826 
     asection *section;
827 
     PTR data;
828 
{
829 
  struct elf64_hppa_link_hash_table *hppa_info;
830 
  bfd_vma value;
831 
 
832 
  hppa_info = (struct elf64_hppa_link_hash_table *)data;
833 
 
834 
  value = section->vma - section->filepos;
835 
 
836 
  if ((section->flags & (SEC_ALLOC | SEC_LOAD | SEC_READONLY)
837 
       == (SEC_ALLOC | SEC_LOAD | SEC_READONLY))
838 
      && value < hppa_info->text_segment_base)
839 
    hppa_info->text_segment_base = value;
840 
  else if ((section->flags & (SEC_ALLOC | SEC_LOAD | SEC_READONLY)
841 
       == (SEC_ALLOC | SEC_LOAD))
842 
      && value < hppa_info->data_segment_base)
843 
    hppa_info->data_segment_base = value;
844 
}
845 
 
846 
/* Called after we have seen all the input files/sections, but before
847 
   final symbol resolution and section placement has been determined.
848 
 
849 
   We use this hook to (possibly) provide a value for __gp, then we
850 
   fall back to the generic ELF final link routine.  */
851 
 
852 
static boolean
853 
elf_hppa_final_link (abfd, info)
854 
     bfd *abfd;
855 
     struct bfd_link_info *info;
856 
{
857 
  boolean retval;
858 
 
859 
  if (! info->relocateable)
860 
    {
861 
      struct elf_link_hash_entry *gp;
862 
      bfd_vma gp_val;
863 
      struct elf64_hppa_link_hash_table *hppa_info;
864 
 
865 
      hppa_info = elf64_hppa_hash_table (info);
866 
 
867 
      /* The linker script defines a value for __gp iff it was referenced
868 
         by one of the objects being linked.  First try to find the symbol
869 
         in the hash table.  If that fails, just compute the value __gp
870 
         should have had.  */
871 
      gp = elf_link_hash_lookup (elf_hash_table (info), "__gp", false,
872 
                                 false, false);
873 
 
874 
      if (gp)
875 
        {
876 
 
877 
          /* Adjust the value of __gp as we may want to slide it into the
878 
             .plt section so that the stubs can access PLT entries without
879 
             using an addil sequence.  */
880 
          gp->root.u.def.value += elf64_hppa_hash_table (info)->gp_offset;
881 
 
882 
          gp_val = (gp->root.u.def.section->output_section->vma
883 
                    + gp->root.u.def.section->output_offset
884 
                    + gp->root.u.def.value);
885 
        }
886 
      else
887 
        {
888 
          asection *sec;
889 
 
890 
 
891 
          /* First look for a .plt section.  If found, then __gp is the
892 
             address of the .plt + gp_offset.
893 
 
894 
             If no .plt is found, then look for .dlt, .opd and .data (in
895 
             that order) and set __gp to the base address of whichever section
896 
            is found first.  */
897 
 
898 
          sec = hppa_info->plt_sec;
899 
          if (sec)
900 
            gp_val = (sec->output_offset
901 
                      + sec->output_section->vma
902 
                      + hppa_info->gp_offset);
903 
          else
904 
            {
905 
              sec = hppa_info->dlt_sec;
906 
              if (!sec)
907 
                sec = hppa_info->opd_sec;
908 
              if (!sec)
909 
                sec = bfd_get_section_by_name (abfd, ".data");
910 
              if (!sec)
911 
                return false;
912 
 
913 
              gp_val = sec->output_offset + sec->output_section->vma;
914 
            }
915 
        }
916 
 
917 
      /* Install whatever value we found/computed for __gp.  */
918 
      _bfd_set_gp_value (abfd, gp_val);
919 
    }
920 
 
921 
  /* We need to know the base of the text and data segments so that we
922 
     can perform SEGREL relocations.  We will recore the base addresses
923 
     when we encounter the first SEGREL relocation.  */
924 
  elf64_hppa_hash_table (info)->text_segment_base = (bfd_vma)-1;
925 
  elf64_hppa_hash_table (info)->data_segment_base = (bfd_vma)-1;
926 
 
927 
  /* HP's shared libraries have references to symbols that are not
928 
     defined anywhere.  The generic ELF BFD linker code will complaim
929 
     about such symbols.
930 
 
931 
     So we detect the losing case and arrange for the flags on the symbol
932 
     to indicate that it was never referenced.  This keeps the generic
933 
     ELF BFD link code happy and appears to not create any secondary
934 
     problems.  Ultimately we need a way to control the behavior of the
935 
     generic ELF BFD link code better.  */
936 
  elf_link_hash_traverse (elf_hash_table (info),
937 
                          elf_hppa_unmark_useless_dynamic_symbols,
938 
                          info);
939 
 
940 
  /* Invoke the regular ELF backend linker to do all the work.  */
941 
  retval = bfd_elf_bfd_final_link (abfd, info);
942 
 
943 
  elf_link_hash_traverse (elf_hash_table (info),
944 
                          elf_hppa_remark_useless_dynamic_symbols,
945 
                          info);
946 
 
947 
  return retval;
948 
}
949 
 
950 
/* Relocate an HPPA ELF section.  */
951 
 
952 
static boolean
953 
elf_hppa_relocate_section (output_bfd, info, input_bfd, input_section,
954 
                           contents, relocs, local_syms, local_sections)
955 
     bfd *output_bfd;
956 
     struct bfd_link_info *info;
957 
     bfd *input_bfd;
958 
     asection *input_section;
959 
     bfd_byte *contents;
960 
     Elf_Internal_Rela *relocs;
961 
     Elf_Internal_Sym *local_syms;
962 
     asection **local_sections;
963 
{
964 
  Elf_Internal_Shdr *symtab_hdr;
965 
  Elf_Internal_Rela *rel;
966 
  Elf_Internal_Rela *relend;
967 
  struct elf64_hppa_link_hash_table *hppa_info = elf64_hppa_hash_table (info);
968 
 
969 
  symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
970 
 
971 
  rel = relocs;
972 
  relend = relocs + input_section->reloc_count;
973 
  for (; rel < relend; rel++)
974 
    {
975 
      int r_type;
976 
      reloc_howto_type *howto = elf_hppa_howto_table + ELF_R_TYPE (rel->r_info);
977 
      unsigned long r_symndx;
978 
      struct elf_link_hash_entry *h;
979 
      Elf_Internal_Sym *sym;
980 
      asection *sym_sec;
981 
      bfd_vma relocation;
982 
      bfd_reloc_status_type r;
983 
      const char *sym_name;
984 
      char *dyn_name;
985 
      char *dynh_buf = NULL;
986 
      size_t dynh_buflen = 0;
987 
      struct elf64_hppa_dyn_hash_entry *dyn_h = NULL;
988 
 
989 
      r_type = ELF_R_TYPE (rel->r_info);
990 
      if (r_type < 0 || r_type >= (int) R_PARISC_UNIMPLEMENTED)
991 
        {
992 
          bfd_set_error (bfd_error_bad_value);
993 
          return false;
994 
        }
995 
 
996 
      r_symndx = ELF_R_SYM (rel->r_info);
997 
 
998 
      if (info->relocateable)
999 
        {
1000 
          /* This is a relocateable link.  We don't have to change
1001 
             anything, unless the reloc is against a section symbol,
1002 
             in which case we have to adjust according to where the
1003 
             section symbol winds up in the output section.  */
1004 
          if (r_symndx < symtab_hdr->sh_info)
1005 
            {
1006 
              sym = local_syms + r_symndx;
1007 
              if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
1008 
                {
1009 
                  sym_sec = local_sections[r_symndx];
1010 
                  rel->r_addend += sym_sec->output_offset;
1011 
                }
1012 
            }
1013 
 
1014 
          continue;
1015 
        }
1016 
 
1017 
      /* This is a final link.  */
1018 
      h = NULL;
1019 
      sym = NULL;
1020 
      sym_sec = NULL;
1021 
      if (r_symndx < symtab_hdr->sh_info)
1022 
        {
1023 
          /* This is a local symbol.  */
1024 
          sym = local_syms + r_symndx;
1025 
          sym_sec = local_sections[r_symndx];
1026 
          relocation = ((ELF_ST_TYPE (sym->st_info) == STT_SECTION
1027 
                           ? 0 : sym->st_value)
1028 
                         + sym_sec->output_offset
1029 
                         + sym_sec->output_section->vma);
1030 
 
1031 
          /* If this symbol has an entry in the PA64 dynamic hash
1032 
             table, then get it.  */
1033 
          dyn_name = get_dyn_name (input_bfd, h, rel,
1034 
                                   &dynh_buf, &dynh_buflen);
1035 
          dyn_h = elf64_hppa_dyn_hash_lookup (&hppa_info->dyn_hash_table,
1036 
                                              dyn_name, false, false);
1037 
 
1038 
        }
1039 
      else
1040 
        {
1041 
          /* This is not a local symbol.  */
1042 
          long indx;
1043 
 
1044 
          indx = r_symndx - symtab_hdr->sh_info;
1045 
          h = elf_sym_hashes (input_bfd)[indx];
1046 
          while (h->root.type == bfd_link_hash_indirect
1047 
                 || h->root.type == bfd_link_hash_warning)
1048 
            h = (struct elf_link_hash_entry *) h->root.u.i.link;
1049 
          if (h->root.type == bfd_link_hash_defined
1050 
              || h->root.type == bfd_link_hash_defweak)
1051 
            {
1052 
              sym_sec = h->root.u.def.section;
1053 
 
1054 
              /* If this symbol has an entry in the PA64 dynamic hash
1055 
                 table, then get it.  */
1056 
              dyn_name = get_dyn_name (input_bfd, h, rel,
1057 
                                       &dynh_buf, &dynh_buflen);
1058 
              dyn_h = elf64_hppa_dyn_hash_lookup (&hppa_info->dyn_hash_table,
1059 
                                                  dyn_name, false, false);
1060 
 
1061 
              /* If we have a relocation against a symbol defined in a
1062 
                 shared library and we have not created an entry in the
1063 
                 PA64 dynamic symbol hash table for it, then we lose.  */
1064 
              if (sym_sec->output_section == NULL && dyn_h == NULL)
1065 
                {
1066 
                  (*_bfd_error_handler)
1067 
                    (_("%s: warning: unresolvable relocation against symbol `%s' from %s section"),
1068 
                     bfd_get_filename (input_bfd), h->root.root.string,
1069 
                     bfd_get_section_name (input_bfd, input_section));
1070 
                  relocation = 0;
1071 
                }
1072 
              else if (sym_sec->output_section)
1073 
                relocation = (h->root.u.def.value
1074 
                              + sym_sec->output_offset
1075 
                              + sym_sec->output_section->vma);
1076 
              /* Value will be provided via one of the offsets in the
1077 
                 dyn_h hash table entry.  */
1078 
              else
1079 
                relocation = 0;
1080 
            }
1081 
          /* Allow undefined symbols in shared libraries.  */
1082 
          else if (info->shared && !info->no_undefined)
1083 
            {
1084 
              if (info->symbolic)
1085 
                (*info->callbacks->undefined_symbol)
1086 
                  (info, h->root.root.string, input_bfd,
1087 
                   input_section, rel->r_offset, false);
1088 
 
1089 
              /* If this symbol has an entry in the PA64 dynamic hash
1090 
                 table, then get it.  */
1091 
              dyn_name = get_dyn_name (input_bfd, h, rel,
1092 
                                       &dynh_buf, &dynh_buflen);
1093 
              dyn_h = elf64_hppa_dyn_hash_lookup (&hppa_info->dyn_hash_table,
1094 
                                                  dyn_name, false, false);
1095 
 
1096 
              if (dyn_h == NULL)
1097 
                {
1098 
                  (*_bfd_error_handler)
1099 
                    (_("%s: warning: unresolvable relocation against symbol `%s' from %s section"),
1100 
                     bfd_get_filename (input_bfd), h->root.root.string,
1101 
                     bfd_get_section_name (input_bfd, input_section));
1102 
                  relocation = 0;
1103 
                }
1104 
              relocation = 0;
1105 
            }
1106 
          else if (h->root.type == bfd_link_hash_undefweak)
1107 
            relocation = 0;
1108 
          else
1109 
            {
1110 
              if (!((*info->callbacks->undefined_symbol)
1111 
                    (info, h->root.root.string, input_bfd,
1112 
                     input_section, rel->r_offset, true)))
1113 
                return false;
1114 
              break;
1115 
            }
1116 
        }
1117 
 
1118 
      if (h != NULL)
1119 
        sym_name = h->root.root.string;
1120 
      else
1121 
        {
1122 
          sym_name = bfd_elf_string_from_elf_section (input_bfd,
1123 
                                                      symtab_hdr->sh_link,
1124 
                                                      sym->st_name);
1125 
          if (sym_name == NULL)
1126 
            return false;
1127 
          if (*sym_name == '\0')
1128 
            sym_name = bfd_section_name (input_bfd, sym_sec);
1129 
        }
1130 
 
1131 
      r = elf_hppa_final_link_relocate (rel, input_bfd, output_bfd,
1132 
                                        input_section, contents,
1133 
                                        relocation, info, sym_sec,
1134 
                                        h, dyn_h);
1135 
 
1136 
      if (r != bfd_reloc_ok)
1137 
        {
1138 
          switch (r)
1139 
            {
1140 
            default:
1141 
              abort ();
1142 
            case bfd_reloc_overflow:
1143 
              {
1144 
                if (!((*info->callbacks->reloc_overflow)
1145 
                      (info, sym_name, howto->name, (bfd_vma) 0,
1146 
                        input_bfd, input_section, rel->r_offset)))
1147 
                  return false;
1148 
              }
1149 
              break;
1150 
            }
1151 
        }
1152 
    }
1153 
  return true;
1154 
}
1155 
 
1156 
 
1157 
/* Compute the value for a relocation (REL) during a final link stage,
1158 
   then insert the value into the proper location in CONTENTS.
1159 
 
1160 
   VALUE is a tentative value for the relocation and may be overridden
1161 
   and modified here based on the specific relocation to be performed.
1162 
 
1163 
   For example we do conversions for PC-relative branches in this routine
1164 
   or redirection of calls to external routines to stubs.
1165 
 
1166 
   The work of actually applying the relocation is left to a helper
1167 
   routine in an attempt to reduce the complexity and size of this
1168 
   function.  */
1169 
 
1170 
static bfd_reloc_status_type
1171 
elf_hppa_final_link_relocate (rel, input_bfd, output_bfd,
1172 
                              input_section, contents, value,
1173 
                              info, sym_sec, h, dyn_h)
1174 
     Elf_Internal_Rela *rel;
1175 
     bfd *input_bfd;
1176 
     bfd *output_bfd;
1177 
     asection *input_section;
1178 
     bfd_byte *contents;
1179 
     bfd_vma value;
1180 
     struct bfd_link_info *info;
1181 
     asection *sym_sec;
1182 
     struct elf_link_hash_entry *h;
1183 
     struct elf64_hppa_dyn_hash_entry *dyn_h;
1184 
{
1185 
  unsigned long insn;
1186 
  bfd_vma offset = rel->r_offset;
1187 
  bfd_vma addend = rel->r_addend;
1188 
  reloc_howto_type *howto = elf_hppa_howto_table + ELF_R_TYPE (rel->r_info);
1189 
  unsigned long r_type = howto->type;
1190 
  unsigned long r_field = e_fsel;
1191 
  bfd_byte *hit_data = contents + offset;
1192 
  struct elf64_hppa_link_hash_table *hppa_info = elf64_hppa_hash_table (info);
1193 
 
1194 
  insn = bfd_get_32 (input_bfd, hit_data);
1195 
 
1196 
  switch (r_type)
1197 
    {
1198 
    case R_PARISC_NONE:
1199 
      break;
1200 
 
1201 
    /* Random PC relative relocs.  */
1202 
    case R_PARISC_PCREL21L:
1203 
    case R_PARISC_PCREL14R:
1204 
    case R_PARISC_PCREL14F:
1205 
    case R_PARISC_PCREL14WR:
1206 
    case R_PARISC_PCREL14DR:
1207 
    case R_PARISC_PCREL16F:
1208 
    case R_PARISC_PCREL16WF:
1209 
    case R_PARISC_PCREL16DF:
1210 
      {
1211 
        if (r_type == R_PARISC_PCREL21L)
1212 
          r_field = e_lsel;
1213 
        else if (r_type == R_PARISC_PCREL14F
1214 
                 || r_type == R_PARISC_PCREL16F
1215 
                 || r_type == R_PARISC_PCREL16WF
1216 
                 || r_type == R_PARISC_PCREL16DF)
1217 
          r_field = e_fsel;
1218 
        else
1219 
          r_field = e_rsel;
1220 
 
1221 
        /* If this is a call to a function defined in another dynamic
1222 
           library, then redirect the call to the local stub for this
1223 
           function.  */
1224 
        if (sym_sec == NULL || sym_sec->output_section == NULL)
1225 
          value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
1226 
                   + hppa_info->stub_sec->output_section->vma);
1227 
 
1228 
        /* Turn VALUE into a proper PC relative address.  */
1229 
        value -= (offset + input_section->output_offset
1230 
                  + input_section->output_section->vma);
1231 
 
1232 
        /* Adjust for any field selectors.  */
1233 
        value = hppa_field_adjust (value, -8 + addend, r_field);
1234 
 
1235 
        /* Apply the relocation to the given instruction.  */
1236 
        insn = elf_hppa_relocate_insn (insn, value, r_type);
1237 
        break;
1238 
      }
1239 
 
1240 
    /* Basic function call support.  I'm not entirely sure if PCREL14F is
1241 
       actually needed or even handled correctly.
1242 
 
1243 
       Note for a call to a function defined in another dynamic library
1244 
       we want to redirect the call to a stub.  */
1245 
    case R_PARISC_PCREL22F:
1246 
    case R_PARISC_PCREL17F:
1247 
    case R_PARISC_PCREL22C:
1248 
    case R_PARISC_PCREL17C:
1249 
    case R_PARISC_PCREL17R:
1250 
      {
1251 
        if (r_type == R_PARISC_PCREL17R)
1252 
          r_field = e_rsel;
1253 
        else
1254 
          r_field = e_fsel;
1255 
 
1256 
        /* If this is a call to a function defined in another dynamic
1257 
           library, then redirect the call to the local stub for this
1258 
           function.  */
1259 
        if (sym_sec == NULL || sym_sec->output_section == NULL)
1260 
          value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
1261 
                   + hppa_info->stub_sec->output_section->vma);
1262 
 
1263 
        /* Turn VALUE into a proper PC relative address.  */
1264 
        value -= (offset + input_section->output_offset
1265 
                  + input_section->output_section->vma);
1266 
 
1267 
        /* Adjust for any field selectors.  */
1268 
        value = hppa_field_adjust (value, -8 + addend, e_fsel);
1269 
 
1270 
        /* All branches are implicitly shifted by 2 places.  */
1271 
        value >>= 2;
1272 
 
1273 
        /* Apply the relocation to the given instruction.  */
1274 
        insn = elf_hppa_relocate_insn (insn, value, r_type);
1275 
        break;
1276 
      }
1277 
 
1278 
    /* Indirect references to data through the DLT.  */
1279 
    case R_PARISC_DLTIND14R:
1280 
    case R_PARISC_DLTIND14F:
1281 
    case R_PARISC_DLTIND14DR:
1282 
    case R_PARISC_DLTIND14WR:
1283 
    case R_PARISC_DLTIND21L:
1284 
    case R_PARISC_LTOFF_FPTR14R:
1285 
    case R_PARISC_LTOFF_FPTR14DR:
1286 
    case R_PARISC_LTOFF_FPTR14WR:
1287 
    case R_PARISC_LTOFF_FPTR21L:
1288 
    case R_PARISC_LTOFF_FPTR16F:
1289 
    case R_PARISC_LTOFF_FPTR16WF:
1290 
    case R_PARISC_LTOFF_FPTR16DF:
1291 
    case R_PARISC_LTOFF_TP21L:
1292 
    case R_PARISC_LTOFF_TP14R:
1293 
    case R_PARISC_LTOFF_TP14F:
1294 
    case R_PARISC_LTOFF_TP14WR:
1295 
    case R_PARISC_LTOFF_TP14DR:
1296 
    case R_PARISC_LTOFF_TP16F:
1297 
    case R_PARISC_LTOFF_TP16WF:
1298 
    case R_PARISC_LTOFF_TP16DF:
1299 
    case R_PARISC_LTOFF16F:
1300 
    case R_PARISC_LTOFF16WF:
1301 
    case R_PARISC_LTOFF16DF:
1302 
      {
1303 
        /* If this relocation was against a local symbol, then we still
1304 
           have not set up the DLT entry (it's not convienent to do so
1305 
           in the "finalize_dlt" routine because it is difficult to get
1306 
           to the local symbol's value).
1307 
 
1308 
           So, if this is a local symbol (h == NULL), then we need to
1309 
           fill in its DLT entry.
1310 
 
1311 
           Similarly we may still need to set up an entry in .opd for
1312 
           a local function which had its address taken.  */
1313 
        if (dyn_h->h == NULL)
1314 
          {
1315 
            bfd_put_64 (hppa_info->dlt_sec->owner,
1316 
                        value,
1317 
                        hppa_info->dlt_sec->contents + dyn_h->dlt_offset);
1318 
 
1319 
            /* Now handle .opd creation if needed.  */
1320 
            if (r_type == R_PARISC_LTOFF_FPTR14R
1321 
                || r_type == R_PARISC_LTOFF_FPTR14DR
1322 
                || r_type == R_PARISC_LTOFF_FPTR14WR
1323 
                || r_type == R_PARISC_LTOFF_FPTR21L
1324 
                || r_type == R_PARISC_LTOFF_FPTR16F
1325 
                || r_type == R_PARISC_LTOFF_FPTR16WF
1326 
                || r_type == R_PARISC_LTOFF_FPTR16DF)
1327 
              {
1328 
                /* The first two words of an .opd entry are zero.  */
1329 
                memset (hppa_info->opd_sec->contents + dyn_h->opd_offset,
1330 
                        0, 16);
1331 
 
1332 
                /* The next word is the address of the function.  */
1333 
                bfd_put_64 (hppa_info->opd_sec->owner, value,
1334 
                            (hppa_info->opd_sec->contents
1335 
                             + dyn_h->opd_offset + 16));
1336 
 
1337 
                /* The last word is our local __gp value.  */
1338 
                value = _bfd_get_gp_value
1339 
                          (hppa_info->opd_sec->output_section->owner);
1340 
                bfd_put_64 (hppa_info->opd_sec->owner, value,
1341 
                            (hppa_info->opd_sec->contents
1342 
                             + dyn_h->opd_offset + 24));
1343 
              }
1344 
          }
1345 
 
1346 
        /* We want the value of the DLT offset for this symbol, not
1347 
           the symbol's actual address.  Note that __gp may not point
1348 
           to the start of the DLT, so we have to compute the absolute
1349 
           address, then subtract out the value of __gp.  */
1350 
        value = (dyn_h->dlt_offset
1351 
                 + hppa_info->dlt_sec->output_offset
1352 
                 + hppa_info->dlt_sec->output_section->vma);
1353 
        value -= _bfd_get_gp_value (output_bfd);
1354 
 
1355 
 
1356 
        /* All DLTIND relocations are basically the same at this point,
1357 
           except that we need different field selectors for the 21bit
1358 
           version vs the 14bit versions.  */
1359 
        if (r_type == R_PARISC_DLTIND21L
1360 
            || r_type == R_PARISC_LTOFF_FPTR21L
1361 
            || r_type == R_PARISC_LTOFF_TP21L)
1362 
          value = hppa_field_adjust (value, addend, e_lrsel);
1363 
        else if (r_type == R_PARISC_DLTIND14F
1364 
                 || r_type == R_PARISC_LTOFF_FPTR16F
1365 
                 || r_type == R_PARISC_LTOFF_FPTR16WF
1366 
                 || r_type == R_PARISC_LTOFF_FPTR16DF
1367 
                 || r_type == R_PARISC_LTOFF16F
1368 
                 || r_type == R_PARISC_LTOFF16DF
1369 
                 || r_type == R_PARISC_LTOFF16WF
1370 
                 || r_type == R_PARISC_LTOFF_TP16F
1371 
                 || r_type == R_PARISC_LTOFF_TP16WF
1372 
                 || r_type == R_PARISC_LTOFF_TP16DF)
1373 
          value = hppa_field_adjust (value, addend, e_fsel);
1374 
        else
1375 
          value = hppa_field_adjust (value, addend, e_rrsel);
1376 
 
1377 
        insn = elf_hppa_relocate_insn (insn, value, r_type);
1378 
        break;
1379 
      }
1380 
 
1381 
    case R_PARISC_DLTREL14R:
1382 
    case R_PARISC_DLTREL14F:
1383 
    case R_PARISC_DLTREL14DR:
1384 
    case R_PARISC_DLTREL14WR:
1385 
    case R_PARISC_DLTREL21L:
1386 
    case R_PARISC_DPREL21L:
1387 
    case R_PARISC_DPREL14WR:
1388 
    case R_PARISC_DPREL14DR:
1389 
    case R_PARISC_DPREL14R:
1390 
    case R_PARISC_DPREL14F:
1391 
    case R_PARISC_GPREL16F:
1392 
    case R_PARISC_GPREL16WF:
1393 
    case R_PARISC_GPREL16DF:
1394 
      {
1395 
        /* Subtract out the global pointer value to make value a DLT
1396 
           relative address.  */
1397 
        value -= _bfd_get_gp_value (output_bfd);
1398 
 
1399 
        /* All DLTREL relocations are basically the same at this point,
1400 
           except that we need different field selectors for the 21bit
1401 
           version vs the 14bit versions.  */
1402 
        if (r_type == R_PARISC_DLTREL21L
1403 
            || r_type == R_PARISC_DPREL21L)
1404 
          value = hppa_field_adjust (value, addend, e_lrsel);
1405 
        else if (r_type == R_PARISC_DLTREL14F
1406 
                 || r_type == R_PARISC_DPREL14F
1407 
                 || r_type == R_PARISC_GPREL16F
1408 
                 || r_type == R_PARISC_GPREL16WF
1409 
                 || r_type == R_PARISC_GPREL16DF)
1410 
          value = hppa_field_adjust (value, addend, e_fsel);
1411 
        else
1412 
          value = hppa_field_adjust (value, addend, e_rrsel);
1413 
 
1414 
        insn = elf_hppa_relocate_insn (insn, value, r_type);
1415 
        break;
1416 
      }
1417 
 
1418 
    case R_PARISC_DIR21L:
1419 
    case R_PARISC_DIR17R:
1420 
    case R_PARISC_DIR17F:
1421 
    case R_PARISC_DIR14R:
1422 
    case R_PARISC_DIR14WR:
1423 
    case R_PARISC_DIR14DR:
1424 
    case R_PARISC_DIR16F:
1425 
    case R_PARISC_DIR16WF:
1426 
    case R_PARISC_DIR16DF:
1427 
      {
1428 
        /* All DIR relocations are basically the same at this point,
1429 
           except that we need different field selectors for the 21bit
1430 
           version vs the 14bit versions.  */
1431 
        if (r_type == R_PARISC_DIR21L)
1432 
          value = hppa_field_adjust (value, addend, e_lrsel);
1433 
        else if (r_type == R_PARISC_DIR17F
1434 
                 || r_type == R_PARISC_DIR16F
1435 
                 || r_type == R_PARISC_DIR16WF
1436 
                 || r_type == R_PARISC_DIR16DF)
1437 
          value = hppa_field_adjust (value, addend, e_fsel);
1438 
        else
1439 
          value = hppa_field_adjust (value, addend, e_rrsel);
1440 
 
1441 
        insn = elf_hppa_relocate_insn (insn, value, r_type);
1442 
        break;
1443 
      }
1444 
 
1445 
    case R_PARISC_PLTOFF21L:
1446 
    case R_PARISC_PLTOFF14R:
1447 
    case R_PARISC_PLTOFF14F:
1448 
    case R_PARISC_PLTOFF14WR:
1449 
    case R_PARISC_PLTOFF14DR:
1450 
    case R_PARISC_PLTOFF16F:
1451 
    case R_PARISC_PLTOFF16WF:
1452 
    case R_PARISC_PLTOFF16DF:
1453 
      {
1454 
        /* We want the value of the PLT offset for this symbol, not
1455 
           the symbol's actual address.  Note that __gp may not point
1456 
           to the start of the DLT, so we have to compute the absolute
1457 
           address, then subtract out the value of __gp.  */
1458 
        value = (dyn_h->plt_offset
1459 
                 + hppa_info->plt_sec->output_offset
1460 
                 + hppa_info->plt_sec->output_section->vma);
1461 
        value -= _bfd_get_gp_value (output_bfd);
1462 
 
1463 
        /* All PLTOFF relocations are basically the same at this point,
1464 
           except that we need different field selectors for the 21bit
1465 
           version vs the 14bit versions.  */
1466 
        if (r_type == R_PARISC_PLTOFF21L)
1467 
          value = hppa_field_adjust (value, addend, e_lrsel);
1468 
        else if (r_type == R_PARISC_PLTOFF14F
1469 
                 || r_type == R_PARISC_PLTOFF16F
1470 
                 || r_type == R_PARISC_PLTOFF16WF
1471 
                 || r_type == R_PARISC_PLTOFF16DF)
1472 
          value = hppa_field_adjust (value, addend, e_fsel);
1473 
        else
1474 
          value = hppa_field_adjust (value, addend, e_rrsel);
1475 
 
1476 
        insn = elf_hppa_relocate_insn (insn, value, r_type);
1477 
        break;
1478 
      }
1479 
 
1480 
    case R_PARISC_LTOFF_FPTR32:
1481 
      {
1482 
        /* We may still need to create the FPTR itself if it was for
1483 
           a local symbol.  */
1484 
        if (dyn_h->h == NULL)
1485 
          {
1486 
            /* The first two words of an .opd entry are zero.  */
1487 
            memset (hppa_info->opd_sec->contents + dyn_h->opd_offset, 0, 16);
1488 
 
1489 
            /* The next word is the address of the function.  */
1490 
            bfd_put_64 (hppa_info->opd_sec->owner, value,
1491 
                        (hppa_info->opd_sec->contents
1492 
                         + dyn_h->opd_offset + 16));
1493 
 
1494 
            /* The last word is our local __gp value.  */
1495 
            value = _bfd_get_gp_value
1496 
                      (hppa_info->opd_sec->output_section->owner);
1497 
            bfd_put_64 (hppa_info->opd_sec->owner, value,
1498 
                        hppa_info->opd_sec->contents + dyn_h->opd_offset + 24);
1499 
          }
1500 
 
1501 
        /* We want the value of the DLT offset for this symbol, not
1502 
           the symbol's actual address.  Note that __gp may not point
1503 
           to the start of the DLT, so we have to compute the absolute
1504 
           address, then subtract out the value of __gp.  */
1505 
        value = (dyn_h->dlt_offset
1506 
                 + hppa_info->dlt_sec->output_offset
1507 
                 + hppa_info->dlt_sec->output_section->vma);
1508 
        value -= _bfd_get_gp_value (output_bfd);
1509 
        bfd_put_32 (input_bfd, value, hit_data);
1510 
        return bfd_reloc_ok;
1511 
      }
1512 
 
1513 
    case R_PARISC_LTOFF_FPTR64:
1514 
    case R_PARISC_LTOFF_TP64:
1515 
      {
1516 
        /* We may still need to create the FPTR itself if it was for
1517 
           a local symbol.  */
1518 
        if (dyn_h->h == NULL && r_type == R_PARISC_LTOFF_FPTR64)
1519 
          {
1520 
            /* The first two words of an .opd entry are zero.  */
1521 
            memset (hppa_info->opd_sec->contents + dyn_h->opd_offset, 0, 16);
1522 
 
1523 
            /* The next word is the address of the function.  */
1524 
            bfd_put_64 (hppa_info->opd_sec->owner, value,
1525 
                        (hppa_info->opd_sec->contents
1526 
                         + dyn_h->opd_offset + 16));
1527 
 
1528 
            /* The last word is our local __gp value.  */
1529 
            value = _bfd_get_gp_value
1530 
                      (hppa_info->opd_sec->output_section->owner);
1531 
            bfd_put_64 (hppa_info->opd_sec->owner, value,
1532 
                        hppa_info->opd_sec->contents + dyn_h->opd_offset + 24);
1533 
          }
1534 
 
1535 
        /* We want the value of the DLT offset for this symbol, not
1536 
           the symbol's actual address.  Note that __gp may not point
1537 
           to the start of the DLT, so we have to compute the absolute
1538 
           address, then subtract out the value of __gp.  */
1539 
        value = (dyn_h->dlt_offset
1540 
                 + hppa_info->dlt_sec->output_offset
1541 
                 + hppa_info->dlt_sec->output_section->vma);
1542 
        value -= _bfd_get_gp_value (output_bfd);
1543 
        bfd_put_64 (input_bfd, value, hit_data);
1544 
        return bfd_reloc_ok;
1545 
      }
1546 
 
1547 
    case R_PARISC_DIR32:
1548 
      bfd_put_32 (input_bfd, value + addend, hit_data);
1549 
      return bfd_reloc_ok;
1550 
 
1551 
    case R_PARISC_DIR64:
1552 
      bfd_put_64 (input_bfd, value + addend, hit_data);
1553 
      return bfd_reloc_ok;
1554 
 
1555 
    case R_PARISC_GPREL64:
1556 
      /* Subtract out the global pointer value to make value a DLT
1557 
         relative address.  */
1558 
      value -= _bfd_get_gp_value (output_bfd);
1559 
      value += addend;
1560 
 
1561 
      bfd_put_64 (input_bfd, value + addend, hit_data);
1562 
      return bfd_reloc_ok;
1563 
 
1564 
    case R_PARISC_LTOFF64:
1565 
        /* We want the value of the DLT offset for this symbol, not
1566 
           the symbol's actual address.  Note that __gp may not point
1567 
           to the start of the DLT, so we have to compute the absolute
1568 
           address, then subtract out the value of __gp.  */
1569 
      value = (dyn_h->dlt_offset
1570 
               + hppa_info->dlt_sec->output_offset
1571 
               + hppa_info->dlt_sec->output_section->vma);
1572 
      value -= _bfd_get_gp_value (output_bfd);
1573 
 
1574 
      bfd_put_64 (input_bfd, value + addend, hit_data);
1575 
      return bfd_reloc_ok;
1576 
 
1577 
    case R_PARISC_PCREL32:
1578 
      {
1579 
        /* If this is a call to a function defined in another dynamic
1580 
           library, then redirect the call to the local stub for this
1581 
           function.  */
1582 
        if (sym_sec == NULL || sym_sec->output_section == NULL)
1583 
          value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
1584 
                   + hppa_info->stub_sec->output_section->vma);
1585 
 
1586 
        /* Turn VALUE into a proper PC relative address.  */
1587 
        value -= (offset + input_section->output_offset
1588 
                  + input_section->output_section->vma);
1589 
 
1590 
        value += addend;
1591 
        value -= 8;
1592 
        bfd_put_64 (input_bfd, value, hit_data);
1593 
        return bfd_reloc_ok;
1594 
      }
1595 
 
1596 
    case R_PARISC_PCREL64:
1597 
      {
1598 
        /* If this is a call to a function defined in another dynamic
1599 
           library, then redirect the call to the local stub for this
1600 
           function.  */
1601 
        if (sym_sec == NULL || sym_sec->output_section == NULL)
1602 
          value = (dyn_h->stub_offset + hppa_info->stub_sec->output_offset
1603 
                   + hppa_info->stub_sec->output_section->vma);
1604 
 
1605 
 
1606 
        /* Turn VALUE into a proper PC relative address.  */
1607 
        value -= (offset + input_section->output_offset
1608 
                  + input_section->output_section->vma);
1609 
 
1610 
        value += addend;
1611 
        value -= 8;
1612 
        bfd_put_64 (input_bfd, value, hit_data);
1613 
        return bfd_reloc_ok;
1614 
      }
1615 
 
1616 
 
1617 
    case R_PARISC_FPTR64:
1618 
      {
1619 
        /* We may still need to create the FPTR itself if it was for
1620 
           a local symbol.  */
1621 
        if (dyn_h->h == NULL)
1622 
          {
1623 
            /* The first two words of an .opd entry are zero.  */
1624 
            memset (hppa_info->opd_sec->contents + dyn_h->opd_offset, 0, 16);
1625 
 
1626 
            /* The next word is the address of the function.  */
1627 
            bfd_put_64 (hppa_info->opd_sec->owner, value,
1628 
                        (hppa_info->opd_sec->contents
1629 
                         + dyn_h->opd_offset + 16));
1630 
 
1631 
            /* The last word is our local __gp value.  */
1632 
            value = _bfd_get_gp_value
1633 
                      (hppa_info->opd_sec->output_section->owner);
1634 
            bfd_put_64 (hppa_info->opd_sec->owner, value,
1635 
                        hppa_info->opd_sec->contents + dyn_h->opd_offset + 24);
1636 
          }
1637 
 
1638 
        /* We want the value of the OPD offset for this symbol, not
1639 
           the symbol's actual address.  */
1640 
        value = (dyn_h->opd_offset
1641 
                 + hppa_info->opd_sec->output_offset
1642 
                 + hppa_info->opd_sec->output_section->vma);
1643 
 
1644 
        bfd_put_64 (input_bfd, value + addend, hit_data);
1645 
        return bfd_reloc_ok;
1646 
      }
1647 
 
1648 
    case R_PARISC_SECREL32:
1649 
      bfd_put_32 (input_bfd,
1650 
                  (value + addend
1651 
                   - sym_sec->output_section->vma),
1652 
                  hit_data);
1653 
      return bfd_reloc_ok;
1654 
 
1655 
    case R_PARISC_SEGREL32:
1656 
    case R_PARISC_SEGREL64:
1657 
      {
1658 
        /* If this is the first SEGREL relocation, then initialize
1659 
           the segment base values.  */
1660 
        if (hppa_info->text_segment_base == (bfd_vma) -1)
1661 
          bfd_map_over_sections (output_bfd, elf_hppa_record_segment_addrs,
1662 
                                 elf64_hppa_hash_table (info));
1663 
 
1664 
        /* VALUE holds the absolute address.  We want to include the
1665 
           addend, then turn it into a segment relative address.
1666 
 
1667 
           The segment is derived from SYM_SEC.  We assume that there are
1668 
           only two segments of note in the resulting executable/shlib.
1669 
           A readonly segment (.text) and a readwrite segment (.data).  */
1670 
        value += addend;
1671 
 
1672 
        if (sym_sec->flags & SEC_CODE)
1673 
          value -= hppa_info->text_segment_base;
1674 
        else
1675 
          value -= hppa_info->data_segment_base;
1676 
 
1677 
        if (r_type == R_PARISC_SEGREL32)
1678 
          bfd_put_32 (input_bfd, value, hit_data);
1679 
        else
1680 
          bfd_put_64 (input_bfd, value, hit_data);
1681 
        return bfd_reloc_ok;
1682 
      }
1683 
 
1684 
 
1685 
    /* Something we don't know how to handle.  */
1686 
    default:
1687 
      return bfd_reloc_notsupported;
1688 
    }
1689 
 
1690 
  /* Update the instruction word.  */
1691 
  bfd_put_32 (input_bfd, insn, hit_data);
1692 
  return (bfd_reloc_ok);
1693 
}
1694 
 
1695 
/* Relocate the given INSN.  VALUE should be the actual value we want
1696 
   to insert into the instruction, ie by this point we should not be
1697 
   concerned with computing an offset relative to the DLT, PC, etc.
1698 
   Instead this routine is meant to handle the bit manipulations needed
1699 
   to insert the relocation into the given instruction.  */
1700 
 
1701 
static unsigned long
1702 
elf_hppa_relocate_insn (insn, sym_value, r_type)
1703 
     unsigned long insn;
1704 
     long sym_value;
1705 
     unsigned long r_type;
1706 
{
1707 
  switch (r_type)
1708 
    {
1709 
    /* This is any 22bit branch.  In PA2.0 syntax it corresponds to
1710 
       the "B" instruction.  */
1711 
    case R_PARISC_PCREL22F:
1712 
    case R_PARISC_PCREL22C:
1713 
      {
1714 
        unsigned int w3, w2, w1, w;
1715 
 
1716 
        /* These are 22 bit branches.  Mask off bits we do not care
1717 
           about.  */
1718 
        sym_value &= 0x3fffff;
1719 
 
1720 
        /* Now extract the W1, W2, W3 and W fields from the value.  */
1721 
        dis_assemble_22 (sym_value, &w3, &w1, &w2, &w);
1722 
 
1723 
        /* Mask out bits for the value in the instruction.  */
1724 
        insn &= 0xfc00e002;
1725 
 
1726 
        /* Insert the bits for the W1, W2 and W fields into the
1727 
           instruction.  */
1728 
        insn |= (w3 << 21) | (w2 << 2) | (w1 << 16) | w;
1729 
        return insn;
1730 
       }
1731 
 
1732 
    /* This is any 17bit branch.  In PA2.0 syntax it also corresponds to
1733 
       the "B" instruction as well as BE.  */
1734 
    case R_PARISC_PCREL17F:
1735 
    case R_PARISC_DIR17F:
1736 
    case R_PARISC_DIR17R:
1737 
    case R_PARISC_PCREL17C:
1738 
    case R_PARISC_PCREL17R:
1739 
      {
1740 
        unsigned int w2, w1, w;
1741 
 
1742 
        /* These are 17 bit branches.  Mask off bits we do not care
1743 
           about.  */
1744 
        sym_value &= 0x1ffff;
1745 
 
1746 
        /* Now extract the W1, W2 and W fields from the value.  */
1747 
        dis_assemble_17 (sym_value, &w1, &w2, &w);
1748 
 
1749 
        /* Mask out bits for the value in the instruction.  */
1750 
        insn &= 0xffe0e002;
1751 
 
1752 
        /* Insert the bits for the W1, W2 and W fields into the
1753 
           instruction.  */
1754 
        insn |= (w2 << 2) | (w1 << 16) | w;
1755 
        return insn;
1756 
      }
1757 
 
1758 
    /* ADDIL or LDIL instructions.  */
1759 
    case R_PARISC_DLTREL21L:
1760 
    case R_PARISC_DLTIND21L:
1761 
    case R_PARISC_LTOFF_FPTR21L:
1762 
    case R_PARISC_PCREL21L:
1763 
    case R_PARISC_LTOFF_TP21L:
1764 
    case R_PARISC_DPREL21L:
1765 
    case R_PARISC_PLTOFF21L:
1766 
    case R_PARISC_DIR21L:
1767 
      {
1768 
        int w;
1769 
 
1770 
        /* Mask off bits in INSN we do not want.  */
1771 
        insn &= 0xffe00000;
1772 
 
1773 
        /* Turn the 21bit value into the proper format.  */
1774 
        dis_assemble_21 (sym_value, &w);
1775 
 
1776 
        /* And insert the proper bits into INSN.  */
1777 
        return insn | w;
1778 
      }
1779 
 
1780 
    /* LDO and integer loads/stores with 14bit displacements.  */
1781 
    case R_PARISC_DLTREL14R:
1782 
    case R_PARISC_DLTREL14F:
1783 
    case R_PARISC_DLTIND14R:
1784 
    case R_PARISC_DLTIND14F:
1785 
    case R_PARISC_LTOFF_FPTR14R:
1786 
    case R_PARISC_LTOFF_FPTR16F:
1787 
    case R_PARISC_PCREL14R:
1788 
    case R_PARISC_PCREL14F:
1789 
    case R_PARISC_PCREL16F:
1790 
    case R_PARISC_LTOFF_TP14R:
1791 
    case R_PARISC_LTOFF_TP14F:
1792 
    case R_PARISC_LTOFF_TP16F:
1793 
    case R_PARISC_DPREL14R:
1794 
    case R_PARISC_DPREL14F:
1795 
    case R_PARISC_GPREL16F:
1796 
    case R_PARISC_PLTOFF14R:
1797 
    case R_PARISC_PLTOFF14F:
1798 
    case R_PARISC_PLTOFF16F:
1799 
    case R_PARISC_DIR14R:
1800 
    case R_PARISC_DIR16F:
1801 
    case R_PARISC_LTOFF16F:
1802 
      {
1803 
        int w;
1804 
 
1805 
        /* Mask off bits in INSN we do not want.  */
1806 
        insn &= 0xffffc000;
1807 
 
1808 
        /* Turn the 14bit value into the proper format.  */
1809 
        low_sign_unext (sym_value, 14, &w);
1810 
 
1811 
        /* And insert the proper bits into INSN.  */
1812 
        return insn | w;
1813 
      }
1814 
 
1815 
    /* Doubleword loads and stores with a 14bit displacement.  */
1816 
    case R_PARISC_DLTREL14DR:
1817 
    case R_PARISC_DLTIND14DR:
1818 
    case R_PARISC_LTOFF_FPTR14DR:
1819 
    case R_PARISC_LTOFF_FPTR16DF:
1820 
    case R_PARISC_PCREL14DR:
1821 
    case R_PARISC_PCREL16DF:
1822 
    case R_PARISC_LTOFF_TP14DR:
1823 
    case R_PARISC_LTOFF_TP16DF:
1824 
    case R_PARISC_DPREL14DR:
1825 
    case R_PARISC_GPREL16DF:
1826 
    case R_PARISC_PLTOFF14DR:
1827 
    case R_PARISC_PLTOFF16DF:
1828 
    case R_PARISC_DIR14DR:
1829 
    case R_PARISC_DIR16DF:
1830 
    case R_PARISC_LTOFF16DF:
1831 
      {
1832 
        /* Mask off bits in INSN we do not want.  */
1833 
        insn &= 0xffffc00e;
1834 
 
1835 
        /* The sign bit at 14 moves into bit zero in the destination.  */
1836 
        insn |= ((sym_value & 0x2000) >> 13);
1837 
 
1838 
        /* Turn off the bits in sym_value we do not care about.  */
1839 
        sym_value &= 0x1ff8;
1840 
 
1841 
        /* Now shift it one bit position left so that it lines up with the
1842 
           destination field in INSN.  */
1843 
        sym_value <<= 1;
1844 
 
1845 
        return insn | sym_value;
1846 
      }
1847 
 
1848 
    /* Floating point single word load/store instructions.  */
1849 
    case R_PARISC_DLTREL14WR:
1850 
    case R_PARISC_DLTIND14WR:
1851 
    case R_PARISC_LTOFF_FPTR14WR:
1852 
    case R_PARISC_LTOFF_FPTR16WF:
1853 
    case R_PARISC_PCREL14WR:
1854 
    case R_PARISC_PCREL16WF:
1855 
    case R_PARISC_LTOFF_TP14WR:
1856 
    case R_PARISC_LTOFF_TP16WF:
1857 
    case R_PARISC_DPREL14WR:
1858 
    case R_PARISC_GPREL16WF:
1859 
    case R_PARISC_PLTOFF14WR:
1860 
    case R_PARISC_PLTOFF16WF:
1861 
    case R_PARISC_DIR16WF:
1862 
    case R_PARISC_DIR14WR:
1863 
    case R_PARISC_LTOFF16WF:
1864 
      {
1865 
        /* Mask off bits in INSN we do not want.  */
1866 
        insn &= 0xffffc006;
1867 
 
1868 
        /* The sign bit at 14 moves into bit zero in the destination.  */
1869 
        insn |= ((sym_value & 0x2000) >> 13);
1870 
 
1871 
        /* Turn off the bits in sym_value we do not care about.  */
1872 
        sym_value &= 0x1ffc;
1873 
 
1874 
        /* Now shift it one bit position left so that it lines up with the
1875 
           destination field in INSN.  */
1876 
        sym_value <<= 1;
1877 
 
1878 
        return insn | sym_value;
1879 
      }
1880 
 
1881 
    default:
1882 
      return insn;
1883 
    }
1884 
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.