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