Automatic date update in version.in
[external/binutils.git] / bfd / elf-hppa.h
1 /* Common code for PA ELF implementations.
2    Copyright (C) 1999-2019 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 3 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., 51 Franklin Street - Fifth Floor, Boston,
19    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 #define HOW(type, size, bitsize, pc_rel, complain, mask) \
51   HOWTO (type, 0, size, bitsize, pc_rel, 0, complain_overflow_ ## complain, \
52          bfd_elf_generic_reloc, #type, FALSE, 0, mask, FALSE)
53
54   /* The values in DIR32 are to placate the check in
55      _bfd_stab_section_find_nearest_line.  */
56   HOW (R_PARISC_NONE,           3,  0, FALSE,     dont, 0),
57   HOW (R_PARISC_DIR32,          2, 32, FALSE, bitfield, 0xffffffff),
58   HOW (R_PARISC_DIR21L,         2, 21, FALSE, bitfield, 0),
59   HOW (R_PARISC_DIR17R,         2, 17, FALSE, bitfield, 0),
60   HOW (R_PARISC_DIR17F,         2, 17, FALSE, bitfield, 0),
61   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
62   HOW (R_PARISC_DIR14R,         2, 14, FALSE, bitfield, 0),
63   HOW (R_PARISC_DIR14F,         2, 14, FALSE, bitfield, 0),
64   /* 8 */
65   HOW (R_PARISC_PCREL12F,       2, 12,  TRUE, bitfield, 0),
66   HOW (R_PARISC_PCREL32,        2, 32,  TRUE, bitfield, 0),
67   HOW (R_PARISC_PCREL21L,       2, 21,  TRUE, bitfield, 0),
68   HOW (R_PARISC_PCREL17R,       2, 17,  TRUE, bitfield, 0),
69   HOW (R_PARISC_PCREL17F,       2, 17,  TRUE, bitfield, 0),
70   HOW (R_PARISC_PCREL17C,       2, 17,  TRUE, bitfield, 0),
71   HOW (R_PARISC_PCREL14R,       2, 14,  TRUE, bitfield, 0),
72   HOW (R_PARISC_PCREL14F,       2, 14,  TRUE, bitfield, 0),
73   /* 16 */
74   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
75   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
76   HOW (R_PARISC_DPREL21L,       2, 21, FALSE, bitfield, 0),
77   HOW (R_PARISC_DPREL14WR,      2, 14, FALSE, bitfield, 0),
78   HOW (R_PARISC_DPREL14DR,      2, 14, FALSE, bitfield, 0),
79   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
80   HOW (R_PARISC_DPREL14R,       2, 14, FALSE, bitfield, 0),
81   HOW (R_PARISC_DPREL14F,       2, 14, FALSE, bitfield, 0),
82   /* 24 */
83   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
84   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
85   HOW (R_PARISC_DLTREL21L,      2, 21, FALSE, bitfield, 0),
86   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
87   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
88   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
89   HOW (R_PARISC_DLTREL14R,      2, 14, FALSE, bitfield, 0),
90   HOW (R_PARISC_DLTREL14F,      2, 14, FALSE, bitfield, 0),
91   /* 32 */
92   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
93   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
94   HOW (R_PARISC_DLTIND21L,      2, 21, FALSE, bitfield, 0),
95   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
96   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
97   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
98   HOW (R_PARISC_DLTIND14R,      2, 14, FALSE, bitfield, 0),
99   HOW (R_PARISC_DLTIND14F,      2, 14, FALSE, bitfield, 0),
100   /* 40 */
101   HOW (R_PARISC_SETBASE,        0,  0, FALSE, bitfield, 0),
102   HOW (R_PARISC_SECREL32,       2, 32, FALSE, bitfield, 0xffffffff),
103   HOW (R_PARISC_BASEREL21L,     2, 21, FALSE, bitfield, 0),
104   HOW (R_PARISC_BASEREL17R,     2, 17, FALSE, bitfield, 0),
105   HOW (R_PARISC_BASEREL17F,     2, 17, FALSE, bitfield, 0),
106   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
107   HOW (R_PARISC_BASEREL14R,     2, 14, FALSE, bitfield, 0),
108   HOW (R_PARISC_BASEREL14F,     2, 14, FALSE, bitfield, 0),
109   /* 48 */
110   HOW (R_PARISC_SEGBASE,        0,  0, FALSE, bitfield, 0),
111   HOW (R_PARISC_SEGREL32,       2, 32, FALSE, bitfield, 0),
112   HOW (R_PARISC_PLTOFF21L,      2, 21, FALSE, bitfield, 0),
113   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
114   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
115   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
116   HOW (R_PARISC_PLTOFF14R,      2, 14, FALSE, bitfield, 0),
117   HOW (R_PARISC_PLTOFF14F,      2, 14, FALSE, bitfield, 0),
118   /* 56 */
119   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
120   HOW (R_PARISC_LTOFF_FPTR32,   2, 32, FALSE, bitfield, 0),
121   HOW (R_PARISC_LTOFF_FPTR21L,  2, 21, FALSE, bitfield, 0),
122   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
123   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
124   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
125   HOW (R_PARISC_LTOFF_FPTR14R,  2, 14, FALSE, bitfield, 0),
126   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
127   /* 64 */
128   HOW (R_PARISC_FPTR64,         4, 64, FALSE, bitfield, 0),
129   HOW (R_PARISC_PLABEL32,       2, 32, FALSE, bitfield, 0),
130   HOW (R_PARISC_PLABEL21L,      2, 21, FALSE, bitfield, 0),
131   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
132   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
133   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
134   HOW (R_PARISC_PLABEL14R,      2, 14, FALSE, bitfield, 0),
135   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
136   /* 72 */
137   HOW (R_PARISC_PCREL64,        4, 64, FALSE, bitfield, 0),
138   HOW (R_PARISC_PCREL22C,       2, 22, FALSE, bitfield, 0),
139   HOW (R_PARISC_PCREL22F,       2, 22, FALSE, bitfield, 0),
140   HOW (R_PARISC_PCREL14WR,      2, 14, FALSE, bitfield, 0),
141   HOW (R_PARISC_PCREL14DR,      2, 14, FALSE, bitfield, 0),
142   HOW (R_PARISC_PCREL16F,       2, 16, FALSE, bitfield, 0),
143   HOW (R_PARISC_PCREL16WF,      2, 16, FALSE, bitfield, 0),
144   HOW (R_PARISC_PCREL16DF,      2, 16, FALSE, bitfield, 0),
145   /* 80 */
146   HOW (R_PARISC_DIR64,          4, 64, FALSE, bitfield, 0),
147   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
148   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
149   HOW (R_PARISC_DIR14WR,        2, 14, FALSE, bitfield, 0),
150   HOW (R_PARISC_DIR14DR,        2, 14, FALSE, bitfield, 0),
151   HOW (R_PARISC_DIR16F,         2, 16, FALSE, bitfield, 0),
152   HOW (R_PARISC_DIR16WF,        2, 16, FALSE, bitfield, 0),
153   HOW (R_PARISC_DIR16DF,        2, 16, FALSE, bitfield, 0),
154   /* 88 */
155   HOW (R_PARISC_GPREL64,        4, 64, FALSE, bitfield, 0),
156   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
157   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
158   HOW (R_PARISC_DLTREL14WR,     2, 14, FALSE, bitfield, 0),
159   HOW (R_PARISC_DLTREL14DR,     2, 14, FALSE, bitfield, 0),
160   HOW (R_PARISC_GPREL16F,       2, 16, FALSE, bitfield, 0),
161   HOW (R_PARISC_GPREL16WF,      2, 16, FALSE, bitfield, 0),
162   HOW (R_PARISC_GPREL16DF,      2, 16, FALSE, bitfield, 0),
163   /* 96 */
164   HOW (R_PARISC_LTOFF64,        4, 64, FALSE, bitfield, 0),
165   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
166   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
167   HOW (R_PARISC_DLTIND14WR,     2, 14, FALSE, bitfield, 0),
168   HOW (R_PARISC_DLTIND14DR,     2, 14, FALSE, bitfield, 0),
169   HOW (R_PARISC_LTOFF16F,       2, 16, FALSE, bitfield, 0),
170   HOW (R_PARISC_LTOFF16WF,      2, 16, FALSE, bitfield, 0),
171   HOW (R_PARISC_LTOFF16DF,      2, 16, FALSE, bitfield, 0),
172   /* 104 */
173   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
174   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
175   HOW (R_PARISC_BASEREL14WR,    2, 14, FALSE, bitfield, 0),
176   HOW (R_PARISC_BASEREL14DR,    2, 14, FALSE, bitfield, 0),
177   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
178   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
179   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
180   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
181   /* 112 */
182   HOW (R_PARISC_SEGREL64,       4, 64, FALSE, bitfield, 0),
183   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
184   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
185   HOW (R_PARISC_PLTOFF14WR,     2, 14, FALSE, bitfield, 0),
186   HOW (R_PARISC_PLTOFF14DR,     2, 14, FALSE, bitfield, 0),
187   HOW (R_PARISC_PLTOFF16F,      2, 16, FALSE, bitfield, 0),
188   HOW (R_PARISC_PLTOFF16WF,     2, 16, FALSE, bitfield, 0),
189   HOW (R_PARISC_PLTOFF16DF,     2, 16, FALSE, bitfield, 0),
190   /* 120 */
191   HOW (R_PARISC_LTOFF_FPTR64,   4, 64, FALSE, bitfield, 0),
192   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
193   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
194   HOW (R_PARISC_LTOFF_FPTR14WR, 2, 14, FALSE, bitfield, 0),
195   HOW (R_PARISC_LTOFF_FPTR14DR, 2, 14, FALSE, bitfield, 0),
196   HOW (R_PARISC_LTOFF_FPTR16F,  2, 16, FALSE, bitfield, 0),
197   HOW (R_PARISC_LTOFF_FPTR16WF, 2, 16, FALSE, bitfield, 0),
198   HOW (R_PARISC_LTOFF_FPTR16DF, 2, 16, FALSE, bitfield, 0),
199   /* 128 */
200   HOW (R_PARISC_COPY,           0,  0, FALSE, bitfield, 0),
201   HOW (R_PARISC_IPLT,           0,  0, FALSE, bitfield, 0),
202   HOW (R_PARISC_EPLT,           0,  0, FALSE, bitfield, 0),
203   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
204   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
205   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
206   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
207   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
208   /* 136 */
209   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
210   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
211   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
212   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
213   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
214   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
215   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
216   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
217   /* 144 */
218   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
219   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
220   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
221   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
222   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
223   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
224   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
225   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
226   /* 152 */
227   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
228   HOW (R_PARISC_TPREL32,        2, 32, FALSE,     dont, 0),
229   HOW (R_PARISC_TPREL21L,       2, 21, FALSE, bitfield, 0),
230   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
231   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
232   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
233   HOW (R_PARISC_TPREL14R,       2, 14, FALSE, bitfield, 0),
234   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
235   /* 160 */
236   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
237   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
238   HOW (R_PARISC_LTOFF_TP21L,    2, 21, FALSE, bitfield, 0),
239   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
240   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
241   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
242   HOW (R_PARISC_LTOFF_TP14R,    2, 14, FALSE, bitfield, 0),
243   HOW (R_PARISC_LTOFF_TP14F,    2, 14, FALSE, bitfield, 0),
244   /* 168 */
245   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
246   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
247   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
248   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
249   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
250   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
251   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
252   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
253   /* 176 */
254   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
255   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
256   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
257   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
258   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
259   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
260   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
261   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
262   /* 184 */
263   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
264   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
265   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
266   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
267   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
268   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
269   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
270   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
271   /* 192 */
272   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
273   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
274   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
275   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
276   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
277   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
278   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
279   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
280   /* 200 */
281   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
282   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
283   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
284   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
285   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
286   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
287   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
288   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
289   /* 208 */
290   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
291   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
292   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
293   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
294   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE,     dont, 0),
295   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
296   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
297   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
298   /* 216 */
299   HOW (R_PARISC_TPREL64,        4, 64, FALSE, bitfield, 0),
300   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
301   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
302   HOW (R_PARISC_TPREL14WR,      2, 14, FALSE,     dont, 0),
303   HOW (R_PARISC_TPREL14DR,      2, 14, FALSE, bitfield, 0),
304   HOW (R_PARISC_TPREL16F,       2, 16, FALSE, bitfield, 0),
305   HOW (R_PARISC_TPREL16WF,      2, 16, FALSE,     dont, 0),
306   HOW (R_PARISC_TPREL16DF,      2, 16, FALSE, bitfield, 0),
307   /* 224 */
308   HOW (R_PARISC_LTOFF_TP64,     4, 64, FALSE, bitfield, 0),
309   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
310   HOW (R_PARISC_UNIMPLEMENTED,  0,  0, FALSE, bitfield, 0),
311   HOW (R_PARISC_LTOFF_TP14WR,   2, 14, FALSE, bitfield, 0),
312   HOW (R_PARISC_LTOFF_TP14DR,   2, 14, FALSE, bitfield, 0),
313   HOW (R_PARISC_LTOFF_TP16F,    2, 16, FALSE,     dont, 0),
314   HOW (R_PARISC_LTOFF_TP16WF,   2, 16, FALSE, bitfield, 0),
315   HOW (R_PARISC_LTOFF_TP16DF,   2, 16, FALSE, bitfield, 0),
316   /* 232 */
317   HOW (R_PARISC_GNU_VTENTRY,    0,  0, FALSE,     dont, 0),
318   HOW (R_PARISC_GNU_VTINHERIT,  0,  0, FALSE,     dont, 0),
319   HOW (R_PARISC_TLS_GD21L,      2, 21, FALSE, bitfield, 0),
320   HOW (R_PARISC_TLS_GD14R,      2, 14, FALSE, bitfield, 0),
321   HOW (R_PARISC_TLS_GDCALL,     0,  0, FALSE,     dont, 0),
322   HOW (R_PARISC_TLS_LDM21L,     2, 21, FALSE, bitfield, 0),
323   HOW (R_PARISC_TLS_LDM14R,     2, 14, FALSE, bitfield, 0),
324   HOW (R_PARISC_TLS_LDMCALL,    0,  0, FALSE,     dont, 0),
325   /* 240 */
326   HOW (R_PARISC_TLS_LDO21L,     2, 21, FALSE, bitfield, 0),
327   HOW (R_PARISC_TLS_LDO14R,     2, 14, FALSE, bitfield, 0),
328   HOW (R_PARISC_TLS_DTPMOD32,   2, 32, FALSE, bitfield, 0),
329   HOW (R_PARISC_TLS_DTPMOD64,   4, 64, FALSE, bitfield, 0),
330   HOW (R_PARISC_TLS_DTPOFF32,   2, 32, FALSE, bitfield, 0),
331   HOW (R_PARISC_TLS_DTPOFF64,   4, 64, FALSE, bitfield, 0)
332 #undef HOW
333 };
334
335 #define OFFSET_14R_FROM_21L 4
336 #define OFFSET_14F_FROM_21L 5
337
338 /* Return the final relocation type for the given base type, instruction
339    format, and field selector.  */
340
341 elf_hppa_reloc_type
342 elf_hppa_reloc_final_type (bfd *abfd,
343                            elf_hppa_reloc_type base_type,
344                            int format,
345                            unsigned int field)
346 {
347   elf_hppa_reloc_type final_type = base_type;
348
349   /* Just a tangle of nested switch statements to deal with the braindamage
350      that a different field selector means a completely different relocation
351      for PA ELF.  */
352   switch (base_type)
353     {
354       /* We have been using generic relocation types.  However, that may not
355          really make sense.  Anyway, we need to support both R_PARISC_DIR64
356          and R_PARISC_DIR32 here.  */
357     case R_PARISC_DIR32:
358     case R_PARISC_DIR64:
359     case R_HPPA_ABS_CALL:
360       switch (format)
361         {
362         case 14:
363           switch (field)
364             {
365             case e_fsel:
366               final_type = R_PARISC_DIR14F;
367               break;
368             case e_rsel:
369             case e_rrsel:
370             case e_rdsel:
371               final_type = R_PARISC_DIR14R;
372               break;
373             case e_rtsel:
374               final_type = R_PARISC_DLTIND14R;
375               break;
376             case e_rtpsel:
377               final_type = R_PARISC_LTOFF_FPTR14DR;
378               break;
379             case e_tsel:
380               final_type = R_PARISC_DLTIND14F;
381               break;
382             case e_rpsel:
383               final_type = R_PARISC_PLABEL14R;
384               break;
385             default:
386               return R_PARISC_NONE;
387             }
388           break;
389
390         case 17:
391           switch (field)
392             {
393             case e_fsel:
394               final_type = R_PARISC_DIR17F;
395               break;
396             case e_rsel:
397             case e_rrsel:
398             case e_rdsel:
399               final_type = R_PARISC_DIR17R;
400               break;
401             default:
402               return R_PARISC_NONE;
403             }
404           break;
405
406         case 21:
407           switch (field)
408             {
409             case e_lsel:
410             case e_lrsel:
411             case e_ldsel:
412             case e_nlsel:
413             case e_nlrsel:
414               final_type = R_PARISC_DIR21L;
415               break;
416             case e_ltsel:
417               final_type = R_PARISC_DLTIND21L;
418               break;
419             case e_ltpsel:
420               final_type = R_PARISC_LTOFF_FPTR21L;
421               break;
422             case e_lpsel:
423               final_type = R_PARISC_PLABEL21L;
424               break;
425             default:
426               return R_PARISC_NONE;
427             }
428           break;
429
430         case 32:
431           switch (field)
432             {
433             case e_fsel:
434               final_type = R_PARISC_DIR32;
435               /* When in 64bit mode, a 32bit relocation is supposed to
436                  be a section relative relocation.  Dwarf2 (for example)
437                  uses 32bit section relative relocations.  */
438               if (bfd_arch_bits_per_address (abfd) != 32)
439                 final_type = R_PARISC_SECREL32;
440               break;
441             case e_psel:
442               final_type = R_PARISC_PLABEL32;
443               break;
444             default:
445               return R_PARISC_NONE;
446             }
447           break;
448
449         case 64:
450           switch (field)
451             {
452             case e_fsel:
453               final_type = R_PARISC_DIR64;
454               break;
455             case e_psel:
456               final_type = R_PARISC_FPTR64;
457               break;
458             default:
459               return R_PARISC_NONE;
460             }
461           break;
462
463         default:
464           return R_PARISC_NONE;
465         }
466       break;
467
468     case R_HPPA_GOTOFF:
469       switch (format)
470         {
471         case 14:
472           switch (field)
473             {
474             case e_rsel:
475             case e_rrsel:
476             case e_rdsel:
477               /* R_PARISC_DLTREL14R for elf64, R_PARISC_DPREL14R for elf32.  */
478               final_type = base_type + OFFSET_14R_FROM_21L;
479               break;
480             case e_fsel:
481               /* R_PARISC_DLTREL14F for elf64, R_PARISC_DPREL14F for elf32.  */
482               final_type = base_type + OFFSET_14F_FROM_21L;
483               break;
484             default:
485               return R_PARISC_NONE;
486             }
487           break;
488
489         case 21:
490           switch (field)
491             {
492             case e_lsel:
493             case e_lrsel:
494             case e_ldsel:
495             case e_nlsel:
496             case e_nlrsel:
497               /* R_PARISC_DLTREL21L for elf64, R_PARISC_DPREL21L for elf32.  */
498               final_type = base_type;
499               break;
500             default:
501               return R_PARISC_NONE;
502             }
503           break;
504
505         case 64:
506           switch (field)
507             {
508             case e_fsel:
509               final_type = R_PARISC_GPREL64;
510               break;
511             default:
512               return R_PARISC_NONE;
513             }
514           break;
515
516         default:
517           return R_PARISC_NONE;
518         }
519       break;
520
521     case R_HPPA_PCREL_CALL:
522       switch (format)
523         {
524         case 12:
525           switch (field)
526             {
527             case e_fsel:
528               final_type = R_PARISC_PCREL12F;
529               break;
530             default:
531               return R_PARISC_NONE;
532             }
533           break;
534
535         case 14:
536           /* Contrary to appearances, these are not calls of any sort.
537              Rather, they are loads/stores with a pcrel reloc.  */
538           switch (field)
539             {
540             case e_rsel:
541             case e_rrsel:
542             case e_rdsel:
543               final_type = R_PARISC_PCREL14R;
544               break;
545             case e_fsel:
546               if (bfd_get_mach (abfd) < 25)
547                 final_type = R_PARISC_PCREL14F;
548               else
549                 final_type = R_PARISC_PCREL16F;
550               break;
551             default:
552               return R_PARISC_NONE;
553             }
554           break;
555
556         case 17:
557           switch (field)
558             {
559             case e_rsel:
560             case e_rrsel:
561             case e_rdsel:
562               final_type = R_PARISC_PCREL17R;
563               break;
564             case e_fsel:
565               final_type = R_PARISC_PCREL17F;
566               break;
567             default:
568               return R_PARISC_NONE;
569             }
570           break;
571
572         case 21:
573           switch (field)
574             {
575             case e_lsel:
576             case e_lrsel:
577             case e_ldsel:
578             case e_nlsel:
579             case e_nlrsel:
580               final_type = R_PARISC_PCREL21L;
581               break;
582             default:
583               return R_PARISC_NONE;
584             }
585           break;
586
587         case 22:
588           switch (field)
589             {
590             case e_fsel:
591               final_type = R_PARISC_PCREL22F;
592               break;
593             default:
594               return R_PARISC_NONE;
595             }
596           break;
597
598         case 32:
599           switch (field)
600             {
601             case e_fsel:
602               final_type = R_PARISC_PCREL32;
603               break;
604             default:
605               return R_PARISC_NONE;
606             }
607           break;
608
609         case 64:
610           switch (field)
611             {
612             case e_fsel:
613               final_type = R_PARISC_PCREL64;
614               break;
615             default:
616               return R_PARISC_NONE;
617             }
618           break;
619
620         default:
621           return R_PARISC_NONE;
622         }
623       break;
624
625     case R_PARISC_TLS_GD21L:
626       switch (field)
627         {
628           case e_ltsel:
629           case e_lrsel:
630             final_type = R_PARISC_TLS_GD21L;
631             break;
632           case e_rtsel:
633           case e_rrsel:
634             final_type = R_PARISC_TLS_GD14R;
635             break;
636           default:
637             return R_PARISC_NONE;
638         }
639       break;
640
641     case R_PARISC_TLS_LDM21L:
642       switch (field)
643         {
644           case e_ltsel:
645           case e_lrsel:
646             final_type = R_PARISC_TLS_LDM21L;
647             break;
648           case e_rtsel:
649           case e_rrsel:
650             final_type = R_PARISC_TLS_LDM14R;
651             break;
652           default:
653             return R_PARISC_NONE;
654         }
655       break;
656
657     case R_PARISC_TLS_LDO21L:
658       switch (field)
659         {
660           case e_lrsel:
661             final_type = R_PARISC_TLS_LDO21L;
662             break;
663           case e_rrsel:
664             final_type = R_PARISC_TLS_LDO14R;
665             break;
666           default:
667             return R_PARISC_NONE;
668         }
669       break;
670
671     case R_PARISC_TLS_IE21L:
672       switch (field)
673         {
674           case e_ltsel:
675           case e_lrsel:
676             final_type = R_PARISC_TLS_IE21L;
677             break;
678           case e_rtsel:
679           case e_rrsel:
680             final_type = R_PARISC_TLS_IE14R;
681             break;
682           default:
683             return R_PARISC_NONE;
684         }
685       break;
686
687     case R_PARISC_TLS_LE21L:
688       switch (field)
689         {
690           case e_lrsel:
691             final_type = R_PARISC_TLS_LE21L;
692             break;
693           case e_rrsel:
694             final_type = R_PARISC_TLS_LE14R;
695             break;
696           default:
697             return R_PARISC_NONE;
698         }
699       break;
700
701     case R_PARISC_SEGREL32:
702       switch (format)
703         {
704         case 32:
705           switch (field)
706             {
707             case e_fsel:
708               final_type = R_PARISC_SEGREL32;
709               break;
710             default:
711               return R_PARISC_NONE;
712             }
713           break;
714
715         case 64:
716           switch (field)
717             {
718             case e_fsel:
719               final_type = R_PARISC_SEGREL64;
720               break;
721             default:
722               return R_PARISC_NONE;
723             }
724           break;
725
726         default:
727           return R_PARISC_NONE;
728         }
729       break;
730
731     case R_PARISC_GNU_VTENTRY:
732     case R_PARISC_GNU_VTINHERIT:
733     case R_PARISC_SEGBASE:
734       /* The defaults are fine for these cases.  */
735       break;
736
737     default:
738       return R_PARISC_NONE;
739     }
740
741   return final_type;
742 }
743
744 /* Return one (or more) BFD relocations which implement the base
745    relocation with modifications based on format and field.  */
746
747 elf_hppa_reloc_type **
748 _bfd_elf_hppa_gen_reloc_type (bfd *abfd,
749                               elf_hppa_reloc_type base_type,
750                               int format,
751                               unsigned int field,
752                               int ignore ATTRIBUTE_UNUSED,
753                               asymbol *sym ATTRIBUTE_UNUSED)
754 {
755   elf_hppa_reloc_type *finaltype;
756   elf_hppa_reloc_type **final_types;
757   bfd_size_type amt = sizeof (elf_hppa_reloc_type *) * 2;
758
759   /* Allocate slots for the BFD relocation.  */
760   final_types = bfd_alloc (abfd, amt);
761   if (final_types == NULL)
762     return NULL;
763
764   /* Allocate space for the relocation itself.  */
765   amt = sizeof (elf_hppa_reloc_type);
766   finaltype = bfd_alloc (abfd, amt);
767   if (finaltype == NULL)
768     return NULL;
769
770   /* Some reasonable defaults.  */
771   final_types[0] = finaltype;
772   final_types[1] = NULL;
773
774   *finaltype = elf_hppa_reloc_final_type (abfd, base_type, format, field);
775
776   return final_types;
777 }
778
779 /* Translate from an elf into field into a howto relocation pointer.  */
780
781 static bfd_boolean
782 elf_hppa_info_to_howto (bfd *abfd,
783                         arelent *bfd_reloc,
784                         Elf_Internal_Rela *elf_reloc)
785 {
786   unsigned int r_type = ELF32_R_TYPE (elf_reloc->r_info);
787   unsigned int type = r_type;
788   reloc_howto_type *howto = NULL;
789
790   if (r_type < (unsigned int) R_PARISC_UNIMPLEMENTED)
791     {
792       howto = &elf_hppa_howto_table[r_type];
793       type = howto->type;
794     }
795   if (type >= (unsigned int) R_PARISC_UNIMPLEMENTED)
796     {
797       /* xgettext:c-format */
798       _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
799                           abfd, r_type);
800       bfd_set_error (bfd_error_bad_value);
801       return FALSE;
802     }
803   bfd_reloc->howto = howto;
804   return TRUE;
805 }
806
807 /* Translate from an elf into field into a howto relocation pointer.  */
808
809 static bfd_boolean
810 elf_hppa_info_to_howto_rel (bfd *abfd,
811                             arelent *bfd_reloc,
812                             Elf_Internal_Rela *elf_reloc)
813 {
814   unsigned int r_type = ELF_R_TYPE (elf_reloc->r_info);
815   unsigned int type = r_type;
816   reloc_howto_type *howto = NULL;
817
818   if (r_type < (unsigned int) R_PARISC_UNIMPLEMENTED)
819     {
820       howto = &elf_hppa_howto_table[r_type];
821       type = howto->type;
822     }
823   if (type >= (unsigned int) R_PARISC_UNIMPLEMENTED)
824     {
825       /* xgettext:c-format */
826       _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
827                           abfd, r_type);
828       bfd_set_error (bfd_error_bad_value);
829       return FALSE;
830     }
831   bfd_reloc->howto = howto;
832   return TRUE;
833 }
834
835 /* Return the address of the howto table entry to perform the CODE
836    relocation for an ARCH machine.  */
837
838 static reloc_howto_type *
839 elf_hppa_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
840                             bfd_reloc_code_real_type code)
841 {
842   if ((int) code < (int) R_PARISC_UNIMPLEMENTED)
843     {
844       BFD_ASSERT ((int) elf_hppa_howto_table[(int) code].type == (int) code);
845       return &elf_hppa_howto_table[(int) code];
846     }
847   return NULL;
848 }
849
850 static reloc_howto_type *
851 elf_hppa_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
852                             const char *r_name)
853 {
854   unsigned int i;
855
856   for (i = 0;
857        i < sizeof (elf_hppa_howto_table) / sizeof (elf_hppa_howto_table[0]);
858        i++)
859     if (elf_hppa_howto_table[i].name != NULL
860         && strcasecmp (elf_hppa_howto_table[i].name, r_name) == 0)
861       return &elf_hppa_howto_table[i];
862
863   return NULL;
864 }
865
866 /* Return TRUE if SYM represents a local label symbol.  */
867
868 static bfd_boolean
869 elf_hppa_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED, const char *name)
870 {
871   if (name[0] == 'L' && name[1] == '$')
872     return TRUE;
873   return _bfd_elf_is_local_label_name (abfd, name);
874 }
875
876 /* Set the correct type for an ELF section.  We do this by the
877    section name, which is a hack, but ought to work.  */
878
879 static bfd_boolean
880 elf_hppa_fake_sections (bfd *abfd, Elf_Internal_Shdr *hdr, asection *sec)
881 {
882   const char *name;
883
884   name = bfd_get_section_name (abfd, sec);
885
886   if (strcmp (name, ".PARISC.unwind") == 0)
887     {
888       int indx;
889       asection *asec;
890
891 #if ARCH_SIZE == 64
892       hdr->sh_type = SHT_PARISC_UNWIND;
893 #else
894       /* Note - it is not clear why this is not SHT_PARISC_UNWIND as well.
895          Presumably it is a historical constraint, so leave it as it is.  */
896       hdr->sh_type = SHT_PROGBITS;
897 #endif
898       /* ?!? How are unwinds supposed to work for symbols in arbitrary
899          sections?  Or what if we have multiple .text sections in a single
900          .o file?  HP really messed up on this one.
901
902          Ugh.  We can not use elf_section_data (sec)->this_idx at this
903          point because it is not initialized yet.
904
905          So we (gasp) recompute it here.  Hopefully nobody ever changes the
906          way sections are numbered in elf.c!  */
907       for (asec = abfd->sections, indx = 1; asec; asec = asec->next, indx++)
908         {
909           if (asec->name && strcmp (asec->name, ".text") == 0)
910             {
911               hdr->sh_info = indx;
912               hdr->sh_flags |= SHF_INFO_LINK;
913               break;
914             }
915         }
916
917       /* The unwind table entries are 16 bytes long, so it is not clear
918          why this field is set to 4.  (The ELF spec says that the sh_entsize
919          field is a byte quantity, but this is a processor specific section,
920          so it is allowed to change the rules).  Leave as it is for now.  */
921       hdr->sh_entsize = 4;
922     }
923   return TRUE;
924 }
925
926 static void
927 elf_hppa_final_write_processing (bfd *abfd,
928                                  bfd_boolean linker ATTRIBUTE_UNUSED)
929 {
930   int mach = bfd_get_mach (abfd);
931
932   elf_elfheader (abfd)->e_flags &= ~(EF_PARISC_ARCH | EF_PARISC_TRAPNIL
933                                      | EF_PARISC_EXT | EF_PARISC_LSB
934                                      | EF_PARISC_WIDE | EF_PARISC_NO_KABP
935                                      | EF_PARISC_LAZYSWAP);
936
937   if (mach == 10)
938     elf_elfheader (abfd)->e_flags |= EFA_PARISC_1_0;
939   else if (mach == 11)
940     elf_elfheader (abfd)->e_flags |= EFA_PARISC_1_1;
941   else if (mach == 20)
942     elf_elfheader (abfd)->e_flags |= EFA_PARISC_2_0;
943   else if (mach == 25)
944     elf_elfheader (abfd)->e_flags |= (EF_PARISC_WIDE
945                                       | EFA_PARISC_2_0
946                                       /* The GNU tools have trapped without
947                                          option since 1993, so need to take
948                                          a step backwards with the ELF
949                                          based toolchains.  */
950                                       | EF_PARISC_TRAPNIL);
951 }
952
953 /* Comparison function for qsort to sort unwind section during a
954    final link.  */
955
956 static int
957 hppa_unwind_entry_compare (const void *a, const void *b)
958 {
959   const bfd_byte *ap, *bp;
960   unsigned long av, bv;
961
962   ap = a;
963   av = (unsigned long) ap[0] << 24;
964   av |= (unsigned long) ap[1] << 16;
965   av |= (unsigned long) ap[2] << 8;
966   av |= (unsigned long) ap[3];
967
968   bp = b;
969   bv = (unsigned long) bp[0] << 24;
970   bv |= (unsigned long) bp[1] << 16;
971   bv |= (unsigned long) bp[2] << 8;
972   bv |= (unsigned long) bp[3];
973
974   return av < bv ? -1 : av > bv ? 1 : 0;
975 }
976
977 static bfd_boolean
978 elf_hppa_sort_unwind (bfd *abfd)
979 {
980   asection *s;
981
982   /* Magic section names, but this is much safer than having
983      relocate_section remember where SEGREL32 relocs occurred.
984      Consider what happens if someone inept creates a linker script
985      that puts unwind information in .text.  */
986   s = bfd_get_section_by_name (abfd, ".PARISC.unwind");
987   if (s != NULL)
988     {
989       bfd_size_type size;
990       bfd_byte *contents;
991
992       if (!bfd_malloc_and_get_section (abfd, s, &contents))
993         return FALSE;
994
995       size = s->size;
996       qsort (contents, (size_t) (size / 16), 16, hppa_unwind_entry_compare);
997
998       if (! bfd_set_section_contents (abfd, s, contents, (file_ptr) 0, size))
999         return FALSE;
1000     }
1001
1002   return TRUE;
1003 }
1004
1005 /* What to do when ld finds relocations against symbols defined in
1006    discarded sections.  */
1007
1008 static unsigned int
1009 elf_hppa_action_discarded (asection *sec)
1010 {
1011   /* Ignore relocations in .data.rel.ro.local.  This section can contain
1012      PLABEL32 relocations to functions in discarded COMDAT groups.  */
1013   if (strcmp (".data.rel.ro.local", sec->name) == 0)
1014     return 0;
1015
1016   if (strcmp (".PARISC.unwind", sec->name) == 0)
1017     return 0;
1018
1019   return _bfd_elf_default_action_discarded (sec);
1020 }