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