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