1 /* BFD back-end for HP PA-RISC ELF files.
2 Copyright (C) 1990, 91, 92, 93, 94 Free Software Foundation, Inc.
6 Center for Software Science
7 Department of Computer Science
10 This file is part of BFD, the Binary File Descriptor library.
12 This program is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 2 of the License, or
15 (at your option) any later version.
17 This program is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
22 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software
24 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
33 /* The internal type of a symbol table extension entry. */
34 typedef unsigned long symext_entryS
;
36 /* The external type of a symbol table extension entry. */
37 #define ELF32_PARISC_SX_SIZE (4)
38 #define ELF32_PARISC_SX_GET(bfd, addr) bfd_h_get_32 ((bfd), (addr))
39 #define ELF32_PARISC_SX_PUT(bfd, val, addr) \
40 bfd_h_put_32 ((bfd), (val), (addr))
42 /* HPPA symbol table extension entry types */
43 enum elf32_hppa_symextn_types
50 /* These macros compose and decompose the value of a symextn entry:
52 entry_type = ELF32_PARISC_SX_TYPE(word);
53 entry_value = ELF32_PARISC_SX_VAL(word);
54 word = ELF32_PARISC_SX_WORD(type,val); */
56 #define ELF32_PARISC_SX_TYPE(p) ((p) >> 24)
57 #define ELF32_PARISC_SX_VAL(p) ((p) & 0xFFFFFF)
58 #define ELF32_PARISC_SX_WORD(type,val) (((type) << 24) + (val & 0xFFFFFF))
60 /* The following was added facilitate implementation of the .hppa_symextn
61 section. This section is built after the symbol table is built in the
62 elf_write_object_contents routine (called from bfd_close). It is built
63 so late because it requires information that is not known until
64 the symbol and string table sections have been allocated, and
65 the symbol table has been built. */
67 #define SYMEXTN_SECTION_NAME ".PARISC.symext"
72 struct symext_chain
*next
;
75 typedef struct symext_chain symext_chainS
;
77 /* We use three different hash tables to hold information for
78 linking PA ELF objects.
80 The first is the elf32_hppa_link_hash_table which is derived
81 from the standard ELF linker hash table. We use this as a place to
82 attach other hash tables and static information.
84 The second is the stub hash table which is derived from the
85 base BFD hash table. The stub hash table holds the information
86 necessary to build the linker stubs during a link.
88 The last hash table keeps track of argument location information needed
89 to build hash tables. Each function with nonzero argument location
90 bits will have an entry in this table. */
92 /* Hash table for linker stubs. */
94 struct elf32_hppa_stub_hash_entry
96 /* Base hash table entry structure, we can get the name of the stub
97 (and thus know exactly what actions it performs) from the base
99 struct bfd_hash_entry root
;
101 /* Offset of the beginning of this stub. */
104 /* Given the symbol's value and its section we can determine its final
105 value when building the stubs (so the stub knows where to jump. */
106 symvalue target_value
;
107 asection
*target_section
;
110 struct elf32_hppa_stub_hash_table
112 /* The hash table itself. */
113 struct bfd_hash_table root
;
118 /* Where to place the next stub. */
121 /* Current offset in the stub section. */
126 /* Hash table for argument location information. */
128 struct elf32_hppa_args_hash_entry
130 /* Base hash table entry structure. */
131 struct bfd_hash_entry root
;
133 /* The argument location bits for this entry. */
137 struct elf32_hppa_args_hash_table
139 /* The hash table itself. */
140 struct bfd_hash_table root
;
143 struct elf32_hppa_link_hash_entry
145 struct elf_link_hash_entry root
;
148 struct elf32_hppa_link_hash_table
150 /* The main hash table. */
151 struct elf_link_hash_table root
;
153 /* The stub hash table. */
154 struct elf32_hppa_stub_hash_table
*stub_hash_table
;
156 /* The argument relocation bits hash table. */
157 struct elf32_hppa_args_hash_table
*args_hash_table
;
159 /* A count of the number of output symbols. */
160 unsigned int output_symbol_count
;
162 /* Stuff so we can handle DP relative relocations. */
164 int global_sym_defined
;
169 #define RETURN_VALUE 1
171 /* The various argument relocations that may be performed. */
176 /* Relocate 32 bits from GR to FP register. */
178 /* Relocate 64 bits from a GR pair to FP pair. */
180 /* Relocate 32 bits from FP to GR. */
182 /* Relocate 64 bits from FP pair to GR pair. */
186 /* What is being relocated (eg which argument or the return value). */
189 ARG0
, ARG1
, ARG2
, ARG3
, RET
,
190 } arg_reloc_location
;
193 /* ELF32/HPPA relocation support
195 This file contains ELF32/HPPA relocation support as specified
196 in the Stratus FTX/Golf Object File Format (SED-1762) dated
199 #include "elf32-hppa.h"
200 #include "hppa_stubs.h"
202 static bfd_reloc_status_type hppa_elf_reloc
203 PARAMS ((bfd
*, arelent
*, asymbol
*, PTR
, asection
*, bfd
*, char **));
205 static unsigned long hppa_elf_relocate_insn
206 PARAMS ((bfd
*, asection
*, unsigned long, unsigned long, long,
207 long, unsigned long, unsigned long, unsigned long));
209 static bfd_reloc_status_type hppa_elf_reloc
210 PARAMS ((bfd
*, arelent
*, asymbol
*, PTR
, asection
*, bfd
*, char **));
212 static CONST reloc_howto_type
* elf_hppa_reloc_type_lookup
213 PARAMS ((bfd
*, bfd_reloc_code_real_type
));
215 static boolean elf32_hppa_set_section_contents
216 PARAMS ((bfd
*, sec_ptr
, PTR
, file_ptr
, bfd_size_type
));
218 static void elf_info_to_howto
219 PARAMS ((bfd
*, arelent
*, Elf32_Internal_Rela
*));
221 static boolean elf32_hppa_backend_symbol_table_processing
222 PARAMS ((bfd
*, elf_symbol_type
*, int));
224 static void elf32_hppa_backend_begin_write_processing
225 PARAMS ((bfd
*, struct bfd_link_info
*));
227 static void elf32_hppa_backend_final_write_processing
228 PARAMS ((bfd
*, boolean
));
230 static void add_entry_to_symext_chain
231 PARAMS ((bfd
*, unsigned int, unsigned int, symext_chainS
**,
235 elf_hppa_tc_make_sections
PARAMS ((bfd
*, symext_chainS
*));
237 static boolean hppa_elf_is_local_label
PARAMS ((bfd
*, asymbol
*));
239 static boolean elf32_hppa_add_symbol_hook
240 PARAMS ((bfd
*, struct bfd_link_info
*, const Elf_Internal_Sym
*,
241 const char **, flagword
*, asection
**, bfd_vma
*));
243 static bfd_reloc_status_type elf32_hppa_bfd_final_link_relocate
244 PARAMS ((const reloc_howto_type
*, bfd
*, bfd
*, asection
*,
245 bfd_byte
*, bfd_vma
, bfd_vma
, bfd_vma
, struct bfd_link_info
*,
246 asection
*, const char *, int));
248 static struct bfd_link_hash_table
*elf32_hppa_link_hash_table_create
251 static struct bfd_hash_entry
*
252 elf32_hppa_stub_hash_newfunc
253 PARAMS ((struct bfd_hash_entry
*, struct bfd_hash_table
*, const char *));
255 static struct bfd_hash_entry
*
256 elf32_hppa_args_hash_newfunc
257 PARAMS ((struct bfd_hash_entry
*, struct bfd_hash_table
*, const char *));
260 elf32_hppa_relocate_section
261 PARAMS ((bfd
*, struct bfd_link_info
*, bfd
*, asection
*,
262 bfd_byte
*, Elf_Internal_Rela
*, Elf_Internal_Sym
*, asection
**));
265 elf32_hppa_stub_hash_table_init
266 PARAMS ((struct elf32_hppa_stub_hash_table
*, bfd
*,
267 struct bfd_hash_entry
*(*) PARAMS ((struct bfd_hash_entry
*,
268 struct bfd_hash_table
*,
272 elf32_hppa_build_one_stub
PARAMS ((struct bfd_hash_entry
*, PTR
));
275 elf32_hppa_read_symext_info
276 PARAMS ((bfd
*, Elf_Internal_Shdr
*, struct elf32_hppa_args_hash_table
*,
277 Elf_Internal_Sym
*, boolean
, boolean
));
279 static unsigned int elf32_hppa_size_of_stub
280 PARAMS ((unsigned int, unsigned int, bfd_vma
, bfd_vma
, const char *));
282 static boolean elf32_hppa_arg_reloc_needed
283 PARAMS ((unsigned int, unsigned int, arg_reloc_type
[]));
285 static void elf32_hppa_name_of_stub
286 PARAMS ((unsigned int, unsigned int, bfd_vma
, bfd_vma
, char *));
288 static boolean elf32_hppa_size_symext
PARAMS ((struct bfd_hash_entry
*, PTR
));
290 static boolean elf32_hppa_link_output_symbol_hook
291 PARAMS ((bfd
*, struct bfd_link_info
*, const char *,
292 Elf_Internal_Sym
*, asection
*));
294 /* ELF/PA relocation howto entries. */
296 static reloc_howto_type elf_hppa_howto_table
[ELF_HOWTO_TABLE_SIZE
] =
298 {R_PARISC_NONE
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_NONE"},
299 {R_PARISC_DIR32
, 0, 0, 32, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DIR32"},
300 {R_PARISC_DIR21L
, 0, 0, 21, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DIR21L"},
301 {R_PARISC_DIR17R
, 0, 0, 17, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DIR17R"},
302 {R_PARISC_DIR17F
, 0, 0, 17, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DIR17F"},
303 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
304 {R_PARISC_DIR14R
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DIR14R"},
305 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
307 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
308 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
309 {R_PARISC_PCREL21L
, 0, 0, 21, true, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PCREL21L"},
310 {R_PARISC_PCREL17R
, 0, 0, 17, true, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PCREL17R"},
311 {R_PARISC_PCREL17F
, 0, 0, 17, true, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PCREL17F"},
312 {R_PARISC_PCREL17C
, 0, 0, 17, true, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PCREL17C"},
313 {R_PARISC_PCREL14R
, 0, 0, 14, true, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PCREL14R"},
314 {R_PARISC_PCREL14F
, 0, 0, 14, true, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PCREL14F"},
316 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
317 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
318 {R_PARISC_DPREL21L
, 0, 0, 21, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DPREL21L"},
319 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
320 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
321 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
322 {R_PARISC_DPREL14R
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DPREL14R"},
323 {R_PARISC_DPREL14F
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DPREL14F"},
325 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
326 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
327 {R_PARISC_DLTREL21L
, 0, 0, 21, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DLTREL21L"},
328 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
329 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
330 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
331 {R_PARISC_DLTREL14R
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DLTREL14R"},
332 {R_PARISC_DLTREL14F
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DLTREL14F"},
334 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
335 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
336 {R_PARISC_DLTIND21L
, 0, 0, 21, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DLTIND21L"},
337 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
338 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
339 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
340 {R_PARISC_DLTIND14R
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DLTIND14R"},
341 {R_PARISC_DLTIND14F
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_DLTIND14F"},
343 {R_PARISC_SETBASE
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_SETBASE"},
344 {R_PARISC_BASEREL32
, 0, 0, 32, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_BASEREL32"},
345 {R_PARISC_BASEREL21L
, 0, 0, 21, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_BASEREL21L"},
346 {R_PARISC_BASEREL17R
, 0, 0, 17, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_BASEREL17R"},
347 {R_PARISC_BASEREL17F
, 0, 0, 17, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_BASEREL17F"},
348 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
349 {R_PARISC_BASEREL14R
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_BASEREL14R"},
350 {R_PARISC_BASEREL14F
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_BASEREL14F"},
352 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
353 {R_PARISC_TEXTREL32
, 0, 0, 32, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_TEXTREL32"},
354 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
355 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
356 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
357 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
358 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
359 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
361 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
362 {R_PARISC_DATAREL32
, 0, 0, 32, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
363 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
364 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
365 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
366 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
367 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
368 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
371 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
372 {R_PARISC_PLABEL32
, 0, 0, 32, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PLABEL32"},
373 {R_PARISC_PLABEL21L
, 0, 0, 21, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PLABEL21L"},
374 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
375 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
376 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
377 {R_PARISC_PLABEL14R
, 0, 0, 14, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PLABEL14R"},
378 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
380 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
381 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
382 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
383 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
384 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
385 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
386 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
387 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
389 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
390 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
391 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
392 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
393 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
394 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
395 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
396 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
397 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
398 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
399 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
400 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
401 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
402 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
403 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
404 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
406 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
407 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
408 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
409 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
410 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
411 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
412 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
413 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
414 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
415 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
416 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
417 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
418 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
419 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
420 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
421 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
423 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
424 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
425 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
426 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
427 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
428 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
429 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
430 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
431 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
432 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
433 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
434 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
435 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
436 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
437 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
438 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
441 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
442 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
443 {R_PARISC_PLTIND21L
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PLTIND21L"},
444 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
445 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
446 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_UNIMPLEMENTED"},
447 {R_PARISC_PLTIND14R
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PLTIND14R"},
448 {R_PARISC_PLTIND14F
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_PLTIND14F"},
451 {R_PARISC_COPY
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_COPY"},
452 {R_PARISC_GLOB_DAT
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_GLOB_DAT"},
453 {R_PARISC_JMP_SLOT
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_JMP_SLOT"},
454 {R_PARISC_RELATIVE
, 0, 0, 0, false, 0, complain_overflow_bitfield
, hppa_elf_reloc
, "R_PARISC_RELATIVE"},
456 {R_PARISC_UNIMPLEMENTED
, 0, 0, 0, false, 0, complain_overflow_dont
, NULL
, "R_PARISC_UNIMPLEMENTED"},
459 /* Where (what register type) is an argument comming from? */
470 /* Horizontal represents the callee's argument location information,
471 vertical represents caller's argument location information. Value at a
472 particular X,Y location represents what (if any) argument relocation
473 needs to be performed to make caller and callee agree. */
475 static CONST arg_reloc_type arg_mismatches
[6][6] =
477 {NO
, NO
, NO
, NO
, NO
, NO
},
478 {NO
, NO
, GF
, NO
, GD
, NO
},
479 {NO
, FG
, NO
, NO
, NO
, NO
},
480 {NO
, NO
, NO
, NO
, NO
, NO
},
481 {NO
, DG
, NO
, NO
, NO
, NO
},
482 {NO
, DG
, NO
, NO
, NO
, NO
},
485 /* Likewise, but reversed for the return value. */
486 static CONST arg_reloc_type ret_mismatches
[6][6] =
488 {NO
, NO
, NO
, NO
, NO
, NO
},
489 {NO
, NO
, FG
, NO
, DG
, NO
},
490 {NO
, GF
, NO
, NO
, NO
, NO
},
491 {NO
, NO
, NO
, NO
, NO
, NO
},
492 {NO
, GD
, NO
, NO
, NO
, NO
},
493 {NO
, GD
, NO
, NO
, NO
, NO
},
496 /* Misc static crud for symbol extension records. */
497 static symext_chainS
*symext_rootP
;
498 static symext_chainS
*symext_lastP
;
499 static bfd_size_type symext_chain_size
;
501 /* FIXME: We should be able to try this static variable! */
502 static bfd_byte
*symextn_contents
;
505 /* For linker stub hash tables. */
506 #define elf32_hppa_stub_hash_lookup(table, string, create, copy) \
507 ((struct elf32_hppa_stub_hash_entry *) \
508 bfd_hash_lookup (&(table)->root, (string), (create), (copy)))
510 #define elf32_hppa_stub_hash_traverse(table, func, info) \
513 (boolean (*) PARAMS ((struct bfd_hash_entry *, PTR))) (func), \
516 /* For linker args hash tables. */
517 #define elf32_hppa_args_hash_lookup(table, string, create, copy) \
518 ((struct elf32_hppa_args_hash_entry *) \
519 bfd_hash_lookup (&(table)->root, (string), (create), (copy)))
521 #define elf32_hppa_args_hash_traverse(table, func, info) \
524 (boolean (*) PARAMS ((struct bfd_hash_entry *, PTR))) (func), \
527 #define elf32_hppa_args_hash_table_init(table, newfunc) \
528 (bfd_hash_table_init \
530 (struct bfd_hash_entry *(*) PARAMS ((struct bfd_hash_entry *, \
531 struct bfd_hash_table *, \
532 const char *))) (newfunc)))
534 /* For HPPA linker hash table. */
536 #define elf32_hppa_link_hash_lookup(table, string, create, copy, follow)\
537 ((struct elf32_hppa_link_hash_entry *) \
538 elf_link_hash_lookup (&(table)->root, (string), (create), \
541 #define elf32_hppa_link_hash_traverse(table, func, info) \
542 (elf_link_hash_traverse \
544 (boolean (*) PARAMS ((struct elf_link_hash_entry *, PTR))) (func), \
547 /* Get the PA ELF linker hash table from a link_info structure. */
549 #define elf32_hppa_hash_table(p) \
550 ((struct elf32_hppa_link_hash_table *) ((p)->hash))
553 /* Extract specific argument location bits for WHICH from
554 the full argument location in AR. */
555 #define EXTRACT_ARBITS(ar, which) ((ar) >> (8 - ((which) * 2))) & 3
557 /* Assorted hash table functions. */
559 /* Initialize an entry in the stub hash table. */
561 static struct bfd_hash_entry
*
562 elf32_hppa_stub_hash_newfunc (entry
, table
, string
)
563 struct bfd_hash_entry
*entry
;
564 struct bfd_hash_table
*table
;
567 struct elf32_hppa_stub_hash_entry
*ret
;
569 ret
= (struct elf32_hppa_stub_hash_entry
*) entry
;
571 /* Allocate the structure if it has not already been allocated by a
574 ret
= ((struct elf32_hppa_stub_hash_entry
*)
575 bfd_hash_allocate (table
,
576 sizeof (struct elf32_hppa_stub_hash_entry
)));
579 bfd_set_error (bfd_error_no_memory
);
583 /* Call the allocation method of the superclass. */
584 ret
= ((struct elf32_hppa_stub_hash_entry
*)
585 bfd_hash_newfunc ((struct bfd_hash_entry
*) ret
, table
, string
));
589 /* Initialize the local fields. */
591 ret
->target_value
= 0;
592 ret
->target_section
= NULL
;
595 return (struct bfd_hash_entry
*) ret
;
598 /* Initialize a stub hash table. */
601 elf32_hppa_stub_hash_table_init (table
, stub_bfd
, newfunc
)
602 struct elf32_hppa_stub_hash_table
*table
;
604 struct bfd_hash_entry
*(*newfunc
) PARAMS ((struct bfd_hash_entry
*,
605 struct bfd_hash_table
*,
610 table
->stub_bfd
= stub_bfd
;
611 return (bfd_hash_table_init (&table
->root
, newfunc
));
614 /* Initialize an entry in the argument location hash table. */
616 static struct bfd_hash_entry
*
617 elf32_hppa_args_hash_newfunc (entry
, table
, string
)
618 struct bfd_hash_entry
*entry
;
619 struct bfd_hash_table
*table
;
622 struct elf32_hppa_args_hash_entry
*ret
;
624 ret
= (struct elf32_hppa_args_hash_entry
*) entry
;
626 /* Allocate the structure if it has not already been allocated by a
629 ret
= ((struct elf32_hppa_args_hash_entry
*)
630 bfd_hash_allocate (table
,
631 sizeof (struct elf32_hppa_args_hash_entry
)));
634 bfd_set_error (bfd_error_no_memory
);
638 /* Call the allocation method of the superclass. */
639 ret
= ((struct elf32_hppa_args_hash_entry
*)
640 bfd_hash_newfunc ((struct bfd_hash_entry
*) ret
, table
, string
));
642 /* Initialize the local fields. */
646 return (struct bfd_hash_entry
*) ret
;
649 /* Create the derived linker hash table. The PA ELF port uses the derived
650 hash table to keep information specific to the PA ELF linker (without
651 using static variables). */
653 static struct bfd_link_hash_table
*
654 elf32_hppa_link_hash_table_create (abfd
)
657 struct elf32_hppa_link_hash_table
*ret
;
659 ret
= ((struct elf32_hppa_link_hash_table
*)
660 bfd_alloc (abfd
, sizeof (struct elf32_hppa_link_hash_table
)));
663 bfd_set_error (bfd_error_no_memory
);
666 if (!_bfd_elf_link_hash_table_init (&ret
->root
, abfd
,
667 _bfd_elf_link_hash_newfunc
))
669 bfd_release (abfd
, ret
);
672 ret
->stub_hash_table
= NULL
;
673 ret
->args_hash_table
= NULL
;
674 ret
->output_symbol_count
= 0;
675 ret
->global_value
= 0;
676 ret
->global_sym_defined
= 0;
678 return &ret
->root
.root
;
681 /* Relocate the given INSN given the various input parameters.
683 FIXME: endianness and sizeof (long) issues abound here. */
686 hppa_elf_relocate_insn (abfd
, input_sect
, insn
, address
, sym_value
,
687 r_addend
, r_format
, r_field
, pcrel
)
689 asection
*input_sect
;
691 unsigned long address
;
694 unsigned long r_format
;
695 unsigned long r_field
;
698 unsigned char opcode
= get_opcode (insn
);
718 constant_value
= HPPA_R_CONSTANT (r_addend
);
721 sym_value
-= address
;
723 sym_value
= hppa_field_adjust (sym_value
, constant_value
, r_field
);
724 return hppa_rebuild_insn (abfd
, insn
, sym_value
, r_format
);
729 /* XXX computing constant_value is not needed??? */
730 constant_value
= assemble_17 ((insn
& 0x001f0000) >> 16,
731 (insn
& 0x00001ffc) >> 2,
734 constant_value
= (constant_value
<< 15) >> 15;
738 address
+ input_sect
->output_offset
739 + input_sect
->output_section
->vma
;
740 sym_value
= hppa_field_adjust (sym_value
, -8, r_field
);
743 sym_value
= hppa_field_adjust (sym_value
, constant_value
, r_field
);
745 return hppa_rebuild_insn (abfd
, insn
, sym_value
>> 2, r_format
);
750 constant_value
= HPPA_R_CONSTANT (r_addend
);
753 sym_value
-= address
;
755 return hppa_field_adjust (sym_value
, constant_value
, r_field
);
762 /* Relocate an HPPA ELF section. */
765 elf32_hppa_relocate_section (output_bfd
, info
, input_bfd
, input_section
,
766 contents
, relocs
, local_syms
, local_sections
)
768 struct bfd_link_info
*info
;
770 asection
*input_section
;
772 Elf_Internal_Rela
*relocs
;
773 Elf_Internal_Sym
*local_syms
;
774 asection
**local_sections
;
776 Elf_Internal_Shdr
*symtab_hdr
;
777 Elf_Internal_Rela
*rel
;
778 Elf_Internal_Rela
*relend
;
780 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
783 relend
= relocs
+ input_section
->reloc_count
;
784 for (; rel
< relend
; rel
++)
787 const reloc_howto_type
*howto
;
789 struct elf_link_hash_entry
*h
;
790 Elf_Internal_Sym
*sym
;
793 bfd_reloc_status_type r
;
794 const char *sym_name
;
796 r_type
= ELF32_R_TYPE (rel
->r_info
);
797 if (r_type
< 0 || r_type
>= (int) R_PARISC_UNIMPLEMENTED
)
799 bfd_set_error (bfd_error_bad_value
);
802 howto
= elf_hppa_howto_table
+ r_type
;
804 r_symndx
= ELF32_R_SYM (rel
->r_info
);
806 if (info
->relocateable
)
808 /* This is a relocateable link. We don't have to change
809 anything, unless the reloc is against a section symbol,
810 in which case we have to adjust according to where the
811 section symbol winds up in the output section. */
812 if (r_symndx
< symtab_hdr
->sh_info
)
814 sym
= local_syms
+ r_symndx
;
815 if (ELF_ST_TYPE (sym
->st_info
) == STT_SECTION
)
817 sym_sec
= local_sections
[r_symndx
];
818 rel
->r_addend
+= sym_sec
->output_offset
;
825 /* This is a final link. */
829 if (r_symndx
< symtab_hdr
->sh_info
)
831 sym
= local_syms
+ r_symndx
;
832 sym_sec
= local_sections
[r_symndx
];
833 relocation
= ((ELF_ST_TYPE (sym
->st_info
) == STT_SECTION
835 + sym_sec
->output_offset
836 + sym_sec
->output_section
->vma
);
842 indx
= r_symndx
- symtab_hdr
->sh_info
;
843 h
= elf_sym_hashes (input_bfd
)[indx
];
844 if (h
->root
.type
== bfd_link_hash_defined
)
846 sym_sec
= h
->root
.u
.def
.section
;
847 relocation
= (h
->root
.u
.def
.value
848 + sym_sec
->output_offset
849 + sym_sec
->output_section
->vma
);
851 else if (h
->root
.type
== bfd_link_hash_weak
)
855 if (!((*info
->callbacks
->undefined_symbol
)
856 (info
, h
->root
.root
.string
, input_bfd
,
857 input_section
, rel
->r_offset
)))
864 sym_name
= h
->root
.root
.string
;
867 sym_name
= elf_string_from_elf_section (input_bfd
,
870 if (sym_name
== NULL
)
872 if (*sym_name
== '\0')
873 sym_name
= bfd_section_name (input_bfd
, sym_sec
);
876 /* If args_hash_table is NULL, then we have encountered some
877 kind of link error (ex. undefined symbols). Do not try to
878 apply any relocations, continue the loop so we can notify
879 the user of several errors in a single attempted link. */
880 if (elf32_hppa_hash_table (info
)->args_hash_table
== NULL
)
883 r
= elf32_hppa_bfd_final_link_relocate (howto
, input_bfd
, output_bfd
,
884 input_section
, contents
,
885 rel
->r_offset
, relocation
,
886 rel
->r_addend
, info
, sym_sec
,
887 sym_name
, h
== NULL
);
889 if (r
!= bfd_reloc_ok
)
893 case bfd_reloc_dangerous
:
895 /* We use this return value to indicate that we performed
896 a "dangerous" relocation. This doesn't mean we did
897 the wrong thing, it just means there may be some cleanup
898 that needs to be done here.
900 In particular we had to swap the last call insn and its
901 delay slot. If the delay slot insn needed a relocation,
902 then we'll need to adjust the next relocation entry's
903 offset to account for the fact that the insn moved.
905 This hair wouldn't be necessary if we inserted stubs
906 between procedures and used a "bl" to get to the stub. */
909 Elf_Internal_Rela
*next_rel
= rel
+ 1;
911 if (rel
->r_offset
+ 4 == next_rel
->r_offset
)
912 next_rel
->r_offset
-= 4;
917 case bfd_reloc_outofrange
:
918 case bfd_reloc_overflow
:
920 if (!((*info
->callbacks
->reloc_overflow
)
921 (info
, sym_name
, howto
->name
, (bfd_vma
) 0,
922 input_bfd
, input_section
, rel
->r_offset
)))
933 /* Return one (or more) BFD relocations which implement the base
934 relocation with modifications based on format and field. */
936 elf32_hppa_reloc_type
**
937 hppa_elf_gen_reloc_type (abfd
, base_type
, format
, field
)
939 elf32_hppa_reloc_type base_type
;
943 elf32_hppa_reloc_type
*finaltype
;
944 elf32_hppa_reloc_type
**final_types
;
946 /* Allocate slots for the BFD relocation. */
947 final_types
= (elf32_hppa_reloc_type
**)
948 bfd_alloc_by_size_t (abfd
, sizeof (elf32_hppa_reloc_type
*) * 2);
949 if (final_types
== NULL
)
952 /* Allocate space for the relocation itself. */
953 finaltype
= (elf32_hppa_reloc_type
*)
954 bfd_alloc_by_size_t (abfd
, sizeof (elf32_hppa_reloc_type
));
955 if (finaltype
== NULL
)
958 /* Some reasonable defaults. */
959 final_types
[0] = finaltype
;
960 final_types
[1] = NULL
;
962 #define final_type finaltype[0]
964 final_type
= base_type
;
966 /* Just a tangle of nested switch statements to deal with the braindamage
967 that a different field selector means a completely different relocation
972 case R_HPPA_ABS_CALL
:
980 final_type
= R_PARISC_DIR14R
;
983 final_type
= R_PARISC_DLTREL14R
;
986 final_type
= R_PARISC_DLTREL14F
;
989 final_type
= R_PARISC_PLABEL14R
;
1000 final_type
= R_PARISC_DIR17F
;
1004 final_type
= R_PARISC_DIR17R
;
1016 final_type
= R_PARISC_DIR21L
;
1019 final_type
= R_PARISC_DLTREL21L
;
1022 final_type
= R_PARISC_PLABEL21L
;
1033 final_type
= R_PARISC_DIR32
;
1036 final_type
= R_PARISC_PLABEL32
;
1057 final_type
= R_PARISC_DPREL14R
;
1060 final_type
= R_PARISC_DPREL14F
;
1072 final_type
= R_PARISC_DPREL21L
;
1085 case R_HPPA_PCREL_CALL
:
1093 final_type
= R_PARISC_PCREL14R
;
1096 final_type
= R_PARISC_PCREL14F
;
1108 final_type
= R_PARISC_PCREL17R
;
1111 final_type
= R_PARISC_PCREL17F
;
1123 final_type
= R_PARISC_PCREL21L
;
1144 /* Set the contents of a particular section at a particular location. */
1147 elf32_hppa_set_section_contents (abfd
, section
, location
, offset
, count
)
1152 bfd_size_type count
;
1154 /* Ignore write requests for the symbol extension section until we've
1155 had the chance to rebuild it ourselves. */
1156 if (!strcmp (section
->name
, ".PARISC.symextn") && !symext_chain_size
)
1159 return bfd_elf32_set_section_contents (abfd
, section
, location
,
1163 /* Translate from an elf into field into a howto relocation pointer. */
1166 elf_info_to_howto (abfd
, cache_ptr
, dst
)
1169 Elf32_Internal_Rela
*dst
;
1171 BFD_ASSERT (ELF32_R_TYPE(dst
->r_info
) < (unsigned int) R_PARISC_UNIMPLEMENTED
);
1172 cache_ptr
->howto
= &elf_hppa_howto_table
[ELF32_R_TYPE (dst
->r_info
)];
1176 /* Actually perform a relocation. NOTE this is (mostly) superceeded
1177 by elf32_hppa_bfd_final_link_relocate which is called by the new
1180 static bfd_reloc_status_type
1181 hppa_elf_reloc (abfd
, reloc_entry
, symbol_in
, data
, input_section
, output_bfd
,
1184 arelent
*reloc_entry
;
1187 asection
*input_section
;
1189 char **error_message
;
1191 /* It is no longer valid to call hppa_elf_reloc when creating
1192 a final executable. */
1195 reloc_entry
->address
+= input_section
->output_offset
;
1197 /* Work around lossage in generic elf code to write relocations.
1198 (maps different section symbols into the same symbol index). */
1199 if ((symbol_in
->flags
& BSF_SECTION_SYM
)
1200 && symbol_in
->section
)
1201 reloc_entry
->addend
+= symbol_in
->section
->output_offset
;
1202 return bfd_reloc_ok
;
1206 *error_message
= (char *) "Unsupported call to hppa_elf_reloc";
1207 return bfd_reloc_notsupported
;
1211 /* Actually perform a relocation as part of a final link. This can get
1212 rather hairy when linker stubs are needed. */
1214 static bfd_reloc_status_type
1215 elf32_hppa_bfd_final_link_relocate (howto
, input_bfd
, output_bfd
,
1216 input_section
, contents
, offset
, value
,
1217 addend
, info
, sym_sec
, sym_name
, is_local
)
1218 const reloc_howto_type
*howto
;
1221 asection
*input_section
;
1226 struct bfd_link_info
*info
;
1228 const char *sym_name
;
1232 unsigned long r_type
= howto
->type
;
1233 unsigned long r_format
= howto
->bitsize
;
1234 unsigned long r_field
= e_fsel
;
1235 bfd_byte
*hit_data
= contents
+ offset
+ input_section
->vma
;
1236 boolean r_pcrel
= howto
->pc_relative
;
1238 insn
= bfd_get_32 (input_bfd
, hit_data
);
1240 /* Make sure we have a value for $global$. FIXME isn't this effectively
1241 just like the gp pointer on MIPS? Can we use those routines for this
1243 if (!elf32_hppa_hash_table (info
)->global_sym_defined
)
1245 struct elf_link_hash_entry
*h
;
1248 h
= elf_link_hash_lookup (elf_hash_table (info
), "$global$", false,
1251 /* If there isn't a $global$, then we're in deep trouble. */
1253 return bfd_reloc_notsupported
;
1255 sec
= h
->root
.u
.def
.section
;
1256 elf32_hppa_hash_table (info
)->global_value
= (h
->root
.u
.def
.value
1257 + sec
->output_section
->vma
1258 + sec
->output_offset
);
1259 elf32_hppa_hash_table (info
)->global_sym_defined
= 1;
1267 case R_PARISC_DIR32
:
1268 case R_PARISC_DIR17F
:
1269 case R_PARISC_PCREL17C
:
1271 goto do_basic_type_1
;
1272 case R_PARISC_DIR21L
:
1273 case R_PARISC_PCREL21L
:
1275 goto do_basic_type_1
;
1276 case R_PARISC_DIR17R
:
1277 case R_PARISC_PCREL17R
:
1278 case R_PARISC_DIR14R
:
1279 case R_PARISC_PCREL14R
:
1281 goto do_basic_type_1
;
1283 /* For all the DP relative relocations, we need to examine the symbol's
1284 section. If it's a code section, then "data pointer relative" makes
1285 no sense. In that case we don't adjust the "value", and for 21 bit
1286 addil instructions, we change the source addend register from %dp to
1288 case R_PARISC_DPREL21L
:
1290 if (sym_sec
->flags
& SEC_CODE
)
1291 insn
&= ~0x03e00000;
1293 value
-= elf32_hppa_hash_table (info
)->global_value
;
1294 goto do_basic_type_1
;
1295 case R_PARISC_DPREL14R
:
1297 if ((sym_sec
->flags
& SEC_CODE
) == 0)
1298 value
-= elf32_hppa_hash_table (info
)->global_value
;
1299 goto do_basic_type_1
;
1300 case R_PARISC_DPREL14F
:
1302 if ((sym_sec
->flags
& SEC_CODE
) == 0)
1303 value
-= elf32_hppa_hash_table (info
)->global_value
;
1304 goto do_basic_type_1
;
1306 /* These cases are separate as they may involve a lot more work
1307 to deal with linker stubs. */
1308 case R_PARISC_PLABEL32
:
1309 case R_PARISC_PLABEL21L
:
1310 case R_PARISC_PLABEL14R
:
1311 case R_PARISC_PCREL17F
:
1314 unsigned int len
, caller_args
, callee_args
;
1315 arg_reloc_type arg_reloc_types
[5];
1316 struct elf32_hppa_args_hash_table
*args_hash_table
;
1317 struct elf32_hppa_args_hash_entry
*args_hash
;
1318 char *new_name
, *stub_name
;
1320 /* Get the field selector right. We'll need it in a minute. */
1321 if (r_type
== R_PARISC_PCREL17F
1322 || r_type
== R_PARISC_PLABEL32
)
1324 else if (r_type
== R_PARISC_PLABEL21L
)
1326 else if (r_type
== R_PARISC_PLABEL14R
)
1329 /* Find out where we are and where we're going. */
1330 location
= (offset
+
1331 input_section
->output_offset
+
1332 input_section
->output_section
->vma
);
1334 /* Now look for the argument relocation bits associated with the
1336 len
= strlen (sym_name
) + 1;
1339 new_name
= malloc (len
);
1342 bfd_set_error (bfd_error_no_memory
);
1343 return bfd_reloc_notsupported
;
1345 strcpy (new_name
, sym_name
);
1347 /* Local symbols have unique IDs. */
1349 sprintf (new_name
+ len
- 10, "_%08x", (int)sym_sec
);
1351 args_hash_table
= elf32_hppa_hash_table (info
)->args_hash_table
;
1353 args_hash
= elf32_hppa_args_hash_lookup (args_hash_table
,
1354 new_name
, false, false);
1355 if (args_hash
== NULL
)
1358 callee_args
= args_hash
->arg_bits
;
1360 /* If this is a CALL relocation, then get the caller's bits
1361 from the addend. Else use the magic 0x155 value for PLABELS.
1363 Also we don't care about the destination (value) for PLABELS. */
1364 if (r_type
== R_PARISC_PCREL17F
)
1365 caller_args
= HPPA_R_ARG_RELOC (addend
);
1368 caller_args
= 0x155;
1372 /* Any kind of linker stub needed? */
1373 if (((int)(value
- location
) > 0x3ffff)
1374 || ((int)(value
- location
) < (int)0xfffc0000)
1375 || elf32_hppa_arg_reloc_needed (caller_args
, callee_args
,
1378 struct elf32_hppa_stub_hash_table
*stub_hash_table
;
1379 struct elf32_hppa_stub_hash_entry
*stub_hash
;
1380 asection
*stub_section
;
1382 /* Build a name for the stub. */
1384 len
= strlen (new_name
);
1386 stub_name
= malloc (len
);
1389 bfd_set_error (bfd_error_no_memory
);
1390 return bfd_reloc_notsupported
;
1392 elf32_hppa_name_of_stub (caller_args
, callee_args
,
1393 location
, value
, stub_name
);
1394 strcat (stub_name
, new_name
);
1397 stub_hash_table
= elf32_hppa_hash_table (info
)->stub_hash_table
;
1400 = elf32_hppa_stub_hash_lookup (stub_hash_table
, stub_name
,
1403 /* We're done with that name. */
1406 /* The stub BFD only has one section. */
1407 stub_section
= stub_hash_table
->stub_bfd
->sections
;
1409 if (stub_hash
!= NULL
)
1412 if (r_type
== R_PARISC_PCREL17F
)
1414 unsigned long delay_insn
;
1415 unsigned int opcode
, rtn_reg
, ldo_target_reg
, ldo_src_reg
;
1417 /* We'll need to peek at the next insn. */
1418 delay_insn
= bfd_get_32 (input_bfd
, hit_data
+ 4);
1419 opcode
= get_opcode (delay_insn
);
1421 /* We also need to know the return register for this
1423 rtn_reg
= (insn
& 0x03e00000) >> 21;
1425 ldo_src_reg
= (delay_insn
& 0x03e00000) >> 21;
1426 ldo_target_reg
= (delay_insn
& 0x001f0000) >> 16;
1428 /* Munge up the value and other parameters for
1429 hppa_elf_relocate_insn. */
1431 value
= (stub_hash
->offset
1432 + stub_section
->output_offset
1433 + stub_section
->output_section
->vma
);
1440 /* We need to peek at the delay insn and determine if
1441 we'll need to swap the branch and its delay insn. */
1444 && ldo_target_reg
== rtn_reg
)
1445 || (delay_insn
== 0x08000240))
1447 /* No need to swap the branch and its delay slot, but
1448 we do need to make sure to jump past the return
1449 pointer update in the stub. */
1452 /* If the delay insn does a return pointer adjustment,
1453 then we have to make sure it stays valid. */
1455 && ldo_target_reg
== rtn_reg
)
1457 delay_insn
&= 0xfc00ffff;
1458 delay_insn
|= ((31 << 21) | (31 << 16));
1459 bfd_put_32 (input_bfd
, delay_insn
, hit_data
+ 4);
1461 /* Use a BLE to reach the stub. */
1466 /* Wonderful, we have to swap the call insn and its
1468 bfd_put_32 (input_bfd
, delay_insn
, hit_data
);
1469 /* Use a BLE,n to reach the stub. */
1470 insn
= (BLE_SR4_R0
| 0x2);
1471 bfd_put_32 (input_bfd
, insn
, hit_data
+ 4);
1472 insn
= hppa_elf_relocate_insn (input_bfd
,
1478 /* Update the instruction word. */
1479 bfd_put_32 (input_bfd
, insn
, hit_data
+ 4);
1480 return bfd_reloc_dangerous
;
1485 /* PLABEL stuff is easy. */
1487 value
= (stub_hash
->offset
1488 + stub_section
->output_offset
1489 + stub_section
->output_section
->vma
);
1490 /* We don't need the RP adjustment for PLABELs. */
1492 if (r_type
== R_PARISC_PLABEL32
)
1494 else if (r_type
== R_PARISC_PLABEL21L
)
1496 else if (r_type
== R_PARISC_PLABEL14R
)
1504 return bfd_reloc_notsupported
;
1506 goto do_basic_type_1
;
1510 insn
= hppa_elf_relocate_insn (input_bfd
, input_section
, insn
,
1511 offset
, value
, addend
, r_format
,
1515 /* Something we don't know how to handle. */
1517 return bfd_reloc_notsupported
;
1520 /* Update the instruction word. */
1521 bfd_put_32 (input_bfd
, insn
, hit_data
);
1522 return (bfd_reloc_ok
);
1525 /* Return the address of the howto table entry to perform the CODE
1526 relocation for an ARCH machine. */
1528 static CONST reloc_howto_type
*
1529 elf_hppa_reloc_type_lookup (abfd
, code
)
1531 bfd_reloc_code_real_type code
;
1533 if ((int) code
< (int) R_PARISC_UNIMPLEMENTED
)
1535 BFD_ASSERT ((int) elf_hppa_howto_table
[(int) code
].type
== (int) code
);
1536 return &elf_hppa_howto_table
[(int) code
];
1541 /* Return true if SYM represents a local label symbol. */
1544 hppa_elf_is_local_label (abfd
, sym
)
1548 return (sym
->name
[0] == 'L' && sym
->name
[1] == '$');
1551 /* Do any backend specific processing when beginning to write an object
1552 file. For PA ELF we need to determine the size of the symbol extension
1553 section *before* any other output processing happens. */
1556 elf32_hppa_backend_begin_write_processing (abfd
, info
)
1558 struct bfd_link_info
*info
;
1561 asection
*symextn_sec
;
1563 /* Size up the symbol extension section. */
1564 if ((abfd
->outsymbols
== NULL
1566 || symext_chain_size
!= 0)
1571 /* We were not called from the BFD ELF linker code, so we need
1572 to examine the output BFD's outsymbols.
1574 Note we can not build the symbol extensions now as the symbol
1575 map hasn't been set up. */
1576 for (i
= 0; i
< abfd
->symcount
; i
++)
1578 elf_symbol_type
*symbol
= (elf_symbol_type
*)abfd
->outsymbols
[i
];
1580 /* Only functions ever need an entry in the symbol extension
1582 if (!(symbol
->symbol
.flags
& BSF_FUNCTION
))
1585 /* And only if they specify the locations of their arguments. */
1586 if (symbol
->tc_data
.hppa_arg_reloc
== 0)
1589 /* Yup. This function symbol needs an entry. */
1590 symext_chain_size
+= 2 * ELF32_PARISC_SX_SIZE
;
1593 else if (info
->relocateable
== true)
1595 struct elf32_hppa_args_hash_table
*table
;
1596 table
= elf32_hppa_hash_table (info
)->args_hash_table
;
1598 /* Determine the size of the symbol extension section. */
1599 elf32_hppa_args_hash_traverse (table
,
1600 elf32_hppa_size_symext
,
1601 &symext_chain_size
);
1604 /* Now create the section and set its size. We'll fill in the
1606 symextn_sec
= bfd_get_section_by_name (abfd
, SYMEXTN_SECTION_NAME
);
1607 if (symextn_sec
== NULL
)
1608 symextn_sec
= bfd_make_section (abfd
, SYMEXTN_SECTION_NAME
);
1610 bfd_set_section_flags (abfd
, symextn_sec
,
1611 SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_DATA
);
1612 symextn_sec
->output_section
= symextn_sec
;
1613 symextn_sec
->output_offset
= 0;
1614 bfd_set_section_alignment (abfd
, symextn_sec
, 2);
1615 bfd_set_section_size (abfd
, symextn_sec
, symext_chain_size
);
1618 /* Called for each entry in the args location hash table. For each
1619 entry we bump the size pointer by 2 records (16 bytes). */
1622 elf32_hppa_size_symext (gen_entry
, in_args
)
1623 struct bfd_hash_entry
*gen_entry
;
1626 bfd_size_type
*sizep
= (bfd_size_type
*)in_args
;
1628 *sizep
+= 2 * ELF32_PARISC_SX_SIZE
;
1632 /* Backend routine called by the linker for each output symbol.
1634 For PA ELF we use this opportunity to add an appropriate entry
1635 to the symbol extension chain for function symbols. */
1638 elf32_hppa_link_output_symbol_hook (abfd
, info
, name
, sym
, section
)
1640 struct bfd_link_info
*info
;
1642 Elf_Internal_Sym
*sym
;
1646 unsigned int len
, index
;
1647 struct elf32_hppa_args_hash_table
*args_hash_table
;
1648 struct elf32_hppa_args_hash_entry
*args_hash
;
1650 /* If the args hash table is NULL, then we've encountered an error
1651 of some sorts (for example, an undefined symbol). In that case
1652 we've got nothing else to do.
1654 NOTE: elf_link_output_symbol will abort if we return false here! */
1655 if (elf32_hppa_hash_table (info
)->args_hash_table
== NULL
)
1658 index
= elf32_hppa_hash_table (info
)->output_symbol_count
++;
1660 /* We need to look up this symbol in the args hash table to see if
1661 it has argument relocation bits. */
1662 if (ELF_ST_TYPE (sym
->st_info
) != STT_FUNC
)
1665 /* We know it's a function symbol of some kind. */
1666 len
= strlen (name
) + 1;
1667 if (ELF_ST_BIND (sym
->st_info
) == STB_LOCAL
)
1670 new_name
= malloc (len
);
1671 if (new_name
== NULL
)
1673 bfd_set_error (bfd_error_no_memory
);
1677 strcpy (new_name
, name
);
1678 if (ELF_ST_BIND (sym
->st_info
) == STB_LOCAL
)
1679 sprintf (new_name
+ len
- 10, "_%08x", (int)section
);
1681 /* Now that we have the unique name, we can look it up in the
1683 args_hash_table
= elf32_hppa_hash_table (info
)->args_hash_table
;
1684 args_hash
= elf32_hppa_args_hash_lookup (args_hash_table
, new_name
,
1687 if (args_hash
== NULL
)
1690 /* We know this symbol has arg reloc bits. */
1691 add_entry_to_symext_chain (abfd
, args_hash
->arg_bits
,
1692 index
, &symext_rootP
, &symext_lastP
);
1696 /* Perform any processing needed late in the object file writing process.
1697 For PA ELF we build and set the contents of the symbol extension
1701 elf32_hppa_backend_final_write_processing (abfd
, linker
)
1705 asection
*symextn_sec
;
1708 /* Now build the symbol extension section. */
1709 if (symext_chain_size
== 0)
1714 /* We were not called from the backend linker, so we still need
1715 to build the symbol extension chain.
1717 Look at each symbol, adding the appropriate information to the
1718 symbol extension section list as necessary. */
1719 for (i
= 0; i
< abfd
->symcount
; i
++)
1721 elf_symbol_type
*symbol
= (elf_symbol_type
*) abfd
->outsymbols
[i
];
1723 /* Only functions ever need an entry in the symbol extension
1725 if (!(symbol
->symbol
.flags
& BSF_FUNCTION
))
1728 /* And only if they specify the locations of their arguments. */
1729 if (symbol
->tc_data
.hppa_arg_reloc
== 0)
1732 /* Add this symbol's information to the chain. */
1733 add_entry_to_symext_chain (abfd
, symbol
->tc_data
.hppa_arg_reloc
,
1734 symbol
->symbol
.udata
.i
, &symext_rootP
,
1739 /* Now fill in the contents of the symbol extension section. */
1740 elf_hppa_tc_make_sections (abfd
, symext_rootP
);
1742 /* And attach that as the section's contents. */
1743 symextn_sec
= bfd_get_section_by_name (abfd
, SYMEXTN_SECTION_NAME
);
1744 if (symextn_sec
== (asection
*) 0)
1747 symextn_sec
->contents
= (void *)symextn_contents
;
1749 bfd_set_section_contents (abfd
, symextn_sec
, symextn_sec
->contents
,
1750 symextn_sec
->output_offset
, symextn_sec
->_raw_size
);
1753 /* Update the symbol extention chain to include the symbol pointed to
1754 by SYMBOLP if SYMBOLP is a function symbol. Used internally and by GAS. */
1757 add_entry_to_symext_chain (abfd
, arg_reloc
, sym_idx
, symext_root
, symext_last
)
1759 unsigned int arg_reloc
;
1760 unsigned int sym_idx
;
1761 symext_chainS
**symext_root
;
1762 symext_chainS
**symext_last
;
1764 symext_chainS
*symextP
;
1766 /* Allocate memory and initialize this entry. */
1767 symextP
= (symext_chainS
*) bfd_alloc (abfd
, sizeof (symext_chainS
) * 2);
1770 bfd_set_error (bfd_error_no_memory
);
1771 abort(); /* FIXME */
1774 symextP
[0].entry
= ELF32_PARISC_SX_WORD (PARISC_SXT_SYMNDX
, sym_idx
);
1775 symextP
[0].next
= &symextP
[1];
1777 symextP
[1].entry
= ELF32_PARISC_SX_WORD (PARISC_SXT_ARG_RELOC
, arg_reloc
);
1778 symextP
[1].next
= NULL
;
1780 /* Now update the chain itself so it can be walked later to build
1781 the symbol extension section. */
1782 if (*symext_root
== NULL
)
1784 *symext_root
= &symextP
[0];
1785 *symext_last
= &symextP
[1];
1789 (*symext_last
)->next
= &symextP
[0];
1790 *symext_last
= &symextP
[1];
1794 /* Build the symbol extension section. */
1797 elf_hppa_tc_make_sections (abfd
, symext_root
)
1799 symext_chainS
*symext_root
;
1801 symext_chainS
*symextP
;
1803 asection
*symextn_sec
;
1805 symextn_sec
= bfd_get_section_by_name (abfd
, SYMEXTN_SECTION_NAME
);
1807 /* Grab some memory for the contents of the symbol extension section
1809 symextn_contents
= (bfd_byte
*) bfd_zalloc (abfd
,
1810 symextn_sec
->_raw_size
);
1811 if (!symextn_contents
)
1813 bfd_set_error (bfd_error_no_memory
);
1814 abort(); /* FIXME */
1817 /* Fill in the contents of the symbol extension chain. */
1818 for (i
= 0, symextP
= symext_root
; symextP
; symextP
= symextP
->next
, ++i
)
1819 ELF32_PARISC_SX_PUT (abfd
, (bfd_vma
) symextP
->entry
,
1820 symextn_contents
+ i
* ELF32_PARISC_SX_SIZE
);
1825 /* Do some PA ELF specific work after reading in the symbol table.
1826 In particular attach the argument relocation from the
1827 symbol extension section to the appropriate symbols. */
1830 elf32_hppa_backend_symbol_table_processing (abfd
, esyms
,symcnt
)
1832 elf_symbol_type
*esyms
;
1835 Elf32_Internal_Shdr
*symextn_hdr
=
1836 bfd_elf_find_section (abfd
, SYMEXTN_SECTION_NAME
);
1837 unsigned int i
, current_sym_idx
= 0;
1839 /* If no symbol extension existed, then all symbol extension information
1840 is assumed to be zero. */
1841 if (symextn_hdr
== NULL
)
1843 for (i
= 0; i
< symcnt
; i
++)
1844 esyms
[i
].tc_data
.hppa_arg_reloc
= 0;
1848 /* FIXME: Why not use bfd_get_section_contents here? Also should give
1849 memory back when we're done. */
1850 /* Allocate a buffer of the appropriate size for the symextn section. */
1851 symextn_hdr
->contents
= bfd_zalloc(abfd
,symextn_hdr
->sh_size
);
1852 if (!symextn_hdr
->contents
)
1854 bfd_set_error (bfd_error_no_memory
);
1858 /* Read in the symextn section. */
1859 if (bfd_seek (abfd
, symextn_hdr
->sh_offset
, SEEK_SET
) == -1)
1861 if (bfd_read ((PTR
) symextn_hdr
->contents
, 1, symextn_hdr
->sh_size
, abfd
)
1862 != symextn_hdr
->sh_size
)
1865 /* Parse entries in the symbol extension section, updating the symtab
1867 for (i
= 0; i
< symextn_hdr
->sh_size
/ ELF32_PARISC_SX_SIZE
; i
++)
1870 ELF32_PARISC_SX_GET (abfd
,
1871 (symextn_hdr
->contents
1872 + i
* ELF32_PARISC_SX_SIZE
));
1873 unsigned int se_value
= ELF32_PARISC_SX_VAL (se
);
1874 unsigned int se_type
= ELF32_PARISC_SX_TYPE (se
);
1878 case PARISC_SXT_NULL
:
1881 case PARISC_SXT_SYMNDX
:
1882 if (se_value
>= symcnt
)
1884 bfd_set_error (bfd_error_bad_value
);
1887 current_sym_idx
= se_value
- 1;
1890 case PARISC_SXT_ARG_RELOC
:
1891 esyms
[current_sym_idx
].tc_data
.hppa_arg_reloc
= se_value
;
1895 bfd_set_error (bfd_error_bad_value
);
1902 /* Read and attach the symbol extension information for the symbols
1903 in INPUT_BFD to the argument location hash table. Handle locals
1904 if DO_LOCALS is true; likewise for globals when DO_GLOBALS is true. */
1907 elf32_hppa_read_symext_info (input_bfd
, symtab_hdr
, args_hash_table
,
1908 local_syms
, do_locals
, do_globals
)
1910 Elf_Internal_Shdr
*symtab_hdr
;
1911 struct elf32_hppa_args_hash_table
*args_hash_table
;
1912 Elf_Internal_Sym
*local_syms
;
1916 asection
*symextn_sec
;
1918 unsigned int i
, n_entries
, current_index
= 0;
1920 /* Get the symbol extension section for this BFD. If no section exists
1921 then there's nothing to do. Likewise if the section exists, but
1923 symextn_sec
= bfd_get_section_by_name (input_bfd
, SYMEXTN_SECTION_NAME
);
1924 if (symextn_sec
== NULL
)
1927 /* Done separately so we can turn off SEC_HAS_CONTENTS (see below). */
1928 if (symextn_sec
->_raw_size
== 0)
1930 symextn_sec
->flags
&= ~SEC_HAS_CONTENTS
;
1934 contents
= (bfd_byte
*) malloc (symextn_sec
->_raw_size
);
1935 if (contents
== NULL
)
1937 bfd_set_error (bfd_error_no_memory
);
1941 /* How gross. We turn off SEC_HAS_CONTENTS for the input symbol extension
1942 sections to keep the generic ELF/BFD code from trying to do anything
1943 with them. We have to undo that hack temporarily so that we can read
1944 in the contents with the generic code. */
1945 symextn_sec
->flags
|= SEC_HAS_CONTENTS
;
1946 if (bfd_get_section_contents (input_bfd
, symextn_sec
, contents
,
1947 0, symextn_sec
->_raw_size
) == false)
1949 symextn_sec
->flags
&= ~SEC_HAS_CONTENTS
;
1954 /* Gross. Turn off SEC_HAS_CONTENTS for the input symbol extension
1955 sections (see above). */
1956 symextn_sec
->flags
&= ~SEC_HAS_CONTENTS
;
1958 n_entries
= symextn_sec
->_raw_size
/ ELF32_PARISC_SX_SIZE
;
1959 for (i
= 0; i
< n_entries
; i
++)
1961 symext_entryS entry
=
1962 ELF32_PARISC_SX_GET (input_bfd
, contents
+ i
* ELF32_PARISC_SX_SIZE
);
1963 unsigned int value
= ELF32_PARISC_SX_VAL (entry
);
1964 unsigned int type
= ELF32_PARISC_SX_TYPE (entry
);
1965 struct elf32_hppa_args_hash_entry
*args_hash
;
1969 case PARISC_SXT_NULL
:
1972 case PARISC_SXT_SYMNDX
:
1973 if (value
>= symtab_hdr
->sh_size
/ sizeof (Elf32_External_Sym
))
1975 bfd_set_error (bfd_error_bad_value
);
1979 current_index
= value
;
1982 case PARISC_SXT_ARG_RELOC
:
1983 if (current_index
< symtab_hdr
->sh_info
1986 Elf_Internal_Shdr
*hdr
;
1988 const char *sym_name
;
1992 hdr
= elf_elfsections (input_bfd
)[local_syms
[current_index
].st_shndx
];
1993 sym_sec
= hdr
->bfd_section
;
1994 sym_name
= elf_string_from_elf_section (input_bfd
,
1995 symtab_hdr
->sh_link
,
1996 local_syms
[current_index
].st_name
);
1997 len
= strlen (sym_name
) + 10;
1998 new_name
= malloc (len
);
1999 if (new_name
== NULL
)
2001 bfd_set_error (bfd_error_no_memory
);
2005 strcpy (new_name
, sym_name
);
2006 sprintf (new_name
+ len
- 10, "_%08x", (int)sym_sec
);
2008 /* This is a global symbol with argument location info.
2009 We need to enter it into the hash table. */
2010 args_hash
= elf32_hppa_args_hash_lookup (args_hash_table
,
2014 if (args_hash
== NULL
)
2019 args_hash
->arg_bits
= value
;
2022 else if (current_index
>= symtab_hdr
->sh_info
2025 struct elf_link_hash_entry
*h
;
2027 current_index
-= symtab_hdr
->sh_info
;
2028 h
= elf_sym_hashes(input_bfd
)[current_index
];
2029 /* This is a global symbol with argument location
2030 information. We need to enter it into the hash table. */
2031 args_hash
= elf32_hppa_args_hash_lookup (args_hash_table
,
2032 h
->root
.root
.string
,
2034 if (args_hash
== NULL
)
2036 bfd_set_error (bfd_error_bad_value
);
2040 args_hash
->arg_bits
= value
;
2047 bfd_set_error (bfd_error_bad_value
);
2056 /* Undo the generic ELF code's subtraction of section->vma from the
2057 value of each external symbol. */
2060 elf32_hppa_add_symbol_hook (abfd
, info
, sym
, namep
, flagsp
, secp
, valp
)
2062 struct bfd_link_info
*info
;
2063 const Elf_Internal_Sym
*sym
;
2069 *valp
+= (*secp
)->vma
;
2073 /* Determine the name of the stub needed to perform a call assuming the
2074 argument relocation bits for caller and callee are in CALLER and CALLEE
2075 for a call from LOCATION to DESTINATION. Copy the name into STUB_NAME. */
2078 elf32_hppa_name_of_stub (caller
, callee
, location
, destination
, stub_name
)
2079 unsigned int caller
, callee
;
2080 bfd_vma location
, destination
;
2083 arg_reloc_type arg_reloc_types
[5];
2085 if (elf32_hppa_arg_reloc_needed (caller
, callee
, arg_reloc_types
))
2087 arg_reloc_location i
;
2088 /* Fill in the basic template. */
2089 strcpy (stub_name
, "__XX_XX_XX_XX_XX_stub_");
2091 /* Now fix the specifics. */
2092 for (i
= ARG0
; i
<= RET
; i
++)
2093 switch (arg_reloc_types
[i
])
2096 stub_name
[3 * i
+ 2] = 'N';
2097 stub_name
[3 * i
+ 3] = 'O';
2100 stub_name
[3 * i
+ 2] = 'G';
2101 stub_name
[3 * i
+ 3] = 'F';
2104 stub_name
[3 * i
+ 2] = 'F';
2105 stub_name
[3 * i
+ 3] = 'G';
2108 stub_name
[3 * i
+ 2] = 'G';
2109 stub_name
[3 * i
+ 3] = 'D';
2112 stub_name
[3 * i
+ 2] = 'D';
2113 stub_name
[3 * i
+ 3] = 'G';
2118 strcpy (stub_name
, "_____long_branch_stub_");
2121 /* Determine if an argument relocation stub is needed to perform a
2122 call assuming the argument relocation bits for caller and callee
2123 are in CALLER and CALLEE. Place the type of relocations (if any)
2124 into stub_types_p. */
2127 elf32_hppa_arg_reloc_needed (caller
, callee
, stub_types
)
2128 unsigned int caller
, callee
;
2129 arg_reloc_type stub_types
[5];
2131 /* Special case for no relocations. */
2132 if (caller
== 0 || callee
== 0)
2136 arg_location caller_loc
[5];
2137 arg_location callee_loc
[5];
2139 /* Extract the location information for the argument and return
2140 value on both the caller and callee sides. */
2141 caller_loc
[ARG0
] = EXTRACT_ARBITS (caller
, ARG0
);
2142 callee_loc
[ARG0
] = EXTRACT_ARBITS (callee
, ARG0
);
2143 caller_loc
[ARG1
] = EXTRACT_ARBITS (caller
, ARG1
);
2144 callee_loc
[ARG1
] = EXTRACT_ARBITS (callee
, ARG1
);
2145 caller_loc
[ARG2
] = EXTRACT_ARBITS (caller
, ARG2
);
2146 callee_loc
[ARG2
] = EXTRACT_ARBITS (callee
, ARG2
);
2147 caller_loc
[ARG3
] = EXTRACT_ARBITS (caller
, ARG3
);
2148 callee_loc
[ARG3
] = EXTRACT_ARBITS (callee
, ARG3
);
2149 caller_loc
[RET
] = EXTRACT_ARBITS (caller
, RET
);
2150 callee_loc
[RET
] = EXTRACT_ARBITS (callee
, RET
);
2152 /* Check some special combinations. This is necessary to
2153 deal with double precision FP arguments. */
2154 if (caller_loc
[ARG0
] == AR_FU
|| caller_loc
[ARG1
] == AR_FU
)
2156 caller_loc
[ARG0
] = AR_FPDBL1
;
2157 caller_loc
[ARG1
] = AR_NO
;
2159 if (caller_loc
[ARG2
] == AR_FU
|| caller_loc
[ARG3
] == AR_FU
)
2161 caller_loc
[ARG2
] = AR_FPDBL2
;
2162 caller_loc
[ARG3
] = AR_NO
;
2164 if (callee_loc
[ARG0
] == AR_FU
|| callee_loc
[ARG1
] == AR_FU
)
2166 callee_loc
[ARG0
] = AR_FPDBL1
;
2167 callee_loc
[ARG1
] = AR_NO
;
2169 if (callee_loc
[ARG2
] == AR_FU
|| callee_loc
[ARG3
] == AR_FU
)
2171 callee_loc
[ARG2
] = AR_FPDBL2
;
2172 callee_loc
[ARG3
] = AR_NO
;
2175 /* Now look up any relocation needed for each argument and the
2177 stub_types
[ARG0
] = arg_mismatches
[caller_loc
[ARG0
]][callee_loc
[ARG0
]];
2178 stub_types
[ARG1
] = arg_mismatches
[caller_loc
[ARG1
]][callee_loc
[ARG1
]];
2179 stub_types
[ARG2
] = arg_mismatches
[caller_loc
[ARG2
]][callee_loc
[ARG2
]];
2180 stub_types
[ARG3
] = arg_mismatches
[caller_loc
[ARG3
]][callee_loc
[ARG3
]];
2181 stub_types
[RET
] = ret_mismatches
[caller_loc
[RET
]][callee_loc
[RET
]];
2183 return (stub_types
[ARG0
] != NO
2184 || stub_types
[ARG1
] != NO
2185 || stub_types
[ARG2
] != NO
2186 || stub_types
[ARG3
] != NO
2187 || stub_types
[RET
] != NO
);
2191 /* Compute the size of the stub needed to call from LOCATION to DESTINATION
2192 (a function named SYM_NAME), with argument relocation bits CALLER and
2193 CALLEE. Return zero if no stub is needed to perform such a call. */
2196 elf32_hppa_size_of_stub (callee
, caller
, location
, destination
, sym_name
)
2197 unsigned int callee
, caller
;
2198 bfd_vma location
, destination
;
2199 const char *sym_name
;
2201 arg_reloc_type arg_reloc_types
[5];
2203 /* Determine if a long branch or argument relocation stub is needed.
2204 If an argument relocation stub is needed, the relocation will be
2205 stored into arg_reloc_types. */
2206 if (!(((int)(location
- destination
) > 0x3ffff)
2207 || ((int)(location
- destination
) < (int)0xfffc0000)
2208 || elf32_hppa_arg_reloc_needed (caller
, callee
, arg_reloc_types
)))
2211 /* Some kind of stub is needed. Determine how big it needs to be.
2212 First check for argument relocation stubs as they also handle
2213 long calls. Then check for long calls to millicode and finally
2214 the normal long calls. */
2215 if (arg_reloc_types
[ARG0
] != NO
2216 || arg_reloc_types
[ARG1
] != NO
2217 || arg_reloc_types
[ARG2
] != NO
2218 || arg_reloc_types
[ARG3
] != NO
2219 || arg_reloc_types
[RET
] != NO
)
2221 /* Some kind of argument relocation stub is needed. */
2222 unsigned int len
= 16;
2223 arg_reloc_location i
;
2225 /* Each GR or FG relocation takes 2 insns, each GD or DG
2226 relocation takes 3 insns. Plus 4 more insns for the
2227 RP adjustment, ldil & (be | ble) and copy. */
2228 for (i
= ARG0
; i
<= RET
; i
++)
2229 switch (arg_reloc_types
[i
])
2245 /* Extra instructions are needed if we're relocating a return value. */
2246 if (arg_reloc_types
[RET
] != NO
)
2251 else if (!strncmp ("$$", sym_name
, 2)
2252 && strcmp ("$$dyncall", sym_name
))
2258 /* Build one linker stub as defined by the stub hash table entry GEN_ENTRY.
2259 IN_ARGS contains the stub BFD and link info pointers. */
2262 elf32_hppa_build_one_stub (gen_entry
, in_args
)
2263 struct bfd_hash_entry
*gen_entry
;
2266 void **args
= (void **)in_args
;
2267 bfd
*stub_bfd
= (bfd
*)args
[0];
2268 struct bfd_link_info
*info
= (struct bfd_link_info
*)args
[1];
2269 struct elf32_hppa_stub_hash_entry
*entry
;
2270 struct elf32_hppa_stub_hash_table
*stub_hash_table
;
2273 const char *sym_name
;
2275 /* Initialize pointers to the stub hash table, the particular entry we
2276 are building a stub for, and where (in memory) we should place the stub
2278 entry
= (struct elf32_hppa_stub_hash_entry
*)gen_entry
;
2279 stub_hash_table
= elf32_hppa_hash_table(info
)->stub_hash_table
;
2280 loc
= stub_hash_table
->location
;
2282 /* Make a note of the offset within the stubs for this entry. */
2283 entry
->offset
= stub_hash_table
->offset
;
2285 /* The symbol's name starts at offset 22. */
2286 sym_name
= entry
->root
.string
+ 22;
2288 sym_value
= (entry
->target_value
2289 + entry
->target_section
->output_offset
2290 + entry
->target_section
->output_section
->vma
);
2292 if (strncmp ("_____long_branch_stub_", entry
->root
.string
, 22))
2294 /* This must be an argument or return value relocation stub. */
2296 arg_reloc_location i
;
2297 bfd_byte
*begin_loc
= loc
;
2299 /* First the return pointer adjustment. Depending on exact calling
2300 sequence this instruction may be skipped. */
2301 bfd_put_32 (stub_bfd
, LDO_M4_R31_R31
, loc
);
2304 /* If we are relocating a return value, then we're going to have
2305 to return into the stub. So we have to save off the user's
2306 return pointer into the stack at RP'. */
2307 if (strncmp (entry
->root
.string
+ 14, "NO", 2))
2309 bfd_put_32 (stub_bfd
, STW_R31_M8R30
, loc
);
2313 /* Iterate over the argument relocations, emitting instructions
2314 to move them around as necessary. */
2315 for (i
= ARG0
; i
<= ARG3
; i
++)
2317 if (!strncmp (entry
->root
.string
+ 3 * i
+ 2, "GF", 2))
2319 bfd_put_32 (stub_bfd
, STW_ARG_M16R30
| ((26 - i
) << 16), loc
);
2320 bfd_put_32 (stub_bfd
, FLDW_M16R30_FARG
| (4 + i
), loc
+ 4);
2323 else if (!strncmp (entry
->root
.string
+ 3 * i
+ 2, "FG", 2))
2325 bfd_put_32 (stub_bfd
, FSTW_FARG_M16R30
| (4 + i
), loc
);
2326 bfd_put_32 (stub_bfd
, LDW_M16R30_ARG
| ((26 - i
) << 16), loc
+ 4);
2329 else if (!strncmp (entry
->root
.string
+ 3 * i
+ 2, "GD", 2))
2331 bfd_put_32 (stub_bfd
, STW_ARG_M12R30
| ((26 - i
) << 16), loc
);
2332 bfd_put_32 (stub_bfd
, STW_ARG_M16R30
| ((25 - i
) << 16), loc
+ 4);
2333 bfd_put_32 (stub_bfd
, FLDD_M16R30_FARG
| (5 + i
), loc
+ 8);
2336 else if (!strncmp (entry
->root
.string
+ 3 * i
+ 2, "DG", 2))
2338 bfd_put_32 (stub_bfd
, FSTD_FARG_M16R30
| (5 + i
), loc
);
2339 bfd_put_32 (stub_bfd
, LDW_M12R30_ARG
| ((26 - i
) << 16), loc
+ 4);
2340 bfd_put_32 (stub_bfd
, LDW_M16R30_ARG
| ((25 - i
) << 16), loc
+ 8);
2345 /* Load the high bits of the target address into %r1. */
2346 insn
= hppa_rebuild_insn (stub_bfd
, LDIL_R1
,
2347 hppa_field_adjust (sym_value
, 0, e_lrsel
), 21);
2348 bfd_put_32 (stub_bfd
, insn
, loc
);
2351 /* If we are relocating a return value, then we're going to have
2352 to return into the stub, then perform the return value relocation. */
2353 if (strncmp (entry
->root
.string
+ 14, "NO", 2))
2355 /* To return to the stub we "ble" to the target and copy the return
2356 pointer from %r31 into %r2. */
2357 insn
= hppa_rebuild_insn (stub_bfd
,
2359 hppa_field_adjust (sym_value
, 0,
2362 bfd_put_32 (stub_bfd
, insn
, loc
);
2363 bfd_put_32 (stub_bfd
, COPY_R31_R2
, loc
+ 4);
2365 /* Reload the return pointer for our caller from the stack. */
2366 bfd_put_32 (stub_bfd
, LDW_M8R30_R31
, loc
+ 8);
2369 /* Perform the return value relocation. */
2370 if (!strncmp (entry
->root
.string
+ 14, "GF", 2))
2372 bfd_put_32 (stub_bfd
, STW_ARG_M16R30
| (28 << 16), loc
);
2373 bfd_put_32 (stub_bfd
, FLDW_M16R30_FARG
| 4, loc
+ 4);
2376 else if (!strncmp (entry
->root
.string
+ 14, "FG", 2))
2378 bfd_put_32 (stub_bfd
, FSTW_FARG_M16R30
| 4, loc
);
2379 bfd_put_32 (stub_bfd
, LDW_M16R30_ARG
| (28 << 16), loc
+ 4);
2382 else if (!strncmp (entry
->root
.string
+ 2, "GD", 2))
2384 bfd_put_32 (stub_bfd
, STW_ARG_M12R30
| (28 << 16), loc
);
2385 bfd_put_32 (stub_bfd
, STW_ARG_M16R30
| (29 << 16), loc
+ 4);
2386 bfd_put_32 (stub_bfd
, FLDD_M16R30_FARG
| 4, loc
+ 8);
2389 else if (!strncmp (entry
->root
.string
+ 2, "DG", 2))
2391 bfd_put_32 (stub_bfd
, FSTD_FARG_M16R30
| 4, loc
);
2392 bfd_put_32 (stub_bfd
, LDW_M12R30_ARG
| (28 << 16), loc
+ 4);
2393 bfd_put_32 (stub_bfd
, LDW_M16R30_ARG
| (29 << 16), loc
+ 8);
2396 /* Branch back to the user's code now. */
2397 bfd_put_32 (stub_bfd
, BV_N_0_R31
, loc
);
2402 /* No return value relocation, so we can simply "be" to the
2403 target and copy out return pointer into %r2. */
2404 insn
= hppa_rebuild_insn (stub_bfd
, BE_SR4_R1
,
2405 hppa_field_adjust (sym_value
, 0,
2407 bfd_put_32 (stub_bfd
, insn
, loc
);
2408 bfd_put_32 (stub_bfd
, COPY_R31_R2
, loc
+ 4);
2412 /* Update the location and offsets. */
2413 stub_hash_table
->location
+= (loc
- begin_loc
);
2414 stub_hash_table
->offset
+= (loc
- begin_loc
);
2418 /* Create one of two variant long branch stubs. One for $$dyncall and
2419 normal calls, the other for calls to millicode. */
2421 int millicode_call
= 0;
2423 if (!strncmp ("$$", sym_name
, 2) && strcmp ("$$dyncall", sym_name
))
2426 /* First the return pointer adjustment. Depending on exact calling
2427 sequence this instruction may be skipped. */
2428 bfd_put_32 (stub_bfd
, LDO_M4_R31_R31
, loc
);
2430 /* The next two instructions are the long branch itself. A long branch
2431 is formed with "ldil" loading the upper bits of the target address
2432 into a register, then branching with "be" which adds in the lower bits.
2433 Long branches to millicode nullify the delay slot of the "be". */
2434 insn
= hppa_rebuild_insn (stub_bfd
, LDIL_R1
,
2435 hppa_field_adjust (sym_value
, 0, e_lrsel
), 21);
2436 bfd_put_32 (stub_bfd
, insn
, loc
+ 4);
2437 insn
= hppa_rebuild_insn (stub_bfd
, BE_SR4_R1
| (millicode_call
? 2 : 0),
2438 hppa_field_adjust (sym_value
, 0, e_rrsel
) >> 2,
2440 bfd_put_32 (stub_bfd
, insn
, loc
+ 8);
2442 if (!millicode_call
)
2444 /* The sequence to call this stub places the return pointer into %r31,
2445 the final target expects the return pointer in %r2, so copy the
2446 return pointer into the proper register. */
2447 bfd_put_32 (stub_bfd
, COPY_R31_R2
, loc
+ 12);
2449 /* Update the location and offsets. */
2450 stub_hash_table
->location
+= 16;
2451 stub_hash_table
->offset
+= 16;
2455 /* Update the location and offsets. */
2456 stub_hash_table
->location
+= 12;
2457 stub_hash_table
->offset
+= 12;
2464 /* External entry points for sizing and building linker stubs. */
2466 /* Build all the stubs associated with the current output file. The
2467 stubs are kept in a hash table attached to the main linker hash
2468 table. This is called via hppaelf_finish in the linker. */
2471 elf32_hppa_build_stubs (stub_bfd
, info
)
2473 struct bfd_link_info
*info
;
2475 /* The stub BFD only has one section. */
2476 asection
*stub_sec
= stub_bfd
->sections
;
2477 struct elf32_hppa_stub_hash_table
*table
;
2481 /* So we can pass both the BFD for the stubs and the link info
2482 structure to the routine which actually builds stubs. */
2486 /* Allocate memory to hold the linker stubs. */
2487 size
= bfd_section_size (stub_bfd
, stub_sec
);
2488 stub_sec
->contents
= (unsigned char *) bfd_zalloc (stub_bfd
, size
);
2489 if (stub_sec
->contents
== NULL
)
2491 bfd_set_error (bfd_error_no_memory
);
2494 table
= elf32_hppa_hash_table(info
)->stub_hash_table
;
2495 table
->location
= stub_sec
->contents
;
2497 /* Build the stubs as directed by the stub hash table. */
2498 elf32_hppa_stub_hash_traverse (table
, elf32_hppa_build_one_stub
, args
);
2503 /* Determine and set the size of the stub section for a final link.
2505 The basic idea here is to examine all the relocations looking for
2506 PC-relative calls to a target that is unreachable with a "bl"
2507 instruction or calls where the caller and callee disagree on the
2508 location of their arguments or return value. */
2511 elf32_hppa_size_stubs (stub_bfd
, output_bfd
, link_info
)
2514 struct bfd_link_info
*link_info
;
2517 asection
*section
, *stub_sec
;
2518 Elf_Internal_Shdr
*symtab_hdr
;
2519 Elf_Internal_Sym
*local_syms
, *isym
;
2520 Elf32_External_Sym
*ext_syms
, *esym
;
2521 struct elf32_hppa_stub_hash_table
*stub_hash_table
= 0;
2522 struct elf32_hppa_args_hash_table
*args_hash_table
= 0;
2524 /* Create and initialize the stub hash table. */
2525 stub_hash_table
= ((struct elf32_hppa_stub_hash_table
*)
2526 malloc (sizeof (struct elf32_hppa_stub_hash_table
)));
2527 if (!stub_hash_table
)
2529 bfd_set_error (bfd_error_no_memory
);
2533 if (!elf32_hppa_stub_hash_table_init (stub_hash_table
, stub_bfd
,
2534 elf32_hppa_stub_hash_newfunc
))
2537 /* Likewise for the argument location hash table. */
2538 args_hash_table
= ((struct elf32_hppa_args_hash_table
*)
2539 malloc (sizeof (struct elf32_hppa_args_hash_table
)));
2540 if (!args_hash_table
)
2542 bfd_set_error (bfd_error_no_memory
);
2546 if (!elf32_hppa_args_hash_table_init (args_hash_table
,
2547 elf32_hppa_args_hash_newfunc
))
2550 /* Attach the hash tables to the main hash table. */
2551 elf32_hppa_hash_table(link_info
)->stub_hash_table
= stub_hash_table
;
2552 elf32_hppa_hash_table(link_info
)->args_hash_table
= args_hash_table
;
2554 /* Walk over all the input BFDs adding entries to the args hash table
2555 for all the external functions. */
2556 for (input_bfd
= link_info
->input_bfds
;
2558 input_bfd
= input_bfd
->link_next
)
2560 /* We'll need the symbol table in a second. */
2561 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
2562 if (symtab_hdr
->sh_info
== 0)
2565 if (elf32_hppa_read_symext_info (input_bfd
, symtab_hdr
, args_hash_table
,
2566 NULL
, false, true) == false)
2570 /* Magic as we know the stub bfd only has one section. */
2571 stub_sec
= stub_bfd
->sections
;
2573 /* Now that we have argument location information for all the global
2574 functions we can start looking for stubs. */
2575 for (input_bfd
= link_info
->input_bfds
;
2577 input_bfd
= input_bfd
->link_next
)
2581 /* We'll need the symbol table in a second. */
2582 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
2583 if (symtab_hdr
->sh_info
== 0)
2586 /* We need an array of the local symbols attached to the input bfd.
2587 Unfortunately, we're going to have to read & swap them in. */
2589 = (Elf_Internal_Sym
*)malloc (symtab_hdr
->sh_info
2590 * sizeof (Elf_Internal_Sym
));
2591 if (local_syms
== NULL
)
2593 bfd_set_error (bfd_error_no_memory
);
2598 = (Elf32_External_Sym
*)malloc (symtab_hdr
->sh_info
2599 * sizeof (Elf32_External_Sym
));
2600 if (ext_syms
== NULL
)
2602 bfd_set_error (bfd_error_no_memory
);
2607 if (bfd_seek (input_bfd
, symtab_hdr
->sh_offset
, SEEK_SET
) != 0
2608 || bfd_read (ext_syms
, 1,
2609 (symtab_hdr
->sh_info
2610 * sizeof (Elf32_External_Sym
)), input_bfd
)
2611 != (symtab_hdr
->sh_info
* sizeof (Elf32_External_Sym
)))
2618 /* Swap the local symbols in. */
2621 for (i
= 0; i
< symtab_hdr
->sh_info
; i
++, esym
++, isym
++)
2622 bfd_elf32_swap_symbol_in (input_bfd
, esym
, isym
);
2624 /* Now we can free the external symbols. */
2627 if (elf32_hppa_read_symext_info (input_bfd
, symtab_hdr
, args_hash_table
,
2628 local_syms
, true, false) == false)
2634 /* If generating a relocateable output file, then we don't
2635 have to examine the relocs. */
2636 if (link_info
->relocateable
)
2642 /* Walk over each section attached to the input bfd. */
2643 for (section
= input_bfd
->sections
;
2645 section
= section
->next
)
2647 Elf_Internal_Shdr
*input_rel_hdr
;
2648 Elf32_External_Rela
*external_relocs
, *erelaend
, *erela
;
2649 Elf_Internal_Rela
*internal_relocs
, *irelaend
, *irela
;
2651 /* If there aren't any relocs, then there's nothing to do. */
2652 if ((section
->flags
& SEC_RELOC
) == 0
2653 || section
->reloc_count
== 0)
2656 /* Allocate space for the external relocations. */
2658 = (Elf32_External_Rela
*) malloc (section
->reloc_count
* sizeof (Elf32_External_Rela
));
2659 if (external_relocs
== NULL
)
2661 bfd_set_error (bfd_error_no_memory
);
2666 /* Likewise for the internal relocations. */
2668 = (Elf_Internal_Rela
*) malloc (section
->reloc_count
* sizeof (Elf_Internal_Rela
));
2669 if (internal_relocs
== NULL
)
2671 bfd_set_error (bfd_error_no_memory
);
2672 free (external_relocs
);
2677 /* Read in the external relocs. */
2678 input_rel_hdr
= &elf_section_data (section
)->rel_hdr
;
2679 if (bfd_seek (input_bfd
, input_rel_hdr
->sh_offset
, SEEK_SET
) != 0
2680 || bfd_read (external_relocs
, 1, input_rel_hdr
->sh_size
,
2681 input_bfd
) != input_rel_hdr
->sh_size
)
2683 free (external_relocs
);
2684 free (internal_relocs
);
2689 /* Swap in the relocs. */
2690 erela
= external_relocs
;
2691 erelaend
= erela
+ section
->reloc_count
;
2692 irela
= internal_relocs
;
2693 for (; erela
< erelaend
; erela
++, irela
++)
2694 bfd_elf32_swap_reloca_in (input_bfd
, erela
, irela
);
2696 /* We're done with the external relocs, free them. */
2697 free (external_relocs
);
2699 /* Now examine each relocation. */
2700 irela
= internal_relocs
;
2701 irelaend
= irela
+ section
->reloc_count
;
2702 for (; irela
< irelaend
; irela
++)
2704 long r_type
, callee_args
, caller_args
, r_index
, size_of_stub
;
2705 struct elf_link_hash_entry
*hash
;
2706 struct elf32_hppa_stub_hash_entry
*stub_hash
;
2707 struct elf32_hppa_args_hash_entry
*args_hash
;
2708 Elf_Internal_Sym
*sym
;
2710 const char *sym_name
;
2712 bfd_vma location
, destination
;
2713 char *new_name
= NULL
;
2715 r_type
= ELF32_R_TYPE (irela
->r_info
);
2716 r_index
= ELF32_R_SYM (irela
->r_info
);
2718 if (r_type
< 0 || r_type
>= (int) R_PARISC_UNIMPLEMENTED
)
2720 bfd_set_error (bfd_error_bad_value
);
2721 free (internal_relocs
);
2726 /* Only look for stubs on call instructions or plabel
2728 if (r_type
!= R_PARISC_PCREL17F
2729 && r_type
!= R_PARISC_PLABEL32
2730 && r_type
!= R_PARISC_PLABEL21L
2731 && r_type
!= R_PARISC_PLABEL14R
)
2734 /* Now determine the call target, its name, value, section
2735 and argument relocation bits. */
2739 if (r_index
< symtab_hdr
->sh_info
)
2741 /* It's a local symbol. */
2742 Elf_Internal_Shdr
*hdr
;
2744 sym
= local_syms
+ r_index
;
2745 hdr
= elf_elfsections (input_bfd
)[sym
->st_shndx
];
2746 sym_sec
= hdr
->bfd_section
;
2747 sym_name
= elf_string_from_elf_section (input_bfd
,
2748 symtab_hdr
->sh_link
,
2750 sym_value
= (ELF_ST_TYPE (sym
->st_info
) == STT_SECTION
2751 ? 0 : sym
->st_value
);
2752 destination
= (sym_value
2753 + sym_sec
->output_offset
2754 + sym_sec
->output_section
->vma
);
2756 /* Tack on an ID so we can uniquely identify this local
2757 symbol in the stub or arg info hash tables. */
2758 new_name
= malloc (strlen (sym_name
) + 10);
2761 bfd_set_error (bfd_error_bad_value
);
2762 free (internal_relocs
);
2766 sprintf (new_name
, "%s_%08x", sym_name
, (int)sym_sec
);
2767 sym_name
= new_name
;
2771 /* It's an external symbol. */
2774 index
= r_index
- symtab_hdr
->sh_info
;
2775 hash
= elf_sym_hashes (input_bfd
)[index
];
2776 if (hash
->root
.type
== bfd_link_hash_defined
)
2778 sym_sec
= hash
->root
.u
.def
.section
;
2779 sym_name
= hash
->root
.root
.string
;
2780 sym_value
= hash
->root
.u
.def
.value
;
2781 destination
= (sym_value
2782 + sym_sec
->output_offset
2783 + sym_sec
->output_section
->vma
);
2787 bfd_set_error (bfd_error_bad_value
);
2788 free (internal_relocs
);
2794 args_hash
= elf32_hppa_args_hash_lookup (args_hash_table
,
2795 sym_name
, false, false);
2797 /* Get both caller and callee argument information. */
2798 if (args_hash
== NULL
)
2801 callee_args
= args_hash
->arg_bits
;
2803 /* For calls get the caller's bits from the addend of
2804 the call relocation. For PLABELS the caller's bits
2805 are assumed to have all args & return values in general
2806 registers (0x155). */
2807 if (r_type
== R_PARISC_PCREL17F
)
2808 caller_args
= HPPA_R_ARG_RELOC (irela
->r_addend
);
2810 caller_args
= 0x155;
2812 /* Now determine where the call point is. */
2813 location
= (section
->output_offset
2814 + section
->output_section
->vma
2817 /* We only care about the destination for PCREL function
2818 calls (eg. we don't care for PLABELS). */
2819 if (r_type
!= R_PARISC_PCREL17F
)
2820 location
= destination
;
2822 /* Determine what (if any) linker stub is needed and its
2824 size_of_stub
= elf32_hppa_size_of_stub (callee_args
,
2829 if (size_of_stub
!= 0)
2834 /* Get the name of this stub. */
2835 len
= strlen (sym_name
);
2838 stub_name
= malloc (len
);
2841 bfd_set_error (bfd_error_no_memory
);
2843 /* Because sym_name was mallocd above for local
2845 if (r_index
< symtab_hdr
->sh_info
)
2848 free (internal_relocs
);
2852 elf32_hppa_name_of_stub (caller_args
, callee_args
,
2853 location
, destination
, stub_name
);
2854 strcat (stub_name
+ 22, sym_name
);
2856 /* Because sym_name was malloced above for local symbols. */
2857 if (r_index
< symtab_hdr
->sh_info
)
2861 = elf32_hppa_stub_hash_lookup (stub_hash_table
, stub_name
,
2863 if (stub_hash
!= NULL
)
2865 /* The proper stub has already been created, nothing
2871 bfd_set_section_size (stub_bfd
, stub_sec
,
2872 (bfd_section_size (stub_bfd
,
2876 /* Enter this entry into the linker stub hash table. */
2878 = elf32_hppa_stub_hash_lookup (stub_hash_table
,
2879 stub_name
, true, true);
2880 if (stub_hash
== NULL
)
2882 bfd_set_error (bfd_error_no_memory
);
2884 free (internal_relocs
);
2889 /* We'll need these to determine the address that the
2890 stub will branch to. */
2891 stub_hash
->target_value
= sym_value
;
2892 stub_hash
->target_section
= sym_sec
;
2897 /* We're done with the internal relocs, free them. */
2898 free (internal_relocs
);
2900 /* We're done with the local symbols, free them. */
2906 /* Return gracefully, avoiding dangling references to the hash tables. */
2907 if (stub_hash_table
)
2909 elf32_hppa_hash_table(link_info
)->stub_hash_table
= NULL
;
2910 free (stub_hash_table
);
2912 if (args_hash_table
)
2914 elf32_hppa_hash_table(link_info
)->args_hash_table
= NULL
;
2915 free (args_hash_table
);
2920 /* Misc BFD support code. */
2921 #define bfd_elf32_bfd_reloc_type_lookup elf_hppa_reloc_type_lookup
2922 #define bfd_elf32_bfd_is_local_label hppa_elf_is_local_label
2924 /* Symbol extension stuff. */
2925 #define bfd_elf32_set_section_contents elf32_hppa_set_section_contents
2926 #define elf_backend_symbol_table_processing \
2927 elf32_hppa_backend_symbol_table_processing
2928 #define elf_backend_begin_write_processing \
2929 elf32_hppa_backend_begin_write_processing
2930 #define elf_backend_final_write_processing \
2931 elf32_hppa_backend_final_write_processing
2933 /* Stuff for the BFD linker. */
2934 #define elf_backend_relocate_section elf32_hppa_relocate_section
2935 #define elf_backend_add_symbol_hook elf32_hppa_add_symbol_hook
2936 #define elf_backend_link_output_symbol_hook \
2937 elf32_hppa_link_output_symbol_hook
2938 #define bfd_elf32_bfd_link_hash_table_create \
2939 elf32_hppa_link_hash_table_create
2941 #define TARGET_BIG_SYM bfd_elf32_hppa_vec
2942 #define TARGET_BIG_NAME "elf32-hppa"
2943 #define ELF_ARCH bfd_arch_hppa
2944 #define ELF_MACHINE_CODE EM_PARISC
2945 #define ELF_MAXPAGESIZE 0x1000
2947 #include "elf32-target.h"