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