?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2006-08-18 Paul Brook <paul@codesourcery.com>
[binutils.git] / bfd / elf32-arm.c
blob3472da260b90181dde575697005d0d3077de2b0c
1 /* 32-bit ELF support for ARM
2 Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
3 Free Software Foundation, Inc.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
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.
11
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.
16
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. */
20
21 #include "bfd.h"
22 #include "sysdep.h"
23 #include "libiberty.h"
24 #include "libbfd.h"
25 #include "elf-bfd.h"
26 #include "elf-vxworks.h"
27 #include "elf/arm.h"
28
29 #ifndef NUM_ELEM
30 #define NUM_ELEM(a) (sizeof (a) / (sizeof (a)[0]))
31 #endif
32
33 /* Return the relocation section associated with NAME. HTAB is the
34 bfd's elf32_arm_link_hash_entry. */
35 #define RELOC_SECTION(HTAB, NAME) \
36 ((HTAB)->use_rel ? ".rel" NAME : ".rela" NAME)
37
38 /* Return size of a relocation entry. HTAB is the bfd's
39 elf32_arm_link_hash_entry. */
40 #define RELOC_SIZE(HTAB) \
41 ((HTAB)->use_rel \
42 ? sizeof (Elf32_External_Rel) \
43 : sizeof (Elf32_External_Rela))
44
45 /* Return function to swap relocations in. HTAB is the bfd's
46 elf32_arm_link_hash_entry. */
47 #define SWAP_RELOC_IN(HTAB) \
48 ((HTAB)->use_rel \
49 ? bfd_elf32_swap_reloc_in \
50 : bfd_elf32_swap_reloca_in)
51
52 /* Return function to swap relocations out. HTAB is the bfd's
53 elf32_arm_link_hash_entry. */
54 #define SWAP_RELOC_OUT(HTAB) \
55 ((HTAB)->use_rel \
56 ? bfd_elf32_swap_reloc_out \
57 : bfd_elf32_swap_reloca_out)
58
59 #define elf_info_to_howto 0
60 #define elf_info_to_howto_rel elf32_arm_info_to_howto
61
62 #define ARM_ELF_ABI_VERSION 0
63 #define ARM_ELF_OS_ABI_VERSION ELFOSABI_ARM
64
65 static struct elf_backend_data elf32_arm_vxworks_bed;
66
67 /* Note: code such as elf32_arm_reloc_type_lookup expect to use e.g.
68 R_ARM_PC24 as an index into this, and find the R_ARM_PC24 HOWTO
69 in that slot. */
70
71 static reloc_howto_type elf32_arm_howto_table_1[] =
72 {
73 /* No relocation */
74 HOWTO (R_ARM_NONE, /* type */
75 0, /* rightshift */
76 0, /* size (0 = byte, 1 = short, 2 = long) */
77 0, /* bitsize */
78 FALSE, /* pc_relative */
79 0, /* bitpos */
80 complain_overflow_dont,/* complain_on_overflow */
81 bfd_elf_generic_reloc, /* special_function */
82 "R_ARM_NONE", /* name */
83 FALSE, /* partial_inplace */
84 0, /* src_mask */
85 0, /* dst_mask */
86 FALSE), /* pcrel_offset */
87
88 HOWTO (R_ARM_PC24, /* type */
89 2, /* rightshift */
90 2, /* size (0 = byte, 1 = short, 2 = long) */
91 24, /* bitsize */
92 TRUE, /* pc_relative */
93 0, /* bitpos */
94 complain_overflow_signed,/* complain_on_overflow */
95 bfd_elf_generic_reloc, /* special_function */
96 "R_ARM_PC24", /* name */
97 FALSE, /* partial_inplace */
98 0x00ffffff, /* src_mask */
99 0x00ffffff, /* dst_mask */
100 TRUE), /* pcrel_offset */
101
102 /* 32 bit absolute */
103 HOWTO (R_ARM_ABS32, /* type */
104 0, /* rightshift */
105 2, /* size (0 = byte, 1 = short, 2 = long) */
106 32, /* bitsize */
107 FALSE, /* pc_relative */
108 0, /* bitpos */
109 complain_overflow_bitfield,/* complain_on_overflow */
110 bfd_elf_generic_reloc, /* special_function */
111 "R_ARM_ABS32", /* name */
112 FALSE, /* partial_inplace */
113 0xffffffff, /* src_mask */
114 0xffffffff, /* dst_mask */
115 FALSE), /* pcrel_offset */
116
117 /* standard 32bit pc-relative reloc */
118 HOWTO (R_ARM_REL32, /* type */
119 0, /* rightshift */
120 2, /* size (0 = byte, 1 = short, 2 = long) */
121 32, /* bitsize */
122 TRUE, /* pc_relative */
123 0, /* bitpos */
124 complain_overflow_bitfield,/* complain_on_overflow */
125 bfd_elf_generic_reloc, /* special_function */
126 "R_ARM_REL32", /* name */
127 FALSE, /* partial_inplace */
128 0xffffffff, /* src_mask */
129 0xffffffff, /* dst_mask */
130 TRUE), /* pcrel_offset */
131
132 /* 8 bit absolute - R_ARM_LDR_PC_G0 in AAELF */
133 HOWTO (R_ARM_LDR_PC_G0, /* type */
134 0, /* rightshift */
135 0, /* size (0 = byte, 1 = short, 2 = long) */
136 32, /* bitsize */
137 TRUE, /* pc_relative */
138 0, /* bitpos */
139 complain_overflow_dont,/* complain_on_overflow */
140 bfd_elf_generic_reloc, /* special_function */
141 "R_ARM_LDR_PC_G0", /* name */
142 FALSE, /* partial_inplace */
143 0xffffffff, /* src_mask */
144 0xffffffff, /* dst_mask */
145 TRUE), /* pcrel_offset */
146
147 /* 16 bit absolute */
148 HOWTO (R_ARM_ABS16, /* type */
149 0, /* rightshift */
150 1, /* size (0 = byte, 1 = short, 2 = long) */
151 16, /* bitsize */
152 FALSE, /* pc_relative */
153 0, /* bitpos */
154 complain_overflow_bitfield,/* complain_on_overflow */
155 bfd_elf_generic_reloc, /* special_function */
156 "R_ARM_ABS16", /* name */
157 FALSE, /* partial_inplace */
158 0x0000ffff, /* src_mask */
159 0x0000ffff, /* dst_mask */
160 FALSE), /* pcrel_offset */
161
162 /* 12 bit absolute */
163 HOWTO (R_ARM_ABS12, /* type */
164 0, /* rightshift */
165 2, /* size (0 = byte, 1 = short, 2 = long) */
166 12, /* bitsize */
167 FALSE, /* pc_relative */
168 0, /* bitpos */
169 complain_overflow_bitfield,/* complain_on_overflow */
170 bfd_elf_generic_reloc, /* special_function */
171 "R_ARM_ABS12", /* name */
172 FALSE, /* partial_inplace */
173 0x00000fff, /* src_mask */
174 0x00000fff, /* dst_mask */
175 FALSE), /* pcrel_offset */
176
177 HOWTO (R_ARM_THM_ABS5, /* type */
178 6, /* rightshift */
179 1, /* size (0 = byte, 1 = short, 2 = long) */
180 5, /* bitsize */
181 FALSE, /* pc_relative */
182 0, /* bitpos */
183 complain_overflow_bitfield,/* complain_on_overflow */
184 bfd_elf_generic_reloc, /* special_function */
185 "R_ARM_THM_ABS5", /* name */
186 FALSE, /* partial_inplace */
187 0x000007e0, /* src_mask */
188 0x000007e0, /* dst_mask */
189 FALSE), /* pcrel_offset */
190
191 /* 8 bit absolute */
192 HOWTO (R_ARM_ABS8, /* type */
193 0, /* rightshift */
194 0, /* size (0 = byte, 1 = short, 2 = long) */
195 8, /* bitsize */
196 FALSE, /* pc_relative */
197 0, /* bitpos */
198 complain_overflow_bitfield,/* complain_on_overflow */
199 bfd_elf_generic_reloc, /* special_function */
200 "R_ARM_ABS8", /* name */
201 FALSE, /* partial_inplace */
202 0x000000ff, /* src_mask */
203 0x000000ff, /* dst_mask */
204 FALSE), /* pcrel_offset */
205
206 HOWTO (R_ARM_SBREL32, /* type */
207 0, /* rightshift */
208 2, /* size (0 = byte, 1 = short, 2 = long) */
209 32, /* bitsize */
210 FALSE, /* pc_relative */
211 0, /* bitpos */
212 complain_overflow_dont,/* complain_on_overflow */
213 bfd_elf_generic_reloc, /* special_function */
214 "R_ARM_SBREL32", /* name */
215 FALSE, /* partial_inplace */
216 0xffffffff, /* src_mask */
217 0xffffffff, /* dst_mask */
218 FALSE), /* pcrel_offset */
219
220 /* FIXME: Has two more bits of offset in Thumb32. */
221 HOWTO (R_ARM_THM_CALL, /* type */
222 1, /* rightshift */
223 2, /* size (0 = byte, 1 = short, 2 = long) */
224 23, /* bitsize */
225 TRUE, /* pc_relative */
226 0, /* bitpos */
227 complain_overflow_signed,/* complain_on_overflow */
228 bfd_elf_generic_reloc, /* special_function */
229 "R_ARM_THM_CALL", /* name */
230 FALSE, /* partial_inplace */
231 0x07ff07ff, /* src_mask */
232 0x07ff07ff, /* dst_mask */
233 TRUE), /* pcrel_offset */
234
235 HOWTO (R_ARM_THM_PC8, /* type */
236 1, /* rightshift */
237 1, /* size (0 = byte, 1 = short, 2 = long) */
238 8, /* bitsize */
239 TRUE, /* pc_relative */
240 0, /* bitpos */
241 complain_overflow_signed,/* complain_on_overflow */
242 bfd_elf_generic_reloc, /* special_function */
243 "R_ARM_THM_PC8", /* name */
244 FALSE, /* partial_inplace */
245 0x000000ff, /* src_mask */
246 0x000000ff, /* dst_mask */
247 TRUE), /* pcrel_offset */
248
249 HOWTO (R_ARM_BREL_ADJ, /* type */
250 1, /* rightshift */
251 1, /* size (0 = byte, 1 = short, 2 = long) */
252 32, /* bitsize */
253 FALSE, /* pc_relative */
254 0, /* bitpos */
255 complain_overflow_signed,/* complain_on_overflow */
256 bfd_elf_generic_reloc, /* special_function */
257 "R_ARM_BREL_ADJ", /* name */
258 FALSE, /* partial_inplace */
259 0xffffffff, /* src_mask */
260 0xffffffff, /* dst_mask */
261 FALSE), /* pcrel_offset */
262
263 HOWTO (R_ARM_SWI24, /* type */
264 0, /* rightshift */
265 0, /* size (0 = byte, 1 = short, 2 = long) */
266 0, /* bitsize */
267 FALSE, /* pc_relative */
268 0, /* bitpos */
269 complain_overflow_signed,/* complain_on_overflow */
270 bfd_elf_generic_reloc, /* special_function */
271 "R_ARM_SWI24", /* name */
272 FALSE, /* partial_inplace */
273 0x00000000, /* src_mask */
274 0x00000000, /* dst_mask */
275 FALSE), /* pcrel_offset */
276
277 HOWTO (R_ARM_THM_SWI8, /* type */
278 0, /* rightshift */
279 0, /* size (0 = byte, 1 = short, 2 = long) */
280 0, /* bitsize */
281 FALSE, /* pc_relative */
282 0, /* bitpos */
283 complain_overflow_signed,/* complain_on_overflow */
284 bfd_elf_generic_reloc, /* special_function */
285 "R_ARM_SWI8", /* name */
286 FALSE, /* partial_inplace */
287 0x00000000, /* src_mask */
288 0x00000000, /* dst_mask */
289 FALSE), /* pcrel_offset */
290
291 /* BLX instruction for the ARM. */
292 HOWTO (R_ARM_XPC25, /* type */
293 2, /* rightshift */
294 2, /* size (0 = byte, 1 = short, 2 = long) */
295 25, /* bitsize */
296 TRUE, /* pc_relative */
297 0, /* bitpos */
298 complain_overflow_signed,/* complain_on_overflow */
299 bfd_elf_generic_reloc, /* special_function */
300 "R_ARM_XPC25", /* name */
301 FALSE, /* partial_inplace */
302 0x00ffffff, /* src_mask */
303 0x00ffffff, /* dst_mask */
304 TRUE), /* pcrel_offset */
305
306 /* BLX instruction for the Thumb. */
307 HOWTO (R_ARM_THM_XPC22, /* type */
308 2, /* rightshift */
309 2, /* size (0 = byte, 1 = short, 2 = long) */
310 22, /* bitsize */
311 TRUE, /* pc_relative */
312 0, /* bitpos */
313 complain_overflow_signed,/* complain_on_overflow */
314 bfd_elf_generic_reloc, /* special_function */
315 "R_ARM_THM_XPC22", /* name */
316 FALSE, /* partial_inplace */
317 0x07ff07ff, /* src_mask */
318 0x07ff07ff, /* dst_mask */
319 TRUE), /* pcrel_offset */
320
321 /* Dynamic TLS relocations. */
322
323 HOWTO (R_ARM_TLS_DTPMOD32, /* type */
324 0, /* rightshift */
325 2, /* size (0 = byte, 1 = short, 2 = long) */
326 32, /* bitsize */
327 FALSE, /* pc_relative */
328 0, /* bitpos */
329 complain_overflow_bitfield,/* complain_on_overflow */
330 bfd_elf_generic_reloc, /* special_function */
331 "R_ARM_TLS_DTPMOD32", /* name */
332 TRUE, /* partial_inplace */
333 0xffffffff, /* src_mask */
334 0xffffffff, /* dst_mask */
335 FALSE), /* pcrel_offset */
336
337 HOWTO (R_ARM_TLS_DTPOFF32, /* type */
338 0, /* rightshift */
339 2, /* size (0 = byte, 1 = short, 2 = long) */
340 32, /* bitsize */
341 FALSE, /* pc_relative */
342 0, /* bitpos */
343 complain_overflow_bitfield,/* complain_on_overflow */
344 bfd_elf_generic_reloc, /* special_function */
345 "R_ARM_TLS_DTPOFF32", /* name */
346 TRUE, /* partial_inplace */
347 0xffffffff, /* src_mask */
348 0xffffffff, /* dst_mask */
349 FALSE), /* pcrel_offset */
350
351 HOWTO (R_ARM_TLS_TPOFF32, /* type */
352 0, /* rightshift */
353 2, /* size (0 = byte, 1 = short, 2 = long) */
354 32, /* bitsize */
355 FALSE, /* pc_relative */
356 0, /* bitpos */
357 complain_overflow_bitfield,/* complain_on_overflow */
358 bfd_elf_generic_reloc, /* special_function */
359 "R_ARM_TLS_TPOFF32", /* name */
360 TRUE, /* partial_inplace */
361 0xffffffff, /* src_mask */
362 0xffffffff, /* dst_mask */
363 FALSE), /* pcrel_offset */
364
365 /* Relocs used in ARM Linux */
366
367 HOWTO (R_ARM_COPY, /* type */
368 0, /* rightshift */
369 2, /* size (0 = byte, 1 = short, 2 = long) */
370 32, /* bitsize */
371 FALSE, /* pc_relative */
372 0, /* bitpos */
373 complain_overflow_bitfield,/* complain_on_overflow */
374 bfd_elf_generic_reloc, /* special_function */
375 "R_ARM_COPY", /* name */
376 TRUE, /* partial_inplace */
377 0xffffffff, /* src_mask */
378 0xffffffff, /* dst_mask */
379 FALSE), /* pcrel_offset */
380
381 HOWTO (R_ARM_GLOB_DAT, /* type */
382 0, /* rightshift */
383 2, /* size (0 = byte, 1 = short, 2 = long) */
384 32, /* bitsize */
385 FALSE, /* pc_relative */
386 0, /* bitpos */
387 complain_overflow_bitfield,/* complain_on_overflow */
388 bfd_elf_generic_reloc, /* special_function */
389 "R_ARM_GLOB_DAT", /* name */
390 TRUE, /* partial_inplace */
391 0xffffffff, /* src_mask */
392 0xffffffff, /* dst_mask */
393 FALSE), /* pcrel_offset */
394
395 HOWTO (R_ARM_JUMP_SLOT, /* type */
396 0, /* rightshift */
397 2, /* size (0 = byte, 1 = short, 2 = long) */
398 32, /* bitsize */
399 FALSE, /* pc_relative */
400 0, /* bitpos */
401 complain_overflow_bitfield,/* complain_on_overflow */
402 bfd_elf_generic_reloc, /* special_function */
403 "R_ARM_JUMP_SLOT", /* name */
404 TRUE, /* partial_inplace */
405 0xffffffff, /* src_mask */
406 0xffffffff, /* dst_mask */
407 FALSE), /* pcrel_offset */
408
409 HOWTO (R_ARM_RELATIVE, /* type */
410 0, /* rightshift */
411 2, /* size (0 = byte, 1 = short, 2 = long) */
412 32, /* bitsize */
413 FALSE, /* pc_relative */
414 0, /* bitpos */
415 complain_overflow_bitfield,/* complain_on_overflow */
416 bfd_elf_generic_reloc, /* special_function */
417 "R_ARM_RELATIVE", /* name */
418 TRUE, /* partial_inplace */
419 0xffffffff, /* src_mask */
420 0xffffffff, /* dst_mask */
421 FALSE), /* pcrel_offset */
422
423 HOWTO (R_ARM_GOTOFF32, /* type */
424 0, /* rightshift */
425 2, /* size (0 = byte, 1 = short, 2 = long) */
426 32, /* bitsize */
427 FALSE, /* pc_relative */
428 0, /* bitpos */
429 complain_overflow_bitfield,/* complain_on_overflow */
430 bfd_elf_generic_reloc, /* special_function */
431 "R_ARM_GOTOFF32", /* name */
432 TRUE, /* partial_inplace */
433 0xffffffff, /* src_mask */
434 0xffffffff, /* dst_mask */
435 FALSE), /* pcrel_offset */
436
437 HOWTO (R_ARM_GOTPC, /* type */
438 0, /* rightshift */
439 2, /* size (0 = byte, 1 = short, 2 = long) */
440 32, /* bitsize */
441 TRUE, /* pc_relative */
442 0, /* bitpos */
443 complain_overflow_bitfield,/* complain_on_overflow */
444 bfd_elf_generic_reloc, /* special_function */
445 "R_ARM_GOTPC", /* name */
446 TRUE, /* partial_inplace */
447 0xffffffff, /* src_mask */
448 0xffffffff, /* dst_mask */
449 TRUE), /* pcrel_offset */
450
451 HOWTO (R_ARM_GOT32, /* type */
452 0, /* rightshift */
453 2, /* size (0 = byte, 1 = short, 2 = long) */
454 32, /* bitsize */
455 FALSE, /* pc_relative */
456 0, /* bitpos */
457 complain_overflow_bitfield,/* complain_on_overflow */
458 bfd_elf_generic_reloc, /* special_function */
459 "R_ARM_GOT32", /* name */
460 TRUE, /* partial_inplace */
461 0xffffffff, /* src_mask */
462 0xffffffff, /* dst_mask */
463 FALSE), /* pcrel_offset */
464
465 HOWTO (R_ARM_PLT32, /* type */
466 2, /* rightshift */
467 2, /* size (0 = byte, 1 = short, 2 = long) */
468 24, /* bitsize */
469 TRUE, /* pc_relative */
470 0, /* bitpos */
471 complain_overflow_bitfield,/* complain_on_overflow */
472 bfd_elf_generic_reloc, /* special_function */
473 "R_ARM_PLT32", /* name */
474 FALSE, /* partial_inplace */
475 0x00ffffff, /* src_mask */
476 0x00ffffff, /* dst_mask */
477 TRUE), /* pcrel_offset */
478
479 HOWTO (R_ARM_CALL, /* type */
480 2, /* rightshift */
481 2, /* size (0 = byte, 1 = short, 2 = long) */
482 24, /* bitsize */
483 TRUE, /* pc_relative */
484 0, /* bitpos */
485 complain_overflow_signed,/* complain_on_overflow */
486 bfd_elf_generic_reloc, /* special_function */
487 "R_ARM_CALL", /* name */
488 FALSE, /* partial_inplace */
489 0x00ffffff, /* src_mask */
490 0x00ffffff, /* dst_mask */
491 TRUE), /* pcrel_offset */
492
493 HOWTO (R_ARM_JUMP24, /* type */
494 2, /* rightshift */
495 2, /* size (0 = byte, 1 = short, 2 = long) */
496 24, /* bitsize */
497 TRUE, /* pc_relative */
498 0, /* bitpos */
499 complain_overflow_signed,/* complain_on_overflow */
500 bfd_elf_generic_reloc, /* special_function */
501 "R_ARM_JUMP24", /* name */
502 FALSE, /* partial_inplace */
503 0x00ffffff, /* src_mask */
504 0x00ffffff, /* dst_mask */
505 TRUE), /* pcrel_offset */
506
507 HOWTO (R_ARM_THM_JUMP24, /* type */
508 1, /* rightshift */
509 2, /* size (0 = byte, 1 = short, 2 = long) */
510 24, /* bitsize */
511 TRUE, /* pc_relative */
512 0, /* bitpos */
513 complain_overflow_signed,/* complain_on_overflow */
514 bfd_elf_generic_reloc, /* special_function */
515 "R_ARM_THM_JUMP24", /* name */
516 FALSE, /* partial_inplace */
517 0x07ff2fff, /* src_mask */
518 0x07ff2fff, /* dst_mask */
519 TRUE), /* pcrel_offset */
520
521 HOWTO (R_ARM_BASE_ABS, /* type */
522 0, /* rightshift */
523 2, /* size (0 = byte, 1 = short, 2 = long) */
524 32, /* bitsize */
525 FALSE, /* pc_relative */
526 0, /* bitpos */
527 complain_overflow_dont,/* complain_on_overflow */
528 bfd_elf_generic_reloc, /* special_function */
529 "R_ARM_BASE_ABS", /* name */
530 FALSE, /* partial_inplace */
531 0xffffffff, /* src_mask */
532 0xffffffff, /* dst_mask */
533 FALSE), /* pcrel_offset */
534
535 HOWTO (R_ARM_ALU_PCREL7_0, /* type */
536 0, /* rightshift */
537 2, /* size (0 = byte, 1 = short, 2 = long) */
538 12, /* bitsize */
539 TRUE, /* pc_relative */
540 0, /* bitpos */
541 complain_overflow_dont,/* complain_on_overflow */
542 bfd_elf_generic_reloc, /* special_function */
543 "R_ARM_ALU_PCREL_7_0", /* name */
544 FALSE, /* partial_inplace */
545 0x00000fff, /* src_mask */
546 0x00000fff, /* dst_mask */
547 TRUE), /* pcrel_offset */
548
549 HOWTO (R_ARM_ALU_PCREL15_8, /* type */
550 0, /* rightshift */
551 2, /* size (0 = byte, 1 = short, 2 = long) */
552 12, /* bitsize */
553 TRUE, /* pc_relative */
554 8, /* bitpos */
555 complain_overflow_dont,/* complain_on_overflow */
556 bfd_elf_generic_reloc, /* special_function */
557 "R_ARM_ALU_PCREL_15_8",/* name */
558 FALSE, /* partial_inplace */
559 0x00000fff, /* src_mask */
560 0x00000fff, /* dst_mask */
561 TRUE), /* pcrel_offset */
562
563 HOWTO (R_ARM_ALU_PCREL23_15, /* type */
564 0, /* rightshift */
565 2, /* size (0 = byte, 1 = short, 2 = long) */
566 12, /* bitsize */
567 TRUE, /* pc_relative */
568 16, /* bitpos */
569 complain_overflow_dont,/* complain_on_overflow */
570 bfd_elf_generic_reloc, /* special_function */
571 "R_ARM_ALU_PCREL_23_15",/* name */
572 FALSE, /* partial_inplace */
573 0x00000fff, /* src_mask */
574 0x00000fff, /* dst_mask */
575 TRUE), /* pcrel_offset */
576
577 HOWTO (R_ARM_LDR_SBREL_11_0, /* type */
578 0, /* rightshift */
579 2, /* size (0 = byte, 1 = short, 2 = long) */
580 12, /* bitsize */
581 FALSE, /* pc_relative */
582 0, /* bitpos */
583 complain_overflow_dont,/* complain_on_overflow */
584 bfd_elf_generic_reloc, /* special_function */
585 "R_ARM_LDR_SBREL_11_0",/* name */
586 FALSE, /* partial_inplace */
587 0x00000fff, /* src_mask */
588 0x00000fff, /* dst_mask */
589 FALSE), /* pcrel_offset */
590
591 HOWTO (R_ARM_ALU_SBREL_19_12, /* type */
592 0, /* rightshift */
593 2, /* size (0 = byte, 1 = short, 2 = long) */
594 8, /* bitsize */
595 FALSE, /* pc_relative */
596 12, /* bitpos */
597 complain_overflow_dont,/* complain_on_overflow */
598 bfd_elf_generic_reloc, /* special_function */
599 "R_ARM_ALU_SBREL_19_12",/* name */
600 FALSE, /* partial_inplace */
601 0x000ff000, /* src_mask */
602 0x000ff000, /* dst_mask */
603 FALSE), /* pcrel_offset */
604
605 HOWTO (R_ARM_ALU_SBREL_27_20, /* type */
606 0, /* rightshift */
607 2, /* size (0 = byte, 1 = short, 2 = long) */
608 8, /* bitsize */
609 FALSE, /* pc_relative */
610 20, /* bitpos */
611 complain_overflow_dont,/* complain_on_overflow */
612 bfd_elf_generic_reloc, /* special_function */
613 "R_ARM_ALU_SBREL_27_20",/* name */
614 FALSE, /* partial_inplace */
615 0x0ff00000, /* src_mask */
616 0x0ff00000, /* dst_mask */
617 FALSE), /* pcrel_offset */
618
619 HOWTO (R_ARM_TARGET1, /* type */
620 0, /* rightshift */
621 2, /* size (0 = byte, 1 = short, 2 = long) */
622 32, /* bitsize */
623 FALSE, /* pc_relative */
624 0, /* bitpos */
625 complain_overflow_dont,/* complain_on_overflow */
626 bfd_elf_generic_reloc, /* special_function */
627 "R_ARM_TARGET1", /* name */
628 FALSE, /* partial_inplace */
629 0xffffffff, /* src_mask */
630 0xffffffff, /* dst_mask */
631 FALSE), /* pcrel_offset */
632
633 HOWTO (R_ARM_ROSEGREL32, /* type */
634 0, /* rightshift */
635 2, /* size (0 = byte, 1 = short, 2 = long) */
636 32, /* bitsize */
637 FALSE, /* pc_relative */
638 0, /* bitpos */
639 complain_overflow_dont,/* complain_on_overflow */
640 bfd_elf_generic_reloc, /* special_function */
641 "R_ARM_ROSEGREL32", /* name */
642 FALSE, /* partial_inplace */
643 0xffffffff, /* src_mask */
644 0xffffffff, /* dst_mask */
645 FALSE), /* pcrel_offset */
646
647 HOWTO (R_ARM_V4BX, /* type */
648 0, /* rightshift */
649 2, /* size (0 = byte, 1 = short, 2 = long) */
650 32, /* bitsize */
651 FALSE, /* pc_relative */
652 0, /* bitpos */
653 complain_overflow_dont,/* complain_on_overflow */
654 bfd_elf_generic_reloc, /* special_function */
655 "R_ARM_V4BX", /* name */
656 FALSE, /* partial_inplace */
657 0xffffffff, /* src_mask */
658 0xffffffff, /* dst_mask */
659 FALSE), /* pcrel_offset */
660
661 HOWTO (R_ARM_TARGET2, /* type */
662 0, /* rightshift */
663 2, /* size (0 = byte, 1 = short, 2 = long) */
664 32, /* bitsize */
665 FALSE, /* pc_relative */
666 0, /* bitpos */
667 complain_overflow_signed,/* complain_on_overflow */
668 bfd_elf_generic_reloc, /* special_function */
669 "R_ARM_TARGET2", /* name */
670 FALSE, /* partial_inplace */
671 0xffffffff, /* src_mask */
672 0xffffffff, /* dst_mask */
673 TRUE), /* pcrel_offset */
674
675 HOWTO (R_ARM_PREL31, /* type */
676 0, /* rightshift */
677 2, /* size (0 = byte, 1 = short, 2 = long) */
678 31, /* bitsize */
679 TRUE, /* pc_relative */
680 0, /* bitpos */
681 complain_overflow_signed,/* complain_on_overflow */
682 bfd_elf_generic_reloc, /* special_function */
683 "R_ARM_PREL31", /* name */
684 FALSE, /* partial_inplace */
685 0x7fffffff, /* src_mask */
686 0x7fffffff, /* dst_mask */
687 TRUE), /* pcrel_offset */
688
689 HOWTO (R_ARM_MOVW_ABS_NC, /* type */
690 0, /* rightshift */
691 2, /* size (0 = byte, 1 = short, 2 = long) */
692 16, /* bitsize */
693 FALSE, /* pc_relative */
694 0, /* bitpos */
695 complain_overflow_dont,/* complain_on_overflow */
696 bfd_elf_generic_reloc, /* special_function */
697 "R_ARM_MOVW_ABS_NC", /* name */
698 FALSE, /* partial_inplace */
699 0x0000ffff, /* src_mask */
700 0x0000ffff, /* dst_mask */
701 FALSE), /* pcrel_offset */
702
703 HOWTO (R_ARM_MOVT_ABS, /* type */
704 0, /* rightshift */
705 2, /* size (0 = byte, 1 = short, 2 = long) */
706 16, /* bitsize */
707 FALSE, /* pc_relative */
708 0, /* bitpos */
709 complain_overflow_bitfield,/* complain_on_overflow */
710 bfd_elf_generic_reloc, /* special_function */
711 "R_ARM_MOVT_ABS", /* name */
712 FALSE, /* partial_inplace */
713 0x0000ffff, /* src_mask */
714 0x0000ffff, /* dst_mask */
715 FALSE), /* pcrel_offset */
716
717 HOWTO (R_ARM_MOVW_PREL_NC, /* type */
718 0, /* rightshift */
719 2, /* size (0 = byte, 1 = short, 2 = long) */
720 16, /* bitsize */
721 TRUE, /* pc_relative */
722 0, /* bitpos */
723 complain_overflow_dont,/* complain_on_overflow */
724 bfd_elf_generic_reloc, /* special_function */
725 "R_ARM_MOVW_PREL_NC", /* name */
726 FALSE, /* partial_inplace */
727 0x0000ffff, /* src_mask */
728 0x0000ffff, /* dst_mask */
729 TRUE), /* pcrel_offset */
730
731 HOWTO (R_ARM_MOVT_PREL, /* type */
732 0, /* rightshift */
733 2, /* size (0 = byte, 1 = short, 2 = long) */
734 16, /* bitsize */
735 TRUE, /* pc_relative */
736 0, /* bitpos */
737 complain_overflow_bitfield,/* complain_on_overflow */
738 bfd_elf_generic_reloc, /* special_function */
739 "R_ARM_MOVT_PREL", /* name */
740 FALSE, /* partial_inplace */
741 0x0000ffff, /* src_mask */
742 0x0000ffff, /* dst_mask */
743 TRUE), /* pcrel_offset */
744
745 HOWTO (R_ARM_THM_MOVW_ABS_NC, /* type */
746 0, /* rightshift */
747 2, /* size (0 = byte, 1 = short, 2 = long) */
748 16, /* bitsize */
749 FALSE, /* pc_relative */
750 0, /* bitpos */
751 complain_overflow_dont,/* complain_on_overflow */
752 bfd_elf_generic_reloc, /* special_function */
753 "R_ARM_THM_MOVW_ABS_NC",/* name */
754 FALSE, /* partial_inplace */
755 0x040f70ff, /* src_mask */
756 0x040f70ff, /* dst_mask */
757 FALSE), /* pcrel_offset */
758
759 HOWTO (R_ARM_THM_MOVT_ABS, /* type */
760 0, /* rightshift */
761 2, /* size (0 = byte, 1 = short, 2 = long) */
762 16, /* bitsize */
763 FALSE, /* pc_relative */
764 0, /* bitpos */
765 complain_overflow_bitfield,/* complain_on_overflow */
766 bfd_elf_generic_reloc, /* special_function */
767 "R_ARM_THM_MOVT_ABS", /* name */
768 FALSE, /* partial_inplace */
769 0x040f70ff, /* src_mask */
770 0x040f70ff, /* dst_mask */
771 FALSE), /* pcrel_offset */
772
773 HOWTO (R_ARM_THM_MOVW_PREL_NC,/* type */
774 0, /* rightshift */
775 2, /* size (0 = byte, 1 = short, 2 = long) */
776 16, /* bitsize */
777 TRUE, /* pc_relative */
778 0, /* bitpos */
779 complain_overflow_dont,/* complain_on_overflow */
780 bfd_elf_generic_reloc, /* special_function */
781 "R_ARM_THM_MOVW_PREL_NC",/* name */
782 FALSE, /* partial_inplace */
783 0x040f70ff, /* src_mask */
784 0x040f70ff, /* dst_mask */
785 TRUE), /* pcrel_offset */
786
787 HOWTO (R_ARM_THM_MOVT_PREL, /* type */
788 0, /* rightshift */
789 2, /* size (0 = byte, 1 = short, 2 = long) */
790 16, /* bitsize */
791 TRUE, /* pc_relative */
792 0, /* bitpos */
793 complain_overflow_bitfield,/* complain_on_overflow */
794 bfd_elf_generic_reloc, /* special_function */
795 "R_ARM_THM_MOVT_PREL", /* name */
796 FALSE, /* partial_inplace */
797 0x040f70ff, /* src_mask */
798 0x040f70ff, /* dst_mask */
799 TRUE), /* pcrel_offset */
800
801 HOWTO (R_ARM_THM_JUMP19, /* type */
802 1, /* rightshift */
803 2, /* size (0 = byte, 1 = short, 2 = long) */
804 19, /* bitsize */
805 TRUE, /* pc_relative */
806 0, /* bitpos */
807 complain_overflow_signed,/* complain_on_overflow */
808 bfd_elf_generic_reloc, /* special_function */
809 "R_ARM_THM_JUMP19", /* name */
810 FALSE, /* partial_inplace */
811 0x043f2fff, /* src_mask */
812 0x043f2fff, /* dst_mask */
813 TRUE), /* pcrel_offset */
814
815 HOWTO (R_ARM_THM_JUMP6, /* type */
816 1, /* rightshift */
817 1, /* size (0 = byte, 1 = short, 2 = long) */
818 6, /* bitsize */
819 TRUE, /* pc_relative */
820 0, /* bitpos */
821 complain_overflow_unsigned,/* complain_on_overflow */
822 bfd_elf_generic_reloc, /* special_function */
823 "R_ARM_THM_JUMP6", /* name */
824 FALSE, /* partial_inplace */
825 0x02f8, /* src_mask */
826 0x02f8, /* dst_mask */
827 TRUE), /* pcrel_offset */
828
829 /* These are declared as 13-bit signed relocations because we can
830 address -4095 .. 4095(base) by altering ADDW to SUBW or vice
831 versa. */
832 HOWTO (R_ARM_THM_ALU_PREL_11_0,/* type */
833 0, /* rightshift */
834 2, /* size (0 = byte, 1 = short, 2 = long) */
835 13, /* bitsize */
836 TRUE, /* pc_relative */
837 0, /* bitpos */
838 complain_overflow_signed,/* complain_on_overflow */
839 bfd_elf_generic_reloc, /* special_function */
840 "R_ARM_THM_ALU_PREL_11_0",/* name */
841 FALSE, /* partial_inplace */
842 0x040070ff, /* src_mask */
843 0x040070ff, /* dst_mask */
844 TRUE), /* pcrel_offset */
845
846 HOWTO (R_ARM_THM_PC12, /* type */
847 0, /* rightshift */
848 2, /* size (0 = byte, 1 = short, 2 = long) */
849 13, /* bitsize */
850 TRUE, /* pc_relative */
851 0, /* bitpos */
852 complain_overflow_signed,/* complain_on_overflow */
853 bfd_elf_generic_reloc, /* special_function */
854 "R_ARM_THM_PC12", /* name */
855 FALSE, /* partial_inplace */
856 0x040070ff, /* src_mask */
857 0x040070ff, /* dst_mask */
858 TRUE), /* pcrel_offset */
859
860 HOWTO (R_ARM_ABS32_NOI, /* type */
861 0, /* rightshift */
862 2, /* size (0 = byte, 1 = short, 2 = long) */
863 32, /* bitsize */
864 FALSE, /* pc_relative */
865 0, /* bitpos */
866 complain_overflow_dont,/* complain_on_overflow */
867 bfd_elf_generic_reloc, /* special_function */
868 "R_ARM_ABS32_NOI", /* name */
869 FALSE, /* partial_inplace */
870 0xffffffff, /* src_mask */
871 0xffffffff, /* dst_mask */
872 FALSE), /* pcrel_offset */
873
874 HOWTO (R_ARM_REL32_NOI, /* type */
875 0, /* rightshift */
876 2, /* size (0 = byte, 1 = short, 2 = long) */
877 32, /* bitsize */
878 TRUE, /* pc_relative */
879 0, /* bitpos */
880 complain_overflow_dont,/* complain_on_overflow */
881 bfd_elf_generic_reloc, /* special_function */
882 "R_ARM_REL32_NOI", /* name */
883 FALSE, /* partial_inplace */
884 0xffffffff, /* src_mask */
885 0xffffffff, /* dst_mask */
886 FALSE), /* pcrel_offset */
887
888 /* Group relocations. */
889
890 HOWTO (R_ARM_ALU_PC_G0_NC, /* type */
891 0, /* rightshift */
892 2, /* size (0 = byte, 1 = short, 2 = long) */
893 32, /* bitsize */
894 TRUE, /* pc_relative */
895 0, /* bitpos */
896 complain_overflow_dont,/* complain_on_overflow */
897 bfd_elf_generic_reloc, /* special_function */
898 "R_ARM_ALU_PC_G0_NC", /* name */
899 FALSE, /* partial_inplace */
900 0xffffffff, /* src_mask */
901 0xffffffff, /* dst_mask */
902 TRUE), /* pcrel_offset */
903
904 HOWTO (R_ARM_ALU_PC_G0, /* type */
905 0, /* rightshift */
906 2, /* size (0 = byte, 1 = short, 2 = long) */
907 32, /* bitsize */
908 TRUE, /* pc_relative */
909 0, /* bitpos */
910 complain_overflow_dont,/* complain_on_overflow */
911 bfd_elf_generic_reloc, /* special_function */
912 "R_ARM_ALU_PC_G0", /* name */
913 FALSE, /* partial_inplace */
914 0xffffffff, /* src_mask */
915 0xffffffff, /* dst_mask */
916 TRUE), /* pcrel_offset */
917
918 HOWTO (R_ARM_ALU_PC_G1_NC, /* type */
919 0, /* rightshift */
920 2, /* size (0 = byte, 1 = short, 2 = long) */
921 32, /* bitsize */
922 TRUE, /* pc_relative */
923 0, /* bitpos */
924 complain_overflow_dont,/* complain_on_overflow */
925 bfd_elf_generic_reloc, /* special_function */
926 "R_ARM_ALU_PC_G1_NC", /* name */
927 FALSE, /* partial_inplace */
928 0xffffffff, /* src_mask */
929 0xffffffff, /* dst_mask */
930 TRUE), /* pcrel_offset */
931
932 HOWTO (R_ARM_ALU_PC_G1, /* type */
933 0, /* rightshift */
934 2, /* size (0 = byte, 1 = short, 2 = long) */
935 32, /* bitsize */
936 TRUE, /* pc_relative */
937 0, /* bitpos */
938 complain_overflow_dont,/* complain_on_overflow */
939 bfd_elf_generic_reloc, /* special_function */
940 "R_ARM_ALU_PC_G1", /* name */
941 FALSE, /* partial_inplace */
942 0xffffffff, /* src_mask */
943 0xffffffff, /* dst_mask */
944 TRUE), /* pcrel_offset */
945
946 HOWTO (R_ARM_ALU_PC_G2, /* type */
947 0, /* rightshift */
948 2, /* size (0 = byte, 1 = short, 2 = long) */
949 32, /* bitsize */
950 TRUE, /* pc_relative */
951 0, /* bitpos */
952 complain_overflow_dont,/* complain_on_overflow */
953 bfd_elf_generic_reloc, /* special_function */
954 "R_ARM_ALU_PC_G2", /* name */
955 FALSE, /* partial_inplace */
956 0xffffffff, /* src_mask */
957 0xffffffff, /* dst_mask */
958 TRUE), /* pcrel_offset */
959
960 HOWTO (R_ARM_LDR_PC_G1, /* type */
961 0, /* rightshift */
962 2, /* size (0 = byte, 1 = short, 2 = long) */
963 32, /* bitsize */
964 TRUE, /* pc_relative */
965 0, /* bitpos */
966 complain_overflow_dont,/* complain_on_overflow */
967 bfd_elf_generic_reloc, /* special_function */
968 "R_ARM_LDR_PC_G1", /* name */
969 FALSE, /* partial_inplace */
970 0xffffffff, /* src_mask */
971 0xffffffff, /* dst_mask */
972 TRUE), /* pcrel_offset */
973
974 HOWTO (R_ARM_LDR_PC_G2, /* type */
975 0, /* rightshift */
976 2, /* size (0 = byte, 1 = short, 2 = long) */
977 32, /* bitsize */
978 TRUE, /* pc_relative */
979 0, /* bitpos */
980 complain_overflow_dont,/* complain_on_overflow */
981 bfd_elf_generic_reloc, /* special_function */
982 "R_ARM_LDR_PC_G2", /* name */
983 FALSE, /* partial_inplace */
984 0xffffffff, /* src_mask */
985 0xffffffff, /* dst_mask */
986 TRUE), /* pcrel_offset */
987
988 HOWTO (R_ARM_LDRS_PC_G0, /* type */
989 0, /* rightshift */
990 2, /* size (0 = byte, 1 = short, 2 = long) */
991 32, /* bitsize */
992 TRUE, /* pc_relative */
993 0, /* bitpos */
994 complain_overflow_dont,/* complain_on_overflow */
995 bfd_elf_generic_reloc, /* special_function */
996 "R_ARM_LDRS_PC_G0", /* name */
997 FALSE, /* partial_inplace */
998 0xffffffff, /* src_mask */
999 0xffffffff, /* dst_mask */
1000 TRUE), /* pcrel_offset */
1001
1002 HOWTO (R_ARM_LDRS_PC_G1, /* type */
1003 0, /* rightshift */
1004 2, /* size (0 = byte, 1 = short, 2 = long) */
1005 32, /* bitsize */
1006 TRUE, /* pc_relative */
1007 0, /* bitpos */
1008 complain_overflow_dont,/* complain_on_overflow */
1009 bfd_elf_generic_reloc, /* special_function */
1010 "R_ARM_LDRS_PC_G1", /* name */
1011 FALSE, /* partial_inplace */
1012 0xffffffff, /* src_mask */
1013 0xffffffff, /* dst_mask */
1014 TRUE), /* pcrel_offset */
1015
1016 HOWTO (R_ARM_LDRS_PC_G2, /* type */
1017 0, /* rightshift */
1018 2, /* size (0 = byte, 1 = short, 2 = long) */
1019 32, /* bitsize */
1020 TRUE, /* pc_relative */
1021 0, /* bitpos */
1022 complain_overflow_dont,/* complain_on_overflow */
1023 bfd_elf_generic_reloc, /* special_function */
1024 "R_ARM_LDRS_PC_G2", /* name */
1025 FALSE, /* partial_inplace */
1026 0xffffffff, /* src_mask */
1027 0xffffffff, /* dst_mask */
1028 TRUE), /* pcrel_offset */
1029
1030 HOWTO (R_ARM_LDC_PC_G0, /* type */
1031 0, /* rightshift */
1032 2, /* size (0 = byte, 1 = short, 2 = long) */
1033 32, /* bitsize */
1034 TRUE, /* pc_relative */
1035 0, /* bitpos */
1036 complain_overflow_dont,/* complain_on_overflow */
1037 bfd_elf_generic_reloc, /* special_function */
1038 "R_ARM_LDC_PC_G0", /* name */
1039 FALSE, /* partial_inplace */
1040 0xffffffff, /* src_mask */
1041 0xffffffff, /* dst_mask */
1042 TRUE), /* pcrel_offset */
1043
1044 HOWTO (R_ARM_LDC_PC_G1, /* type */
1045 0, /* rightshift */
1046 2, /* size (0 = byte, 1 = short, 2 = long) */
1047 32, /* bitsize */
1048 TRUE, /* pc_relative */
1049 0, /* bitpos */
1050 complain_overflow_dont,/* complain_on_overflow */
1051 bfd_elf_generic_reloc, /* special_function */
1052 "R_ARM_LDC_PC_G1", /* name */
1053 FALSE, /* partial_inplace */
1054 0xffffffff, /* src_mask */
1055 0xffffffff, /* dst_mask */
1056 TRUE), /* pcrel_offset */
1057
1058 HOWTO (R_ARM_LDC_PC_G2, /* type */
1059 0, /* rightshift */
1060 2, /* size (0 = byte, 1 = short, 2 = long) */
1061 32, /* bitsize */
1062 TRUE, /* pc_relative */
1063 0, /* bitpos */
1064 complain_overflow_dont,/* complain_on_overflow */
1065 bfd_elf_generic_reloc, /* special_function */
1066 "R_ARM_LDC_PC_G2", /* name */
1067 FALSE, /* partial_inplace */
1068 0xffffffff, /* src_mask */
1069 0xffffffff, /* dst_mask */
1070 TRUE), /* pcrel_offset */
1071
1072 HOWTO (R_ARM_ALU_SB_G0_NC, /* type */
1073 0, /* rightshift */
1074 2, /* size (0 = byte, 1 = short, 2 = long) */
1075 32, /* bitsize */
1076 TRUE, /* pc_relative */
1077 0, /* bitpos */
1078 complain_overflow_dont,/* complain_on_overflow */
1079 bfd_elf_generic_reloc, /* special_function */
1080 "R_ARM_ALU_SB_G0_NC", /* name */
1081 FALSE, /* partial_inplace */
1082 0xffffffff, /* src_mask */
1083 0xffffffff, /* dst_mask */
1084 TRUE), /* pcrel_offset */
1085
1086 HOWTO (R_ARM_ALU_SB_G0, /* type */
1087 0, /* rightshift */
1088 2, /* size (0 = byte, 1 = short, 2 = long) */
1089 32, /* bitsize */
1090 TRUE, /* pc_relative */
1091 0, /* bitpos */
1092 complain_overflow_dont,/* complain_on_overflow */
1093 bfd_elf_generic_reloc, /* special_function */
1094 "R_ARM_ALU_SB_G0", /* name */
1095 FALSE, /* partial_inplace */
1096 0xffffffff, /* src_mask */
1097 0xffffffff, /* dst_mask */
1098 TRUE), /* pcrel_offset */
1099
1100 HOWTO (R_ARM_ALU_SB_G1_NC, /* type */
1101 0, /* rightshift */
1102 2, /* size (0 = byte, 1 = short, 2 = long) */
1103 32, /* bitsize */
1104 TRUE, /* pc_relative */
1105 0, /* bitpos */
1106 complain_overflow_dont,/* complain_on_overflow */
1107 bfd_elf_generic_reloc, /* special_function */
1108 "R_ARM_ALU_SB_G1_NC", /* name */
1109 FALSE, /* partial_inplace */
1110 0xffffffff, /* src_mask */
1111 0xffffffff, /* dst_mask */
1112 TRUE), /* pcrel_offset */
1113
1114 HOWTO (R_ARM_ALU_SB_G1, /* type */
1115 0, /* rightshift */
1116 2, /* size (0 = byte, 1 = short, 2 = long) */
1117 32, /* bitsize */
1118 TRUE, /* pc_relative */
1119 0, /* bitpos */
1120 complain_overflow_dont,/* complain_on_overflow */
1121 bfd_elf_generic_reloc, /* special_function */
1122 "R_ARM_ALU_SB_G1", /* name */
1123 FALSE, /* partial_inplace */
1124 0xffffffff, /* src_mask */
1125 0xffffffff, /* dst_mask */
1126 TRUE), /* pcrel_offset */
1127
1128 HOWTO (R_ARM_ALU_SB_G2, /* type */
1129 0, /* rightshift */
1130 2, /* size (0 = byte, 1 = short, 2 = long) */
1131 32, /* bitsize */
1132 TRUE, /* pc_relative */
1133 0, /* bitpos */
1134 complain_overflow_dont,/* complain_on_overflow */
1135 bfd_elf_generic_reloc, /* special_function */
1136 "R_ARM_ALU_SB_G2", /* name */
1137 FALSE, /* partial_inplace */
1138 0xffffffff, /* src_mask */
1139 0xffffffff, /* dst_mask */
1140 TRUE), /* pcrel_offset */
1141
1142 HOWTO (R_ARM_LDR_SB_G0, /* type */
1143 0, /* rightshift */
1144 2, /* size (0 = byte, 1 = short, 2 = long) */
1145 32, /* bitsize */
1146 TRUE, /* pc_relative */
1147 0, /* bitpos */
1148 complain_overflow_dont,/* complain_on_overflow */
1149 bfd_elf_generic_reloc, /* special_function */
1150 "R_ARM_LDR_SB_G0", /* name */
1151 FALSE, /* partial_inplace */
1152 0xffffffff, /* src_mask */
1153 0xffffffff, /* dst_mask */
1154 TRUE), /* pcrel_offset */
1155
1156 HOWTO (R_ARM_LDR_SB_G1, /* type */
1157 0, /* rightshift */
1158 2, /* size (0 = byte, 1 = short, 2 = long) */
1159 32, /* bitsize */
1160 TRUE, /* pc_relative */
1161 0, /* bitpos */
1162 complain_overflow_dont,/* complain_on_overflow */
1163 bfd_elf_generic_reloc, /* special_function */
1164 "R_ARM_LDR_SB_G1", /* name */
1165 FALSE, /* partial_inplace */
1166 0xffffffff, /* src_mask */
1167 0xffffffff, /* dst_mask */
1168 TRUE), /* pcrel_offset */
1169
1170 HOWTO (R_ARM_LDR_SB_G2, /* type */
1171 0, /* rightshift */
1172 2, /* size (0 = byte, 1 = short, 2 = long) */
1173 32, /* bitsize */
1174 TRUE, /* pc_relative */
1175 0, /* bitpos */
1176 complain_overflow_dont,/* complain_on_overflow */
1177 bfd_elf_generic_reloc, /* special_function */
1178 "R_ARM_LDR_SB_G2", /* name */
1179 FALSE, /* partial_inplace */
1180 0xffffffff, /* src_mask */
1181 0xffffffff, /* dst_mask */
1182 TRUE), /* pcrel_offset */
1183
1184 HOWTO (R_ARM_LDRS_SB_G0, /* type */
1185 0, /* rightshift */
1186 2, /* size (0 = byte, 1 = short, 2 = long) */
1187 32, /* bitsize */
1188 TRUE, /* pc_relative */
1189 0, /* bitpos */
1190 complain_overflow_dont,/* complain_on_overflow */
1191 bfd_elf_generic_reloc, /* special_function */
1192 "R_ARM_LDRS_SB_G0", /* name */
1193 FALSE, /* partial_inplace */
1194 0xffffffff, /* src_mask */
1195 0xffffffff, /* dst_mask */
1196 TRUE), /* pcrel_offset */
1197
1198 HOWTO (R_ARM_LDRS_SB_G1, /* type */
1199 0, /* rightshift */
1200 2, /* size (0 = byte, 1 = short, 2 = long) */
1201 32, /* bitsize */
1202 TRUE, /* pc_relative */
1203 0, /* bitpos */
1204 complain_overflow_dont,/* complain_on_overflow */
1205 bfd_elf_generic_reloc, /* special_function */
1206 "R_ARM_LDRS_SB_G1", /* name */
1207 FALSE, /* partial_inplace */
1208 0xffffffff, /* src_mask */
1209 0xffffffff, /* dst_mask */
1210 TRUE), /* pcrel_offset */
1211
1212 HOWTO (R_ARM_LDRS_SB_G2, /* type */
1213 0, /* rightshift */
1214 2, /* size (0 = byte, 1 = short, 2 = long) */
1215 32, /* bitsize */
1216 TRUE, /* pc_relative */
1217 0, /* bitpos */
1218 complain_overflow_dont,/* complain_on_overflow */
1219 bfd_elf_generic_reloc, /* special_function */
1220 "R_ARM_LDRS_SB_G2", /* name */
1221 FALSE, /* partial_inplace */
1222 0xffffffff, /* src_mask */
1223 0xffffffff, /* dst_mask */
1224 TRUE), /* pcrel_offset */
1225
1226 HOWTO (R_ARM_LDC_SB_G0, /* type */
1227 0, /* rightshift */
1228 2, /* size (0 = byte, 1 = short, 2 = long) */
1229 32, /* bitsize */
1230 TRUE, /* pc_relative */
1231 0, /* bitpos */
1232 complain_overflow_dont,/* complain_on_overflow */
1233 bfd_elf_generic_reloc, /* special_function */
1234 "R_ARM_LDC_SB_G0", /* name */
1235 FALSE, /* partial_inplace */
1236 0xffffffff, /* src_mask */
1237 0xffffffff, /* dst_mask */
1238 TRUE), /* pcrel_offset */
1239
1240 HOWTO (R_ARM_LDC_SB_G1, /* type */
1241 0, /* rightshift */
1242 2, /* size (0 = byte, 1 = short, 2 = long) */
1243 32, /* bitsize */
1244 TRUE, /* pc_relative */
1245 0, /* bitpos */
1246 complain_overflow_dont,/* complain_on_overflow */
1247 bfd_elf_generic_reloc, /* special_function */
1248 "R_ARM_LDC_SB_G1", /* name */
1249 FALSE, /* partial_inplace */
1250 0xffffffff, /* src_mask */
1251 0xffffffff, /* dst_mask */
1252 TRUE), /* pcrel_offset */
1253
1254 HOWTO (R_ARM_LDC_SB_G2, /* type */
1255 0, /* rightshift */
1256 2, /* size (0 = byte, 1 = short, 2 = long) */
1257 32, /* bitsize */
1258 TRUE, /* pc_relative */
1259 0, /* bitpos */
1260 complain_overflow_dont,/* complain_on_overflow */
1261 bfd_elf_generic_reloc, /* special_function */
1262 "R_ARM_LDC_SB_G2", /* name */
1263 FALSE, /* partial_inplace */
1264 0xffffffff, /* src_mask */
1265 0xffffffff, /* dst_mask */
1266 TRUE), /* pcrel_offset */
1267
1268 /* End of group relocations. */
1269
1270 HOWTO (R_ARM_MOVW_BREL_NC, /* type */
1271 0, /* rightshift */
1272 2, /* size (0 = byte, 1 = short, 2 = long) */
1273 16, /* bitsize */
1274 FALSE, /* pc_relative */
1275 0, /* bitpos */
1276 complain_overflow_dont,/* complain_on_overflow */
1277 bfd_elf_generic_reloc, /* special_function */
1278 "R_ARM_MOVW_BREL_NC", /* name */
1279 FALSE, /* partial_inplace */
1280 0x0000ffff, /* src_mask */
1281 0x0000ffff, /* dst_mask */
1282 FALSE), /* pcrel_offset */
1283
1284 HOWTO (R_ARM_MOVT_BREL, /* type */
1285 0, /* rightshift */
1286 2, /* size (0 = byte, 1 = short, 2 = long) */
1287 16, /* bitsize */
1288 FALSE, /* pc_relative */
1289 0, /* bitpos */
1290 complain_overflow_bitfield,/* complain_on_overflow */
1291 bfd_elf_generic_reloc, /* special_function */
1292 "R_ARM_MOVT_BREL", /* name */
1293 FALSE, /* partial_inplace */
1294 0x0000ffff, /* src_mask */
1295 0x0000ffff, /* dst_mask */
1296 FALSE), /* pcrel_offset */
1297
1298 HOWTO (R_ARM_MOVW_BREL, /* type */
1299 0, /* rightshift */
1300 2, /* size (0 = byte, 1 = short, 2 = long) */
1301 16, /* bitsize */
1302 FALSE, /* pc_relative */
1303 0, /* bitpos */
1304 complain_overflow_dont,/* complain_on_overflow */
1305 bfd_elf_generic_reloc, /* special_function */
1306 "R_ARM_MOVW_BREL", /* name */
1307 FALSE, /* partial_inplace */
1308 0x0000ffff, /* src_mask */
1309 0x0000ffff, /* dst_mask */
1310 FALSE), /* pcrel_offset */
1311
1312 HOWTO (R_ARM_THM_MOVW_BREL_NC,/* type */
1313 0, /* rightshift */
1314 2, /* size (0 = byte, 1 = short, 2 = long) */
1315 16, /* bitsize */
1316 FALSE, /* pc_relative */
1317 0, /* bitpos */
1318 complain_overflow_dont,/* complain_on_overflow */
1319 bfd_elf_generic_reloc, /* special_function */
1320 "R_ARM_THM_MOVW_BREL_NC",/* name */
1321 FALSE, /* partial_inplace */
1322 0x040f70ff, /* src_mask */
1323 0x040f70ff, /* dst_mask */
1324 FALSE), /* pcrel_offset */
1325
1326 HOWTO (R_ARM_THM_MOVT_BREL, /* type */
1327 0, /* rightshift */
1328 2, /* size (0 = byte, 1 = short, 2 = long) */
1329 16, /* bitsize */
1330 FALSE, /* pc_relative */
1331 0, /* bitpos */
1332 complain_overflow_bitfield,/* complain_on_overflow */
1333 bfd_elf_generic_reloc, /* special_function */
1334 "R_ARM_THM_MOVT_BREL", /* name */
1335 FALSE, /* partial_inplace */
1336 0x040f70ff, /* src_mask */
1337 0x040f70ff, /* dst_mask */
1338 FALSE), /* pcrel_offset */
1339
1340 HOWTO (R_ARM_THM_MOVW_BREL, /* type */
1341 0, /* rightshift */
1342 2, /* size (0 = byte, 1 = short, 2 = long) */
1343 16, /* bitsize */
1344 FALSE, /* pc_relative */
1345 0, /* bitpos */
1346 complain_overflow_dont,/* complain_on_overflow */
1347 bfd_elf_generic_reloc, /* special_function */
1348 "R_ARM_THM_MOVW_BREL", /* name */
1349 FALSE, /* partial_inplace */
1350 0x040f70ff, /* src_mask */
1351 0x040f70ff, /* dst_mask */
1352 FALSE), /* pcrel_offset */
1353
1354 EMPTY_HOWTO (90), /* unallocated */
1355 EMPTY_HOWTO (91),
1356 EMPTY_HOWTO (92),
1357 EMPTY_HOWTO (93),
1358
1359 HOWTO (R_ARM_PLT32_ABS, /* type */
1360 0, /* rightshift */
1361 2, /* size (0 = byte, 1 = short, 2 = long) */
1362 32, /* bitsize */
1363 FALSE, /* pc_relative */
1364 0, /* bitpos */
1365 complain_overflow_dont,/* complain_on_overflow */
1366 bfd_elf_generic_reloc, /* special_function */
1367 "R_ARM_PLT32_ABS", /* name */
1368 FALSE, /* partial_inplace */
1369 0xffffffff, /* src_mask */
1370 0xffffffff, /* dst_mask */
1371 FALSE), /* pcrel_offset */
1372
1373 HOWTO (R_ARM_GOT_ABS, /* type */
1374 0, /* rightshift */
1375 2, /* size (0 = byte, 1 = short, 2 = long) */
1376 32, /* bitsize */
1377 FALSE, /* pc_relative */
1378 0, /* bitpos */
1379 complain_overflow_dont,/* complain_on_overflow */
1380 bfd_elf_generic_reloc, /* special_function */
1381 "R_ARM_GOT_ABS", /* name */
1382 FALSE, /* partial_inplace */
1383 0xffffffff, /* src_mask */
1384 0xffffffff, /* dst_mask */
1385 FALSE), /* pcrel_offset */
1386
1387 HOWTO (R_ARM_GOT_PREL, /* type */
1388 0, /* rightshift */
1389 2, /* size (0 = byte, 1 = short, 2 = long) */
1390 32, /* bitsize */
1391 TRUE, /* pc_relative */
1392 0, /* bitpos */
1393 complain_overflow_dont, /* complain_on_overflow */
1394 bfd_elf_generic_reloc, /* special_function */
1395 "R_ARM_GOT_PREL", /* name */
1396 FALSE, /* partial_inplace */
1397 0xffffffff, /* src_mask */
1398 0xffffffff, /* dst_mask */
1399 TRUE), /* pcrel_offset */
1400
1401 HOWTO (R_ARM_GOT_BREL12, /* type */
1402 0, /* rightshift */
1403 2, /* size (0 = byte, 1 = short, 2 = long) */
1404 12, /* bitsize */
1405 FALSE, /* pc_relative */
1406 0, /* bitpos */
1407 complain_overflow_bitfield,/* complain_on_overflow */
1408 bfd_elf_generic_reloc, /* special_function */
1409 "R_ARM_GOT_BREL12", /* name */
1410 FALSE, /* partial_inplace */
1411 0x00000fff, /* src_mask */
1412 0x00000fff, /* dst_mask */
1413 FALSE), /* pcrel_offset */
1414
1415 HOWTO (R_ARM_GOTOFF12, /* type */
1416 0, /* rightshift */
1417 2, /* size (0 = byte, 1 = short, 2 = long) */
1418 12, /* bitsize */
1419 FALSE, /* pc_relative */
1420 0, /* bitpos */
1421 complain_overflow_bitfield,/* complain_on_overflow */
1422 bfd_elf_generic_reloc, /* special_function */
1423 "R_ARM_GOTOFF12", /* name */
1424 FALSE, /* partial_inplace */
1425 0x00000fff, /* src_mask */
1426 0x00000fff, /* dst_mask */
1427 FALSE), /* pcrel_offset */
1428
1429 EMPTY_HOWTO (R_ARM_GOTRELAX), /* reserved for future GOT-load optimizations */
1430
1431 /* GNU extension to record C++ vtable member usage */
1432 HOWTO (R_ARM_GNU_VTENTRY, /* type */
1433 0, /* rightshift */
1434 2, /* size (0 = byte, 1 = short, 2 = long) */
1435 0, /* bitsize */
1436 FALSE, /* pc_relative */
1437 0, /* bitpos */
1438 complain_overflow_dont, /* complain_on_overflow */
1439 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
1440 "R_ARM_GNU_VTENTRY", /* name */
1441 FALSE, /* partial_inplace */
1442 0, /* src_mask */
1443 0, /* dst_mask */
1444 FALSE), /* pcrel_offset */
1445
1446 /* GNU extension to record C++ vtable hierarchy */
1447 HOWTO (R_ARM_GNU_VTINHERIT, /* type */
1448 0, /* rightshift */
1449 2, /* size (0 = byte, 1 = short, 2 = long) */
1450 0, /* bitsize */
1451 FALSE, /* pc_relative */
1452 0, /* bitpos */
1453 complain_overflow_dont, /* complain_on_overflow */
1454 NULL, /* special_function */
1455 "R_ARM_GNU_VTINHERIT", /* name */
1456 FALSE, /* partial_inplace */
1457 0, /* src_mask */
1458 0, /* dst_mask */
1459 FALSE), /* pcrel_offset */
1460
1461 HOWTO (R_ARM_THM_JUMP11, /* type */
1462 1, /* rightshift */
1463 1, /* size (0 = byte, 1 = short, 2 = long) */
1464 11, /* bitsize */
1465 TRUE, /* pc_relative */
1466 0, /* bitpos */
1467 complain_overflow_signed, /* complain_on_overflow */
1468 bfd_elf_generic_reloc, /* special_function */
1469 "R_ARM_THM_JUMP11", /* name */
1470 FALSE, /* partial_inplace */
1471 0x000007ff, /* src_mask */
1472 0x000007ff, /* dst_mask */
1473 TRUE), /* pcrel_offset */
1474
1475 HOWTO (R_ARM_THM_JUMP8, /* type */
1476 1, /* rightshift */
1477 1, /* size (0 = byte, 1 = short, 2 = long) */
1478 8, /* bitsize */
1479 TRUE, /* pc_relative */
1480 0, /* bitpos */
1481 complain_overflow_signed, /* complain_on_overflow */
1482 bfd_elf_generic_reloc, /* special_function */
1483 "R_ARM_THM_JUMP8", /* name */
1484 FALSE, /* partial_inplace */
1485 0x000000ff, /* src_mask */
1486 0x000000ff, /* dst_mask */
1487 TRUE), /* pcrel_offset */
1488
1489 /* TLS relocations */
1490 HOWTO (R_ARM_TLS_GD32, /* type */
1491 0, /* rightshift */
1492 2, /* size (0 = byte, 1 = short, 2 = long) */
1493 32, /* bitsize */
1494 FALSE, /* pc_relative */
1495 0, /* bitpos */
1496 complain_overflow_bitfield,/* complain_on_overflow */
1497 NULL, /* special_function */
1498 "R_ARM_TLS_GD32", /* name */
1499 TRUE, /* partial_inplace */
1500 0xffffffff, /* src_mask */
1501 0xffffffff, /* dst_mask */
1502 FALSE), /* pcrel_offset */
1503
1504 HOWTO (R_ARM_TLS_LDM32, /* type */
1505 0, /* rightshift */
1506 2, /* size (0 = byte, 1 = short, 2 = long) */
1507 32, /* bitsize */
1508 FALSE, /* pc_relative */
1509 0, /* bitpos */
1510 complain_overflow_bitfield,/* complain_on_overflow */
1511 bfd_elf_generic_reloc, /* special_function */
1512 "R_ARM_TLS_LDM32", /* name */
1513 TRUE, /* partial_inplace */
1514 0xffffffff, /* src_mask */
1515 0xffffffff, /* dst_mask */
1516 FALSE), /* pcrel_offset */
1517
1518 HOWTO (R_ARM_TLS_LDO32, /* type */
1519 0, /* rightshift */
1520 2, /* size (0 = byte, 1 = short, 2 = long) */
1521 32, /* bitsize */
1522 FALSE, /* pc_relative */
1523 0, /* bitpos */
1524 complain_overflow_bitfield,/* complain_on_overflow */
1525 bfd_elf_generic_reloc, /* special_function */
1526 "R_ARM_TLS_LDO32", /* name */
1527 TRUE, /* partial_inplace */
1528 0xffffffff, /* src_mask */
1529 0xffffffff, /* dst_mask */
1530 FALSE), /* pcrel_offset */
1531
1532 HOWTO (R_ARM_TLS_IE32, /* type */
1533 0, /* rightshift */
1534 2, /* size (0 = byte, 1 = short, 2 = long) */
1535 32, /* bitsize */
1536 FALSE, /* pc_relative */
1537 0, /* bitpos */
1538 complain_overflow_bitfield,/* complain_on_overflow */
1539 NULL, /* special_function */
1540 "R_ARM_TLS_IE32", /* name */
1541 TRUE, /* partial_inplace */
1542 0xffffffff, /* src_mask */
1543 0xffffffff, /* dst_mask */
1544 FALSE), /* pcrel_offset */
1545
1546 HOWTO (R_ARM_TLS_LE32, /* type */
1547 0, /* rightshift */
1548 2, /* size (0 = byte, 1 = short, 2 = long) */
1549 32, /* bitsize */
1550 FALSE, /* pc_relative */
1551 0, /* bitpos */
1552 complain_overflow_bitfield,/* complain_on_overflow */
1553 bfd_elf_generic_reloc, /* special_function */
1554 "R_ARM_TLS_LE32", /* name */
1555 TRUE, /* partial_inplace */
1556 0xffffffff, /* src_mask */
1557 0xffffffff, /* dst_mask */
1558 FALSE), /* pcrel_offset */
1559
1560 HOWTO (R_ARM_TLS_LDO12, /* type */
1561 0, /* rightshift */
1562 2, /* size (0 = byte, 1 = short, 2 = long) */
1563 12, /* bitsize */
1564 FALSE, /* pc_relative */
1565 0, /* bitpos */
1566 complain_overflow_bitfield,/* complain_on_overflow */
1567 bfd_elf_generic_reloc, /* special_function */
1568 "R_ARM_TLS_LDO12", /* name */
1569 FALSE, /* partial_inplace */
1570 0x00000fff, /* src_mask */
1571 0x00000fff, /* dst_mask */
1572 FALSE), /* pcrel_offset */
1573
1574 HOWTO (R_ARM_TLS_LE12, /* type */
1575 0, /* rightshift */
1576 2, /* size (0 = byte, 1 = short, 2 = long) */
1577 12, /* bitsize */
1578 FALSE, /* pc_relative */
1579 0, /* bitpos */
1580 complain_overflow_bitfield,/* complain_on_overflow */
1581 bfd_elf_generic_reloc, /* special_function */
1582 "R_ARM_TLS_LE12", /* name */
1583 FALSE, /* partial_inplace */
1584 0x00000fff, /* src_mask */
1585 0x00000fff, /* dst_mask */
1586 FALSE), /* pcrel_offset */
1587
1588 HOWTO (R_ARM_TLS_IE12GP, /* type */
1589 0, /* rightshift */
1590 2, /* size (0 = byte, 1 = short, 2 = long) */
1591 12, /* bitsize */
1592 FALSE, /* pc_relative */
1593 0, /* bitpos */
1594 complain_overflow_bitfield,/* complain_on_overflow */
1595 bfd_elf_generic_reloc, /* special_function */
1596 "R_ARM_TLS_IE12GP", /* name */
1597 FALSE, /* partial_inplace */
1598 0x00000fff, /* src_mask */
1599 0x00000fff, /* dst_mask */
1600 FALSE), /* pcrel_offset */
1601 };
1602
1603 /* 112-127 private relocations
1604 128 R_ARM_ME_TOO, obsolete
1605 129-255 unallocated in AAELF.
1606
1607 249-255 extended, currently unused, relocations: */
1608
1609 static reloc_howto_type elf32_arm_howto_table_2[4] =
1610 {
1611 HOWTO (R_ARM_RREL32, /* type */
1612 0, /* rightshift */
1613 0, /* size (0 = byte, 1 = short, 2 = long) */
1614 0, /* bitsize */
1615 FALSE, /* pc_relative */
1616 0, /* bitpos */
1617 complain_overflow_dont,/* complain_on_overflow */
1618 bfd_elf_generic_reloc, /* special_function */
1619 "R_ARM_RREL32", /* name */
1620 FALSE, /* partial_inplace */
1621 0, /* src_mask */
1622 0, /* dst_mask */
1623 FALSE), /* pcrel_offset */
1624
1625 HOWTO (R_ARM_RABS32, /* type */
1626 0, /* rightshift */
1627 0, /* size (0 = byte, 1 = short, 2 = long) */
1628 0, /* bitsize */
1629 FALSE, /* pc_relative */
1630 0, /* bitpos */
1631 complain_overflow_dont,/* complain_on_overflow */
1632 bfd_elf_generic_reloc, /* special_function */
1633 "R_ARM_RABS32", /* name */
1634 FALSE, /* partial_inplace */
1635 0, /* src_mask */
1636 0, /* dst_mask */
1637 FALSE), /* pcrel_offset */
1638
1639 HOWTO (R_ARM_RPC24, /* type */
1640 0, /* rightshift */
1641 0, /* size (0 = byte, 1 = short, 2 = long) */
1642 0, /* bitsize */
1643 FALSE, /* pc_relative */
1644 0, /* bitpos */
1645 complain_overflow_dont,/* complain_on_overflow */
1646 bfd_elf_generic_reloc, /* special_function */
1647 "R_ARM_RPC24", /* name */
1648 FALSE, /* partial_inplace */
1649 0, /* src_mask */
1650 0, /* dst_mask */
1651 FALSE), /* pcrel_offset */
1652
1653 HOWTO (R_ARM_RBASE, /* type */
1654 0, /* rightshift */
1655 0, /* size (0 = byte, 1 = short, 2 = long) */
1656 0, /* bitsize */
1657 FALSE, /* pc_relative */
1658 0, /* bitpos */
1659 complain_overflow_dont,/* complain_on_overflow */
1660 bfd_elf_generic_reloc, /* special_function */
1661 "R_ARM_RBASE", /* name */
1662 FALSE, /* partial_inplace */
1663 0, /* src_mask */
1664 0, /* dst_mask */
1665 FALSE) /* pcrel_offset */
1666 };
1667
1668 static reloc_howto_type *
1669 elf32_arm_howto_from_type (unsigned int r_type)
1670 {
1671 if (r_type < NUM_ELEM (elf32_arm_howto_table_1))
1672 return &elf32_arm_howto_table_1[r_type];
1673
1674 if (r_type >= R_ARM_RREL32
1675 && r_type < R_ARM_RREL32 + NUM_ELEM (elf32_arm_howto_table_2))
1676 return &elf32_arm_howto_table_2[r_type - R_ARM_RREL32];
1677
1678 return NULL;
1679 }
1680
1681 static void
1682 elf32_arm_info_to_howto (bfd * abfd ATTRIBUTE_UNUSED, arelent * bfd_reloc,
1683 Elf_Internal_Rela * elf_reloc)
1684 {
1685 unsigned int r_type;
1686
1687 r_type = ELF32_R_TYPE (elf_reloc->r_info);
1688 bfd_reloc->howto = elf32_arm_howto_from_type (r_type);
1689 }
1690
1691 struct elf32_arm_reloc_map
1692 {
1693 bfd_reloc_code_real_type bfd_reloc_val;
1694 unsigned char elf_reloc_val;
1695 };
1696
1697 /* All entries in this list must also be present in elf32_arm_howto_table. */
1698 static const struct elf32_arm_reloc_map elf32_arm_reloc_map[] =
1699 {
1700 {BFD_RELOC_NONE, R_ARM_NONE},
1701 {BFD_RELOC_ARM_PCREL_BRANCH, R_ARM_PC24},
1702 {BFD_RELOC_ARM_PCREL_CALL, R_ARM_CALL},
1703 {BFD_RELOC_ARM_PCREL_JUMP, R_ARM_JUMP24},
1704 {BFD_RELOC_ARM_PCREL_BLX, R_ARM_XPC25},
1705 {BFD_RELOC_THUMB_PCREL_BLX, R_ARM_THM_XPC22},
1706 {BFD_RELOC_32, R_ARM_ABS32},
1707 {BFD_RELOC_32_PCREL, R_ARM_REL32},
1708 {BFD_RELOC_8, R_ARM_ABS8},
1709 {BFD_RELOC_16, R_ARM_ABS16},
1710 {BFD_RELOC_ARM_OFFSET_IMM, R_ARM_ABS12},
1711 {BFD_RELOC_ARM_THUMB_OFFSET, R_ARM_THM_ABS5},
1712 {BFD_RELOC_THUMB_PCREL_BRANCH25, R_ARM_THM_JUMP24},
1713 {BFD_RELOC_THUMB_PCREL_BRANCH23, R_ARM_THM_CALL},
1714 {BFD_RELOC_THUMB_PCREL_BRANCH12, R_ARM_THM_JUMP11},
1715 {BFD_RELOC_THUMB_PCREL_BRANCH20, R_ARM_THM_JUMP19},
1716 {BFD_RELOC_THUMB_PCREL_BRANCH9, R_ARM_THM_JUMP8},
1717 {BFD_RELOC_THUMB_PCREL_BRANCH7, R_ARM_THM_JUMP6},
1718 {BFD_RELOC_ARM_GLOB_DAT, R_ARM_GLOB_DAT},
1719 {BFD_RELOC_ARM_JUMP_SLOT, R_ARM_JUMP_SLOT},
1720 {BFD_RELOC_ARM_RELATIVE, R_ARM_RELATIVE},
1721 {BFD_RELOC_ARM_GOTOFF, R_ARM_GOTOFF32},
1722 {BFD_RELOC_ARM_GOTPC, R_ARM_GOTPC},
1723 {BFD_RELOC_ARM_GOT32, R_ARM_GOT32},
1724 {BFD_RELOC_ARM_PLT32, R_ARM_PLT32},
1725 {BFD_RELOC_ARM_TARGET1, R_ARM_TARGET1},
1726 {BFD_RELOC_ARM_ROSEGREL32, R_ARM_ROSEGREL32},
1727 {BFD_RELOC_ARM_SBREL32, R_ARM_SBREL32},
1728 {BFD_RELOC_ARM_PREL31, R_ARM_PREL31},
1729 {BFD_RELOC_ARM_TARGET2, R_ARM_TARGET2},
1730 {BFD_RELOC_ARM_PLT32, R_ARM_PLT32},
1731 {BFD_RELOC_ARM_TLS_GD32, R_ARM_TLS_GD32},
1732 {BFD_RELOC_ARM_TLS_LDO32, R_ARM_TLS_LDO32},
1733 {BFD_RELOC_ARM_TLS_LDM32, R_ARM_TLS_LDM32},
1734 {BFD_RELOC_ARM_TLS_DTPMOD32, R_ARM_TLS_DTPMOD32},
1735 {BFD_RELOC_ARM_TLS_DTPOFF32, R_ARM_TLS_DTPOFF32},
1736 {BFD_RELOC_ARM_TLS_TPOFF32, R_ARM_TLS_TPOFF32},
1737 {BFD_RELOC_ARM_TLS_IE32, R_ARM_TLS_IE32},
1738 {BFD_RELOC_ARM_TLS_LE32, R_ARM_TLS_LE32},
1739 {BFD_RELOC_VTABLE_INHERIT, R_ARM_GNU_VTINHERIT},
1740 {BFD_RELOC_VTABLE_ENTRY, R_ARM_GNU_VTENTRY},
1741 {BFD_RELOC_ARM_MOVW, R_ARM_MOVW_ABS_NC},
1742 {BFD_RELOC_ARM_MOVT, R_ARM_MOVT_ABS},
1743 {BFD_RELOC_ARM_MOVW_PCREL, R_ARM_MOVW_PREL_NC},
1744 {BFD_RELOC_ARM_MOVT_PCREL, R_ARM_MOVT_PREL},
1745 {BFD_RELOC_ARM_THUMB_MOVW, R_ARM_THM_MOVW_ABS_NC},
1746 {BFD_RELOC_ARM_THUMB_MOVT, R_ARM_THM_MOVT_ABS},
1747 {BFD_RELOC_ARM_THUMB_MOVW_PCREL, R_ARM_THM_MOVW_PREL_NC},
1748 {BFD_RELOC_ARM_THUMB_MOVT_PCREL, R_ARM_THM_MOVT_PREL},
1749 {BFD_RELOC_ARM_ALU_PC_G0_NC, R_ARM_ALU_PC_G0_NC},
1750 {BFD_RELOC_ARM_ALU_PC_G0, R_ARM_ALU_PC_G0},
1751 {BFD_RELOC_ARM_ALU_PC_G1_NC, R_ARM_ALU_PC_G1_NC},
1752 {BFD_RELOC_ARM_ALU_PC_G1, R_ARM_ALU_PC_G1},
1753 {BFD_RELOC_ARM_ALU_PC_G2, R_ARM_ALU_PC_G2},
1754 {BFD_RELOC_ARM_LDR_PC_G0, R_ARM_LDR_PC_G0},
1755 {BFD_RELOC_ARM_LDR_PC_G1, R_ARM_LDR_PC_G1},
1756 {BFD_RELOC_ARM_LDR_PC_G2, R_ARM_LDR_PC_G2},
1757 {BFD_RELOC_ARM_LDRS_PC_G0, R_ARM_LDRS_PC_G0},
1758 {BFD_RELOC_ARM_LDRS_PC_G1, R_ARM_LDRS_PC_G1},
1759 {BFD_RELOC_ARM_LDRS_PC_G2, R_ARM_LDRS_PC_G2},
1760 {BFD_RELOC_ARM_LDC_PC_G0, R_ARM_LDC_PC_G0},
1761 {BFD_RELOC_ARM_LDC_PC_G1, R_ARM_LDC_PC_G1},
1762 {BFD_RELOC_ARM_LDC_PC_G2, R_ARM_LDC_PC_G2},
1763 {BFD_RELOC_ARM_ALU_SB_G0_NC, R_ARM_ALU_SB_G0_NC},
1764 {BFD_RELOC_ARM_ALU_SB_G0, R_ARM_ALU_SB_G0},
1765 {BFD_RELOC_ARM_ALU_SB_G1_NC, R_ARM_ALU_SB_G1_NC},
1766 {BFD_RELOC_ARM_ALU_SB_G1, R_ARM_ALU_SB_G1},
1767 {BFD_RELOC_ARM_ALU_SB_G2, R_ARM_ALU_SB_G2},
1768 {BFD_RELOC_ARM_LDR_SB_G0, R_ARM_LDR_SB_G0},
1769 {BFD_RELOC_ARM_LDR_SB_G1, R_ARM_LDR_SB_G1},
1770 {BFD_RELOC_ARM_LDR_SB_G2, R_ARM_LDR_SB_G2},
1771 {BFD_RELOC_ARM_LDRS_SB_G0, R_ARM_LDRS_SB_G0},
1772 {BFD_RELOC_ARM_LDRS_SB_G1, R_ARM_LDRS_SB_G1},
1773 {BFD_RELOC_ARM_LDRS_SB_G2, R_ARM_LDRS_SB_G2},
1774 {BFD_RELOC_ARM_LDC_SB_G0, R_ARM_LDC_SB_G0},
1775 {BFD_RELOC_ARM_LDC_SB_G1, R_ARM_LDC_SB_G1},
1776 {BFD_RELOC_ARM_LDC_SB_G2, R_ARM_LDC_SB_G2}
1777 };
1778
1779 static reloc_howto_type *
1780 elf32_arm_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1781 bfd_reloc_code_real_type code)
1782 {
1783 unsigned int i;
1784 for (i = 0; i < NUM_ELEM (elf32_arm_reloc_map); i ++)
1785 if (elf32_arm_reloc_map[i].bfd_reloc_val == code)
1786 return elf32_arm_howto_from_type (elf32_arm_reloc_map[i].elf_reloc_val);
1787
1788 return NULL;
1789 }
1790
1791 /* Support for core dump NOTE sections */
1792 static bfd_boolean
1793 elf32_arm_nabi_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
1794 {
1795 int offset;
1796 size_t size;
1797
1798 switch (note->descsz)
1799 {
1800 default:
1801 return FALSE;
1802
1803 case 148: /* Linux/ARM 32-bit*/
1804 /* pr_cursig */
1805 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
1806
1807 /* pr_pid */
1808 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
1809
1810 /* pr_reg */
1811 offset = 72;
1812 size = 72;
1813
1814 break;
1815 }
1816
1817 /* Make a ".reg/999" section. */
1818 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
1819 size, note->descpos + offset);
1820 }
1821
1822 static bfd_boolean
1823 elf32_arm_nabi_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
1824 {
1825 switch (note->descsz)
1826 {
1827 default:
1828 return FALSE;
1829
1830 case 124: /* Linux/ARM elf_prpsinfo */
1831 elf_tdata (abfd)->core_program
1832 = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
1833 elf_tdata (abfd)->core_command
1834 = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
1835 }
1836
1837 /* Note that for some reason, a spurious space is tacked
1838 onto the end of the args in some (at least one anyway)
1839 implementations, so strip it off if it exists. */
1840
1841 {
1842 char *command = elf_tdata (abfd)->core_command;
1843 int n = strlen (command);
1844
1845 if (0 < n && command[n - 1] == ' ')
1846 command[n - 1] = '\0';
1847 }
1848
1849 return TRUE;
1850 }
1851
1852 #define TARGET_LITTLE_SYM bfd_elf32_littlearm_vec
1853 #define TARGET_LITTLE_NAME "elf32-littlearm"
1854 #define TARGET_BIG_SYM bfd_elf32_bigarm_vec
1855 #define TARGET_BIG_NAME "elf32-bigarm"
1856
1857 #define elf_backend_grok_prstatus elf32_arm_nabi_grok_prstatus
1858 #define elf_backend_grok_psinfo elf32_arm_nabi_grok_psinfo
1859
1860 typedef unsigned long int insn32;
1861 typedef unsigned short int insn16;
1862
1863 /* In lieu of proper flags, assume all EABIv4 or later objects are
1864 interworkable. */
1865 #define INTERWORK_FLAG(abfd) \
1866 (EF_ARM_EABI_VERSION (elf_elfheader (abfd)->e_flags) >= EF_ARM_EABI_VER4 \
1867 || (elf_elfheader (abfd)->e_flags & EF_ARM_INTERWORK))
1868
1869 /* The linker script knows the section names for placement.
1870 The entry_names are used to do simple name mangling on the stubs.
1871 Given a function name, and its type, the stub can be found. The
1872 name can be changed. The only requirement is the %s be present. */
1873 #define THUMB2ARM_GLUE_SECTION_NAME ".glue_7t"
1874 #define THUMB2ARM_GLUE_ENTRY_NAME "__%s_from_thumb"
1875
1876 #define ARM2THUMB_GLUE_SECTION_NAME ".glue_7"
1877 #define ARM2THUMB_GLUE_ENTRY_NAME "__%s_from_arm"
1878
1879 /* The name of the dynamic interpreter. This is put in the .interp
1880 section. */
1881 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
1882
1883 #ifdef FOUR_WORD_PLT
1884
1885 /* The first entry in a procedure linkage table looks like
1886 this. It is set up so that any shared library function that is
1887 called before the relocation has been set up calls the dynamic
1888 linker first. */
1889 static const bfd_vma elf32_arm_plt0_entry [] =
1890 {
1891 0xe52de004, /* str lr, [sp, #-4]! */
1892 0xe59fe010, /* ldr lr, [pc, #16] */
1893 0xe08fe00e, /* add lr, pc, lr */
1894 0xe5bef008, /* ldr pc, [lr, #8]! */
1895 };
1896
1897 /* Subsequent entries in a procedure linkage table look like
1898 this. */
1899 static const bfd_vma elf32_arm_plt_entry [] =
1900 {
1901 0xe28fc600, /* add ip, pc, #NN */
1902 0xe28cca00, /* add ip, ip, #NN */
1903 0xe5bcf000, /* ldr pc, [ip, #NN]! */
1904 0x00000000, /* unused */
1905 };
1906
1907 #else
1908
1909 /* The first entry in a procedure linkage table looks like
1910 this. It is set up so that any shared library function that is
1911 called before the relocation has been set up calls the dynamic
1912 linker first. */
1913 static const bfd_vma elf32_arm_plt0_entry [] =
1914 {
1915 0xe52de004, /* str lr, [sp, #-4]! */
1916 0xe59fe004, /* ldr lr, [pc, #4] */
1917 0xe08fe00e, /* add lr, pc, lr */
1918 0xe5bef008, /* ldr pc, [lr, #8]! */
1919 0x00000000, /* &GOT[0] - . */
1920 };
1921
1922 /* Subsequent entries in a procedure linkage table look like
1923 this. */
1924 static const bfd_vma elf32_arm_plt_entry [] =
1925 {
1926 0xe28fc600, /* add ip, pc, #0xNN00000 */
1927 0xe28cca00, /* add ip, ip, #0xNN000 */
1928 0xe5bcf000, /* ldr pc, [ip, #0xNNN]! */
1929 };
1930
1931 #endif
1932
1933 /* The format of the first entry in the procedure linkage table
1934 for a VxWorks executable. */
1935 static const bfd_vma elf32_arm_vxworks_exec_plt0_entry[] =
1936 {
1937 0xe52dc008, /* str ip,[sp,#-8]! */
1938 0xe59fc000, /* ldr ip,[pc] */
1939 0xe59cf008, /* ldr pc,[ip,#8] */
1940 0x00000000, /* .long _GLOBAL_OFFSET_TABLE_ */
1941 };
1942
1943 /* The format of subsequent entries in a VxWorks executable. */
1944 static const bfd_vma elf32_arm_vxworks_exec_plt_entry[] =
1945 {
1946 0xe59fc000, /* ldr ip,[pc] */
1947 0xe59cf000, /* ldr pc,[ip] */
1948 0x00000000, /* .long @got */
1949 0xe59fc000, /* ldr ip,[pc] */
1950 0xea000000, /* b _PLT */
1951 0x00000000, /* .long @pltindex*sizeof(Elf32_Rela) */
1952 };
1953
1954 /* The format of entries in a VxWorks shared library. */
1955 static const bfd_vma elf32_arm_vxworks_shared_plt_entry[] =
1956 {
1957 0xe59fc000, /* ldr ip,[pc] */
1958 0xe79cf009, /* ldr pc,[ip,r9] */
1959 0x00000000, /* .long @got */
1960 0xe59fc000, /* ldr ip,[pc] */
1961 0xe599f008, /* ldr pc,[r9,#8] */
1962 0x00000000, /* .long @pltindex*sizeof(Elf32_Rela) */
1963 };
1964
1965 /* An initial stub used if the PLT entry is referenced from Thumb code. */
1966 #define PLT_THUMB_STUB_SIZE 4
1967 static const bfd_vma elf32_arm_plt_thumb_stub [] =
1968 {
1969 0x4778, /* bx pc */
1970 0x46c0 /* nop */
1971 };
1972
1973 /* The entries in a PLT when using a DLL-based target with multiple
1974 address spaces. */
1975 static const bfd_vma elf32_arm_symbian_plt_entry [] =
1976 {
1977 0xe51ff004, /* ldr pc, [pc, #-4] */
1978 0x00000000, /* dcd R_ARM_GLOB_DAT(X) */
1979 };
1980
1981 /* Used to build a map of a section. This is required for mixed-endian
1982 code/data. */
1983
1984 typedef struct elf32_elf_section_map
1985 {
1986 bfd_vma vma;
1987 char type;
1988 }
1989 elf32_arm_section_map;
1990
1991 typedef struct _arm_elf_section_data
1992 {
1993 struct bfd_elf_section_data elf;
1994 unsigned int mapcount;
1995 elf32_arm_section_map *map;
1996 }
1997 _arm_elf_section_data;
1998
1999 #define elf32_arm_section_data(sec) \
2000 ((_arm_elf_section_data *) elf_section_data (sec))
2001
2002 /* The size of the thread control block. */
2003 #define TCB_SIZE 8
2004
2005 #define NUM_KNOWN_ATTRIBUTES 32
2006
2007 typedef struct aeabi_attribute
2008 {
2009 int type;
2010 unsigned int i;
2011 char *s;
2012 } aeabi_attribute;
2013
2014 typedef struct aeabi_attribute_list
2015 {
2016 struct aeabi_attribute_list *next;
2017 int tag;
2018 aeabi_attribute attr;
2019 } aeabi_attribute_list;
2020
2021 struct elf32_arm_obj_tdata
2022 {
2023 struct elf_obj_tdata root;
2024
2025 /* tls_type for each local got entry. */
2026 char *local_got_tls_type;
2027
2028 aeabi_attribute known_eabi_attributes[NUM_KNOWN_ATTRIBUTES];
2029 aeabi_attribute_list *other_eabi_attributes;
2030 };
2031
2032 #define elf32_arm_tdata(abfd) \
2033 ((struct elf32_arm_obj_tdata *) (abfd)->tdata.any)
2034
2035 #define elf32_arm_local_got_tls_type(abfd) \
2036 (elf32_arm_tdata (abfd)->local_got_tls_type)
2037
2038 static bfd_boolean
2039 elf32_arm_mkobject (bfd *abfd)
2040 {
2041 if (abfd->tdata.any == NULL)
2042 {
2043 bfd_size_type amt = sizeof (struct elf32_arm_obj_tdata);
2044 abfd->tdata.any = bfd_zalloc (abfd, amt);
2045 if (abfd->tdata.any == NULL)
2046 return FALSE;
2047 }
2048 return bfd_elf_mkobject (abfd);
2049 }
2050
2051 /* The ARM linker needs to keep track of the number of relocs that it
2052 decides to copy in check_relocs for each symbol. This is so that
2053 it can discard PC relative relocs if it doesn't need them when
2054 linking with -Bsymbolic. We store the information in a field
2055 extending the regular ELF linker hash table. */
2056
2057 /* This structure keeps track of the number of relocs we have copied
2058 for a given symbol. */
2059 struct elf32_arm_relocs_copied
2060 {
2061 /* Next section. */
2062 struct elf32_arm_relocs_copied * next;
2063 /* A section in dynobj. */
2064 asection * section;
2065 /* Number of relocs copied in this section. */
2066 bfd_size_type count;
2067 /* Number of PC-relative relocs copied in this section. */
2068 bfd_size_type pc_count;
2069 };
2070
2071 #define elf32_arm_hash_entry(ent) ((struct elf32_arm_link_hash_entry *)(ent))
2072
2073 /* Arm ELF linker hash entry. */
2074 struct elf32_arm_link_hash_entry
2075 {
2076 struct elf_link_hash_entry root;
2077
2078 /* Number of PC relative relocs copied for this symbol. */
2079 struct elf32_arm_relocs_copied * relocs_copied;
2080
2081 /* We reference count Thumb references to a PLT entry separately,
2082 so that we can emit the Thumb trampoline only if needed. */
2083 bfd_signed_vma plt_thumb_refcount;
2084
2085 /* Since PLT entries have variable size if the Thumb prologue is
2086 used, we need to record the index into .got.plt instead of
2087 recomputing it from the PLT offset. */
2088 bfd_signed_vma plt_got_offset;
2089
2090 #define GOT_UNKNOWN 0
2091 #define GOT_NORMAL 1
2092 #define GOT_TLS_GD 2
2093 #define GOT_TLS_IE 4
2094 unsigned char tls_type;
2095
2096 /* The symbol marking the real symbol location for exported thumb
2097 symbols with Arm stubs. */
2098 struct elf_link_hash_entry *export_glue;
2099 };
2100
2101 /* Traverse an arm ELF linker hash table. */
2102 #define elf32_arm_link_hash_traverse(table, func, info) \
2103 (elf_link_hash_traverse \
2104 (&(table)->root, \
2105 (bfd_boolean (*) (struct elf_link_hash_entry *, void *)) (func), \
2106 (info)))
2107
2108 /* Get the ARM elf linker hash table from a link_info structure. */
2109 #define elf32_arm_hash_table(info) \
2110 ((struct elf32_arm_link_hash_table *) ((info)->hash))
2111
2112 /* ARM ELF linker hash table. */
2113 struct elf32_arm_link_hash_table
2114 {
2115 /* The main hash table. */
2116 struct elf_link_hash_table root;
2117
2118 /* The size in bytes of the section containing the Thumb-to-ARM glue. */
2119 bfd_size_type thumb_glue_size;
2120
2121 /* The size in bytes of the section containing the ARM-to-Thumb glue. */
2122 bfd_size_type arm_glue_size;
2123
2124 /* An arbitrary input BFD chosen to hold the glue sections. */
2125 bfd * bfd_of_glue_owner;
2126
2127 /* Nonzero to output a BE8 image. */
2128 int byteswap_code;
2129
2130 /* Zero if R_ARM_TARGET1 means R_ARM_ABS32.
2131 Nonzero if R_ARM_TARGET1 means R_ARM_ABS32. */
2132 int target1_is_rel;
2133
2134 /* The relocation to use for R_ARM_TARGET2 relocations. */
2135 int target2_reloc;
2136
2137 /* Nonzero to fix BX instructions for ARMv4 targets. */
2138 int fix_v4bx;
2139
2140 /* Nonzero if the ARM/Thumb BLX instructions are available for use. */
2141 int use_blx;
2142
2143 /* The number of bytes in the initial entry in the PLT. */
2144 bfd_size_type plt_header_size;
2145
2146 /* The number of bytes in the subsequent PLT etries. */
2147 bfd_size_type plt_entry_size;
2148
2149 /* True if the target system is VxWorks. */
2150 int vxworks_p;
2151
2152 /* True if the target system is Symbian OS. */
2153 int symbian_p;
2154
2155 /* True if the target uses REL relocations. */
2156 int use_rel;
2157
2158 /* Short-cuts to get to dynamic linker sections. */
2159 asection *sgot;
2160 asection *sgotplt;
2161 asection *srelgot;
2162 asection *splt;
2163 asection *srelplt;
2164 asection *sdynbss;
2165 asection *srelbss;
2166
2167 /* The (unloaded but important) VxWorks .rela.plt.unloaded section. */
2168 asection *srelplt2;
2169
2170 /* Data for R_ARM_TLS_LDM32 relocations. */
2171 union {
2172 bfd_signed_vma refcount;
2173 bfd_vma offset;
2174 } tls_ldm_got;
2175
2176 /* Small local sym to section mapping cache. */
2177 struct sym_sec_cache sym_sec;
2178
2179 /* For convenience in allocate_dynrelocs. */
2180 bfd * obfd;
2181 };
2182
2183 /* Create an entry in an ARM ELF linker hash table. */
2184
2185 static struct bfd_hash_entry *
2186 elf32_arm_link_hash_newfunc (struct bfd_hash_entry * entry,
2187 struct bfd_hash_table * table,
2188 const char * string)
2189 {
2190 struct elf32_arm_link_hash_entry * ret =
2191 (struct elf32_arm_link_hash_entry *) entry;
2192
2193 /* Allocate the structure if it has not already been allocated by a
2194 subclass. */
2195 if (ret == (struct elf32_arm_link_hash_entry *) NULL)
2196 ret = bfd_hash_allocate (table, sizeof (struct elf32_arm_link_hash_entry));
2197 if (ret == NULL)
2198 return (struct bfd_hash_entry *) ret;
2199
2200 /* Call the allocation method of the superclass. */
2201 ret = ((struct elf32_arm_link_hash_entry *)
2202 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
2203 table, string));
2204 if (ret != NULL)
2205 {
2206 ret->relocs_copied = NULL;
2207 ret->tls_type = GOT_UNKNOWN;
2208 ret->plt_thumb_refcount = 0;
2209 ret->plt_got_offset = -1;
2210 ret->export_glue = NULL;
2211 }
2212
2213 return (struct bfd_hash_entry *) ret;
2214 }
2215
2216 /* Return true if NAME is the name of the relocation section associated
2217 with S. */
2218
2219 static bfd_boolean
2220 reloc_section_p (struct elf32_arm_link_hash_table *htab,
2221 const char *name, asection *s)
2222 {
2223 if (htab->use_rel)
2224 return strncmp (name, ".rel", 4) == 0 && strcmp (s->name, name + 4) == 0;
2225 else
2226 return strncmp (name, ".rela", 5) == 0 && strcmp (s->name, name + 5) == 0;
2227 }
2228
2229 /* Create .got, .gotplt, and .rel(a).got sections in DYNOBJ, and set up
2230 shortcuts to them in our hash table. */
2231
2232 static bfd_boolean
2233 create_got_section (bfd *dynobj, struct bfd_link_info *info)
2234 {
2235 struct elf32_arm_link_hash_table *htab;
2236
2237 htab = elf32_arm_hash_table (info);
2238 /* BPABI objects never have a GOT, or associated sections. */
2239 if (htab->symbian_p)
2240 return TRUE;
2241
2242 if (! _bfd_elf_create_got_section (dynobj, info))
2243 return FALSE;
2244
2245 htab->sgot = bfd_get_section_by_name (dynobj, ".got");
2246 htab->sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
2247 if (!htab->sgot || !htab->sgotplt)
2248 abort ();
2249
2250 htab->srelgot = bfd_make_section_with_flags (dynobj,
2251 RELOC_SECTION (htab, ".got"),
2252 (SEC_ALLOC | SEC_LOAD
2253 | SEC_HAS_CONTENTS
2254 | SEC_IN_MEMORY
2255 | SEC_LINKER_CREATED
2256 | SEC_READONLY));
2257 if (htab->srelgot == NULL
2258 || ! bfd_set_section_alignment (dynobj, htab->srelgot, 2))
2259 return FALSE;
2260 return TRUE;
2261 }
2262
2263 /* Create .plt, .rel(a).plt, .got, .got.plt, .rel(a).got, .dynbss, and
2264 .rel(a).bss sections in DYNOBJ, and set up shortcuts to them in our
2265 hash table. */
2266
2267 static bfd_boolean
2268 elf32_arm_create_dynamic_sections (bfd *dynobj, struct bfd_link_info *info)
2269 {
2270 struct elf32_arm_link_hash_table *htab;
2271
2272 htab = elf32_arm_hash_table (info);
2273 if (!htab->sgot && !create_got_section (dynobj, info))
2274 return FALSE;
2275
2276 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
2277 return FALSE;
2278
2279 htab->splt = bfd_get_section_by_name (dynobj, ".plt");
2280 htab->srelplt = bfd_get_section_by_name (dynobj,
2281 RELOC_SECTION (htab, ".plt"));
2282 htab->sdynbss = bfd_get_section_by_name (dynobj, ".dynbss");
2283 if (!info->shared)
2284 htab->srelbss = bfd_get_section_by_name (dynobj,
2285 RELOC_SECTION (htab, ".bss"));
2286
2287 if (htab->vxworks_p)
2288 {
2289 if (!elf_vxworks_create_dynamic_sections (dynobj, info, &htab->srelplt2))
2290 return FALSE;
2291
2292 if (info->shared)
2293 {
2294 htab->plt_header_size = 0;
2295 htab->plt_entry_size
2296 = 4 * ARRAY_SIZE (elf32_arm_vxworks_shared_plt_entry);
2297 }
2298 else
2299 {
2300 htab->plt_header_size
2301 = 4 * ARRAY_SIZE (elf32_arm_vxworks_exec_plt0_entry);
2302 htab->plt_entry_size
2303 = 4 * ARRAY_SIZE (elf32_arm_vxworks_exec_plt_entry);
2304 }
2305 }
2306
2307 if (!htab->splt
2308 || !htab->srelplt
2309 || !htab->sdynbss
2310 || (!info->shared && !htab->srelbss))
2311 abort ();
2312
2313 return TRUE;
2314 }
2315
2316 /* Copy the extra info we tack onto an elf_link_hash_entry. */
2317
2318 static void
2319 elf32_arm_copy_indirect_symbol (struct bfd_link_info *info,
2320 struct elf_link_hash_entry *dir,
2321 struct elf_link_hash_entry *ind)
2322 {
2323 struct elf32_arm_link_hash_entry *edir, *eind;
2324
2325 edir = (struct elf32_arm_link_hash_entry *) dir;
2326 eind = (struct elf32_arm_link_hash_entry *) ind;
2327
2328 if (eind->relocs_copied != NULL)
2329 {
2330 if (edir->relocs_copied != NULL)
2331 {
2332 struct elf32_arm_relocs_copied **pp;
2333 struct elf32_arm_relocs_copied *p;
2334
2335 /* Add reloc counts against the indirect sym to the direct sym
2336 list. Merge any entries against the same section. */
2337 for (pp = &eind->relocs_copied; (p = *pp) != NULL; )
2338 {
2339 struct elf32_arm_relocs_copied *q;
2340
2341 for (q = edir->relocs_copied; q != NULL; q = q->next)
2342 if (q->section == p->section)
2343 {
2344 q->pc_count += p->pc_count;
2345 q->count += p->count;
2346 *pp = p->next;
2347 break;
2348 }
2349 if (q == NULL)
2350 pp = &p->next;
2351 }
2352 *pp = edir->relocs_copied;
2353 }
2354
2355 edir->relocs_copied = eind->relocs_copied;
2356 eind->relocs_copied = NULL;
2357 }
2358
2359 /* Copy over PLT info. */
2360 edir->plt_thumb_refcount += eind->plt_thumb_refcount;
2361 eind->plt_thumb_refcount = 0;
2362
2363 if (ind->root.type == bfd_link_hash_indirect
2364 && dir->got.refcount <= 0)
2365 {
2366 edir->tls_type = eind->tls_type;
2367 eind->tls_type = GOT_UNKNOWN;
2368 }
2369
2370 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2371 }
2372
2373 /* Create an ARM elf linker hash table. */
2374
2375 static struct bfd_link_hash_table *
2376 elf32_arm_link_hash_table_create (bfd *abfd)
2377 {
2378 struct elf32_arm_link_hash_table *ret;
2379 bfd_size_type amt = sizeof (struct elf32_arm_link_hash_table);
2380
2381 ret = bfd_malloc (amt);
2382 if (ret == NULL)
2383 return NULL;
2384
2385 if (!_bfd_elf_link_hash_table_init (& ret->root, abfd,
2386 elf32_arm_link_hash_newfunc,
2387 sizeof (struct elf32_arm_link_hash_entry)))
2388 {
2389 free (ret);
2390 return NULL;
2391 }
2392
2393 ret->sgot = NULL;
2394 ret->sgotplt = NULL;
2395 ret->srelgot = NULL;
2396 ret->splt = NULL;
2397 ret->srelplt = NULL;
2398 ret->sdynbss = NULL;
2399 ret->srelbss = NULL;
2400 ret->srelplt2 = NULL;
2401 ret->thumb_glue_size = 0;
2402 ret->arm_glue_size = 0;
2403 ret->bfd_of_glue_owner = NULL;
2404 ret->byteswap_code = 0;
2405 ret->target1_is_rel = 0;
2406 ret->target2_reloc = R_ARM_NONE;
2407 #ifdef FOUR_WORD_PLT
2408 ret->plt_header_size = 16;
2409 ret->plt_entry_size = 16;
2410 #else
2411 ret->plt_header_size = 20;
2412 ret->plt_entry_size = 12;
2413 #endif
2414 ret->fix_v4bx = 0;
2415 ret->use_blx = 0;
2416 ret->vxworks_p = 0;
2417 ret->symbian_p = 0;
2418 ret->use_rel = 1;
2419 ret->sym_sec.abfd = NULL;
2420 ret->obfd = abfd;
2421 ret->tls_ldm_got.refcount = 0;
2422
2423 return &ret->root.root;
2424 }
2425
2426 /* Locate the Thumb encoded calling stub for NAME. */
2427
2428 static struct elf_link_hash_entry *
2429 find_thumb_glue (struct bfd_link_info *link_info,
2430 const char *name,
2431 bfd *input_bfd)
2432 {
2433 char *tmp_name;
2434 struct elf_link_hash_entry *hash;
2435 struct elf32_arm_link_hash_table *hash_table;
2436
2437 /* We need a pointer to the armelf specific hash table. */
2438 hash_table = elf32_arm_hash_table (link_info);
2439
2440 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2441 + strlen (THUMB2ARM_GLUE_ENTRY_NAME) + 1);
2442
2443 BFD_ASSERT (tmp_name);
2444
2445 sprintf (tmp_name, THUMB2ARM_GLUE_ENTRY_NAME, name);
2446
2447 hash = elf_link_hash_lookup
2448 (&(hash_table)->root, tmp_name, FALSE, FALSE, TRUE);
2449
2450 if (hash == NULL)
2451 /* xgettext:c-format */
2452 (*_bfd_error_handler) (_("%B: unable to find THUMB glue '%s' for `%s'"),
2453 input_bfd, tmp_name, name);
2454
2455 free (tmp_name);
2456
2457 return hash;
2458 }
2459
2460 /* Locate the ARM encoded calling stub for NAME. */
2461
2462 static struct elf_link_hash_entry *
2463 find_arm_glue (struct bfd_link_info *link_info,
2464 const char *name,
2465 bfd *input_bfd)
2466 {
2467 char *tmp_name;
2468 struct elf_link_hash_entry *myh;
2469 struct elf32_arm_link_hash_table *hash_table;
2470
2471 /* We need a pointer to the elfarm specific hash table. */
2472 hash_table = elf32_arm_hash_table (link_info);
2473
2474 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2475 + strlen (ARM2THUMB_GLUE_ENTRY_NAME) + 1);
2476
2477 BFD_ASSERT (tmp_name);
2478
2479 sprintf (tmp_name, ARM2THUMB_GLUE_ENTRY_NAME, name);
2480
2481 myh = elf_link_hash_lookup
2482 (&(hash_table)->root, tmp_name, FALSE, FALSE, TRUE);
2483
2484 if (myh == NULL)
2485 /* xgettext:c-format */
2486 (*_bfd_error_handler) (_("%B: unable to find ARM glue '%s' for `%s'"),
2487 input_bfd, tmp_name, name);
2488
2489 free (tmp_name);
2490
2491 return myh;
2492 }
2493
2494 /* ARM->Thumb glue (static images):
2495
2496 .arm
2497 __func_from_arm:
2498 ldr r12, __func_addr
2499 bx r12
2500 __func_addr:
2501 .word func @ behave as if you saw a ARM_32 reloc.
2502
2503 (relocatable images)
2504 .arm
2505 __func_from_arm:
2506 ldr r12, __func_offset
2507 add r12, r12, pc
2508 bx r12
2509 __func_offset:
2510 .word func - .
2511 */
2512
2513 #define ARM2THUMB_STATIC_GLUE_SIZE 12
2514 static const insn32 a2t1_ldr_insn = 0xe59fc000;
2515 static const insn32 a2t2_bx_r12_insn = 0xe12fff1c;
2516 static const insn32 a2t3_func_addr_insn = 0x00000001;
2517
2518 #define ARM2THUMB_PIC_GLUE_SIZE 16
2519 static const insn32 a2t1p_ldr_insn = 0xe59fc004;
2520 static const insn32 a2t2p_add_pc_insn = 0xe08cc00f;
2521 static const insn32 a2t3p_bx_r12_insn = 0xe12fff1c;
2522
2523 /* Thumb->ARM: Thumb->(non-interworking aware) ARM
2524
2525 .thumb .thumb
2526 .align 2 .align 2
2527 __func_from_thumb: __func_from_thumb:
2528 bx pc push {r6, lr}
2529 nop ldr r6, __func_addr
2530 .arm mov lr, pc
2531 __func_change_to_arm: bx r6
2532 b func .arm
2533 __func_back_to_thumb:
2534 ldmia r13! {r6, lr}
2535 bx lr
2536 __func_addr:
2537 .word func */
2538
2539 #define THUMB2ARM_GLUE_SIZE 8
2540 static const insn16 t2a1_bx_pc_insn = 0x4778;
2541 static const insn16 t2a2_noop_insn = 0x46c0;
2542 static const insn32 t2a3_b_insn = 0xea000000;
2543
2544 #ifndef ELFARM_NABI_C_INCLUDED
2545 bfd_boolean
2546 bfd_elf32_arm_allocate_interworking_sections (struct bfd_link_info * info)
2547 {
2548 asection * s;
2549 bfd_byte * foo;
2550 struct elf32_arm_link_hash_table * globals;
2551
2552 globals = elf32_arm_hash_table (info);
2553
2554 BFD_ASSERT (globals != NULL);
2555
2556 if (globals->arm_glue_size != 0)
2557 {
2558 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2559
2560 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
2561 ARM2THUMB_GLUE_SECTION_NAME);
2562
2563 BFD_ASSERT (s != NULL);
2564
2565 foo = bfd_alloc (globals->bfd_of_glue_owner, globals->arm_glue_size);
2566
2567 s->size = globals->arm_glue_size;
2568 s->contents = foo;
2569 }
2570
2571 if (globals->thumb_glue_size != 0)
2572 {
2573 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2574
2575 s = bfd_get_section_by_name
2576 (globals->bfd_of_glue_owner, THUMB2ARM_GLUE_SECTION_NAME);
2577
2578 BFD_ASSERT (s != NULL);
2579
2580 foo = bfd_alloc (globals->bfd_of_glue_owner, globals->thumb_glue_size);
2581
2582 s->size = globals->thumb_glue_size;
2583 s->contents = foo;
2584 }
2585
2586 return TRUE;
2587 }
2588
2589 /* Allocate space and symbols for calling a Thumb function from Arm mode.
2590 returns the symbol identifying teh stub. */
2591 static struct elf_link_hash_entry *
2592 record_arm_to_thumb_glue (struct bfd_link_info * link_info,
2593 struct elf_link_hash_entry * h)
2594 {
2595 const char * name = h->root.root.string;
2596 asection * s;
2597 char * tmp_name;
2598 struct elf_link_hash_entry * myh;
2599 struct bfd_link_hash_entry * bh;
2600 struct elf32_arm_link_hash_table * globals;
2601 bfd_vma val;
2602
2603 globals = elf32_arm_hash_table (link_info);
2604
2605 BFD_ASSERT (globals != NULL);
2606 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2607
2608 s = bfd_get_section_by_name
2609 (globals->bfd_of_glue_owner, ARM2THUMB_GLUE_SECTION_NAME);
2610
2611 BFD_ASSERT (s != NULL);
2612
2613 tmp_name = bfd_malloc ((bfd_size_type) strlen (name) + strlen (ARM2THUMB_GLUE_ENTRY_NAME) + 1);
2614
2615 BFD_ASSERT (tmp_name);
2616
2617 sprintf (tmp_name, ARM2THUMB_GLUE_ENTRY_NAME, name);
2618
2619 myh = elf_link_hash_lookup
2620 (&(globals)->root, tmp_name, FALSE, FALSE, TRUE);
2621
2622 if (myh != NULL)
2623 {
2624 /* We've already seen this guy. */
2625 free (tmp_name);
2626 return myh;
2627 }
2628
2629 /* The only trick here is using hash_table->arm_glue_size as the value.
2630 Even though the section isn't allocated yet, this is where we will be
2631 putting it. */
2632 bh = NULL;
2633 val = globals->arm_glue_size + 1;
2634 _bfd_generic_link_add_one_symbol (link_info, globals->bfd_of_glue_owner,
2635 tmp_name, BSF_GLOBAL, s, val,
2636 NULL, TRUE, FALSE, &bh);
2637
2638 myh = (struct elf_link_hash_entry *) bh;
2639 myh->type = ELF_ST_INFO (STB_LOCAL, STT_FUNC);
2640 myh->forced_local = 1;
2641
2642 free (tmp_name);
2643
2644 if ((link_info->shared || globals->root.is_relocatable_executable))
2645 globals->arm_glue_size += ARM2THUMB_PIC_GLUE_SIZE;
2646 else
2647 globals->arm_glue_size += ARM2THUMB_STATIC_GLUE_SIZE;
2648
2649 return myh;
2650 }
2651
2652 static void
2653 record_thumb_to_arm_glue (struct bfd_link_info *link_info,
2654 struct elf_link_hash_entry *h)
2655 {
2656 const char *name = h->root.root.string;
2657 asection *s;
2658 char *tmp_name;
2659 struct elf_link_hash_entry *myh;
2660 struct bfd_link_hash_entry *bh;
2661 struct elf32_arm_link_hash_table *hash_table;
2662 bfd_vma val;
2663
2664 hash_table = elf32_arm_hash_table (link_info);
2665
2666 BFD_ASSERT (hash_table != NULL);
2667 BFD_ASSERT (hash_table->bfd_of_glue_owner != NULL);
2668
2669 s = bfd_get_section_by_name
2670 (hash_table->bfd_of_glue_owner, THUMB2ARM_GLUE_SECTION_NAME);
2671
2672 BFD_ASSERT (s != NULL);
2673
2674 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2675 + strlen (THUMB2ARM_GLUE_ENTRY_NAME) + 1);
2676
2677 BFD_ASSERT (tmp_name);
2678
2679 sprintf (tmp_name, THUMB2ARM_GLUE_ENTRY_NAME, name);
2680
2681 myh = elf_link_hash_lookup
2682 (&(hash_table)->root, tmp_name, FALSE, FALSE, TRUE);
2683
2684 if (myh != NULL)
2685 {
2686 /* We've already seen this guy. */
2687 free (tmp_name);
2688 return;
2689 }
2690
2691 bh = NULL;
2692 val = hash_table->thumb_glue_size + 1;
2693 _bfd_generic_link_add_one_symbol (link_info, hash_table->bfd_of_glue_owner,
2694 tmp_name, BSF_GLOBAL, s, val,
2695 NULL, TRUE, FALSE, &bh);
2696
2697 /* If we mark it 'Thumb', the disassembler will do a better job. */
2698 myh = (struct elf_link_hash_entry *) bh;
2699 myh->type = ELF_ST_INFO (STB_LOCAL, STT_ARM_TFUNC);
2700 myh->forced_local = 1;
2701
2702 free (tmp_name);
2703
2704 #define CHANGE_TO_ARM "__%s_change_to_arm"
2705 #define BACK_FROM_ARM "__%s_back_from_arm"
2706
2707 /* Allocate another symbol to mark where we switch to Arm mode. */
2708 tmp_name = bfd_malloc ((bfd_size_type) strlen (name)
2709 + strlen (CHANGE_TO_ARM) + 1);
2710
2711 BFD_ASSERT (tmp_name);
2712
2713 sprintf (tmp_name, CHANGE_TO_ARM, name);
2714
2715 bh = NULL;
2716 val = hash_table->thumb_glue_size + 4,
2717 _bfd_generic_link_add_one_symbol (link_info, hash_table->bfd_of_glue_owner,
2718 tmp_name, BSF_LOCAL, s, val,
2719 NULL, TRUE, FALSE, &bh);
2720
2721 free (tmp_name);
2722
2723 hash_table->thumb_glue_size += THUMB2ARM_GLUE_SIZE;
2724
2725 return;
2726 }
2727
2728 /* Add the glue sections to ABFD. This function is called from the
2729 linker scripts in ld/emultempl/{armelf}.em. */
2730
2731 bfd_boolean
2732 bfd_elf32_arm_add_glue_sections_to_bfd (bfd *abfd,
2733 struct bfd_link_info *info)
2734 {
2735 flagword flags;
2736 asection *sec;
2737
2738 /* If we are only performing a partial
2739 link do not bother adding the glue. */
2740 if (info->relocatable)
2741 return TRUE;
2742
2743 sec = bfd_get_section_by_name (abfd, ARM2THUMB_GLUE_SECTION_NAME);
2744
2745 if (sec == NULL)
2746 {
2747 /* Note: we do not include the flag SEC_LINKER_CREATED, as this
2748 will prevent elf_link_input_bfd() from processing the contents
2749 of this section. */
2750 flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_CODE | SEC_READONLY;
2751
2752 sec = bfd_make_section_with_flags (abfd,
2753 ARM2THUMB_GLUE_SECTION_NAME,
2754 flags);
2755
2756 if (sec == NULL
2757 || !bfd_set_section_alignment (abfd, sec, 2))
2758 return FALSE;
2759
2760 /* Set the gc mark to prevent the section from being removed by garbage
2761 collection, despite the fact that no relocs refer to this section. */
2762 sec->gc_mark = 1;
2763 }
2764
2765 sec = bfd_get_section_by_name (abfd, THUMB2ARM_GLUE_SECTION_NAME);
2766
2767 if (sec == NULL)
2768 {
2769 flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2770 | SEC_CODE | SEC_READONLY;
2771
2772 sec = bfd_make_section_with_flags (abfd,
2773 THUMB2ARM_GLUE_SECTION_NAME,
2774 flags);
2775
2776 if (sec == NULL
2777 || !bfd_set_section_alignment (abfd, sec, 2))
2778 return FALSE;
2779
2780 sec->gc_mark = 1;
2781 }
2782
2783 return TRUE;
2784 }
2785
2786 /* Select a BFD to be used to hold the sections used by the glue code.
2787 This function is called from the linker scripts in ld/emultempl/
2788 {armelf/pe}.em */
2789
2790 bfd_boolean
2791 bfd_elf32_arm_get_bfd_for_interworking (bfd *abfd, struct bfd_link_info *info)
2792 {
2793 struct elf32_arm_link_hash_table *globals;
2794
2795 /* If we are only performing a partial link
2796 do not bother getting a bfd to hold the glue. */
2797 if (info->relocatable)
2798 return TRUE;
2799
2800 /* Make sure we don't attach the glue sections to a dynamic object. */
2801 BFD_ASSERT (!(abfd->flags & DYNAMIC));
2802
2803 globals = elf32_arm_hash_table (info);
2804
2805 BFD_ASSERT (globals != NULL);
2806
2807 if (globals->bfd_of_glue_owner != NULL)
2808 return TRUE;
2809
2810 /* Save the bfd for later use. */
2811 globals->bfd_of_glue_owner = abfd;
2812
2813 return TRUE;
2814 }
2815
2816 static void check_use_blx(struct elf32_arm_link_hash_table *globals)
2817 {
2818 if (elf32_arm_get_eabi_attr_int (globals->obfd, Tag_CPU_arch) > 2)
2819 globals->use_blx = 1;
2820 }
2821
2822 bfd_boolean
2823 bfd_elf32_arm_process_before_allocation (bfd *abfd,
2824 struct bfd_link_info *link_info,
2825 int byteswap_code)
2826 {
2827 Elf_Internal_Shdr *symtab_hdr;
2828 Elf_Internal_Rela *internal_relocs = NULL;
2829 Elf_Internal_Rela *irel, *irelend;
2830 bfd_byte *contents = NULL;
2831
2832 asection *sec;
2833 struct elf32_arm_link_hash_table *globals;
2834
2835 /* If we are only performing a partial link do not bother
2836 to construct any glue. */
2837 if (link_info->relocatable)
2838 return TRUE;
2839
2840 /* Here we have a bfd that is to be included on the link. We have a hook
2841 to do reloc rummaging, before section sizes are nailed down. */
2842 globals = elf32_arm_hash_table (link_info);
2843 check_use_blx (globals);
2844
2845 BFD_ASSERT (globals != NULL);
2846 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2847
2848 if (byteswap_code && !bfd_big_endian (abfd))
2849 {
2850 _bfd_error_handler (_("%B: BE8 images only valid in big-endian mode."),
2851 abfd);
2852 return FALSE;
2853 }
2854 globals->byteswap_code = byteswap_code;
2855
2856 /* Rummage around all the relocs and map the glue vectors. */
2857 sec = abfd->sections;
2858
2859 if (sec == NULL)
2860 return TRUE;
2861
2862 for (; sec != NULL; sec = sec->next)
2863 {
2864 if (sec->reloc_count == 0)
2865 continue;
2866
2867 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2868
2869 /* Load the relocs. */
2870 internal_relocs
2871 = _bfd_elf_link_read_relocs (abfd, sec, (void *) NULL,
2872 (Elf_Internal_Rela *) NULL, FALSE);
2873
2874 if (internal_relocs == NULL)
2875 goto error_return;
2876
2877 irelend = internal_relocs + sec->reloc_count;
2878 for (irel = internal_relocs; irel < irelend; irel++)
2879 {
2880 long r_type;
2881 unsigned long r_index;
2882
2883 struct elf_link_hash_entry *h;
2884
2885 r_type = ELF32_R_TYPE (irel->r_info);
2886 r_index = ELF32_R_SYM (irel->r_info);
2887
2888 /* These are the only relocation types we care about. */
2889 if ( r_type != R_ARM_PC24
2890 && r_type != R_ARM_PLT32
2891 && r_type != R_ARM_CALL
2892 && r_type != R_ARM_JUMP24
2893 && r_type != R_ARM_THM_CALL)
2894 continue;
2895
2896 /* Get the section contents if we haven't done so already. */
2897 if (contents == NULL)
2898 {
2899 /* Get cached copy if it exists. */
2900 if (elf_section_data (sec)->this_hdr.contents != NULL)
2901 contents = elf_section_data (sec)->this_hdr.contents;
2902 else
2903 {
2904 /* Go get them off disk. */
2905 if (! bfd_malloc_and_get_section (abfd, sec, &contents))
2906 goto error_return;
2907 }
2908 }
2909
2910 /* If the relocation is not against a symbol it cannot concern us. */
2911 h = NULL;
2912
2913 /* We don't care about local symbols. */
2914 if (r_index < symtab_hdr->sh_info)
2915 continue;
2916
2917 /* This is an external symbol. */
2918 r_index -= symtab_hdr->sh_info;
2919 h = (struct elf_link_hash_entry *)
2920 elf_sym_hashes (abfd)[r_index];
2921
2922 /* If the relocation is against a static symbol it must be within
2923 the current section and so cannot be a cross ARM/Thumb relocation. */
2924 if (h == NULL)
2925 continue;
2926
2927 /* If the call will go through a PLT entry then we do not need
2928 glue. */
2929 if (globals->splt != NULL && h->plt.offset != (bfd_vma) -1)
2930 continue;
2931
2932 switch (r_type)
2933 {
2934 case R_ARM_PC24:
2935 case R_ARM_PLT32:
2936 case R_ARM_CALL:
2937 case R_ARM_JUMP24:
2938 /* This one is a call from arm code. We need to look up
2939 the target of the call. If it is a thumb target, we
2940 insert glue. */
2941 if (ELF_ST_TYPE(h->type) == STT_ARM_TFUNC
2942 && !(r_type == R_ARM_CALL && globals->use_blx))
2943 record_arm_to_thumb_glue (link_info, h);
2944 break;
2945
2946 case R_ARM_THM_CALL:
2947 /* This one is a call from thumb code. We look
2948 up the target of the call. If it is not a thumb
2949 target, we insert glue. */
2950 if (ELF_ST_TYPE (h->type) != STT_ARM_TFUNC && !globals->use_blx)
2951 record_thumb_to_arm_glue (link_info, h);
2952 break;
2953
2954 default:
2955 abort ();
2956 }
2957 }
2958
2959 if (contents != NULL
2960 && elf_section_data (sec)->this_hdr.contents != contents)
2961 free (contents);
2962 contents = NULL;
2963
2964 if (internal_relocs != NULL
2965 && elf_section_data (sec)->relocs != internal_relocs)
2966 free (internal_relocs);
2967 internal_relocs = NULL;
2968 }
2969
2970 return TRUE;
2971
2972 error_return:
2973 if (contents != NULL
2974 && elf_section_data (sec)->this_hdr.contents != contents)
2975 free (contents);
2976 if (internal_relocs != NULL
2977 && elf_section_data (sec)->relocs != internal_relocs)
2978 free (internal_relocs);
2979
2980 return FALSE;
2981 }
2982 #endif
2983
2984
2985 /* Set target relocation values needed during linking. */
2986
2987 void
2988 bfd_elf32_arm_set_target_relocs (struct bfd_link_info *link_info,
2989 int target1_is_rel,
2990 char * target2_type,
2991 int fix_v4bx,
2992 int use_blx)
2993 {
2994 struct elf32_arm_link_hash_table *globals;
2995
2996 globals = elf32_arm_hash_table (link_info);
2997
2998 globals->target1_is_rel = target1_is_rel;
2999 if (strcmp (target2_type, "rel") == 0)
3000 globals->target2_reloc = R_ARM_REL32;
3001 else if (strcmp (target2_type, "abs") == 0)
3002 globals->target2_reloc = R_ARM_ABS32;
3003 else if (strcmp (target2_type, "got-rel") == 0)
3004 globals->target2_reloc = R_ARM_GOT_PREL;
3005 else
3006 {
3007 _bfd_error_handler (_("Invalid TARGET2 relocation type '%s'."),
3008 target2_type);
3009 }
3010 globals->fix_v4bx = fix_v4bx;
3011 globals->use_blx |= use_blx;
3012 }
3013
3014 /* The thumb form of a long branch is a bit finicky, because the offset
3015 encoding is split over two fields, each in it's own instruction. They
3016 can occur in any order. So given a thumb form of long branch, and an
3017 offset, insert the offset into the thumb branch and return finished
3018 instruction.
3019
3020 It takes two thumb instructions to encode the target address. Each has
3021 11 bits to invest. The upper 11 bits are stored in one (identified by
3022 H-0.. see below), the lower 11 bits are stored in the other (identified
3023 by H-1).
3024
3025 Combine together and shifted left by 1 (it's a half word address) and
3026 there you have it.
3027
3028 Op: 1111 = F,
3029 H-0, upper address-0 = 000
3030 Op: 1111 = F,
3031 H-1, lower address-0 = 800
3032
3033 They can be ordered either way, but the arm tools I've seen always put
3034 the lower one first. It probably doesn't matter. krk@cygnus.com
3035
3036 XXX: Actually the order does matter. The second instruction (H-1)
3037 moves the computed address into the PC, so it must be the second one
3038 in the sequence. The problem, however is that whilst little endian code
3039 stores the instructions in HI then LOW order, big endian code does the
3040 reverse. nickc@cygnus.com. */
3041
3042 #define LOW_HI_ORDER 0xF800F000
3043 #define HI_LOW_ORDER 0xF000F800
3044
3045 static insn32
3046 insert_thumb_branch (insn32 br_insn, int rel_off)
3047 {
3048 unsigned int low_bits;
3049 unsigned int high_bits;
3050
3051 BFD_ASSERT ((rel_off & 1) != 1);
3052
3053 rel_off >>= 1; /* Half word aligned address. */
3054 low_bits = rel_off & 0x000007FF; /* The bottom 11 bits. */
3055 high_bits = (rel_off >> 11) & 0x000007FF; /* The top 11 bits. */
3056
3057 if ((br_insn & LOW_HI_ORDER) == LOW_HI_ORDER)
3058 br_insn = LOW_HI_ORDER | (low_bits << 16) | high_bits;
3059 else if ((br_insn & HI_LOW_ORDER) == HI_LOW_ORDER)
3060 br_insn = HI_LOW_ORDER | (high_bits << 16) | low_bits;
3061 else
3062 /* FIXME: abort is probably not the right call. krk@cygnus.com */
3063 abort (); /* Error - not a valid branch instruction form. */
3064
3065 return br_insn;
3066 }
3067
3068
3069 /* Store an Arm insn into an output section not processed by
3070 elf32_arm_write_section. */
3071
3072 static void
3073 put_arm_insn (struct elf32_arm_link_hash_table *htab,
3074 bfd * output_bfd, bfd_vma val, void * ptr)
3075 {
3076 if (htab->byteswap_code != bfd_little_endian (output_bfd))
3077 bfd_putl32 (val, ptr);
3078 else
3079 bfd_putb32 (val, ptr);
3080 }
3081
3082
3083 /* Store a 16-bit Thumb insn into an output section not processed by
3084 elf32_arm_write_section. */
3085
3086 static void
3087 put_thumb_insn (struct elf32_arm_link_hash_table *htab,
3088 bfd * output_bfd, bfd_vma val, void * ptr)
3089 {
3090 if (htab->byteswap_code != bfd_little_endian (output_bfd))
3091 bfd_putl16 (val, ptr);
3092 else
3093 bfd_putb16 (val, ptr);
3094 }
3095
3096
3097 /* Thumb code calling an ARM function. */
3098
3099 static int
3100 elf32_thumb_to_arm_stub (struct bfd_link_info * info,
3101 const char * name,
3102 bfd * input_bfd,
3103 bfd * output_bfd,
3104 asection * input_section,
3105 bfd_byte * hit_data,
3106 asection * sym_sec,
3107 bfd_vma offset,
3108 bfd_signed_vma addend,
3109 bfd_vma val)
3110 {
3111 asection * s = 0;
3112 bfd_vma my_offset;
3113 unsigned long int tmp;
3114 long int ret_offset;
3115 struct elf_link_hash_entry * myh;
3116 struct elf32_arm_link_hash_table * globals;
3117
3118 myh = find_thumb_glue (info, name, input_bfd);
3119 if (myh == NULL)
3120 return FALSE;
3121
3122 globals = elf32_arm_hash_table (info);
3123
3124 BFD_ASSERT (globals != NULL);
3125 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3126
3127 my_offset = myh->root.u.def.value;
3128
3129 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
3130 THUMB2ARM_GLUE_SECTION_NAME);
3131
3132 BFD_ASSERT (s != NULL);
3133 BFD_ASSERT (s->contents != NULL);
3134 BFD_ASSERT (s->output_section != NULL);
3135
3136 if ((my_offset & 0x01) == 0x01)
3137 {
3138 if (sym_sec != NULL
3139 && sym_sec->owner != NULL
3140 && !INTERWORK_FLAG (sym_sec->owner))
3141 {
3142 (*_bfd_error_handler)
3143 (_("%B(%s): warning: interworking not enabled.\n"
3144 " first occurrence: %B: thumb call to arm"),
3145 sym_sec->owner, input_bfd, name);
3146
3147 return FALSE;
3148 }
3149
3150 --my_offset;
3151 myh->root.u.def.value = my_offset;
3152
3153 put_thumb_insn (globals, output_bfd, (bfd_vma) t2a1_bx_pc_insn,
3154 s->contents + my_offset);
3155
3156 put_thumb_insn (globals, output_bfd, (bfd_vma) t2a2_noop_insn,
3157 s->contents + my_offset + 2);
3158
3159 ret_offset =
3160 /* Address of destination of the stub. */
3161 ((bfd_signed_vma) val)
3162 - ((bfd_signed_vma)
3163 /* Offset from the start of the current section
3164 to the start of the stubs. */
3165 (s->output_offset
3166 /* Offset of the start of this stub from the start of the stubs. */
3167 + my_offset
3168 /* Address of the start of the current section. */
3169 + s->output_section->vma)
3170 /* The branch instruction is 4 bytes into the stub. */
3171 + 4
3172 /* ARM branches work from the pc of the instruction + 8. */
3173 + 8);
3174
3175 put_arm_insn (globals, output_bfd,
3176 (bfd_vma) t2a3_b_insn | ((ret_offset >> 2) & 0x00FFFFFF),
3177 s->contents + my_offset + 4);
3178 }
3179
3180 BFD_ASSERT (my_offset <= globals->thumb_glue_size);
3181
3182 /* Now go back and fix up the original BL insn to point to here. */
3183 ret_offset =
3184 /* Address of where the stub is located. */
3185 (s->output_section->vma + s->output_offset + my_offset)
3186 /* Address of where the BL is located. */
3187 - (input_section->output_section->vma + input_section->output_offset
3188 + offset)
3189 /* Addend in the relocation. */
3190 - addend
3191 /* Biassing for PC-relative addressing. */
3192 - 8;
3193
3194 tmp = bfd_get_32 (input_bfd, hit_data
3195 - input_section->vma);
3196
3197 bfd_put_32 (output_bfd,
3198 (bfd_vma) insert_thumb_branch (tmp, ret_offset),
3199 hit_data - input_section->vma);
3200
3201 return TRUE;
3202 }
3203
3204 /* Populate an Arm to Thumb stub. Returns the stub symbol. */
3205
3206 static struct elf_link_hash_entry *
3207 elf32_arm_create_thumb_stub (struct bfd_link_info * info,
3208 const char * name,
3209 bfd * input_bfd,
3210 bfd * output_bfd,
3211 asection * sym_sec,
3212 bfd_vma val,
3213 asection *s)
3214 {
3215 bfd_vma my_offset;
3216 long int ret_offset;
3217 struct elf_link_hash_entry * myh;
3218 struct elf32_arm_link_hash_table * globals;
3219
3220 myh = find_arm_glue (info, name, input_bfd);
3221 if (myh == NULL)
3222 return NULL;
3223
3224 globals = elf32_arm_hash_table (info);
3225
3226 BFD_ASSERT (globals != NULL);
3227 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3228
3229 my_offset = myh->root.u.def.value;
3230
3231 if ((my_offset & 0x01) == 0x01)
3232 {
3233 if (sym_sec != NULL
3234 && sym_sec->owner != NULL
3235 && !INTERWORK_FLAG (sym_sec->owner))
3236 {
3237 (*_bfd_error_handler)
3238 (_("%B(%s): warning: interworking not enabled.\n"
3239 " first occurrence: %B: arm call to thumb"),
3240 sym_sec->owner, input_bfd, name);
3241 }
3242
3243 --my_offset;
3244 myh->root.u.def.value = my_offset;
3245
3246 if ((info->shared || globals->root.is_relocatable_executable))
3247 {
3248 /* For relocatable objects we can't use absolute addresses,
3249 so construct the address from a relative offset. */
3250 /* TODO: If the offset is small it's probably worth
3251 constructing the address with adds. */
3252 put_arm_insn (globals, output_bfd, (bfd_vma) a2t1p_ldr_insn,
3253 s->contents + my_offset);
3254 put_arm_insn (globals, output_bfd, (bfd_vma) a2t2p_add_pc_insn,
3255 s->contents + my_offset + 4);
3256 put_arm_insn (globals, output_bfd, (bfd_vma) a2t3p_bx_r12_insn,
3257 s->contents + my_offset + 8);
3258 /* Adjust the offset by 4 for the position of the add,
3259 and 8 for the pipeline offset. */
3260 ret_offset = (val - (s->output_offset
3261 + s->output_section->vma
3262 + my_offset + 12))
3263 | 1;
3264 bfd_put_32 (output_bfd, ret_offset,
3265 s->contents + my_offset + 12);
3266 }
3267 else
3268 {
3269 put_arm_insn (globals, output_bfd, (bfd_vma) a2t1_ldr_insn,
3270 s->contents + my_offset);
3271
3272 put_arm_insn (globals, output_bfd, (bfd_vma) a2t2_bx_r12_insn,
3273 s->contents + my_offset + 4);
3274
3275 /* It's a thumb address. Add the low order bit. */
3276 bfd_put_32 (output_bfd, val | a2t3_func_addr_insn,
3277 s->contents + my_offset + 8);
3278 }
3279 }
3280
3281 BFD_ASSERT (my_offset <= globals->arm_glue_size);
3282
3283 return myh;
3284 }
3285
3286 /* Arm code calling a Thumb function. */
3287
3288 static int
3289 elf32_arm_to_thumb_stub (struct bfd_link_info * info,
3290 const char * name,
3291 bfd * input_bfd,
3292 bfd * output_bfd,
3293 asection * input_section,
3294 bfd_byte * hit_data,
3295 asection * sym_sec,
3296 bfd_vma offset,
3297 bfd_signed_vma addend,
3298 bfd_vma val)
3299 {
3300 unsigned long int tmp;
3301 bfd_vma my_offset;
3302 asection * s;
3303 long int ret_offset;
3304 struct elf_link_hash_entry * myh;
3305 struct elf32_arm_link_hash_table * globals;
3306
3307 globals = elf32_arm_hash_table (info);
3308
3309 BFD_ASSERT (globals != NULL);
3310 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3311
3312 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
3313 ARM2THUMB_GLUE_SECTION_NAME);
3314 BFD_ASSERT (s != NULL);
3315 BFD_ASSERT (s->contents != NULL);
3316 BFD_ASSERT (s->output_section != NULL);
3317
3318 myh = elf32_arm_create_thumb_stub (info, name, input_bfd, output_bfd,
3319 sym_sec, val, s);
3320 if (!myh)
3321 return FALSE;
3322
3323 my_offset = myh->root.u.def.value;
3324 tmp = bfd_get_32 (input_bfd, hit_data);
3325 tmp = tmp & 0xFF000000;
3326
3327 /* Somehow these are both 4 too far, so subtract 8. */
3328 ret_offset = (s->output_offset
3329 + my_offset
3330 + s->output_section->vma
3331 - (input_section->output_offset
3332 + input_section->output_section->vma
3333 + offset + addend)
3334 - 8);
3335
3336 tmp = tmp | ((ret_offset >> 2) & 0x00FFFFFF);
3337
3338 bfd_put_32 (output_bfd, (bfd_vma) tmp, hit_data - input_section->vma);
3339
3340 return TRUE;
3341 }
3342
3343 /* Populate Arm stub for an exported Thumb function. */
3344
3345 static bfd_boolean
3346 elf32_arm_to_thumb_export_stub (struct elf_link_hash_entry *h, void * inf)
3347 {
3348 struct bfd_link_info * info = (struct bfd_link_info *) inf;
3349 asection * s;
3350 struct elf_link_hash_entry * myh;
3351 struct elf32_arm_link_hash_entry *eh;
3352 struct elf32_arm_link_hash_table * globals;
3353 asection *sec;
3354 bfd_vma val;
3355
3356 eh = elf32_arm_hash_entry(h);
3357 /* Allocate stubs for exported Thumb functions on v4t. */
3358 if (eh->export_glue == NULL)
3359 return TRUE;
3360
3361 globals = elf32_arm_hash_table (info);
3362
3363 BFD_ASSERT (globals != NULL);
3364 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
3365
3366 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
3367 ARM2THUMB_GLUE_SECTION_NAME);
3368 BFD_ASSERT (s != NULL);
3369 BFD_ASSERT (s->contents != NULL);
3370 BFD_ASSERT (s->output_section != NULL);
3371
3372 sec = eh->export_glue->root.u.def.section;
3373 val = eh->export_glue->root.u.def.value + sec->output_offset
3374 + sec->output_section->vma;
3375 myh = elf32_arm_create_thumb_stub (info, h->root.root.string,
3376 h->root.u.def.section->owner,
3377 globals->obfd, sec, val, s);
3378 BFD_ASSERT (myh);
3379 return TRUE;
3380 }
3381
3382 /* Generate Arm stubs for exported Thumb symbols. */
3383 static void
3384 elf32_arm_begin_write_processing (bfd *abfd ATTRIBUTE_UNUSED,
3385 struct bfd_link_info *link_info)
3386 {
3387 struct elf32_arm_link_hash_table * globals;
3388
3389 if (!link_info)
3390 return;
3391
3392 globals = elf32_arm_hash_table (link_info);
3393 if (globals->use_blx)
3394 return;
3395
3396 elf_link_hash_traverse (&globals->root, elf32_arm_to_thumb_export_stub,
3397 link_info);
3398 }
3399
3400 /* Some relocations map to different relocations depending on the
3401 target. Return the real relocation. */
3402 static int
3403 arm_real_reloc_type (struct elf32_arm_link_hash_table * globals,
3404 int r_type)
3405 {
3406 switch (r_type)
3407 {
3408 case R_ARM_TARGET1:
3409 if (globals->target1_is_rel)
3410 return R_ARM_REL32;
3411 else
3412 return R_ARM_ABS32;
3413
3414 case R_ARM_TARGET2:
3415 return globals->target2_reloc;
3416
3417 default:
3418 return r_type;
3419 }
3420 }
3421
3422 /* Return the base VMA address which should be subtracted from real addresses
3423 when resolving @dtpoff relocation.
3424 This is PT_TLS segment p_vaddr. */
3425
3426 static bfd_vma
3427 dtpoff_base (struct bfd_link_info *info)
3428 {
3429 /* If tls_sec is NULL, we should have signalled an error already. */
3430 if (elf_hash_table (info)->tls_sec == NULL)
3431 return 0;
3432 return elf_hash_table (info)->tls_sec->vma;
3433 }
3434
3435 /* Return the relocation value for @tpoff relocation
3436 if STT_TLS virtual address is ADDRESS. */
3437
3438 static bfd_vma
3439 tpoff (struct bfd_link_info *info, bfd_vma address)
3440 {
3441 struct elf_link_hash_table *htab = elf_hash_table (info);
3442 bfd_vma base;
3443
3444 /* If tls_sec is NULL, we should have signalled an error already. */
3445 if (htab->tls_sec == NULL)
3446 return 0;
3447 base = align_power ((bfd_vma) TCB_SIZE, htab->tls_sec->alignment_power);
3448 return address - htab->tls_sec->vma + base;
3449 }
3450
3451 /* Perform an R_ARM_ABS12 relocation on the field pointed to by DATA.
3452 VALUE is the relocation value. */
3453
3454 static bfd_reloc_status_type
3455 elf32_arm_abs12_reloc (bfd *abfd, void *data, bfd_vma value)
3456 {
3457 if (value > 0xfff)
3458 return bfd_reloc_overflow;
3459
3460 value |= bfd_get_32 (abfd, data) & 0xfffff000;
3461 bfd_put_32 (abfd, value, data);
3462 return bfd_reloc_ok;
3463 }
3464
3465 /* For a given value of n, calculate the value of G_n as required to
3466 deal with group relocations. We return it in the form of an
3467 encoded constant-and-rotation, together with the final residual. If n is
3468 specified as less than zero, then final_residual is filled with the
3469 input value and no further action is performed. */
3470
3471 static bfd_vma
3472 calculate_group_reloc_mask (bfd_vma value, int n, bfd_vma *final_residual)
3473 {
3474 int current_n;
3475 bfd_vma g_n;
3476 bfd_vma encoded_g_n = 0;
3477 bfd_vma residual = value; /* Also known as Y_n. */
3478
3479 for (current_n = 0; current_n <= n; current_n++)
3480 {
3481 int shift;
3482
3483 /* Calculate which part of the value to mask. */
3484 if (residual == 0)
3485 shift = 0;
3486 else
3487 {
3488 int msb;
3489
3490 /* Determine the most significant bit in the residual and
3491 align the resulting value to a 2-bit boundary. */
3492 for (msb = 30; msb >= 0; msb -= 2)
3493 if (residual & (3 << msb))
3494 break;
3495
3496 /* The desired shift is now (msb - 6), or zero, whichever
3497 is the greater. */
3498 shift = msb - 6;
3499 if (shift < 0)
3500 shift = 0;
3501 }
3502
3503 /* Calculate g_n in 32-bit as well as encoded constant+rotation form. */
3504 g_n = residual & (0xff << shift);
3505 encoded_g_n = (g_n >> shift)
3506 | ((g_n <= 0xff ? 0 : (32 - shift) / 2) << 8);
3507
3508 /* Calculate the residual for the next time around. */
3509 residual &= ~g_n;
3510 }
3511
3512 *final_residual = residual;
3513
3514 return encoded_g_n;
3515 }
3516
3517 /* Given an ARM instruction, determine whether it is an ADD or a SUB.
3518 Returns 1 if it is an ADD, -1 if it is a SUB, and 0 otherwise. */
3519 static int
3520 identify_add_or_sub(bfd_vma insn)
3521 {
3522 int opcode = insn & 0x1e00000;
3523
3524 if (opcode == 1 << 23) /* ADD */
3525 return 1;
3526
3527 if (opcode == 1 << 22) /* SUB */
3528 return -1;
3529
3530 return 0;
3531 }
3532
3533 /* Perform a relocation as part of a final link. */
3534
3535 static bfd_reloc_status_type
3536 elf32_arm_final_link_relocate (reloc_howto_type * howto,
3537 bfd * input_bfd,
3538 bfd * output_bfd,
3539 asection * input_section,
3540 bfd_byte * contents,
3541 Elf_Internal_Rela * rel,
3542 bfd_vma value,
3543 struct bfd_link_info * info,
3544 asection * sym_sec,
3545 const char * sym_name,
3546 int sym_flags,
3547 struct elf_link_hash_entry * h,
3548 bfd_boolean * unresolved_reloc_p)
3549 {
3550 unsigned long r_type = howto->type;
3551 unsigned long r_symndx;
3552 bfd_byte * hit_data = contents + rel->r_offset;
3553 bfd * dynobj = NULL;
3554 Elf_Internal_Shdr * symtab_hdr;
3555 struct elf_link_hash_entry ** sym_hashes;
3556 bfd_vma * local_got_offsets;
3557 asection * sgot = NULL;
3558 asection * splt = NULL;
3559 asection * sreloc = NULL;
3560 bfd_vma addend;
3561 bfd_signed_vma signed_addend;
3562 struct elf32_arm_link_hash_table * globals;
3563
3564 globals = elf32_arm_hash_table (info);
3565
3566 /* Some relocation type map to different relocations depending on the
3567 target. We pick the right one here. */
3568 r_type = arm_real_reloc_type (globals, r_type);
3569 if (r_type != howto->type)
3570 howto = elf32_arm_howto_from_type (r_type);
3571
3572 /* If the start address has been set, then set the EF_ARM_HASENTRY
3573 flag. Setting this more than once is redundant, but the cost is
3574 not too high, and it keeps the code simple.
3575
3576 The test is done here, rather than somewhere else, because the
3577 start address is only set just before the final link commences.
3578
3579 Note - if the user deliberately sets a start address of 0, the
3580 flag will not be set. */
3581 if (bfd_get_start_address (output_bfd) != 0)
3582 elf_elfheader (output_bfd)->e_flags |= EF_ARM_HASENTRY;
3583
3584 dynobj = elf_hash_table (info)->dynobj;
3585 if (dynobj)
3586 {
3587 sgot = bfd_get_section_by_name (dynobj, ".got");
3588 splt = bfd_get_section_by_name (dynobj, ".plt");
3589 }
3590 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
3591 sym_hashes = elf_sym_hashes (input_bfd);
3592 local_got_offsets = elf_local_got_offsets (input_bfd);
3593 r_symndx = ELF32_R_SYM (rel->r_info);
3594
3595 if (globals->use_rel)
3596 {
3597 addend = bfd_get_32 (input_bfd, hit_data) & howto->src_mask;
3598
3599 if (addend & ((howto->src_mask + 1) >> 1))
3600 {
3601 signed_addend = -1;
3602 signed_addend &= ~ howto->src_mask;
3603 signed_addend |= addend;
3604 }
3605 else
3606 signed_addend = addend;
3607 }
3608 else
3609 addend = signed_addend = rel->r_addend;
3610
3611 switch (r_type)
3612 {
3613 case R_ARM_NONE:
3614 /* We don't need to find a value for this symbol. It's just a
3615 marker. */
3616 *unresolved_reloc_p = FALSE;
3617 return bfd_reloc_ok;
3618
3619 case R_ARM_ABS12:
3620 if (!globals->vxworks_p)
3621 return elf32_arm_abs12_reloc (input_bfd, hit_data, value + addend);
3622
3623 case R_ARM_PC24:
3624 case R_ARM_ABS32:
3625 case R_ARM_REL32:
3626 case R_ARM_CALL:
3627 case R_ARM_JUMP24:
3628 case R_ARM_XPC25:
3629 case R_ARM_PREL31:
3630 case R_ARM_PLT32:
3631 /* r_symndx will be zero only for relocs against symbols
3632 from removed linkonce sections, or sections discarded by
3633 a linker script. */
3634 if (r_symndx == 0)
3635 return bfd_reloc_ok;
3636
3637 /* Handle relocations which should use the PLT entry. ABS32/REL32
3638 will use the symbol's value, which may point to a PLT entry, but we
3639 don't need to handle that here. If we created a PLT entry, all
3640 branches in this object should go to it. */
3641 if ((r_type != R_ARM_ABS32 && r_type != R_ARM_REL32)
3642 && h != NULL
3643 && splt != NULL
3644 && h->plt.offset != (bfd_vma) -1)
3645 {
3646 /* If we've created a .plt section, and assigned a PLT entry to
3647 this function, it should not be known to bind locally. If
3648 it were, we would have cleared the PLT entry. */
3649 BFD_ASSERT (!SYMBOL_CALLS_LOCAL (info, h));
3650
3651 value = (splt->output_section->vma
3652 + splt->output_offset
3653 + h->plt.offset);
3654 *unresolved_reloc_p = FALSE;
3655 return _bfd_final_link_relocate (howto, input_bfd, input_section,
3656 contents, rel->r_offset, value,
3657 rel->r_addend);
3658 }
3659
3660 /* When generating a shared object or relocatable executable, these
3661 relocations are copied into the output file to be resolved at
3662 run time. */
3663 if ((info->shared || globals->root.is_relocatable_executable)
3664 && (input_section->flags & SEC_ALLOC)
3665 && (r_type != R_ARM_REL32
3666 || !SYMBOL_CALLS_LOCAL (info, h))
3667 && (h == NULL
3668 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3669 || h->root.type != bfd_link_hash_undefweak)
3670 && r_type != R_ARM_PC24
3671 && r_type != R_ARM_CALL
3672 && r_type != R_ARM_JUMP24
3673 && r_type != R_ARM_PREL31
3674 && r_type != R_ARM_PLT32)
3675 {
3676 Elf_Internal_Rela outrel;
3677 bfd_byte *loc;
3678 bfd_boolean skip, relocate;
3679
3680 *unresolved_reloc_p = FALSE;
3681
3682 if (sreloc == NULL)
3683 {
3684 const char * name;
3685
3686 name = (bfd_elf_string_from_elf_section
3687 (input_bfd,
3688 elf_elfheader (input_bfd)->e_shstrndx,
3689 elf_section_data (input_section)->rel_hdr.sh_name));
3690 if (name == NULL)
3691 return bfd_reloc_notsupported;
3692
3693 BFD_ASSERT (reloc_section_p (globals, name, input_section));
3694
3695 sreloc = bfd_get_section_by_name (dynobj, name);
3696 BFD_ASSERT (sreloc != NULL);
3697 }
3698
3699 skip = FALSE;
3700 relocate = FALSE;
3701
3702 outrel.r_addend = addend;
3703 outrel.r_offset =
3704 _bfd_elf_section_offset (output_bfd, info, input_section,
3705 rel->r_offset);
3706 if (outrel.r_offset == (bfd_vma) -1)
3707 skip = TRUE;
3708 else if (outrel.r_offset == (bfd_vma) -2)
3709 skip = TRUE, relocate = TRUE;
3710 outrel.r_offset += (input_section->output_section->vma
3711 + input_section->output_offset);
3712
3713 if (skip)
3714 memset (&outrel, 0, sizeof outrel);
3715 else if (h != NULL
3716 && h->dynindx != -1
3717 && (!info->shared
3718 || !info->symbolic
3719 || !h->def_regular))
3720 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3721 else
3722 {
3723 int symbol;
3724
3725 /* This symbol is local, or marked to become local. */
3726 if (sym_flags == STT_ARM_TFUNC)
3727 value |= 1;
3728 if (globals->symbian_p)
3729 {
3730 /* On Symbian OS, the data segment and text segement
3731 can be relocated independently. Therefore, we
3732 must indicate the segment to which this
3733 relocation is relative. The BPABI allows us to
3734 use any symbol in the right segment; we just use
3735 the section symbol as it is convenient. (We
3736 cannot use the symbol given by "h" directly as it
3737 will not appear in the dynamic symbol table.) */
3738 if (sym_sec)
3739 symbol = elf_section_data (sym_sec->output_section)->dynindx;
3740 else
3741 symbol = elf_section_data (input_section->output_section)->dynindx;
3742 BFD_ASSERT (symbol != 0);
3743 }
3744 else
3745 /* On SVR4-ish systems, the dynamic loader cannot
3746 relocate the text and data segments independently,
3747 so the symbol does not matter. */
3748 symbol = 0;
3749 outrel.r_info = ELF32_R_INFO (symbol, R_ARM_RELATIVE);
3750 if (globals->use_rel)
3751 relocate = TRUE;
3752 else
3753 outrel.r_addend += value;
3754 }
3755
3756 loc = sreloc->contents;
3757 loc += sreloc->reloc_count++ * RELOC_SIZE (globals);
3758 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
3759
3760 /* If this reloc is against an external symbol, we do not want to
3761 fiddle with the addend. Otherwise, we need to include the symbol
3762 value so that it becomes an addend for the dynamic reloc. */
3763 if (! relocate)
3764 return bfd_reloc_ok;
3765
3766 return _bfd_final_link_relocate (howto, input_bfd, input_section,
3767 contents, rel->r_offset, value,
3768 (bfd_vma) 0);
3769 }
3770 else switch (r_type)
3771 {
3772 case R_ARM_ABS12:
3773 return elf32_arm_abs12_reloc (input_bfd, hit_data, value + addend);
3774
3775 case R_ARM_XPC25: /* Arm BLX instruction. */
3776 case R_ARM_CALL:
3777 case R_ARM_JUMP24:
3778 case R_ARM_PC24: /* Arm B/BL instruction */
3779 case R_ARM_PLT32:
3780 if (r_type == R_ARM_XPC25)
3781 {
3782 /* Check for Arm calling Arm function. */
3783 /* FIXME: Should we translate the instruction into a BL
3784 instruction instead ? */
3785 if (sym_flags != STT_ARM_TFUNC)
3786 (*_bfd_error_handler)
3787 (_("\%B: Warning: Arm BLX instruction targets Arm function '%s'."),
3788 input_bfd,
3789 h ? h->root.root.string : "(local)");
3790 }
3791 else if (r_type != R_ARM_CALL || !globals->use_blx)
3792 {
3793 /* Check for Arm calling Thumb function. */
3794 if (sym_flags == STT_ARM_TFUNC)
3795 {
3796 elf32_arm_to_thumb_stub (info, sym_name, input_bfd,
3797 output_bfd, input_section,
3798 hit_data, sym_sec, rel->r_offset,
3799 signed_addend, value);
3800 return bfd_reloc_ok;
3801 }
3802 }
3803
3804 /* The ARM ELF ABI says that this reloc is computed as: S - P + A
3805 where:
3806 S is the address of the symbol in the relocation.
3807 P is address of the instruction being relocated.
3808 A is the addend (extracted from the instruction) in bytes.
3809
3810 S is held in 'value'.
3811 P is the base address of the section containing the
3812 instruction plus the offset of the reloc into that
3813 section, ie:
3814 (input_section->output_section->vma +
3815 input_section->output_offset +
3816 rel->r_offset).
3817 A is the addend, converted into bytes, ie:
3818 (signed_addend * 4)
3819
3820 Note: None of these operations have knowledge of the pipeline
3821 size of the processor, thus it is up to the assembler to
3822 encode this information into the addend. */
3823 value -= (input_section->output_section->vma
3824 + input_section->output_offset);
3825 value -= rel->r_offset;
3826 if (globals->use_rel)
3827 value += (signed_addend << howto->size);
3828 else
3829 /* RELA addends do not have to be adjusted by howto->size. */
3830 value += signed_addend;
3831
3832 signed_addend = value;
3833 signed_addend >>= howto->rightshift;
3834
3835 /* It is not an error for an undefined weak reference to be
3836 out of range. Any program that branches to such a symbol
3837 is going to crash anyway, so there is no point worrying
3838 about getting the destination exactly right. */
3839 if (! h || h->root.type != bfd_link_hash_undefweak)
3840 {
3841 /* Perform a signed range check. */
3842 if ( signed_addend > ((bfd_signed_vma) (howto->dst_mask >> 1))
3843 || signed_addend < - ((bfd_signed_vma) ((howto->dst_mask + 1) >> 1)))
3844 return bfd_reloc_overflow;
3845 }
3846
3847 addend = (value & 2);
3848
3849 value = (signed_addend & howto->dst_mask)
3850 | (bfd_get_32 (input_bfd, hit_data) & (~ howto->dst_mask));
3851
3852 /* Set the H bit in the BLX instruction. */
3853 if (sym_flags == STT_ARM_TFUNC)
3854 {
3855 if (addend)
3856 value |= (1 << 24);
3857 else
3858 value &= ~(bfd_vma)(1 << 24);
3859 }
3860 if (r_type == R_ARM_CALL)
3861 {
3862 /* Select the correct instruction (BL or BLX). */
3863 if (sym_flags == STT_ARM_TFUNC)
3864 value |= (1 << 28);
3865 else
3866 {
3867 value &= ~(bfd_vma)(1 << 28);
3868 value |= (1 << 24);
3869 }
3870 }
3871 break;
3872
3873 case R_ARM_ABS32:
3874 value += addend;
3875 if (sym_flags == STT_ARM_TFUNC)
3876 value |= 1;
3877 break;
3878
3879 case R_ARM_REL32:
3880 value += addend;
3881 if (sym_flags == STT_ARM_TFUNC)
3882 value |= 1;
3883 value -= (input_section->output_section->vma
3884 + input_section->output_offset + rel->r_offset);
3885 break;
3886
3887 case R_ARM_PREL31:
3888 value -= (input_section->output_section->vma
3889 + input_section->output_offset + rel->r_offset);
3890 value += signed_addend;
3891 if (! h || h->root.type != bfd_link_hash_undefweak)
3892 {
3893 /* Check for overflow */
3894 if ((value ^ (value >> 1)) & (1 << 30))
3895 return bfd_reloc_overflow;
3896 }
3897 value &= 0x7fffffff;
3898 value |= (bfd_get_32 (input_bfd, hit_data) & 0x80000000);
3899 if (sym_flags == STT_ARM_TFUNC)
3900 value |= 1;
3901 break;
3902 }
3903
3904 bfd_put_32 (input_bfd, value, hit_data);
3905 return bfd_reloc_ok;
3906
3907 case R_ARM_ABS8:
3908 value += addend;
3909 if ((long) value > 0x7f || (long) value < -0x80)
3910 return bfd_reloc_overflow;
3911
3912 bfd_put_8 (input_bfd, value, hit_data);
3913 return bfd_reloc_ok;
3914
3915 case R_ARM_ABS16:
3916 value += addend;
3917
3918 if ((long) value > 0x7fff || (long) value < -0x8000)
3919 return bfd_reloc_overflow;
3920
3921 bfd_put_16 (input_bfd, value, hit_data);
3922 return bfd_reloc_ok;
3923
3924 case R_ARM_THM_ABS5:
3925 /* Support ldr and str instructions for the thumb. */
3926 if (globals->use_rel)
3927 {
3928 /* Need to refetch addend. */
3929 addend = bfd_get_16 (input_bfd, hit_data) & howto->src_mask;
3930 /* ??? Need to determine shift amount from operand size. */
3931 addend >>= howto->rightshift;
3932 }
3933 value += addend;
3934
3935 /* ??? Isn't value unsigned? */
3936 if ((long) value > 0x1f || (long) value < -0x10)
3937 return bfd_reloc_overflow;
3938
3939 /* ??? Value needs to be properly shifted into place first. */
3940 value |= bfd_get_16 (input_bfd, hit_data) & 0xf83f;
3941 bfd_put_16 (input_bfd, value, hit_data);
3942 return bfd_reloc_ok;
3943
3944 case R_ARM_THM_XPC22:
3945 case R_ARM_THM_CALL:
3946 /* Thumb BL (branch long instruction). */
3947 {
3948 bfd_vma relocation;
3949 bfd_boolean overflow = FALSE;
3950 bfd_vma upper_insn = bfd_get_16 (input_bfd, hit_data);
3951 bfd_vma lower_insn = bfd_get_16 (input_bfd, hit_data + 2);
3952 bfd_signed_vma reloc_signed_max = ((1 << (howto->bitsize - 1)) - 1) >> howto->rightshift;
3953 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
3954 bfd_vma check;
3955 bfd_signed_vma signed_check;
3956
3957 /* Need to refetch the addend and squish the two 11 bit pieces
3958 together. */
3959 if (globals->use_rel)
3960 {
3961 bfd_vma upper = upper_insn & 0x7ff;
3962 bfd_vma lower = lower_insn & 0x7ff;
3963 upper = (upper ^ 0x400) - 0x400; /* Sign extend. */
3964 addend = (upper << 12) | (lower << 1);
3965 signed_addend = addend;
3966 }
3967
3968 if (r_type == R_ARM_THM_XPC22)
3969 {
3970 /* Check for Thumb to Thumb call. */
3971 /* FIXME: Should we translate the instruction into a BL
3972 instruction instead ? */
3973 if (sym_flags == STT_ARM_TFUNC)
3974 (*_bfd_error_handler)
3975 (_("%B: Warning: Thumb BLX instruction targets thumb function '%s'."),
3976 input_bfd,
3977 h ? h->root.root.string : "(local)");
3978 }
3979 else
3980 {
3981 /* If it is not a call to Thumb, assume call to Arm.
3982 If it is a call relative to a section name, then it is not a
3983 function call at all, but rather a long jump. Calls through
3984 the PLT do not require stubs. */
3985 if (sym_flags != STT_ARM_TFUNC && sym_flags != STT_SECTION
3986 && (h == NULL || splt == NULL
3987 || h->plt.offset == (bfd_vma) -1))
3988 {
3989 if (globals->use_blx)
3990 {
3991 /* Convert BL to BLX. */
3992 lower_insn = (lower_insn & ~0x1000) | 0x0800;
3993 }
3994 else if (elf32_thumb_to_arm_stub
3995 (info, sym_name, input_bfd, output_bfd, input_section,
3996 hit_data, sym_sec, rel->r_offset, signed_addend, value))
3997 return bfd_reloc_ok;
3998 else
3999 return bfd_reloc_dangerous;
4000 }
4001 else if (sym_flags == STT_ARM_TFUNC && globals->use_blx)
4002 {
4003 /* Make sure this is a BL. */
4004 lower_insn |= 0x1800;
4005 }
4006 }
4007
4008 /* Handle calls via the PLT. */
4009 if (h != NULL && splt != NULL && h->plt.offset != (bfd_vma) -1)
4010 {
4011 value = (splt->output_section->vma
4012 + splt->output_offset
4013 + h->plt.offset);
4014 if (globals->use_blx)
4015 {
4016 /* If the Thumb BLX instruction is available, convert the
4017 BL to a BLX instruction to call the ARM-mode PLT entry. */
4018 lower_insn = (lower_insn & ~0x1000) | 0x0800;
4019 }
4020 else
4021 /* Target the Thumb stub before the ARM PLT entry. */
4022 value -= PLT_THUMB_STUB_SIZE;
4023 *unresolved_reloc_p = FALSE;
4024 }
4025
4026 relocation = value + signed_addend;
4027
4028 relocation -= (input_section->output_section->vma
4029 + input_section->output_offset
4030 + rel->r_offset);
4031
4032 check = relocation >> howto->rightshift;
4033
4034 /* If this is a signed value, the rightshift just dropped
4035 leading 1 bits (assuming twos complement). */
4036 if ((bfd_signed_vma) relocation >= 0)
4037 signed_check = check;
4038 else
4039 signed_check = check | ~((bfd_vma) -1 >> howto->rightshift);
4040
4041 /* Assumes two's complement. */
4042 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
4043 overflow = TRUE;
4044
4045 if ((lower_insn & 0x1800) == 0x0800)
4046 /* For a BLX instruction, make sure that the relocation is rounded up
4047 to a word boundary. This follows the semantics of the instruction
4048 which specifies that bit 1 of the target address will come from bit
4049 1 of the base address. */
4050 relocation = (relocation + 2) & ~ 3;
4051
4052 /* Put RELOCATION back into the insn. */
4053 upper_insn = (upper_insn & ~(bfd_vma) 0x7ff) | ((relocation >> 12) & 0x7ff);
4054 lower_insn = (lower_insn & ~(bfd_vma) 0x7ff) | ((relocation >> 1) & 0x7ff);
4055
4056 /* Put the relocated value back in the object file: */
4057 bfd_put_16 (input_bfd, upper_insn, hit_data);
4058 bfd_put_16 (input_bfd, lower_insn, hit_data + 2);
4059
4060 return (overflow ? bfd_reloc_overflow : bfd_reloc_ok);
4061 }
4062 break;
4063
4064 case R_ARM_THM_JUMP24:
4065 /* Thumb32 unconditional branch instruction. */
4066 {
4067 bfd_vma relocation;
4068 bfd_boolean overflow = FALSE;
4069 bfd_vma upper_insn = bfd_get_16 (input_bfd, hit_data);
4070 bfd_vma lower_insn = bfd_get_16 (input_bfd, hit_data + 2);
4071 bfd_signed_vma reloc_signed_max = ((1 << (howto->bitsize - 1)) - 1) >> howto->rightshift;
4072 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
4073 bfd_vma check;
4074 bfd_signed_vma signed_check;
4075
4076 /* Need to refetch the addend, reconstruct the top three bits, and glue the
4077 two pieces together. */
4078 if (globals->use_rel)
4079 {
4080 bfd_vma S = (upper_insn & 0x0400) >> 10;
4081 bfd_vma hi = (upper_insn & 0x03ff);
4082 bfd_vma I1 = (lower_insn & 0x2000) >> 13;
4083 bfd_vma I2 = (lower_insn & 0x0800) >> 11;
4084 bfd_vma lo = (lower_insn & 0x07ff);
4085
4086 I1 = !(I1 ^ S);
4087 I2 = !(I2 ^ S);
4088 S = !S;
4089
4090 signed_addend = (S << 24) | (I1 << 23) | (I2 << 22) | (hi << 12) | (lo << 1);
4091 signed_addend -= (1 << 24); /* Sign extend. */
4092 }
4093
4094 /* ??? Should handle interworking? GCC might someday try to
4095 use this for tail calls. */
4096
4097 relocation = value + signed_addend;
4098 relocation -= (input_section->output_section->vma
4099 + input_section->output_offset
4100 + rel->r_offset);
4101
4102 check = relocation >> howto->rightshift;
4103
4104 /* If this is a signed value, the rightshift just dropped
4105 leading 1 bits (assuming twos complement). */
4106 if ((bfd_signed_vma) relocation >= 0)
4107 signed_check = check;
4108 else
4109 signed_check = check | ~((bfd_vma) -1 >> howto->rightshift);
4110
4111 /* Assumes two's complement. */
4112 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
4113 overflow = TRUE;
4114
4115 /* Put RELOCATION back into the insn. */
4116 {
4117 bfd_vma S = (relocation & 0x01000000) >> 24;
4118 bfd_vma I1 = (relocation & 0x00800000) >> 23;
4119 bfd_vma I2 = (relocation & 0x00400000) >> 22;
4120 bfd_vma hi = (relocation & 0x003ff000) >> 12;
4121 bfd_vma lo = (relocation & 0x00000ffe) >> 1;
4122
4123 I1 = !(I1 ^ S);
4124 I2 = !(I2 ^ S);
4125
4126 upper_insn = (upper_insn & (bfd_vma) 0xf800) | (S << 10) | hi;
4127 lower_insn = (lower_insn & (bfd_vma) 0xd000) | (I1 << 13) | (I2 << 11) | lo;
4128 }
4129
4130 /* Put the relocated value back in the object file: */
4131 bfd_put_16 (input_bfd, upper_insn, hit_data);
4132 bfd_put_16 (input_bfd, lower_insn, hit_data + 2);
4133
4134 return (overflow ? bfd_reloc_overflow : bfd_reloc_ok);
4135 }
4136
4137 case R_ARM_THM_JUMP19:
4138 /* Thumb32 conditional branch instruction. */
4139 {
4140 bfd_vma relocation;
4141 bfd_boolean overflow = FALSE;
4142 bfd_vma upper_insn = bfd_get_16 (input_bfd, hit_data);
4143 bfd_vma lower_insn = bfd_get_16 (input_bfd, hit_data + 2);
4144 bfd_signed_vma reloc_signed_max = ((1 << (howto->bitsize - 1)) - 1) >> howto->rightshift;
4145 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
4146 bfd_vma check;
4147 bfd_signed_vma signed_check;
4148
4149 /* Need to refetch the addend, reconstruct the top three bits,
4150 and squish the two 11 bit pieces together. */
4151 if (globals->use_rel)
4152 {
4153 bfd_vma S = (upper_insn & 0x0400) >> 10;
4154 bfd_vma upper = (upper_insn & 0x001f);
4155 bfd_vma J1 = (lower_insn & 0x2000) >> 13;
4156 bfd_vma J2 = (lower_insn & 0x0800) >> 11;
4157 bfd_vma lower = (lower_insn & 0x07ff);
4158
4159 upper |= J2 << 6;
4160 upper |= J1 << 7;
4161 upper |= ~S << 8;
4162 upper -= 0x0100; /* Sign extend. */
4163
4164 addend = (upper << 12) | (lower << 1);
4165 signed_addend = addend;
4166 }
4167
4168 /* ??? Should handle interworking? GCC might someday try to
4169 use this for tail calls. */
4170
4171 relocation = value + signed_addend;
4172 relocation -= (input_section->output_section->vma
4173 + input_section->output_offset
4174 + rel->r_offset);
4175
4176 check = relocation >> howto->rightshift;
4177
4178 /* If this is a signed value, the rightshift just dropped
4179 leading 1 bits (assuming twos complement). */
4180 if ((bfd_signed_vma) relocation >= 0)
4181 signed_check = check;
4182 else
4183 signed_check = check | ~((bfd_vma) -1 >> howto->rightshift);
4184
4185 /* Assumes two's complement. */
4186 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
4187 overflow = TRUE;
4188
4189 /* Put RELOCATION back into the insn. */
4190 {
4191 bfd_vma S = (relocation & 0x00100000) >> 20;
4192 bfd_vma J2 = (relocation & 0x00080000) >> 19;
4193 bfd_vma J1 = (relocation & 0x00040000) >> 18;
4194 bfd_vma hi = (relocation & 0x0003f000) >> 12;
4195 bfd_vma lo = (relocation & 0x00000ffe) >> 1;
4196
4197 upper_insn = (upper_insn & 0xfb30) | (S << 10) | hi;
4198 lower_insn = (lower_insn & 0xd000) | (J1 << 13) | (J2 << 11) | lo;
4199 }
4200
4201 /* Put the relocated value back in the object file: */
4202 bfd_put_16 (input_bfd, upper_insn, hit_data);
4203 bfd_put_16 (input_bfd, lower_insn, hit_data + 2);
4204
4205 return (overflow ? bfd_reloc_overflow : bfd_reloc_ok);
4206 }
4207
4208 case R_ARM_THM_JUMP11:
4209 case R_ARM_THM_JUMP8:
4210 case R_ARM_THM_JUMP6:
4211 /* Thumb B (branch) instruction). */
4212 {
4213 bfd_signed_vma relocation;
4214 bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
4215 bfd_signed_vma reloc_signed_min = ~ reloc_signed_max;
4216 bfd_signed_vma signed_check;
4217
4218 /* CZB cannot jump backward. */
4219 if (r_type == R_ARM_THM_JUMP6)
4220 reloc_signed_min = 0;
4221
4222 if (globals->use_rel)
4223 {
4224 /* Need to refetch addend. */
4225 addend = bfd_get_16 (input_bfd, hit_data) & howto->src_mask;
4226 if (addend & ((howto->src_mask + 1) >> 1))
4227 {
4228 signed_addend = -1;
4229 signed_addend &= ~ howto->src_mask;
4230 signed_addend |= addend;
4231 }
4232 else
4233 signed_addend = addend;
4234 /* The value in the insn has been right shifted. We need to
4235 undo this, so that we can perform the address calculation
4236 in terms of bytes. */
4237 signed_addend <<= howto->rightshift;
4238 }
4239 relocation = value + signed_addend;
4240
4241 relocation -= (input_section->output_section->vma
4242 + input_section->output_offset
4243 + rel->r_offset);
4244
4245 relocation >>= howto->rightshift;
4246 signed_check = relocation;
4247
4248 if (r_type == R_ARM_THM_JUMP6)
4249 relocation = ((relocation & 0x0020) << 4) | ((relocation & 0x001f) << 3);
4250 else
4251 relocation &= howto->dst_mask;
4252 relocation |= (bfd_get_16 (input_bfd, hit_data) & (~ howto->dst_mask));
4253
4254 bfd_put_16 (input_bfd, relocation, hit_data);
4255
4256 /* Assumes two's complement. */
4257 if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
4258 return bfd_reloc_overflow;
4259
4260 return bfd_reloc_ok;
4261 }
4262
4263 case R_ARM_ALU_PCREL7_0:
4264 case R_ARM_ALU_PCREL15_8:
4265 case R_ARM_ALU_PCREL23_15:
4266 {
4267 bfd_vma insn;
4268 bfd_vma relocation;
4269
4270 insn = bfd_get_32 (input_bfd, hit_data);
4271 if (globals->use_rel)
4272 {
4273 /* Extract the addend. */
4274 addend = (insn & 0xff) << ((insn & 0xf00) >> 7);
4275 signed_addend = addend;
4276 }
4277 relocation = value + signed_addend;
4278
4279 relocation -= (input_section->output_section->vma
4280 + input_section->output_offset
4281 + rel->r_offset);
4282 insn = (insn & ~0xfff)
4283 | ((howto->bitpos << 7) & 0xf00)
4284 | ((relocation >> howto->bitpos) & 0xff);
4285 bfd_put_32 (input_bfd, value, hit_data);
4286 }
4287 return bfd_reloc_ok;
4288
4289 case R_ARM_GNU_VTINHERIT:
4290 case R_ARM_GNU_VTENTRY:
4291 return bfd_reloc_ok;
4292
4293 case R_ARM_GOTOFF32:
4294 /* Relocation is relative to the start of the
4295 global offset table. */
4296
4297 BFD_ASSERT (sgot != NULL);
4298 if (sgot == NULL)
4299 return bfd_reloc_notsupported;
4300
4301 /* If we are addressing a Thumb function, we need to adjust the
4302 address by one, so that attempts to call the function pointer will
4303 correctly interpret it as Thumb code. */
4304 if (sym_flags == STT_ARM_TFUNC)
4305 value += 1;
4306
4307 /* Note that sgot->output_offset is not involved in this
4308 calculation. We always want the start of .got. If we
4309 define _GLOBAL_OFFSET_TABLE in a different way, as is
4310 permitted by the ABI, we might have to change this
4311 calculation. */
4312 value -= sgot->output_section->vma;
4313 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4314 contents, rel->r_offset, value,
4315 rel->r_addend);
4316
4317 case R_ARM_GOTPC:
4318 /* Use global offset table as symbol value. */
4319 BFD_ASSERT (sgot != NULL);
4320
4321 if (sgot == NULL)
4322 return bfd_reloc_notsupported;
4323
4324 *unresolved_reloc_p = FALSE;
4325 value = sgot->output_section->vma;
4326 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4327 contents, rel->r_offset, value,
4328 rel->r_addend);
4329
4330 case R_ARM_GOT32:
4331 case R_ARM_GOT_PREL:
4332 /* Relocation is to the entry for this symbol in the
4333 global offset table. */
4334 if (sgot == NULL)
4335 return bfd_reloc_notsupported;
4336
4337 if (h != NULL)
4338 {
4339 bfd_vma off;
4340 bfd_boolean dyn;
4341
4342 off = h->got.offset;
4343 BFD_ASSERT (off != (bfd_vma) -1);
4344 dyn = globals->root.dynamic_sections_created;
4345
4346 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
4347 || (info->shared
4348 && SYMBOL_REFERENCES_LOCAL (info, h))
4349 || (ELF_ST_VISIBILITY (h->other)
4350 && h->root.type == bfd_link_hash_undefweak))
4351 {
4352 /* This is actually a static link, or it is a -Bsymbolic link
4353 and the symbol is defined locally. We must initialize this
4354 entry in the global offset table. Since the offset must
4355 always be a multiple of 4, we use the least significant bit
4356 to record whether we have initialized it already.
4357
4358 When doing a dynamic link, we create a .rel(a).got relocation
4359 entry to initialize the value. This is done in the
4360 finish_dynamic_symbol routine. */
4361 if ((off & 1) != 0)
4362 off &= ~1;
4363 else
4364 {
4365 /* If we are addressing a Thumb function, we need to
4366 adjust the address by one, so that attempts to
4367 call the function pointer will correctly
4368 interpret it as Thumb code. */
4369 if (sym_flags == STT_ARM_TFUNC)
4370 value |= 1;
4371
4372 bfd_put_32 (output_bfd, value, sgot->contents + off);
4373 h->got.offset |= 1;
4374 }
4375 }
4376 else
4377 *unresolved_reloc_p = FALSE;
4378
4379 value = sgot->output_offset + off;
4380 }
4381 else
4382 {
4383 bfd_vma off;
4384
4385 BFD_ASSERT (local_got_offsets != NULL &&
4386 local_got_offsets[r_symndx] != (bfd_vma) -1);
4387
4388 off = local_got_offsets[r_symndx];
4389
4390 /* The offset must always be a multiple of 4. We use the
4391 least significant bit to record whether we have already
4392 generated the necessary reloc. */
4393 if ((off & 1) != 0)
4394 off &= ~1;
4395 else
4396 {
4397 /* If we are addressing a Thumb function, we need to
4398 adjust the address by one, so that attempts to
4399 call the function pointer will correctly
4400 interpret it as Thumb code. */
4401 if (sym_flags == STT_ARM_TFUNC)
4402 value |= 1;
4403
4404 if (globals->use_rel)
4405 bfd_put_32 (output_bfd, value, sgot->contents + off);
4406
4407 if (info->shared)
4408 {
4409 asection * srelgot;
4410 Elf_Internal_Rela outrel;
4411 bfd_byte *loc;
4412
4413 srelgot = (bfd_get_section_by_name
4414 (dynobj, RELOC_SECTION (globals, ".got")));
4415 BFD_ASSERT (srelgot != NULL);
4416
4417 outrel.r_addend = addend + value;
4418 outrel.r_offset = (sgot->output_section->vma
4419 + sgot->output_offset
4420 + off);
4421 outrel.r_info = ELF32_R_INFO (0, R_ARM_RELATIVE);
4422 loc = srelgot->contents;
4423 loc += srelgot->reloc_count++ * RELOC_SIZE (globals);
4424 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
4425 }
4426
4427 local_got_offsets[r_symndx] |= 1;
4428 }
4429
4430 value = sgot->output_offset + off;
4431 }
4432 if (r_type != R_ARM_GOT32)
4433 value += sgot->output_section->vma;
4434
4435 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4436 contents, rel->r_offset, value,
4437 rel->r_addend);
4438
4439 case R_ARM_TLS_LDO32:
4440 value = value - dtpoff_base (info);
4441
4442 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4443 contents, rel->r_offset, value,
4444 rel->r_addend);
4445
4446 case R_ARM_TLS_LDM32:
4447 {
4448 bfd_vma off;
4449
4450 if (globals->sgot == NULL)
4451 abort ();
4452
4453 off = globals->tls_ldm_got.offset;
4454
4455 if ((off & 1) != 0)
4456 off &= ~1;
4457 else
4458 {
4459 /* If we don't know the module number, create a relocation
4460 for it. */
4461 if (info->shared)
4462 {
4463 Elf_Internal_Rela outrel;
4464 bfd_byte *loc;
4465
4466 if (globals->srelgot == NULL)
4467 abort ();
4468
4469 outrel.r_addend = 0;
4470 outrel.r_offset = (globals->sgot->output_section->vma
4471 + globals->sgot->output_offset + off);
4472 outrel.r_info = ELF32_R_INFO (0, R_ARM_TLS_DTPMOD32);
4473
4474 if (globals->use_rel)
4475 bfd_put_32 (output_bfd, outrel.r_addend,
4476 globals->sgot->contents + off);
4477
4478 loc = globals->srelgot->contents;
4479 loc += globals->srelgot->reloc_count++ * RELOC_SIZE (globals);
4480 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
4481 }
4482 else
4483 bfd_put_32 (output_bfd, 1, globals->sgot->contents + off);
4484
4485 globals->tls_ldm_got.offset |= 1;
4486 }
4487
4488 value = globals->sgot->output_section->vma + globals->sgot->output_offset + off
4489 - (input_section->output_section->vma + input_section->output_offset + rel->r_offset);
4490
4491 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4492 contents, rel->r_offset, value,
4493 rel->r_addend);
4494 }
4495
4496 case R_ARM_TLS_GD32:
4497 case R_ARM_TLS_IE32:
4498 {
4499 bfd_vma off;
4500 int indx;
4501 char tls_type;
4502
4503 if (globals->sgot == NULL)
4504 abort ();
4505
4506 indx = 0;
4507 if (h != NULL)
4508 {
4509 bfd_boolean dyn;
4510 dyn = globals->root.dynamic_sections_created;
4511 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
4512 && (!info->shared
4513 || !SYMBOL_REFERENCES_LOCAL (info, h)))
4514 {
4515 *unresolved_reloc_p = FALSE;
4516 indx = h->dynindx;
4517 }
4518 off = h->got.offset;
4519 tls_type = ((struct elf32_arm_link_hash_entry *) h)->tls_type;
4520 }
4521 else
4522 {
4523 if (local_got_offsets == NULL)
4524 abort ();
4525 off = local_got_offsets[r_symndx];
4526 tls_type = elf32_arm_local_got_tls_type (input_bfd)[r_symndx];
4527 }
4528
4529 if (tls_type == GOT_UNKNOWN)
4530 abort ();
4531
4532 if ((off & 1) != 0)
4533 off &= ~1;
4534 else
4535 {
4536 bfd_boolean need_relocs = FALSE;
4537 Elf_Internal_Rela outrel;
4538 bfd_byte *loc = NULL;
4539 int cur_off = off;
4540
4541 /* The GOT entries have not been initialized yet. Do it
4542 now, and emit any relocations. If both an IE GOT and a
4543 GD GOT are necessary, we emit the GD first. */
4544
4545 if ((info->shared || indx != 0)
4546 && (h == NULL
4547 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
4548 || h->root.type != bfd_link_hash_undefweak))
4549 {
4550 need_relocs = TRUE;
4551 if (globals->srelgot == NULL)
4552 abort ();
4553 loc = globals->srelgot->contents;
4554 loc += globals->srelgot->reloc_count * RELOC_SIZE (globals);
4555 }
4556
4557 if (tls_type & GOT_TLS_GD)
4558 {
4559 if (need_relocs)
4560 {
4561 outrel.r_addend = 0;
4562 outrel.r_offset = (globals->sgot->output_section->vma
4563 + globals->sgot->output_offset
4564 + cur_off);
4565 outrel.r_info = ELF32_R_INFO (indx, R_ARM_TLS_DTPMOD32);
4566
4567 if (globals->use_rel)
4568 bfd_put_32 (output_bfd, outrel.r_addend,
4569 globals->sgot->contents + cur_off);
4570
4571 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
4572 globals->srelgot->reloc_count++;
4573 loc += RELOC_SIZE (globals);
4574
4575 if (indx == 0)
4576 bfd_put_32 (output_bfd, value - dtpoff_base (info),
4577 globals->sgot->contents + cur_off + 4);
4578 else
4579 {
4580 outrel.r_addend = 0;
4581 outrel.r_info = ELF32_R_INFO (indx,
4582 R_ARM_TLS_DTPOFF32);
4583 outrel.r_offset += 4;
4584
4585 if (globals->use_rel)
4586 bfd_put_32 (output_bfd, outrel.r_addend,
4587 globals->sgot->contents + cur_off + 4);
4588
4589
4590 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
4591 globals->srelgot->reloc_count++;
4592 loc += RELOC_SIZE (globals);
4593 }
4594 }
4595 else
4596 {
4597 /* If we are not emitting relocations for a
4598 general dynamic reference, then we must be in a
4599 static link or an executable link with the
4600 symbol binding locally. Mark it as belonging
4601 to module 1, the executable. */
4602 bfd_put_32 (output_bfd, 1,
4603 globals->sgot->contents + cur_off);
4604 bfd_put_32 (output_bfd, value - dtpoff_base (info),
4605 globals->sgot->contents + cur_off + 4);
4606 }
4607
4608 cur_off += 8;
4609 }
4610
4611 if (tls_type & GOT_TLS_IE)
4612 {
4613 if (need_relocs)
4614 {
4615 if (indx == 0)
4616 outrel.r_addend = value - dtpoff_base (info);
4617 else
4618 outrel.r_addend = 0;
4619 outrel.r_offset = (globals->sgot->output_section->vma
4620 + globals->sgot->output_offset
4621 + cur_off);
4622 outrel.r_info = ELF32_R_INFO (indx, R_ARM_TLS_TPOFF32);
4623
4624 if (globals->use_rel)
4625 bfd_put_32 (output_bfd, outrel.r_addend,
4626 globals->sgot->contents + cur_off);
4627
4628 SWAP_RELOC_OUT (globals) (output_bfd, &outrel, loc);
4629 globals->srelgot->reloc_count++;
4630 loc += RELOC_SIZE (globals);
4631 }
4632 else
4633 bfd_put_32 (output_bfd, tpoff (info, value),
4634 globals->sgot->contents + cur_off);
4635 cur_off += 4;
4636 }
4637
4638 if (h != NULL)
4639 h->got.offset |= 1;
4640 else
4641 local_got_offsets[r_symndx] |= 1;
4642 }
4643
4644 if ((tls_type & GOT_TLS_GD) && r_type != R_ARM_TLS_GD32)
4645 off += 8;
4646 value = globals->sgot->output_section->vma + globals->sgot->output_offset + off
4647 - (input_section->output_section->vma + input_section->output_offset + rel->r_offset);
4648
4649 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4650 contents, rel->r_offset, value,
4651 rel->r_addend);
4652 }
4653
4654 case R_ARM_TLS_LE32:
4655 if (info->shared)
4656 {
4657 (*_bfd_error_handler)
4658 (_("%B(%A+0x%lx): R_ARM_TLS_LE32 relocation not permitted in shared object"),
4659 input_bfd, input_section,
4660 (long) rel->r_offset, howto->name);
4661 return FALSE;
4662 }
4663 else
4664 value = tpoff (info, value);
4665
4666 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4667 contents, rel->r_offset, value,
4668 rel->r_addend);
4669
4670 case R_ARM_V4BX:
4671 if (globals->fix_v4bx)
4672 {
4673 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4674
4675 /* Ensure that we have a BX instruction. */
4676 BFD_ASSERT ((insn & 0x0ffffff0) == 0x012fff10);
4677
4678 /* Preserve Rm (lowest four bits) and the condition code
4679 (highest four bits). Other bits encode MOV PC,Rm. */
4680 insn = (insn & 0xf000000f) | 0x01a0f000;
4681
4682 bfd_put_32 (input_bfd, insn, hit_data);
4683 }
4684 return bfd_reloc_ok;
4685
4686 case R_ARM_MOVW_ABS_NC:
4687 case R_ARM_MOVT_ABS:
4688 case R_ARM_MOVW_PREL_NC:
4689 case R_ARM_MOVT_PREL:
4690 {
4691 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4692
4693 if (globals->use_rel)
4694 {
4695 addend = ((insn >> 4) & 0xf000) | (insn & 0xfff);
4696 signed_addend = (addend ^ 0x10000) - 0x10000;
4697 }
4698 value += signed_addend;
4699 if (sym_flags == STT_ARM_TFUNC)
4700 value |= 1;
4701
4702 if (r_type == R_ARM_MOVW_PREL_NC || r_type == R_ARM_MOVT_PREL)
4703 value -= (input_section->output_section->vma
4704 + input_section->output_offset + rel->r_offset);
4705
4706 if (r_type == R_ARM_MOVT_ABS || r_type == R_ARM_MOVT_PREL)
4707 value >>= 16;
4708
4709 insn &= 0xfff0f000;
4710 insn |= value & 0xfff;
4711 insn |= (value & 0xf000) << 4;
4712 bfd_put_32 (input_bfd, insn, hit_data);
4713 }
4714 return bfd_reloc_ok;
4715
4716 case R_ARM_THM_MOVW_ABS_NC:
4717 case R_ARM_THM_MOVT_ABS:
4718 case R_ARM_THM_MOVW_PREL_NC:
4719 case R_ARM_THM_MOVT_PREL:
4720 {
4721 bfd_vma insn;
4722
4723 insn = bfd_get_16 (input_bfd, hit_data) << 16;
4724 insn |= bfd_get_16 (input_bfd, hit_data + 2);
4725
4726 if (globals->use_rel)
4727 {
4728 addend = ((insn >> 4) & 0xf000)
4729 | ((insn >> 15) & 0x0800)
4730 | ((insn >> 4) & 0x0700)
4731 | (insn & 0x00ff);
4732 signed_addend = (addend ^ 0x10000) - 0x10000;
4733 }
4734 value += signed_addend;
4735 if (sym_flags == STT_ARM_TFUNC)
4736 value |= 1;
4737
4738 if (r_type == R_ARM_THM_MOVW_PREL_NC || r_type == R_ARM_THM_MOVT_PREL)
4739 value -= (input_section->output_section->vma
4740 + input_section->output_offset + rel->r_offset);
4741
4742 if (r_type == R_ARM_THM_MOVT_ABS || r_type == R_ARM_THM_MOVT_PREL)
4743 value >>= 16;
4744
4745 insn &= 0xfbf08f00;
4746 insn |= (value & 0xf000) << 4;
4747 insn |= (value & 0x0800) << 15;
4748 insn |= (value & 0x0700) << 4;
4749 insn |= (value & 0x00ff);
4750
4751 bfd_put_16 (input_bfd, insn >> 16, hit_data);
4752 bfd_put_16 (input_bfd, insn & 0xffff, hit_data + 2);
4753 }
4754 return bfd_reloc_ok;
4755
4756 case R_ARM_ALU_PC_G0_NC:
4757 case R_ARM_ALU_PC_G1_NC:
4758 case R_ARM_ALU_PC_G0:
4759 case R_ARM_ALU_PC_G1:
4760 case R_ARM_ALU_PC_G2:
4761 case R_ARM_ALU_SB_G0_NC:
4762 case R_ARM_ALU_SB_G1_NC:
4763 case R_ARM_ALU_SB_G0:
4764 case R_ARM_ALU_SB_G1:
4765 case R_ARM_ALU_SB_G2:
4766 {
4767 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4768 bfd_vma pc = input_section->output_section->vma
4769 + input_section->output_offset + rel->r_offset;
4770 /* sb should be the origin of the *segment* containing the symbol.
4771 It is not clear how to obtain this OS-dependent value, so we
4772 make an arbitrary choice of zero. */
4773 bfd_vma sb = 0;
4774 bfd_vma residual;
4775 bfd_vma g_n;
4776 bfd_signed_vma signed_value;
4777 int group = 0;
4778
4779 /* Determine which group of bits to select. */
4780 switch (r_type)
4781 {
4782 case R_ARM_ALU_PC_G0_NC:
4783 case R_ARM_ALU_PC_G0:
4784 case R_ARM_ALU_SB_G0_NC:
4785 case R_ARM_ALU_SB_G0:
4786 group = 0;
4787 break;
4788
4789 case R_ARM_ALU_PC_G1_NC:
4790 case R_ARM_ALU_PC_G1:
4791 case R_ARM_ALU_SB_G1_NC:
4792 case R_ARM_ALU_SB_G1:
4793 group = 1;
4794 break;
4795
4796 case R_ARM_ALU_PC_G2:
4797 case R_ARM_ALU_SB_G2:
4798 group = 2;
4799 break;
4800
4801 default:
4802 abort();
4803 }
4804
4805 /* If REL, extract the addend from the insn. If RELA, it will
4806 have already been fetched for us. */
4807 if (globals->use_rel)
4808 {
4809 int negative;
4810 bfd_vma constant = insn & 0xff;
4811 bfd_vma rotation = (insn & 0xf00) >> 8;
4812
4813 if (rotation == 0)
4814 signed_addend = constant;
4815 else
4816 {
4817 /* Compensate for the fact that in the instruction, the
4818 rotation is stored in multiples of 2 bits. */
4819 rotation *= 2;
4820
4821 /* Rotate "constant" right by "rotation" bits. */
4822 signed_addend = (constant >> rotation) |
4823 (constant << (8 * sizeof (bfd_vma) - rotation));
4824 }
4825
4826 /* Determine if the instruction is an ADD or a SUB.
4827 (For REL, this determines the sign of the addend.) */
4828 negative = identify_add_or_sub (insn);
4829 if (negative == 0)
4830 {
4831 (*_bfd_error_handler)
4832 (_("%B(%A+0x%lx): Only ADD or SUB instructions are allowed for ALU group relocations"),
4833 input_bfd, input_section,
4834 (long) rel->r_offset, howto->name);
4835 return bfd_reloc_overflow;
4836 }
4837
4838 signed_addend *= negative;
4839 }
4840
4841 /* Compute the value (X) to go in the place. */
4842 if (r_type == R_ARM_ALU_PC_G0_NC
4843 || r_type == R_ARM_ALU_PC_G1_NC
4844 || r_type == R_ARM_ALU_PC_G0
4845 || r_type == R_ARM_ALU_PC_G1
4846 || r_type == R_ARM_ALU_PC_G2)
4847 /* PC relative. */
4848 signed_value = value - pc + signed_addend;
4849 else
4850 /* Section base relative. */
4851 signed_value = value - sb + signed_addend;
4852
4853 /* If the target symbol is a Thumb function, then set the
4854 Thumb bit in the address. */
4855 if (sym_flags == STT_ARM_TFUNC)
4856 signed_value |= 1;
4857
4858 /* Calculate the value of the relevant G_n, in encoded
4859 constant-with-rotation format. */
4860 g_n = calculate_group_reloc_mask (abs (signed_value), group,
4861 &residual);
4862
4863 /* Check for overflow if required. */
4864 if ((r_type == R_ARM_ALU_PC_G0
4865 || r_type == R_ARM_ALU_PC_G1
4866 || r_type == R_ARM_ALU_PC_G2
4867 || r_type == R_ARM_ALU_SB_G0
4868 || r_type == R_ARM_ALU_SB_G1
4869 || r_type == R_ARM_ALU_SB_G2) && residual != 0)
4870 {
4871 (*_bfd_error_handler)
4872 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
4873 input_bfd, input_section,
4874 (long) rel->r_offset, abs (signed_value), howto->name);
4875 return bfd_reloc_overflow;
4876 }
4877
4878 /* Mask out the value and the ADD/SUB part of the opcode; take care
4879 not to destroy the S bit. */
4880 insn &= 0xff1ff000;
4881
4882 /* Set the opcode according to whether the value to go in the
4883 place is negative. */
4884 if (signed_value < 0)
4885 insn |= 1 << 22;
4886 else
4887 insn |= 1 << 23;
4888
4889 /* Encode the offset. */
4890 insn |= g_n;
4891
4892 bfd_put_32 (input_bfd, insn, hit_data);
4893 }
4894 return bfd_reloc_ok;
4895
4896 case R_ARM_LDR_PC_G0:
4897 case R_ARM_LDR_PC_G1:
4898 case R_ARM_LDR_PC_G2:
4899 case R_ARM_LDR_SB_G0:
4900 case R_ARM_LDR_SB_G1:
4901 case R_ARM_LDR_SB_G2:
4902 {
4903 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4904 bfd_vma pc = input_section->output_section->vma
4905 + input_section->output_offset + rel->r_offset;
4906 bfd_vma sb = 0; /* See note above. */
4907 bfd_vma residual;
4908 bfd_signed_vma signed_value;
4909 int group = 0;
4910
4911 /* Determine which groups of bits to calculate. */
4912 switch (r_type)
4913 {
4914 case R_ARM_LDR_PC_G0:
4915 case R_ARM_LDR_SB_G0:
4916 group = 0;
4917 break;
4918
4919 case R_ARM_LDR_PC_G1:
4920 case R_ARM_LDR_SB_G1:
4921 group = 1;
4922 break;
4923
4924 case R_ARM_LDR_PC_G2:
4925 case R_ARM_LDR_SB_G2:
4926 group = 2;
4927 break;
4928
4929 default:
4930 abort();
4931 }
4932
4933 /* If REL, extract the addend from the insn. If RELA, it will
4934 have already been fetched for us. */
4935 if (globals->use_rel)
4936 {
4937 int negative = (insn & (1 << 23)) ? 1 : -1;
4938 signed_addend = negative * (insn & 0xfff);
4939 }
4940
4941 /* Compute the value (X) to go in the place. */
4942 if (r_type == R_ARM_LDR_PC_G0
4943 || r_type == R_ARM_LDR_PC_G1
4944 || r_type == R_ARM_LDR_PC_G2)
4945 /* PC relative. */
4946 signed_value = value - pc + signed_addend;
4947 else
4948 /* Section base relative. */
4949 signed_value = value - sb + signed_addend;
4950
4951 /* Calculate the value of the relevant G_{n-1} to obtain
4952 the residual at that stage. */
4953 calculate_group_reloc_mask (abs (signed_value), group - 1, &residual);
4954
4955 /* Check for overflow. */
4956 if (residual >= 0x1000)
4957 {
4958 (*_bfd_error_handler)
4959 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
4960 input_bfd, input_section,
4961 (long) rel->r_offset, abs (signed_value), howto->name);
4962 return bfd_reloc_overflow;
4963 }
4964
4965 /* Mask out the value and U bit. */
4966 insn &= 0xff7ff000;
4967
4968 /* Set the U bit if the value to go in the place is non-negative. */
4969 if (signed_value >= 0)
4970 insn |= 1 << 23;
4971
4972 /* Encode the offset. */
4973 insn |= residual;
4974
4975 bfd_put_32 (input_bfd, insn, hit_data);
4976 }
4977 return bfd_reloc_ok;
4978
4979 case R_ARM_LDRS_PC_G0:
4980 case R_ARM_LDRS_PC_G1:
4981 case R_ARM_LDRS_PC_G2:
4982 case R_ARM_LDRS_SB_G0:
4983 case R_ARM_LDRS_SB_G1:
4984 case R_ARM_LDRS_SB_G2:
4985 {
4986 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
4987 bfd_vma pc = input_section->output_section->vma
4988 + input_section->output_offset + rel->r_offset;
4989 bfd_vma sb = 0; /* See note above. */
4990 bfd_vma residual;
4991 bfd_signed_vma signed_value;
4992 int group = 0;
4993
4994 /* Determine which groups of bits to calculate. */
4995 switch (r_type)
4996 {
4997 case R_ARM_LDRS_PC_G0:
4998 case R_ARM_LDRS_SB_G0:
4999 group = 0;
5000 break;
5001
5002 case R_ARM_LDRS_PC_G1:
5003 case R_ARM_LDRS_SB_G1:
5004 group = 1;
5005 break;
5006
5007 case R_ARM_LDRS_PC_G2:
5008 case R_ARM_LDRS_SB_G2:
5009 group = 2;
5010 break;
5011
5012 default:
5013 abort();
5014 }
5015
5016 /* If REL, extract the addend from the insn. If RELA, it will
5017 have already been fetched for us. */
5018 if (globals->use_rel)
5019 {
5020 int negative = (insn & (1 << 23)) ? 1 : -1;
5021 signed_addend = negative * (((insn & 0xf00) >> 4) + (insn & 0xf));
5022 }
5023
5024 /* Compute the value (X) to go in the place. */
5025 if (r_type == R_ARM_LDRS_PC_G0
5026 || r_type == R_ARM_LDRS_PC_G1
5027 || r_type == R_ARM_LDRS_PC_G2)
5028 /* PC relative. */
5029 signed_value = value - pc + signed_addend;
5030 else
5031 /* Section base relative. */
5032 signed_value = value - sb + signed_addend;
5033
5034 /* Calculate the value of the relevant G_{n-1} to obtain
5035 the residual at that stage. */
5036 calculate_group_reloc_mask (abs (signed_value), group - 1, &residual);
5037
5038 /* Check for overflow. */
5039 if (residual >= 0x100)
5040 {
5041 (*_bfd_error_handler)
5042 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
5043 input_bfd, input_section,
5044 (long) rel->r_offset, abs (signed_value), howto->name);
5045 return bfd_reloc_overflow;
5046 }
5047
5048 /* Mask out the value and U bit. */
5049 insn &= 0xff7ff0f0;
5050
5051 /* Set the U bit if the value to go in the place is non-negative. */
5052 if (signed_value >= 0)
5053 insn |= 1 << 23;
5054
5055 /* Encode the offset. */
5056 insn |= ((residual & 0xf0) << 4) | (residual & 0xf);
5057
5058 bfd_put_32 (input_bfd, insn, hit_data);
5059 }
5060 return bfd_reloc_ok;
5061
5062 case R_ARM_LDC_PC_G0:
5063 case R_ARM_LDC_PC_G1:
5064 case R_ARM_LDC_PC_G2:
5065 case R_ARM_LDC_SB_G0:
5066 case R_ARM_LDC_SB_G1:
5067 case R_ARM_LDC_SB_G2:
5068 {
5069 bfd_vma insn = bfd_get_32 (input_bfd, hit_data);
5070 bfd_vma pc = input_section->output_section->vma
5071 + input_section->output_offset + rel->r_offset;
5072 bfd_vma sb = 0; /* See note above. */
5073 bfd_vma residual;
5074 bfd_signed_vma signed_value;
5075 int group = 0;
5076
5077 /* Determine which groups of bits to calculate. */
5078 switch (r_type)
5079 {
5080 case R_ARM_LDC_PC_G0:
5081 case R_ARM_LDC_SB_G0:
5082 group = 0;
5083 break;
5084
5085 case R_ARM_LDC_PC_G1:
5086 case R_ARM_LDC_SB_G1:
5087 group = 1;
5088 break;
5089
5090 case R_ARM_LDC_PC_G2:
5091 case R_ARM_LDC_SB_G2:
5092 group = 2;
5093 break;
5094
5095 default:
5096 abort();
5097 }
5098
5099 /* If REL, extract the addend from the insn. If RELA, it will
5100 have already been fetched for us. */
5101 if (globals->use_rel)
5102 {
5103 int negative = (insn & (1 << 23)) ? 1 : -1;
5104 signed_addend = negative * ((insn & 0xff) << 2);
5105 }
5106
5107 /* Compute the value (X) to go in the place. */
5108 if (r_type == R_ARM_LDC_PC_G0
5109 || r_type == R_ARM_LDC_PC_G1
5110 || r_type == R_ARM_LDC_PC_G2)
5111 /* PC relative. */
5112 signed_value = value - pc + signed_addend;
5113 else
5114 /* Section base relative. */
5115 signed_value = value - sb + signed_addend;
5116
5117 /* Calculate the value of the relevant G_{n-1} to obtain
5118 the residual at that stage. */
5119 calculate_group_reloc_mask (abs (signed_value), group - 1, &residual);
5120
5121 /* Check for overflow. (The absolute value to go in the place must be
5122 divisible by four and, after having been divided by four, must
5123 fit in eight bits.) */
5124 if ((residual & 0x3) != 0 || residual >= 0x400)
5125 {
5126 (*_bfd_error_handler)
5127 (_("%B(%A+0x%lx): Overflow whilst splitting 0x%lx for group relocation %s"),
5128 input_bfd, input_section,
5129 (long) rel->r_offset, abs (signed_value), howto->name);
5130 return bfd_reloc_overflow;
5131 }
5132
5133 /* Mask out the value and U bit. */
5134 insn &= 0xff7fff00;
5135
5136 /* Set the U bit if the value to go in the place is non-negative. */
5137 if (signed_value >= 0)
5138 insn |= 1 << 23;
5139
5140 /* Encode the offset. */
5141 insn |= residual >> 2;
5142
5143 bfd_put_32 (input_bfd, insn, hit_data);
5144 }
5145 return bfd_reloc_ok;
5146
5147 default:
5148 return bfd_reloc_notsupported;
5149 }
5150 }
5151
5152
5153 static int
5154 uleb128_size (unsigned int i)
5155 {
5156 int size;
5157 size = 1;
5158 while (i >= 0x80)
5159 {
5160 i >>= 7;
5161 size++;
5162 }
5163 return size;
5164 }
5165
5166 /* Return TRUE if the attribute has the default value (0/""). */
5167 static bfd_boolean
5168 is_default_attr (aeabi_attribute *attr)
5169 {
5170 if ((attr->type & 1) && attr->i != 0)
5171 return FALSE;
5172 if ((attr->type & 2) && attr->s && *attr->s)
5173 return FALSE;
5174
5175 return TRUE;
5176 }
5177
5178 /* Return the size of a single attribute. */
5179 static bfd_vma
5180 eabi_attr_size(int tag, aeabi_attribute *attr)
5181 {
5182 bfd_vma size;
5183
5184 if (is_default_attr (attr))
5185 return 0;
5186
5187 size = uleb128_size (tag);
5188 if (attr->type & 1)
5189 size += uleb128_size (attr->i);
5190 if (attr->type & 2)
5191 size += strlen ((char *)attr->s) + 1;
5192 return size;
5193 }
5194
5195 /* Returns the size of the eabi object attributess section. */
5196 bfd_vma
5197 elf32_arm_eabi_attr_size (bfd *abfd)
5198 {
5199 bfd_vma size;
5200 aeabi_attribute *attr;
5201 aeabi_attribute_list *list;
5202 int i;
5203
5204 attr = elf32_arm_tdata (abfd)->known_eabi_attributes;
5205 size = 16; /* 'A' <size> "aeabi" 0x1 <size>. */
5206 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
5207 size += eabi_attr_size (i, &attr[i]);
5208
5209 for (list = elf32_arm_tdata (abfd)->other_eabi_attributes;
5210 list;
5211 list = list->next)
5212 size += eabi_attr_size (list->tag, &list->attr);
5213
5214 return size;
5215 }
5216
5217 static bfd_byte *
5218 write_uleb128 (bfd_byte *p, unsigned int val)
5219 {
5220 bfd_byte c;
5221 do
5222 {
5223 c = val & 0x7f;
5224 val >>= 7;
5225 if (val)
5226 c |= 0x80;
5227 *(p++) = c;
5228 }
5229 while (val);
5230 return p;
5231 }
5232
5233 /* Write attribute ATTR to butter P, and return a pointer to the following
5234 byte. */
5235 static bfd_byte *
5236 write_eabi_attribute (bfd_byte *p, int tag, aeabi_attribute *attr)
5237 {
5238 /* Suppress default entries. */
5239 if (is_default_attr(attr))
5240 return p;
5241
5242 p = write_uleb128 (p, tag);
5243 if (attr->type & 1)
5244 p = write_uleb128 (p, attr->i);
5245 if (attr->type & 2)
5246 {
5247 int len;
5248
5249 len = strlen (attr->s) + 1;
5250 memcpy (p, attr->s, len);
5251 p += len;
5252 }
5253
5254 return p;
5255 }
5256
5257 /* Write the contents of the eabi attributes section to p. */
5258 void
5259 elf32_arm_set_eabi_attr_contents (bfd *abfd, bfd_byte *contents, bfd_vma size)
5260 {
5261 bfd_byte *p;
5262 aeabi_attribute *attr;
5263 aeabi_attribute_list *list;
5264 int i;
5265
5266 p = contents;
5267 *(p++) = 'A';
5268 bfd_put_32 (abfd, size - 1, p);
5269 p += 4;
5270 memcpy (p, "aeabi", 6);
5271 p += 6;
5272 *(p++) = Tag_File;
5273 bfd_put_32 (abfd, size - 11, p);
5274 p += 4;
5275
5276 attr = elf32_arm_tdata (abfd)->known_eabi_attributes;
5277 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
5278 p = write_eabi_attribute (p, i, &attr[i]);
5279
5280 for (list = elf32_arm_tdata (abfd)->other_eabi_attributes;
5281 list;
5282 list = list->next)
5283 p = write_eabi_attribute (p, list->tag, &list->attr);
5284 }
5285
5286 /* Override final_link to handle EABI object attribute sections. */
5287
5288 static bfd_boolean
5289 elf32_arm_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
5290 {
5291 asection *o;
5292 struct bfd_link_order *p;
5293 asection *attr_section = NULL;
5294 bfd_byte *contents;
5295 bfd_vma size = 0;
5296
5297 /* elf32_arm_merge_private_bfd_data will already have merged the
5298 object attributes. Remove the input sections from the link, and set
5299 the contents of the output secton. */
5300 for (o = abfd->sections; o != NULL; o = o->next)
5301 {
5302 if (strcmp (o->name, ".ARM.attributes") == 0)
5303 {
5304 for (p = o->map_head.link_order; p != NULL; p = p->next)
5305 {
5306 asection *input_section;
5307
5308 if (p->type != bfd_indirect_link_order)
5309 continue;
5310 input_section = p->u.indirect.section;
5311 /* Hack: reset the SEC_HAS_CONTENTS flag so that
5312 elf_link_input_bfd ignores this section. */
5313 input_section->flags &= ~SEC_HAS_CONTENTS;
5314 }
5315
5316 size = elf32_arm_eabi_attr_size (abfd);
5317 bfd_set_section_size (abfd, o, size);
5318 attr_section = o;
5319 /* Skip this section later on. */
5320 o->map_head.link_order = NULL;
5321 }
5322 }
5323 /* Invoke the ELF linker to do all the work. */
5324 if (!bfd_elf_final_link (abfd, info))
5325 return FALSE;
5326
5327 if (attr_section)
5328 {
5329 contents = bfd_malloc(size);
5330 if (contents == NULL)
5331 return FALSE;
5332 elf32_arm_set_eabi_attr_contents (abfd, contents, size);
5333 bfd_set_section_contents (abfd, attr_section, contents, 0, size);
5334 free (contents);
5335 }
5336 return TRUE;
5337 }
5338
5339
5340 /* Add INCREMENT to the reloc (of type HOWTO) at ADDRESS. */
5341 static void
5342 arm_add_to_rel (bfd * abfd,
5343 bfd_byte * address,
5344 reloc_howto_type * howto,
5345 bfd_signed_vma increment)
5346 {
5347 bfd_signed_vma addend;
5348
5349 if (howto->type == R_ARM_THM_CALL)
5350 {
5351 int upper_insn, lower_insn;
5352 int upper, lower;
5353
5354 upper_insn = bfd_get_16 (abfd, address);
5355 lower_insn = bfd_get_16 (abfd, address + 2);
5356 upper = upper_insn & 0x7ff;
5357 lower = lower_insn & 0x7ff;
5358
5359 addend = (upper << 12) | (lower << 1);
5360 addend += increment;
5361 addend >>= 1;
5362
5363 upper_insn = (upper_insn & 0xf800) | ((addend >> 11) & 0x7ff);
5364 lower_insn = (lower_insn & 0xf800) | (addend & 0x7ff);
5365
5366 bfd_put_16 (abfd, (bfd_vma) upper_insn, address);
5367 bfd_put_16 (abfd, (bfd_vma) lower_insn, address + 2);
5368 }
5369 else
5370 {
5371 bfd_vma contents;
5372
5373 contents = bfd_get_32 (abfd, address);
5374
5375 /* Get the (signed) value from the instruction. */
5376 addend = contents & howto->src_mask;
5377 if (addend & ((howto->src_mask + 1) >> 1))
5378 {
5379 bfd_signed_vma mask;
5380
5381 mask = -1;
5382 mask &= ~ howto->src_mask;
5383 addend |= mask;
5384 }
5385
5386 /* Add in the increment, (which is a byte value). */
5387 switch (howto->type)
5388 {
5389 default:
5390 addend += increment;
5391 break;
5392
5393 case R_ARM_PC24:
5394 case R_ARM_PLT32:
5395 case R_ARM_CALL:
5396 case R_ARM_JUMP24:
5397 addend <<= howto->size;
5398 addend += increment;
5399
5400 /* Should we check for overflow here ? */
5401
5402 /* Drop any undesired bits. */
5403 addend >>= howto->rightshift;
5404 break;
5405 }
5406
5407 contents = (contents & ~ howto->dst_mask) | (addend & howto->dst_mask);
5408
5409 bfd_put_32 (abfd, contents, address);
5410 }
5411 }
5412
5413 #define IS_ARM_TLS_RELOC(R_TYPE) \
5414 ((R_TYPE) == R_ARM_TLS_GD32 \
5415 || (R_TYPE) == R_ARM_TLS_LDO32 \
5416 || (R_TYPE) == R_ARM_TLS_LDM32 \
5417 || (R_TYPE) == R_ARM_TLS_DTPOFF32 \
5418 || (R_TYPE) == R_ARM_TLS_DTPMOD32 \
5419 || (R_TYPE) == R_ARM_TLS_TPOFF32 \
5420 || (R_TYPE) == R_ARM_TLS_LE32 \
5421 || (R_TYPE) == R_ARM_TLS_IE32)
5422
5423 /* Relocate an ARM ELF section. */
5424 static bfd_boolean
5425 elf32_arm_relocate_section (bfd * output_bfd,
5426 struct bfd_link_info * info,
5427 bfd * input_bfd,
5428 asection * input_section,
5429 bfd_byte * contents,
5430 Elf_Internal_Rela * relocs,
5431 Elf_Internal_Sym * local_syms,
5432 asection ** local_sections)
5433 {
5434 Elf_Internal_Shdr *symtab_hdr;
5435 struct elf_link_hash_entry **sym_hashes;
5436 Elf_Internal_Rela *rel;
5437 Elf_Internal_Rela *relend;
5438 const char *name;
5439 struct elf32_arm_link_hash_table * globals;
5440
5441 globals = elf32_arm_hash_table (info);
5442 if (info->relocatable && !globals->use_rel)
5443 return TRUE;
5444
5445 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
5446 sym_hashes = elf_sym_hashes (input_bfd);
5447
5448 rel = relocs;
5449 relend = relocs + input_section->reloc_count;
5450 for (; rel < relend; rel++)
5451 {
5452 int r_type;
5453 reloc_howto_type * howto;
5454 unsigned long r_symndx;
5455 Elf_Internal_Sym * sym;
5456 asection * sec;
5457 struct elf_link_hash_entry * h;
5458 bfd_vma relocation;
5459 bfd_reloc_status_type r;
5460 arelent bfd_reloc;
5461 char sym_type;
5462 bfd_boolean unresolved_reloc = FALSE;
5463
5464 r_symndx = ELF32_R_SYM (rel->r_info);
5465 r_type = ELF32_R_TYPE (rel->r_info);
5466 r_type = arm_real_reloc_type (globals, r_type);
5467
5468 if ( r_type == R_ARM_GNU_VTENTRY
5469 || r_type == R_ARM_GNU_VTINHERIT)
5470 continue;
5471
5472 bfd_reloc.howto = elf32_arm_howto_from_type (r_type);
5473 howto = bfd_reloc.howto;
5474
5475 if (info->relocatable && globals->use_rel)
5476 {
5477 /* This is a relocatable link. We don't have to change
5478 anything, unless the reloc is against a section symbol,
5479 in which case we have to adjust according to where the
5480 section symbol winds up in the output section. */
5481 if (r_symndx < symtab_hdr->sh_info)
5482 {
5483 sym = local_syms + r_symndx;
5484 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
5485 {
5486 sec = local_sections[r_symndx];
5487 arm_add_to_rel (input_bfd, contents + rel->r_offset,
5488 howto,
5489 (bfd_signed_vma) (sec->output_offset
5490 + sym->st_value));
5491 }
5492 }
5493
5494 continue;
5495 }
5496
5497 /* This is a final link. */
5498 h = NULL;
5499 sym = NULL;
5500 sec = NULL;
5501
5502 if (r_symndx < symtab_hdr->sh_info)
5503 {
5504 sym = local_syms + r_symndx;
5505 sym_type = ELF32_ST_TYPE (sym->st_info);
5506 sec = local_sections[r_symndx];
5507 if (globals->use_rel)
5508 {
5509 relocation = (sec->output_section->vma
5510 + sec->output_offset
5511 + sym->st_value);
5512 if ((sec->flags & SEC_MERGE)
5513 && ELF_ST_TYPE (sym->st_info) == STT_SECTION)
5514 {
5515 asection *msec;
5516 bfd_vma addend, value;
5517
5518 if (howto->rightshift)
5519 {
5520 (*_bfd_error_handler)
5521 (_("%B(%A+0x%lx): %s relocation against SEC_MERGE section"),
5522 input_bfd, input_section,
5523 (long) rel->r_offset, howto->name);
5524 return FALSE;
5525 }
5526
5527 value = bfd_get_32 (input_bfd, contents + rel->r_offset);
5528
5529 /* Get the (signed) value from the instruction. */
5530 addend = value & howto->src_mask;
5531 if (addend & ((howto->src_mask + 1) >> 1))
5532 {
5533 bfd_signed_vma mask;
5534
5535 mask = -1;
5536 mask &= ~ howto->src_mask;
5537 addend |= mask;
5538 }
5539 msec = sec;
5540 addend =
5541 _bfd_elf_rel_local_sym (output_bfd, sym, &msec, addend)
5542 - relocation;
5543 addend += msec->output_section->vma + msec->output_offset;
5544 value = (value & ~ howto->dst_mask) | (addend & howto->dst_mask);
5545 bfd_put_32 (input_bfd, value, contents + rel->r_offset);
5546 }
5547 }
5548 else
5549 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
5550 }
5551 else
5552 {
5553 bfd_boolean warned;
5554
5555 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
5556 r_symndx, symtab_hdr, sym_hashes,
5557 h, sec, relocation,
5558 unresolved_reloc, warned);
5559
5560 sym_type = h->type;
5561 }
5562
5563 if (h != NULL)
5564 name = h->root.root.string;
5565 else
5566 {
5567 name = (bfd_elf_string_from_elf_section
5568 (input_bfd, symtab_hdr->sh_link, sym->st_name));
5569 if (name == NULL || *name == '\0')
5570 name = bfd_section_name (input_bfd, sec);
5571 }
5572
5573 if (r_symndx != 0
5574 && r_type != R_ARM_NONE
5575 && (h == NULL
5576 || h->root.type == bfd_link_hash_defined
5577 || h->root.type == bfd_link_hash_defweak)
5578 && IS_ARM_TLS_RELOC (r_type) != (sym_type == STT_TLS))
5579 {
5580 (*_bfd_error_handler)
5581 ((sym_type == STT_TLS
5582 ? _("%B(%A+0x%lx): %s used with TLS symbol %s")
5583 : _("%B(%A+0x%lx): %s used with non-TLS symbol %s")),
5584 input_bfd,
5585 input_section,
5586 (long) rel->r_offset,
5587 howto->name,
5588 name);
5589 }
5590
5591 r = elf32_arm_final_link_relocate (howto, input_bfd, output_bfd,
5592 input_section, contents, rel,
5593 relocation, info, sec, name,
5594 (h ? ELF_ST_TYPE (h->type) :
5595 ELF_ST_TYPE (sym->st_info)), h,
5596 &unresolved_reloc);
5597
5598 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
5599 because such sections are not SEC_ALLOC and thus ld.so will
5600 not process them. */
5601 if (unresolved_reloc
5602 && !((input_section->flags & SEC_DEBUGGING) != 0
5603 && h->def_dynamic))
5604 {
5605 (*_bfd_error_handler)
5606 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
5607 input_bfd,
5608 input_section,
5609 (long) rel->r_offset,
5610 howto->name,
5611 h->root.root.string);
5612 return FALSE;
5613 }
5614
5615 if (r != bfd_reloc_ok)
5616 {
5617 const char * msg = (const char *) 0;
5618
5619 switch (r)
5620 {
5621 case bfd_reloc_overflow:
5622 /* If the overflowing reloc was to an undefined symbol,
5623 we have already printed one error message and there
5624 is no point complaining again. */
5625 if ((! h ||
5626 h->root.type != bfd_link_hash_undefined)
5627 && (!((*info->callbacks->reloc_overflow)
5628 (info, (h ? &h->root : NULL), name, howto->name,
5629 (bfd_vma) 0, input_bfd, input_section,
5630 rel->r_offset))))
5631 return FALSE;
5632 break;
5633
5634 case bfd_reloc_undefined:
5635 if (!((*info->callbacks->undefined_symbol)
5636 (info, name, input_bfd, input_section,
5637 rel->r_offset, TRUE)))
5638 return FALSE;
5639 break;
5640
5641 case bfd_reloc_outofrange:
5642 msg = _("internal error: out of range error");
5643 goto common_error;
5644
5645 case bfd_reloc_notsupported:
5646 msg = _("internal error: unsupported relocation error");
5647 goto common_error;
5648
5649 case bfd_reloc_dangerous:
5650 msg = _("internal error: dangerous error");
5651 goto common_error;
5652
5653 default:
5654 msg = _("internal error: unknown error");
5655 /* fall through */
5656
5657 common_error:
5658 if (!((*info->callbacks->warning)
5659 (info, msg, name, input_bfd, input_section,
5660 rel->r_offset)))
5661 return FALSE;
5662 break;
5663 }
5664 }
5665 }
5666
5667 return TRUE;
5668 }
5669
5670 /* Allocate/find an object attribute. */
5671 static aeabi_attribute *
5672 elf32_arm_new_eabi_attr (bfd *abfd, int tag)
5673 {
5674 aeabi_attribute *attr;
5675 aeabi_attribute_list *list;
5676 aeabi_attribute_list *p;
5677 aeabi_attribute_list **lastp;
5678
5679
5680 if (tag < NUM_KNOWN_ATTRIBUTES)
5681 {
5682 /* Knwon tags are preallocated. */
5683 attr = &elf32_arm_tdata (abfd)->known_eabi_attributes[tag];
5684 }
5685 else
5686 {
5687 /* Create a new tag. */
5688 list = (aeabi_attribute_list *)
5689 bfd_alloc (abfd, sizeof (aeabi_attribute_list));
5690 memset (list, 0, sizeof (aeabi_attribute_list));
5691 list->tag = tag;
5692 /* Keep the tag list in order. */
5693 lastp = &elf32_arm_tdata (abfd)->other_eabi_attributes;
5694 for (p = *lastp; p; p = p->next)
5695 {
5696 if (tag < p->tag)
5697 break;
5698 lastp = &p->next;
5699 }
5700 list->next = *lastp;
5701 *lastp = list;
5702 attr = &list->attr;
5703 }
5704
5705 return attr;
5706 }
5707
5708 int
5709 elf32_arm_get_eabi_attr_int (bfd *abfd, int tag)
5710 {
5711 aeabi_attribute_list *p;
5712
5713 if (tag < NUM_KNOWN_ATTRIBUTES)
5714 {
5715 /* Knwon tags are preallocated. */
5716 return elf32_arm_tdata (abfd)->known_eabi_attributes[tag].i;
5717 }
5718 else
5719 {
5720 for (p = elf32_arm_tdata (abfd)->other_eabi_attributes;
5721 p;
5722 p = p->next)
5723 {
5724 if (tag == p->tag)
5725 return p->attr.i;
5726 if (tag < p->tag)
5727 break;
5728 }
5729 return 0;
5730 }
5731 }
5732
5733 void
5734 elf32_arm_add_eabi_attr_int (bfd *abfd, int tag, unsigned int i)
5735 {
5736 aeabi_attribute *attr;
5737
5738 attr = elf32_arm_new_eabi_attr (abfd, tag);
5739 attr->type = 1;
5740 attr->i = i;
5741 }
5742
5743 static char *
5744 attr_strdup (bfd *abfd, const char * s)
5745 {
5746 char * p;
5747 int len;
5748
5749 len = strlen (s) + 1;
5750 p = (char *)bfd_alloc(abfd, len);
5751 return memcpy (p, s, len);
5752 }
5753
5754 void
5755 elf32_arm_add_eabi_attr_string (bfd *abfd, int tag, const char *s)
5756 {
5757 aeabi_attribute *attr;
5758
5759 attr = elf32_arm_new_eabi_attr (abfd, tag);
5760 attr->type = 2;
5761 attr->s = attr_strdup (abfd, s);
5762 }
5763
5764 void
5765 elf32_arm_add_eabi_attr_compat (bfd *abfd, unsigned int i, const char *s)
5766 {
5767 aeabi_attribute_list *list;
5768 aeabi_attribute_list *p;
5769 aeabi_attribute_list **lastp;
5770
5771 list = (aeabi_attribute_list *)
5772 bfd_alloc (abfd, sizeof (aeabi_attribute_list));
5773 memset (list, 0, sizeof (aeabi_attribute_list));
5774 list->tag = Tag_compatibility;
5775 list->attr.type = 3;
5776 list->attr.i = i;
5777 list->attr.s = attr_strdup (abfd, s);
5778
5779 lastp = &elf32_arm_tdata (abfd)->other_eabi_attributes;
5780 for (p = *lastp; p; p = p->next)
5781 {
5782 int cmp;
5783 if (p->tag != Tag_compatibility)
5784 break;
5785 cmp = strcmp(s, p->attr.s);
5786 if (cmp < 0 || (cmp == 0 && i < p->attr.i))
5787 break;
5788 lastp = &p->next;
5789 }
5790 list->next = *lastp;
5791 *lastp = list;
5792 }
5793
5794 /* Set the right machine number. */
5795
5796 static bfd_boolean
5797 elf32_arm_object_p (bfd *abfd)
5798 {
5799 unsigned int mach;
5800
5801 mach = bfd_arm_get_mach_from_notes (abfd, ARM_NOTE_SECTION);
5802
5803 if (mach != bfd_mach_arm_unknown)
5804 bfd_default_set_arch_mach (abfd, bfd_arch_arm, mach);
5805
5806 else if (elf_elfheader (abfd)->e_flags & EF_ARM_MAVERICK_FLOAT)
5807 bfd_default_set_arch_mach (abfd, bfd_arch_arm, bfd_mach_arm_ep9312);
5808
5809 else
5810 bfd_default_set_arch_mach (abfd, bfd_arch_arm, mach);
5811
5812 return TRUE;
5813 }
5814
5815 /* Function to keep ARM specific flags in the ELF header. */
5816
5817 static bfd_boolean
5818 elf32_arm_set_private_flags (bfd *abfd, flagword flags)
5819 {
5820 if (elf_flags_init (abfd)
5821 && elf_elfheader (abfd)->e_flags != flags)
5822 {
5823 if (EF_ARM_EABI_VERSION (flags) == EF_ARM_EABI_UNKNOWN)
5824 {
5825 if (flags & EF_ARM_INTERWORK)
5826 (*_bfd_error_handler)
5827 (_("Warning: Not setting interworking flag of %B since it has already been specified as non-interworking"),
5828 abfd);
5829 else
5830 _bfd_error_handler
5831 (_("Warning: Clearing the interworking flag of %B due to outside request"),
5832 abfd);
5833 }
5834 }
5835 else
5836 {
5837 elf_elfheader (abfd)->e_flags = flags;
5838 elf_flags_init (abfd) = TRUE;
5839 }
5840
5841 return TRUE;
5842 }
5843
5844 /* Copy the eabi object attribute from IBFD to OBFD. */
5845 static void
5846 copy_eabi_attributes (bfd *ibfd, bfd *obfd)
5847 {
5848 aeabi_attribute *in_attr;
5849 aeabi_attribute *out_attr;
5850 aeabi_attribute_list *list;
5851 int i;
5852
5853 in_attr = elf32_arm_tdata (ibfd)->known_eabi_attributes;
5854 out_attr = elf32_arm_tdata (obfd)->known_eabi_attributes;
5855 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
5856 {
5857 out_attr->i = in_attr->i;
5858 if (in_attr->s && *in_attr->s)
5859 out_attr->s = attr_strdup (obfd, in_attr->s);
5860 in_attr++;
5861 out_attr++;
5862 }
5863
5864 for (list = elf32_arm_tdata (ibfd)->other_eabi_attributes;
5865 list;
5866 list = list->next)
5867 {
5868 in_attr = &list->attr;
5869 switch (in_attr->type)
5870 {
5871 case 1:
5872 elf32_arm_add_eabi_attr_int (obfd, list->tag, in_attr->i);
5873 break;
5874 case 2:
5875 elf32_arm_add_eabi_attr_string (obfd, list->tag, in_attr->s);
5876 break;
5877 case 3:
5878 elf32_arm_add_eabi_attr_compat (obfd, in_attr->i, in_attr->s);
5879 break;
5880 default:
5881 abort();
5882 }
5883 }
5884 }
5885
5886
5887 /* Copy backend specific data from one object module to another. */
5888
5889 static bfd_boolean
5890 elf32_arm_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
5891 {
5892 flagword in_flags;
5893 flagword out_flags;
5894
5895 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
5896 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
5897 return TRUE;
5898
5899 in_flags = elf_elfheader (ibfd)->e_flags;
5900 out_flags = elf_elfheader (obfd)->e_flags;
5901
5902 if (elf_flags_init (obfd)
5903 && EF_ARM_EABI_VERSION (out_flags) == EF_ARM_EABI_UNKNOWN
5904 && in_flags != out_flags)
5905 {
5906 /* Cannot mix APCS26 and APCS32 code. */
5907 if ((in_flags & EF_ARM_APCS_26) != (out_flags & EF_ARM_APCS_26))
5908 return FALSE;
5909
5910 /* Cannot mix float APCS and non-float APCS code. */
5911 if ((in_flags & EF_ARM_APCS_FLOAT) != (out_flags & EF_ARM_APCS_FLOAT))
5912 return FALSE;
5913
5914 /* If the src and dest have different interworking flags
5915 then turn off the interworking bit. */
5916 if ((in_flags & EF_ARM_INTERWORK) != (out_flags & EF_ARM_INTERWORK))
5917 {
5918 if (out_flags & EF_ARM_INTERWORK)
5919 _bfd_error_handler
5920 (_("Warning: Clearing the interworking flag of %B because non-interworking code in %B has been linked with it"),
5921 obfd, ibfd);
5922
5923 in_flags &= ~EF_ARM_INTERWORK;
5924 }
5925
5926 /* Likewise for PIC, though don't warn for this case. */
5927 if ((in_flags & EF_ARM_PIC) != (out_flags & EF_ARM_PIC))
5928 in_flags &= ~EF_ARM_PIC;
5929 }
5930
5931 elf_elfheader (obfd)->e_flags = in_flags;
5932 elf_flags_init (obfd) = TRUE;
5933
5934 /* Also copy the EI_OSABI field. */
5935 elf_elfheader (obfd)->e_ident[EI_OSABI] =
5936 elf_elfheader (ibfd)->e_ident[EI_OSABI];
5937
5938 /* Copy EABI object attributes. */
5939 copy_eabi_attributes (ibfd, obfd);
5940
5941 return TRUE;
5942 }
5943
5944 /* Values for Tag_ABI_PCS_R9_use. */
5945 enum
5946 {
5947 AEABI_R9_V6,
5948 AEABI_R9_SB,
5949 AEABI_R9_TLS,
5950 AEABI_R9_unused
5951 };
5952
5953 /* Values for Tag_ABI_PCS_RW_data. */
5954 enum
5955 {
5956 AEABI_PCS_RW_data_absolute,
5957 AEABI_PCS_RW_data_PCrel,
5958 AEABI_PCS_RW_data_SBrel,
5959 AEABI_PCS_RW_data_unused
5960 };
5961
5962 /* Values for Tag_ABI_enum_size. */
5963 enum
5964 {
5965 AEABI_enum_unused,
5966 AEABI_enum_short,
5967 AEABI_enum_wide,
5968 AEABI_enum_forced_wide
5969 };
5970
5971 /* Merge EABI object attributes from IBFD into OBFD. Raise an error if there
5972 are conflicting attributes. */
5973 static bfd_boolean
5974 elf32_arm_merge_eabi_attributes (bfd *ibfd, bfd *obfd)
5975 {
5976 aeabi_attribute *in_attr;
5977 aeabi_attribute *out_attr;
5978 aeabi_attribute_list *in_list;
5979 aeabi_attribute_list *out_list;
5980 /* Some tags have 0 = don't care, 1 = strong requirement,
5981 2 = weak requirement. */
5982 static const int order_312[3] = {3, 1, 2};
5983 int i;
5984
5985 if (!elf32_arm_tdata (ibfd)->known_eabi_attributes[0].i)
5986 {
5987 /* This is the first object. Copy the attributes. */
5988 copy_eabi_attributes (ibfd, obfd);
5989 return TRUE;
5990 }
5991
5992 /* Use the Tag_null value to indicate the attributes have been
5993 initialized. */
5994 elf32_arm_tdata (ibfd)->known_eabi_attributes[0].i = 1;
5995
5996 in_attr = elf32_arm_tdata (ibfd)->known_eabi_attributes;
5997 out_attr = elf32_arm_tdata (obfd)->known_eabi_attributes;
5998 /* This needs to happen before Tag_ABI_FP_number_model is merged. */
5999 if (in_attr[Tag_ABI_VFP_args].i != out_attr[Tag_ABI_VFP_args].i)
6000 {
6001 /* Ignore mismatches if teh object doesn't use floating point. */
6002 if (out_attr[Tag_ABI_FP_number_model].i == 0)
6003 out_attr[Tag_ABI_VFP_args].i = in_attr[Tag_ABI_VFP_args].i;
6004 else if (in_attr[Tag_ABI_FP_number_model].i != 0)
6005 {
6006 _bfd_error_handler
6007 (_("ERROR: %B uses VFP register arguments, %B does not"),
6008 ibfd, obfd);
6009 return FALSE;
6010 }
6011 }
6012
6013 for (i = 4; i < NUM_KNOWN_ATTRIBUTES; i++)
6014 {
6015 /* Merge this attribute with existing attributes. */
6016 switch (i)
6017 {
6018 case Tag_CPU_raw_name:
6019 case Tag_CPU_name:
6020 /* Use whichever has the greatest architecture requirements. */
6021 if (in_attr[Tag_CPU_arch].i > out_attr[Tag_CPU_arch].i)
6022 out_attr[i].s = attr_strdup(obfd, in_attr[i].s);
6023 break;
6024
6025 case Tag_ABI_optimization_goals:
6026 case Tag_ABI_FP_optimization_goals:
6027 /* Use the first value seen. */
6028 break;
6029
6030 case Tag_CPU_arch:
6031 case Tag_ARM_ISA_use:
6032 case Tag_THUMB_ISA_use:
6033 case Tag_VFP_arch:
6034 case Tag_WMMX_arch:
6035 case Tag_NEON_arch:
6036 /* ??? Do NEON and WMMX conflict? */
6037 case Tag_ABI_FP_rounding:
6038 case Tag_ABI_FP_denormal:
6039 case Tag_ABI_FP_exceptions:
6040 case Tag_ABI_FP_user_exceptions:
6041 case Tag_ABI_FP_number_model:
6042 case Tag_ABI_align8_preserved:
6043 case Tag_ABI_HardFP_use:
6044 /* Use the largest value specified. */
6045 if (in_attr[i].i > out_attr[i].i)
6046 out_attr[i].i = in_attr[i].i;
6047 break;
6048
6049 case Tag_CPU_arch_profile:
6050 /* Warn if conflicting architecture profiles used. */
6051 if (out_attr[i].i && in_attr[i].i && in_attr[i].i != out_attr[i].i)
6052 {
6053 _bfd_error_handler
6054 (_("ERROR: %B: Conflicting architecture profiles %c/%c"),
6055 ibfd, in_attr[i].i, out_attr[i].i);
6056 return FALSE;
6057 }
6058 if (in_attr[i].i)
6059 out_attr[i].i = in_attr[i].i;
6060 break;
6061 case Tag_PCS_config:
6062 if (out_attr[i].i == 0)
6063 out_attr[i].i = in_attr[i].i;
6064 else if (in_attr[i].i != 0 && out_attr[i].i != 0)
6065 {
6066 /* It's sometimes ok to mix different configs, so this is only
6067 a warning. */
6068 _bfd_error_handler
6069 (_("Warning: %B: Conflicting platform configuration"), ibfd);
6070 }
6071 break;
6072 case Tag_ABI_PCS_R9_use:
6073 if (out_attr[i].i != AEABI_R9_unused
6074 && in_attr[i].i != AEABI_R9_unused)
6075 {
6076 _bfd_error_handler
6077 (_("ERROR: %B: Conflicting use of R9"), ibfd);
6078 return FALSE;
6079 }
6080 if (out_attr[i].i == AEABI_R9_unused)
6081 out_attr[i].i = in_attr[i].i;
6082 break;
6083 case Tag_ABI_PCS_RW_data:
6084 if (in_attr[i].i == AEABI_PCS_RW_data_SBrel
6085 && out_attr[Tag_ABI_PCS_R9_use].i != AEABI_R9_SB
6086 && out_attr[Tag_ABI_PCS_R9_use].i != AEABI_R9_unused)
6087 {
6088 _bfd_error_handler
6089 (_("ERROR: %B: SB relative addressing conflicts with use of R9"),
6090 ibfd);
6091 return FALSE;
6092 }
6093 /* Use the smallest value specified. */
6094 if (in_attr[i].i < out_attr[i].i)
6095 out_attr[i].i = in_attr[i].i;
6096 break;
6097 case Tag_ABI_PCS_RO_data:
6098 /* Use the smallest value specified. */
6099 if (in_attr[i].i < out_attr[i].i)
6100 out_attr[i].i = in_attr[i].i;
6101 break;
6102 case Tag_ABI_PCS_GOT_use:
6103 if (in_attr[i].i > 2 || out_attr[i].i > 2
6104 || order_312[in_attr[i].i] < order_312[out_attr[i].i])
6105 out_attr[i].i = in_attr[i].i;
6106 break;
6107 case Tag_ABI_PCS_wchar_t:
6108 if (out_attr[i].i && in_attr[i].i && out_attr[i].i != in_attr[i].i)
6109 {
6110 _bfd_error_handler
6111 (_("ERROR: %B: Conflicting definitions of wchar_t"), ibfd);
6112 return FALSE;
6113 }
6114 if (in_attr[i].i)
6115 out_attr[i].i = in_attr[i].i;
6116 break;
6117 case Tag_ABI_align8_needed:
6118 /* ??? Check against Tag_ABI_align8_preserved. */
6119 if (in_attr[i].i > 2 || out_attr[i].i > 2
6120 || order_312[in_attr[i].i] < order_312[out_attr[i].i])
6121 out_attr[i].i = in_attr[i].i;
6122 break;
6123 case Tag_ABI_enum_size:
6124 if (in_attr[i].i != AEABI_enum_unused)
6125 {
6126 if (out_attr[i].i == AEABI_enum_unused
6127 || out_attr[i].i == AEABI_enum_forced_wide)
6128 {
6129 /* The existing object is compatible with anything.
6130 Use whatever requirements the new object has. */
6131 out_attr[i].i = in_attr[i].i;
6132 }
6133 else if (in_attr[i].i != AEABI_enum_forced_wide
6134 && out_attr[i].i != in_attr[i].i)
6135 {
6136 _bfd_error_handler
6137 (_("ERROR: %B: Conflicting enum sizes"), ibfd);
6138 }
6139 }
6140 break;
6141 case Tag_ABI_VFP_args:
6142 /* Aready done. */
6143 break;
6144 case Tag_ABI_WMMX_args:
6145 if (in_attr[i].i != out_attr[i].i)
6146 {
6147 _bfd_error_handler
6148 (_("ERROR: %B uses iWMMXt register arguments, %B does not"),
6149 ibfd, obfd);
6150 return FALSE;
6151 }
6152 break;
6153 default: /* All known attributes should be explicitly covered. */
6154 abort ();
6155 }
6156 }
6157
6158 in_list = elf32_arm_tdata (ibfd)->other_eabi_attributes;
6159 out_list = elf32_arm_tdata (ibfd)->other_eabi_attributes;
6160 while (in_list && in_list->tag == Tag_compatibility)
6161 {
6162 in_attr = &in_list->attr;
6163 if (in_attr->i == 0)
6164 continue;
6165 if (in_attr->i == 1)
6166 {
6167 _bfd_error_handler
6168 (_("ERROR: %B: Must be processed by '%s' toolchain"),
6169 ibfd, in_attr->s);
6170 return FALSE;
6171 }
6172 if (!out_list || out_list->tag != Tag_compatibility
6173 || strcmp (in_attr->s, out_list->attr.s) != 0)
6174 {
6175 /* Add this compatibility tag to the output. */
6176 elf32_arm_add_eabi_attr_compat (obfd, in_attr->i, in_attr->s);
6177 continue;
6178 }
6179 out_attr = &out_list->attr;
6180 /* Check all the input tags with the same identifier. */
6181 for (;;)
6182 {
6183 if (out_list->tag != Tag_compatibility
6184 || in_attr->i != out_attr->i
6185 || strcmp (in_attr->s, out_attr->s) != 0)
6186 {
6187 _bfd_error_handler
6188 (_("ERROR: %B: Incompatible object tag '%s':%d"),
6189 ibfd, in_attr->s, in_attr->i);
6190 return FALSE;
6191 }
6192 in_list = in_list->next;
6193 if (in_list->tag != Tag_compatibility
6194 || strcmp (in_attr->s, in_list->attr.s) != 0)
6195 break;
6196 in_attr = &in_list->attr;
6197 out_list = out_list->next;
6198 if (out_list)
6199 out_attr = &out_list->attr;
6200 }
6201
6202 /* Check the output doesn't have extra tags with this identifier. */
6203 if (out_list && out_list->tag == Tag_compatibility
6204 && strcmp (in_attr->s, out_list->attr.s) == 0)
6205 {
6206 _bfd_error_handler
6207 (_("ERROR: %B: Incompatible object tag '%s':%d"),
6208 ibfd, in_attr->s, out_list->attr.i);
6209 return FALSE;
6210 }
6211 }
6212
6213 for (; in_list; in_list = in_list->next)
6214 {
6215 if ((in_list->tag & 128) < 64)
6216 {
6217 _bfd_error_handler
6218 (_("Warning: %B: Unknown EABI object attribute %d"),
6219 ibfd, in_list->tag);
6220 break;
6221 }
6222 }
6223 return TRUE;
6224 }
6225
6226
6227 /* Return TRUE if the two EABI versions are incompatible. */
6228
6229 static bfd_boolean
6230 elf32_arm_versions_compatible (unsigned iver, unsigned over)
6231 {
6232 /* v4 and v5 are the same spec before and after it was released,
6233 so allow mixing them. */
6234 if ((iver == EF_ARM_EABI_VER4 && over == EF_ARM_EABI_VER5)
6235 || (iver == EF_ARM_EABI_VER5 && over == EF_ARM_EABI_VER4))
6236 return TRUE;
6237
6238 return (iver == over);
6239 }
6240
6241 /* Merge backend specific data from an object file to the output
6242 object file when linking. */
6243
6244 static bfd_boolean
6245 elf32_arm_merge_private_bfd_data (bfd * ibfd, bfd * obfd)
6246 {
6247 flagword out_flags;
6248 flagword in_flags;
6249 bfd_boolean flags_compatible = TRUE;
6250 asection *sec;
6251
6252 /* Check if we have the same endianess. */
6253 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
6254 return FALSE;
6255
6256 if ( bfd_get_flavour (ibfd) != bfd_target_elf_flavour
6257 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
6258 return TRUE;
6259
6260 if (!elf32_arm_merge_eabi_attributes (ibfd, obfd))
6261 return FALSE;
6262
6263 /* The input BFD must have had its flags initialised. */
6264 /* The following seems bogus to me -- The flags are initialized in
6265 the assembler but I don't think an elf_flags_init field is
6266 written into the object. */
6267 /* BFD_ASSERT (elf_flags_init (ibfd)); */
6268
6269 in_flags = elf_elfheader (ibfd)->e_flags;
6270 out_flags = elf_elfheader (obfd)->e_flags;
6271
6272 if (!elf_flags_init (obfd))
6273 {
6274 /* If the input is the default architecture and had the default
6275 flags then do not bother setting the flags for the output
6276 architecture, instead allow future merges to do this. If no
6277 future merges ever set these flags then they will retain their
6278 uninitialised values, which surprise surprise, correspond
6279 to the default values. */
6280 if (bfd_get_arch_info (ibfd)->the_default
6281 && elf_elfheader (ibfd)->e_flags == 0)
6282 return TRUE;
6283
6284 elf_flags_init (obfd) = TRUE;
6285 elf_elfheader (obfd)->e_flags = in_flags;
6286
6287 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
6288 && bfd_get_arch_info (obfd)->the_default)
6289 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
6290
6291 return TRUE;
6292 }
6293
6294 /* Determine what should happen if the input ARM architecture
6295 does not match the output ARM architecture. */
6296 if (! bfd_arm_merge_machines (ibfd, obfd))
6297 return FALSE;
6298
6299 /* Identical flags must be compatible. */
6300 if (in_flags == out_flags)
6301 return TRUE;
6302
6303 /* Check to see if the input BFD actually contains any sections. If
6304 not, its flags may not have been initialised either, but it
6305 cannot actually cause any incompatiblity. Do not short-circuit
6306 dynamic objects; their section list may be emptied by
6307 elf_link_add_object_symbols.
6308
6309 Also check to see if there are no code sections in the input.
6310 In this case there is no need to check for code specific flags.
6311 XXX - do we need to worry about floating-point format compatability
6312 in data sections ? */
6313 if (!(ibfd->flags & DYNAMIC))
6314 {
6315 bfd_boolean null_input_bfd = TRUE;
6316 bfd_boolean only_data_sections = TRUE;
6317
6318 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
6319 {
6320 /* Ignore synthetic glue sections. */
6321 if (strcmp (sec->name, ".glue_7")
6322 && strcmp (sec->name, ".glue_7t"))
6323 {
6324 if ((bfd_get_section_flags (ibfd, sec)
6325 & (SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS))
6326 == (SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS))
6327 only_data_sections = FALSE;
6328
6329 null_input_bfd = FALSE;
6330 break;
6331 }
6332 }
6333
6334 if (null_input_bfd || only_data_sections)
6335 return TRUE;
6336 }
6337
6338 /* Complain about various flag mismatches. */
6339 if (!elf32_arm_versions_compatible (EF_ARM_EABI_VERSION (in_flags),
6340 EF_ARM_EABI_VERSION (out_flags)))
6341 {
6342 _bfd_error_handler
6343 (_("ERROR: Source object %B has EABI version %d, but target %B has EABI version %d"),
6344 ibfd, obfd,
6345 (in_flags & EF_ARM_EABIMASK) >> 24,
6346 (out_flags & EF_ARM_EABIMASK) >> 24);
6347 return FALSE;
6348 }
6349
6350 /* Not sure what needs to be checked for EABI versions >= 1. */
6351 /* VxWorks libraries do not use these flags. */
6352 if (get_elf_backend_data (obfd) != &elf32_arm_vxworks_bed
6353 && get_elf_backend_data (ibfd) != &elf32_arm_vxworks_bed
6354 && EF_ARM_EABI_VERSION (in_flags) == EF_ARM_EABI_UNKNOWN)
6355 {
6356 if ((in_flags & EF_ARM_APCS_26) != (out_flags & EF_ARM_APCS_26))
6357 {
6358 _bfd_error_handler
6359 (_("ERROR: %B is compiled for APCS-%d, whereas target %B uses APCS-%d"),
6360 ibfd, obfd,
6361 in_flags & EF_ARM_APCS_26 ? 26 : 32,
6362 out_flags & EF_ARM_APCS_26 ? 26 : 32);
6363 flags_compatible = FALSE;
6364 }
6365
6366 if ((in_flags & EF_ARM_APCS_FLOAT) != (out_flags & EF_ARM_APCS_FLOAT))
6367 {
6368 if (in_flags & EF_ARM_APCS_FLOAT)
6369 _bfd_error_handler
6370 (_("ERROR: %B passes floats in float registers, whereas %B passes them in integer registers"),
6371 ibfd, obfd);
6372 else
6373 _bfd_error_handler
6374 (_("ERROR: %B passes floats in integer registers, whereas %B passes them in float registers"),
6375 ibfd, obfd);
6376
6377 flags_compatible = FALSE;
6378 }
6379
6380 if ((in_flags & EF_ARM_VFP_FLOAT) != (out_flags & EF_ARM_VFP_FLOAT))
6381 {
6382 if (in_flags & EF_ARM_VFP_FLOAT)
6383 _bfd_error_handler
6384 (_("ERROR: %B uses VFP instructions, whereas %B does not"),
6385 ibfd, obfd);
6386 else
6387 _bfd_error_handler
6388 (_("ERROR: %B uses FPA instructions, whereas %B does not"),
6389 ibfd, obfd);
6390
6391 flags_compatible = FALSE;
6392 }
6393
6394 if ((in_flags & EF_ARM_MAVERICK_FLOAT) != (out_flags & EF_ARM_MAVERICK_FLOAT))
6395 {
6396 if (in_flags & EF_ARM_MAVERICK_FLOAT)
6397 _bfd_error_handler
6398 (_("ERROR: %B uses Maverick instructions, whereas %B does not"),
6399 ibfd, obfd);
6400 else
6401 _bfd_error_handler
6402 (_("ERROR: %B does not use Maverick instructions, whereas %B does"),
6403 ibfd, obfd);
6404
6405 flags_compatible = FALSE;
6406 }
6407
6408 #ifdef EF_ARM_SOFT_FLOAT
6409 if ((in_flags & EF_ARM_SOFT_FLOAT) != (out_flags & EF_ARM_SOFT_FLOAT))
6410 {
6411 /* We can allow interworking between code that is VFP format
6412 layout, and uses either soft float or integer regs for
6413 passing floating point arguments and results. We already
6414 know that the APCS_FLOAT flags match; similarly for VFP
6415 flags. */
6416 if ((in_flags & EF_ARM_APCS_FLOAT) != 0
6417 || (in_flags & EF_ARM_VFP_FLOAT) == 0)
6418 {
6419 if (in_flags & EF_ARM_SOFT_FLOAT)
6420 _bfd_error_handler
6421 (_("ERROR: %B uses software FP, whereas %B uses hardware FP"),
6422 ibfd, obfd);
6423 else
6424 _bfd_error_handler
6425 (_("ERROR: %B uses hardware FP, whereas %B uses software FP"),
6426 ibfd, obfd);
6427
6428 flags_compatible = FALSE;
6429 }
6430 }
6431 #endif
6432
6433 /* Interworking mismatch is only a warning. */
6434 if ((in_flags & EF_ARM_INTERWORK) != (out_flags & EF_ARM_INTERWORK))
6435 {
6436 if (in_flags & EF_ARM_INTERWORK)
6437 {
6438 _bfd_error_handler
6439 (_("Warning: %B supports interworking, whereas %B does not"),
6440 ibfd, obfd);
6441 }
6442 else
6443 {
6444 _bfd_error_handler
6445 (_("Warning: %B does not support interworking, whereas %B does"),
6446 ibfd, obfd);
6447 }
6448 }
6449 }
6450
6451 return flags_compatible;
6452 }
6453
6454 /* Display the flags field. */
6455
6456 static bfd_boolean
6457 elf32_arm_print_private_bfd_data (bfd *abfd, void * ptr)
6458 {
6459 FILE * file = (FILE *) ptr;
6460 unsigned long flags;
6461
6462 BFD_ASSERT (abfd != NULL && ptr != NULL);
6463
6464 /* Print normal ELF private data. */
6465 _bfd_elf_print_private_bfd_data (abfd, ptr);
6466
6467 flags = elf_elfheader (abfd)->e_flags;
6468 /* Ignore init flag - it may not be set, despite the flags field
6469 containing valid data. */
6470
6471 /* xgettext:c-format */
6472 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
6473
6474 switch (EF_ARM_EABI_VERSION (flags))
6475 {
6476 case EF_ARM_EABI_UNKNOWN:
6477 /* The following flag bits are GNU extensions and not part of the
6478 official ARM ELF extended ABI. Hence they are only decoded if
6479 the EABI version is not set. */
6480 if (flags & EF_ARM_INTERWORK)
6481 fprintf (file, _(" [interworking enabled]"));
6482
6483 if (flags & EF_ARM_APCS_26)
6484 fprintf (file, " [APCS-26]");
6485 else
6486 fprintf (file, " [APCS-32]");
6487
6488 if (flags & EF_ARM_VFP_FLOAT)
6489 fprintf (file, _(" [VFP float format]"));
6490 else if (flags & EF_ARM_MAVERICK_FLOAT)
6491 fprintf (file, _(" [Maverick float format]"));
6492 else
6493 fprintf (file, _(" [FPA float format]"));
6494
6495 if (flags & EF_ARM_APCS_FLOAT)
6496 fprintf (file, _(" [floats passed in float registers]"));
6497
6498 if (flags & EF_ARM_PIC)
6499 fprintf (file, _(" [position independent]"));
6500
6501 if (flags & EF_ARM_NEW_ABI)
6502 fprintf (file, _(" [new ABI]"));
6503
6504 if (flags & EF_ARM_OLD_ABI)
6505 fprintf (file, _(" [old ABI]"));
6506
6507 if (flags & EF_ARM_SOFT_FLOAT)
6508 fprintf (file, _(" [software FP]"));
6509
6510 flags &= ~(EF_ARM_INTERWORK | EF_ARM_APCS_26 | EF_ARM_APCS_FLOAT
6511 | EF_ARM_PIC | EF_ARM_NEW_ABI | EF_ARM_OLD_ABI
6512 | EF_ARM_SOFT_FLOAT | EF_ARM_VFP_FLOAT
6513 | EF_ARM_MAVERICK_FLOAT);
6514 break;
6515
6516 case EF_ARM_EABI_VER1:
6517 fprintf (file, _(" [Version1 EABI]"));
6518
6519 if (flags & EF_ARM_SYMSARESORTED)
6520 fprintf (file, _(" [sorted symbol table]"));
6521 else
6522 fprintf (file, _(" [unsorted symbol table]"));
6523
6524 flags &= ~ EF_ARM_SYMSARESORTED;
6525 break;
6526
6527 case EF_ARM_EABI_VER2:
6528 fprintf (file, _(" [Version2 EABI]"));
6529
6530 if (flags & EF_ARM_SYMSARESORTED)
6531 fprintf (file, _(" [sorted symbol table]"));
6532 else
6533 fprintf (file, _(" [unsorted symbol table]"));
6534
6535 if (flags & EF_ARM_DYNSYMSUSESEGIDX)
6536 fprintf (file, _(" [dynamic symbols use segment index]"));
6537
6538 if (flags & EF_ARM_MAPSYMSFIRST)
6539 fprintf (file, _(" [mapping symbols precede others]"));
6540
6541 flags &= ~(EF_ARM_SYMSARESORTED | EF_ARM_DYNSYMSUSESEGIDX
6542 | EF_ARM_MAPSYMSFIRST);
6543 break;
6544
6545 case EF_ARM_EABI_VER3:
6546 fprintf (file, _(" [Version3 EABI]"));
6547 break;
6548
6549 case EF_ARM_EABI_VER4:
6550 fprintf (file, _(" [Version4 EABI]"));
6551 goto eabi;
6552
6553 case EF_ARM_EABI_VER5:
6554 fprintf (file, _(" [Version5 EABI]"));
6555 eabi:
6556 if (flags & EF_ARM_BE8)
6557 fprintf (file, _(" [BE8]"));
6558
6559 if (flags & EF_ARM_LE8)
6560 fprintf (file, _(" [LE8]"));
6561
6562 flags &= ~(EF_ARM_LE8 | EF_ARM_BE8);
6563 break;
6564
6565 default:
6566 fprintf (file, _(" <EABI version unrecognised>"));
6567 break;
6568 }
6569
6570 flags &= ~ EF_ARM_EABIMASK;
6571
6572 if (flags & EF_ARM_RELEXEC)
6573 fprintf (file, _(" [relocatable executable]"));
6574
6575 if (flags & EF_ARM_HASENTRY)
6576 fprintf (file, _(" [has entry point]"));
6577
6578 flags &= ~ (EF_ARM_RELEXEC | EF_ARM_HASENTRY);
6579
6580 if (flags)
6581 fprintf (file, _("<Unrecognised flag bits set>"));
6582
6583 fputc ('\n', file);
6584
6585 return TRUE;
6586 }
6587
6588 static int
6589 elf32_arm_get_symbol_type (Elf_Internal_Sym * elf_sym, int type)
6590 {
6591 switch (ELF_ST_TYPE (elf_sym->st_info))
6592 {
6593 case STT_ARM_TFUNC:
6594 return ELF_ST_TYPE (elf_sym->st_info);
6595
6596 case STT_ARM_16BIT:
6597 /* If the symbol is not an object, return the STT_ARM_16BIT flag.
6598 This allows us to distinguish between data used by Thumb instructions
6599 and non-data (which is probably code) inside Thumb regions of an
6600 executable. */
6601 if (type != STT_OBJECT && type != STT_TLS)
6602 return ELF_ST_TYPE (elf_sym->st_info);
6603 break;
6604
6605 default:
6606 break;
6607 }
6608
6609 return type;
6610 }
6611
6612 static asection *
6613 elf32_arm_gc_mark_hook (asection * sec,
6614 struct bfd_link_info * info ATTRIBUTE_UNUSED,
6615 Elf_Internal_Rela * rel,
6616 struct elf_link_hash_entry * h,
6617 Elf_Internal_Sym * sym)
6618 {
6619 if (h != NULL)
6620 {
6621 switch (ELF32_R_TYPE (rel->r_info))
6622 {
6623 case R_ARM_GNU_VTINHERIT:
6624 case R_ARM_GNU_VTENTRY:
6625 break;
6626
6627 default:
6628 switch (h->root.type)
6629 {
6630 case bfd_link_hash_defined:
6631 case bfd_link_hash_defweak:
6632 return h->root.u.def.section;
6633
6634 case bfd_link_hash_common:
6635 return h->root.u.c.p->section;
6636
6637 default:
6638 break;
6639 }
6640 }
6641 }
6642 else
6643 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
6644
6645 return NULL;
6646 }
6647
6648 /* Update the got entry reference counts for the section being removed. */
6649
6650 static bfd_boolean
6651 elf32_arm_gc_sweep_hook (bfd * abfd,
6652 struct bfd_link_info * info,
6653 asection * sec,
6654 const Elf_Internal_Rela * relocs)
6655 {
6656 Elf_Internal_Shdr *symtab_hdr;
6657 struct elf_link_hash_entry **sym_hashes;
6658 bfd_signed_vma *local_got_refcounts;
6659 const Elf_Internal_Rela *rel, *relend;
6660 struct elf32_arm_link_hash_table * globals;
6661
6662 globals = elf32_arm_hash_table (info);
6663
6664 elf_section_data (sec)->local_dynrel = NULL;
6665
6666 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
6667 sym_hashes = elf_sym_hashes (abfd);
6668 local_got_refcounts = elf_local_got_refcounts (abfd);
6669
6670 relend = relocs + sec->reloc_count;
6671 for (rel = relocs; rel < relend; rel++)
6672 {
6673 unsigned long r_symndx;
6674 struct elf_link_hash_entry *h = NULL;
6675 int r_type;
6676
6677 r_symndx = ELF32_R_SYM (rel->r_info);
6678 if (r_symndx >= symtab_hdr->sh_info)
6679 {
6680 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
6681 while (h->root.type == bfd_link_hash_indirect
6682 || h->root.type == bfd_link_hash_warning)
6683 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6684 }
6685
6686 r_type = ELF32_R_TYPE (rel->r_info);
6687 r_type = arm_real_reloc_type (globals, r_type);
6688 switch (r_type)
6689 {
6690 case R_ARM_GOT32:
6691 case R_ARM_GOT_PREL:
6692 case R_ARM_TLS_GD32:
6693 case R_ARM_TLS_IE32:
6694 if (h != NULL)
6695 {
6696 if (h->got.refcount > 0)
6697 h->got.refcount -= 1;
6698 }
6699 else if (local_got_refcounts != NULL)
6700 {
6701 if (local_got_refcounts[r_symndx] > 0)
6702 local_got_refcounts[r_symndx] -= 1;
6703 }
6704 break;
6705
6706 case R_ARM_TLS_LDM32:
6707 elf32_arm_hash_table (info)->tls_ldm_got.refcount -= 1;
6708 break;
6709
6710 case R_ARM_ABS32:
6711 case R_ARM_REL32:
6712 case R_ARM_PC24:
6713 case R_ARM_PLT32:
6714 case R_ARM_CALL:
6715 case R_ARM_JUMP24:
6716 case R_ARM_PREL31:
6717 case R_ARM_THM_CALL:
6718 case R_ARM_MOVW_ABS_NC:
6719 case R_ARM_MOVT_ABS:
6720 case R_ARM_MOVW_PREL_NC:
6721 case R_ARM_MOVT_PREL:
6722 case R_ARM_THM_MOVW_ABS_NC:
6723 case R_ARM_THM_MOVT_ABS:
6724 case R_ARM_THM_MOVW_PREL_NC:
6725 case R_ARM_THM_MOVT_PREL:
6726 /* Should the interworking branches be here also? */
6727
6728 if (h != NULL)
6729 {
6730 struct elf32_arm_link_hash_entry *eh;
6731 struct elf32_arm_relocs_copied **pp;
6732 struct elf32_arm_relocs_copied *p;
6733
6734 eh = (struct elf32_arm_link_hash_entry *) h;
6735
6736 if (h->plt.refcount > 0)
6737 {
6738 h->plt.refcount -= 1;
6739 if (ELF32_R_TYPE (rel->r_info) == R_ARM_THM_CALL)
6740 eh->plt_thumb_refcount--;
6741 }
6742
6743 if (r_type == R_ARM_ABS32
6744 || r_type == R_ARM_REL32)
6745 {
6746 for (pp = &eh->relocs_copied; (p = *pp) != NULL;
6747 pp = &p->next)
6748 if (p->section == sec)
6749 {
6750 p->count -= 1;
6751 if (ELF32_R_TYPE (rel->r_info) == R_ARM_REL32)
6752 p->pc_count -= 1;
6753 if (p->count == 0)
6754 *pp = p->next;
6755 break;
6756 }
6757 }
6758 }
6759 break;
6760
6761 default:
6762 break;
6763 }
6764 }
6765
6766 return TRUE;
6767 }
6768
6769 /* Look through the relocs for a section during the first phase. */
6770
6771 static bfd_boolean
6772 elf32_arm_check_relocs (bfd *abfd, struct bfd_link_info *info,
6773 asection *sec, const Elf_Internal_Rela *relocs)
6774 {
6775 Elf_Internal_Shdr *symtab_hdr;
6776 struct elf_link_hash_entry **sym_hashes;
6777 struct elf_link_hash_entry **sym_hashes_end;
6778 const Elf_Internal_Rela *rel;
6779 const Elf_Internal_Rela *rel_end;
6780 bfd *dynobj;
6781 asection *sreloc;
6782 bfd_vma *local_got_offsets;
6783 struct elf32_arm_link_hash_table *htab;
6784
6785 if (info->relocatable)
6786 return TRUE;
6787
6788 htab = elf32_arm_hash_table (info);
6789 sreloc = NULL;
6790
6791 /* Create dynamic sections for relocatable executables so that we can
6792 copy relocations. */
6793 if (htab->root.is_relocatable_executable
6794 && ! htab->root.dynamic_sections_created)
6795 {
6796 if (! _bfd_elf_link_create_dynamic_sections (abfd, info))
6797 return FALSE;
6798 }
6799
6800 dynobj = elf_hash_table (info)->dynobj;
6801 local_got_offsets = elf_local_got_offsets (abfd);
6802
6803 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
6804 sym_hashes = elf_sym_hashes (abfd);
6805 sym_hashes_end = sym_hashes
6806 + symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
6807
6808 if (!elf_bad_symtab (abfd))
6809 sym_hashes_end -= symtab_hdr->sh_info;
6810
6811 rel_end = relocs + sec->reloc_count;
6812 for (rel = relocs; rel < rel_end; rel++)
6813 {
6814 struct elf_link_hash_entry *h;
6815 struct elf32_arm_link_hash_entry *eh;
6816 unsigned long r_symndx;
6817 int r_type;
6818
6819 r_symndx = ELF32_R_SYM (rel->r_info);
6820 r_type = ELF32_R_TYPE (rel->r_info);
6821 r_type = arm_real_reloc_type (htab, r_type);
6822
6823 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
6824 {
6825 (*_bfd_error_handler) (_("%B: bad symbol index: %d"), abfd,
6826 r_symndx);
6827 return FALSE;
6828 }
6829
6830 if (r_symndx < symtab_hdr->sh_info)
6831 h = NULL;
6832 else
6833 {
6834 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
6835 while (h->root.type == bfd_link_hash_indirect
6836 || h->root.type == bfd_link_hash_warning)
6837 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6838 }
6839
6840 eh = (struct elf32_arm_link_hash_entry *) h;
6841
6842 switch (r_type)
6843 {
6844 case R_ARM_GOT32:
6845 case R_ARM_GOT_PREL:
6846 case R_ARM_TLS_GD32:
6847 case R_ARM_TLS_IE32:
6848 /* This symbol requires a global offset table entry. */
6849 {
6850 int tls_type, old_tls_type;
6851
6852 switch (r_type)
6853 {
6854 case R_ARM_TLS_GD32: tls_type = GOT_TLS_GD; break;
6855 case R_ARM_TLS_IE32: tls_type = GOT_TLS_IE; break;
6856 default: tls_type = GOT_NORMAL; break;
6857 }
6858
6859 if (h != NULL)
6860 {
6861 h->got.refcount++;
6862 old_tls_type = elf32_arm_hash_entry (h)->tls_type;
6863 }
6864 else
6865 {
6866 bfd_signed_vma *local_got_refcounts;
6867
6868 /* This is a global offset table entry for a local symbol. */
6869 local_got_refcounts = elf_local_got_refcounts (abfd);
6870 if (local_got_refcounts == NULL)
6871 {
6872 bfd_size_type size;
6873
6874 size = symtab_hdr->sh_info;
6875 size *= (sizeof (bfd_signed_vma) + sizeof(char));
6876 local_got_refcounts = bfd_zalloc (abfd, size);
6877 if (local_got_refcounts == NULL)
6878 return FALSE;
6879 elf_local_got_refcounts (abfd) = local_got_refcounts;
6880 elf32_arm_local_got_tls_type (abfd)
6881 = (char *) (local_got_refcounts + symtab_hdr->sh_info);
6882 }
6883 local_got_refcounts[r_symndx] += 1;
6884 old_tls_type = elf32_arm_local_got_tls_type (abfd) [r_symndx];
6885 }
6886
6887 /* We will already have issued an error message if there is a
6888 TLS / non-TLS mismatch, based on the symbol type. We don't
6889 support any linker relaxations. So just combine any TLS
6890 types needed. */
6891 if (old_tls_type != GOT_UNKNOWN && old_tls_type != GOT_NORMAL
6892 && tls_type != GOT_NORMAL)
6893 tls_type |= old_tls_type;
6894
6895 if (old_tls_type != tls_type)
6896 {
6897 if (h != NULL)
6898 elf32_arm_hash_entry (h)->tls_type = tls_type;
6899 else
6900 elf32_arm_local_got_tls_type (abfd) [r_symndx] = tls_type;
6901 }
6902 }
6903 /* Fall through */
6904
6905 case R_ARM_TLS_LDM32:
6906 if (r_type == R_ARM_TLS_LDM32)
6907 htab->tls_ldm_got.refcount++;
6908 /* Fall through */
6909
6910 case R_ARM_GOTOFF32:
6911 case R_ARM_GOTPC:
6912 if (htab->sgot == NULL)
6913 {
6914 if (htab->root.dynobj == NULL)
6915 htab->root.dynobj = abfd;
6916 if (!create_got_section (htab->root.dynobj, info))
6917 return FALSE;
6918 }
6919 break;
6920
6921 case R_ARM_ABS12:
6922 /* VxWorks uses dynamic R_ARM_ABS12 relocations for
6923 ldr __GOTT_INDEX__ offsets. */
6924 if (!htab->vxworks_p)
6925 break;
6926 /* Fall through */
6927
6928 case R_ARM_ABS32:
6929 case R_ARM_REL32:
6930 case R_ARM_PC24:
6931 case R_ARM_PLT32:
6932 case R_ARM_CALL:
6933 case R_ARM_JUMP24:
6934 case R_ARM_PREL31:
6935 case R_ARM_THM_CALL:
6936 case R_ARM_MOVW_ABS_NC:
6937 case R_ARM_MOVT_ABS:
6938 case R_ARM_MOVW_PREL_NC:
6939 case R_ARM_MOVT_PREL:
6940 case R_ARM_THM_MOVW_ABS_NC:
6941 case R_ARM_THM_MOVT_ABS:
6942 case R_ARM_THM_MOVW_PREL_NC:
6943 case R_ARM_THM_MOVT_PREL:
6944 /* Should the interworking branches be listed here? */
6945 if (h != NULL)
6946 {
6947 /* If this reloc is in a read-only section, we might
6948 need a copy reloc. We can't check reliably at this
6949 stage whether the section is read-only, as input
6950 sections have not yet been mapped to output sections.
6951 Tentatively set the flag for now, and correct in
6952 adjust_dynamic_symbol. */
6953 if (!info->shared)
6954 h->non_got_ref = 1;
6955
6956 /* We may need a .plt entry if the function this reloc
6957 refers to is in a different object. We can't tell for
6958 sure yet, because something later might force the
6959 symbol local. */
6960 if (r_type != R_ARM_ABS32 && r_type != R_ARM_REL32)
6961 h->needs_plt = 1;
6962
6963 /* If we create a PLT entry, this relocation will reference
6964 it, even if it's an ABS32 relocation. */
6965 h->plt.refcount += 1;
6966
6967 if (r_type == R_ARM_THM_CALL)
6968 eh->plt_thumb_refcount += 1;
6969 }
6970
6971 /* If we are creating a shared library or relocatable executable,
6972 and this is a reloc against a global symbol, or a non PC
6973 relative reloc against a local symbol, then we need to copy
6974 the reloc into the shared library. However, if we are linking
6975 with -Bsymbolic, we do not need to copy a reloc against a
6976 global symbol which is defined in an object we are
6977 including in the link (i.e., DEF_REGULAR is set). At
6978 this point we have not seen all the input files, so it is
6979 possible that DEF_REGULAR is not set now but will be set
6980 later (it is never cleared). We account for that
6981 possibility below by storing information in the
6982 relocs_copied field of the hash table entry. */
6983 if ((info->shared || htab->root.is_relocatable_executable)
6984 && (sec->flags & SEC_ALLOC) != 0
6985 && (r_type == R_ARM_ABS32
6986 || (h != NULL && ! h->needs_plt
6987 && (! info->symbolic || ! h->def_regular))))
6988 {
6989 struct elf32_arm_relocs_copied *p, **head;
6990
6991 /* When creating a shared object, we must copy these
6992 reloc types into the output file. We create a reloc
6993 section in dynobj and make room for this reloc. */
6994 if (sreloc == NULL)
6995 {
6996 const char * name;
6997
6998 name = (bfd_elf_string_from_elf_section
6999 (abfd,
7000 elf_elfheader (abfd)->e_shstrndx,
7001 elf_section_data (sec)->rel_hdr.sh_name));
7002 if (name == NULL)
7003 return FALSE;
7004
7005 BFD_ASSERT (reloc_section_p (htab, name, sec));
7006
7007 sreloc = bfd_get_section_by_name (dynobj, name);
7008 if (sreloc == NULL)
7009 {
7010 flagword flags;
7011
7012 flags = (SEC_HAS_CONTENTS | SEC_READONLY
7013 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
7014 if ((sec->flags & SEC_ALLOC) != 0
7015 /* BPABI objects never have dynamic
7016 relocations mapped. */
7017 && !htab->symbian_p)
7018 flags |= SEC_ALLOC | SEC_LOAD;
7019 sreloc = bfd_make_section_with_flags (dynobj,
7020 name,
7021 flags);
7022 if (sreloc == NULL
7023 || ! bfd_set_section_alignment (dynobj, sreloc, 2))
7024 return FALSE;
7025 }
7026
7027 elf_section_data (sec)->sreloc = sreloc;
7028 }
7029
7030 /* If this is a global symbol, we count the number of
7031 relocations we need for this symbol. */
7032 if (h != NULL)
7033 {
7034 head = &((struct elf32_arm_link_hash_entry *) h)->relocs_copied;
7035 }
7036 else
7037 {
7038 /* Track dynamic relocs needed for local syms too.
7039 We really need local syms available to do this
7040 easily. Oh well. */
7041
7042 asection *s;
7043 void *vpp;
7044
7045 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
7046 sec, r_symndx);
7047 if (s == NULL)
7048 return FALSE;
7049
7050 vpp = &elf_section_data (s)->local_dynrel;
7051 head = (struct elf32_arm_relocs_copied **) vpp;
7052 }
7053
7054 p = *head;
7055 if (p == NULL || p->section != sec)
7056 {
7057 bfd_size_type amt = sizeof *p;
7058
7059 p = bfd_alloc (htab->root.dynobj, amt);
7060 if (p == NULL)
7061 return FALSE;
7062 p->next = *head;
7063 *head = p;
7064 p->section = sec;
7065 p->count = 0;
7066 p->pc_count = 0;
7067 }
7068
7069 if (r_type == R_ARM_REL32)
7070 p->pc_count += 1;
7071 p->count += 1;
7072 }
7073 break;
7074
7075 /* This relocation describes the C++ object vtable hierarchy.
7076 Reconstruct it for later use during GC. */
7077 case R_ARM_GNU_VTINHERIT:
7078 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
7079 return FALSE;
7080 break;
7081
7082 /* This relocation describes which C++ vtable entries are actually
7083 used. Record for later use during GC. */
7084 case R_ARM_GNU_VTENTRY:
7085 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_offset))
7086 return FALSE;
7087 break;
7088 }
7089 }
7090
7091 return TRUE;
7092 }
7093
7094 /* Treat mapping symbols as special target symbols. */
7095
7096 static bfd_boolean
7097 elf32_arm_is_target_special_symbol (bfd * abfd ATTRIBUTE_UNUSED, asymbol * sym)
7098 {
7099 return bfd_is_arm_special_symbol_name (sym->name,
7100 BFD_ARM_SPECIAL_SYM_TYPE_ANY);
7101 }
7102
7103 /* This is a copy of elf_find_function() from elf.c except that
7104 ARM mapping symbols are ignored when looking for function names
7105 and STT_ARM_TFUNC is considered to a function type. */
7106
7107 static bfd_boolean
7108 arm_elf_find_function (bfd * abfd ATTRIBUTE_UNUSED,
7109 asection * section,
7110 asymbol ** symbols,
7111 bfd_vma offset,
7112 const char ** filename_ptr,
7113 const char ** functionname_ptr)
7114 {
7115 const char * filename = NULL;
7116 asymbol * func = NULL;
7117 bfd_vma low_func = 0;
7118 asymbol ** p;
7119
7120 for (p = symbols; *p != NULL; p++)
7121 {
7122 elf_symbol_type *q;
7123
7124 q = (elf_symbol_type *) *p;
7125
7126 switch (ELF_ST_TYPE (q->internal_elf_sym.st_info))
7127 {
7128 default:
7129 break;
7130 case STT_FILE:
7131 filename = bfd_asymbol_name (&q->symbol);
7132 break;
7133 case STT_FUNC:
7134 case STT_ARM_TFUNC:
7135 case STT_NOTYPE:
7136 /* Skip mapping symbols. */
7137 if ((q->symbol.flags & BSF_LOCAL)
7138 && bfd_is_arm_special_symbol_name (q->symbol.name,
7139 BFD_ARM_SPECIAL_SYM_TYPE_ANY))
7140 continue;
7141 /* Fall through. */
7142 if (bfd_get_section (&q->symbol) == section
7143 && q->symbol.value >= low_func
7144 && q->symbol.value <= offset)
7145 {
7146 func = (asymbol *) q;
7147 low_func = q->symbol.value;
7148 }
7149 break;
7150 }
7151 }
7152
7153 if (func == NULL)
7154 return FALSE;
7155
7156 if (filename_ptr)
7157 *filename_ptr = filename;
7158 if (functionname_ptr)
7159 *functionname_ptr = bfd_asymbol_name (func);
7160
7161 return TRUE;
7162 }
7163
7164
7165 /* Find the nearest line to a particular section and offset, for error
7166 reporting. This code is a duplicate of the code in elf.c, except
7167 that it uses arm_elf_find_function. */
7168
7169 static bfd_boolean
7170 elf32_arm_find_nearest_line (bfd * abfd,
7171 asection * section,
7172 asymbol ** symbols,
7173 bfd_vma offset,
7174 const char ** filename_ptr,
7175 const char ** functionname_ptr,
7176 unsigned int * line_ptr)
7177 {
7178 bfd_boolean found = FALSE;
7179
7180 /* We skip _bfd_dwarf1_find_nearest_line since no known ARM toolchain uses it. */
7181
7182 if (_bfd_dwarf2_find_nearest_line (abfd, section, symbols, offset,
7183 filename_ptr, functionname_ptr,
7184 line_ptr, 0,
7185 & elf_tdata (abfd)->dwarf2_find_line_info))
7186 {
7187 if (!*functionname_ptr)
7188 arm_elf_find_function (abfd, section, symbols, offset,
7189 *filename_ptr ? NULL : filename_ptr,
7190 functionname_ptr);
7191
7192 return TRUE;
7193 }
7194
7195 if (! _bfd_stab_section_find_nearest_line (abfd, symbols, section, offset,
7196 & found, filename_ptr,
7197 functionname_ptr, line_ptr,
7198 & elf_tdata (abfd)->line_info))
7199 return FALSE;
7200
7201 if (found && (*functionname_ptr || *line_ptr))
7202 return TRUE;
7203
7204 if (symbols == NULL)
7205 return FALSE;
7206
7207 if (! arm_elf_find_function (abfd, section, symbols, offset,
7208 filename_ptr, functionname_ptr))
7209 return FALSE;
7210
7211 *line_ptr = 0;
7212 return TRUE;
7213 }
7214
7215 static bfd_boolean
7216 elf32_arm_find_inliner_info (bfd * abfd,
7217 const char ** filename_ptr,
7218 const char ** functionname_ptr,
7219 unsigned int * line_ptr)
7220 {
7221 bfd_boolean found;
7222 found = _bfd_dwarf2_find_inliner_info (abfd, filename_ptr,
7223 functionname_ptr, line_ptr,
7224 & elf_tdata (abfd)->dwarf2_find_line_info);
7225 return found;
7226 }
7227
7228 /* Adjust a symbol defined by a dynamic object and referenced by a
7229 regular object. The current definition is in some section of the
7230 dynamic object, but we're not including those sections. We have to
7231 change the definition to something the rest of the link can
7232 understand. */
7233
7234 static bfd_boolean
7235 elf32_arm_adjust_dynamic_symbol (struct bfd_link_info * info,
7236 struct elf_link_hash_entry * h)
7237 {
7238 bfd * dynobj;
7239 asection * s;
7240 unsigned int power_of_two;
7241 struct elf32_arm_link_hash_entry * eh;
7242 struct elf32_arm_link_hash_table *globals;
7243
7244 globals = elf32_arm_hash_table (info);
7245 dynobj = elf_hash_table (info)->dynobj;
7246
7247 /* Make sure we know what is going on here. */
7248 BFD_ASSERT (dynobj != NULL
7249 && (h->needs_plt
7250 || h->u.weakdef != NULL
7251 || (h->def_dynamic
7252 && h->ref_regular
7253 && !h->def_regular)));
7254
7255 eh = (struct elf32_arm_link_hash_entry *) h;
7256
7257 /* If this is a function, put it in the procedure linkage table. We
7258 will fill in the contents of the procedure linkage table later,
7259 when we know the address of the .got section. */
7260 if (h->type == STT_FUNC || h->type == STT_ARM_TFUNC
7261 || h->needs_plt)
7262 {
7263 if (h->plt.refcount <= 0
7264 || SYMBOL_CALLS_LOCAL (info, h)
7265 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
7266 && h->root.type == bfd_link_hash_undefweak))
7267 {
7268 /* This case can occur if we saw a PLT32 reloc in an input
7269 file, but the symbol was never referred to by a dynamic
7270 object, or if all references were garbage collected. In
7271 such a case, we don't actually need to build a procedure
7272 linkage table, and we can just do a PC24 reloc instead. */
7273 h->plt.offset = (bfd_vma) -1;
7274 eh->plt_thumb_refcount = 0;
7275 h->needs_plt = 0;
7276 }
7277
7278 return TRUE;
7279 }
7280 else
7281 {
7282 /* It's possible that we incorrectly decided a .plt reloc was
7283 needed for an R_ARM_PC24 or similar reloc to a non-function sym
7284 in check_relocs. We can't decide accurately between function
7285 and non-function syms in check-relocs; Objects loaded later in
7286 the link may change h->type. So fix it now. */
7287 h->plt.offset = (bfd_vma) -1;
7288 eh->plt_thumb_refcount = 0;
7289 }
7290
7291 /* If this is a weak symbol, and there is a real definition, the
7292 processor independent code will have arranged for us to see the
7293 real definition first, and we can just use the same value. */
7294 if (h->u.weakdef != NULL)
7295 {
7296 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
7297 || h->u.weakdef->root.type == bfd_link_hash_defweak);
7298 h->root.u.def.section = h->u.weakdef->root.u.def.section;
7299 h->root.u.def.value = h->u.weakdef->root.u.def.value;
7300 return TRUE;
7301 }
7302
7303 /* If there are no non-GOT references, we do not need a copy
7304 relocation. */
7305 if (!h->non_got_ref)
7306 return TRUE;
7307
7308 /* This is a reference to a symbol defined by a dynamic object which
7309 is not a function. */
7310
7311 /* If we are creating a shared library, we must presume that the
7312 only references to the symbol are via the global offset table.
7313 For such cases we need not do anything here; the relocations will
7314 be handled correctly by relocate_section. Relocatable executables
7315 can reference data in shared objects directly, so we don't need to
7316 do anything here. */
7317 if (info->shared || globals->root.is_relocatable_executable)
7318 return TRUE;
7319
7320 if (h->size == 0)
7321 {
7322 (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
7323 h->root.root.string);
7324 return TRUE;
7325 }
7326
7327 /* We must allocate the symbol in our .dynbss section, which will
7328 become part of the .bss section of the executable. There will be
7329 an entry for this symbol in the .dynsym section. The dynamic
7330 object will contain position independent code, so all references
7331 from the dynamic object to this symbol will go through the global
7332 offset table. The dynamic linker will use the .dynsym entry to
7333 determine the address it must put in the global offset table, so
7334 both the dynamic object and the regular object will refer to the
7335 same memory location for the variable. */
7336 s = bfd_get_section_by_name (dynobj, ".dynbss");
7337 BFD_ASSERT (s != NULL);
7338
7339 /* We must generate a R_ARM_COPY reloc to tell the dynamic linker to
7340 copy the initial value out of the dynamic object and into the
7341 runtime process image. We need to remember the offset into the
7342 .rel(a).bss section we are going to use. */
7343 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
7344 {
7345 asection *srel;
7346
7347 srel = bfd_get_section_by_name (dynobj, RELOC_SECTION (globals, ".bss"));
7348 BFD_ASSERT (srel != NULL);
7349 srel->size += RELOC_SIZE (globals);
7350 h->needs_copy = 1;
7351 }
7352
7353 /* We need to figure out the alignment required for this symbol. I
7354 have no idea how ELF linkers handle this. */
7355 power_of_two = bfd_log2 (h->size);
7356 if (power_of_two > 3)
7357 power_of_two = 3;
7358
7359 /* Apply the required alignment. */
7360 s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
7361 if (power_of_two > bfd_get_section_alignment (dynobj, s))
7362 {
7363 if (! bfd_set_section_alignment (dynobj, s, power_of_two))
7364 return FALSE;
7365 }
7366
7367 /* Define the symbol as being at this point in the section. */
7368 h->root.u.def.section = s;
7369 h->root.u.def.value = s->size;
7370
7371 /* Increment the section size to make room for the symbol. */
7372 s->size += h->size;
7373
7374 return TRUE;
7375 }
7376
7377 /* Allocate space in .plt, .got and associated reloc sections for
7378 dynamic relocs. */
7379
7380 static bfd_boolean
7381 allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
7382 {
7383 struct bfd_link_info *info;
7384 struct elf32_arm_link_hash_table *htab;
7385 struct elf32_arm_link_hash_entry *eh;
7386 struct elf32_arm_relocs_copied *p;
7387
7388 eh = (struct elf32_arm_link_hash_entry *) h;
7389
7390 if (h->root.type == bfd_link_hash_indirect)
7391 return TRUE;
7392
7393 if (h->root.type == bfd_link_hash_warning)
7394 /* When warning symbols are created, they **replace** the "real"
7395 entry in the hash table, thus we never get to see the real
7396 symbol in a hash traversal. So look at it now. */
7397 h = (struct elf_link_hash_entry *) h->root.u.i.link;
7398
7399 info = (struct bfd_link_info *) inf;
7400 htab = elf32_arm_hash_table (info);
7401
7402 if (htab->root.dynamic_sections_created
7403 && h->plt.refcount > 0)
7404 {
7405 /* Make sure this symbol is output as a dynamic symbol.
7406 Undefined weak syms won't yet be marked as dynamic. */
7407 if (h->dynindx == -1
7408 && !h->forced_local)
7409 {
7410 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7411 return FALSE;
7412 }
7413
7414 if (info->shared
7415 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
7416 {
7417 asection *s = htab->splt;
7418
7419 /* If this is the first .plt entry, make room for the special
7420 first entry. */
7421 if (s->size == 0)
7422 s->size += htab->plt_header_size;
7423
7424 h->plt.offset = s->size;
7425
7426 /* If we will insert a Thumb trampoline before this PLT, leave room
7427 for it. */
7428 if (!htab->use_blx && eh->plt_thumb_refcount > 0)
7429 {
7430 h->plt.offset += PLT_THUMB_STUB_SIZE;
7431 s->size += PLT_THUMB_STUB_SIZE;
7432 }
7433
7434 /* If this symbol is not defined in a regular file, and we are
7435 not generating a shared library, then set the symbol to this
7436 location in the .plt. This is required to make function
7437 pointers compare as equal between the normal executable and
7438 the shared library. */
7439 if (! info->shared
7440 && !h->def_regular)
7441 {
7442 h->root.u.def.section = s;
7443 h->root.u.def.value = h->plt.offset;
7444
7445 /* Make sure the function is not marked as Thumb, in case
7446 it is the target of an ABS32 relocation, which will
7447 point to the PLT entry. */
7448 if (ELF_ST_TYPE (h->type) == STT_ARM_TFUNC)
7449 h->type = ELF_ST_INFO (ELF_ST_BIND (h->type), STT_FUNC);
7450 }
7451
7452 /* Make room for this entry. */
7453 s->size += htab->plt_entry_size;
7454
7455 if (!htab->symbian_p)
7456 {
7457 /* We also need to make an entry in the .got.plt section, which
7458 will be placed in the .got section by the linker script. */
7459 eh->plt_got_offset = htab->sgotplt->size;
7460 htab->sgotplt->size += 4;
7461 }
7462
7463 /* We also need to make an entry in the .rel(a).plt section. */
7464 htab->srelplt->size += RELOC_SIZE (htab);
7465
7466 /* VxWorks executables have a second set of relocations for
7467 each PLT entry. They go in a separate relocation section,
7468 which is processed by the kernel loader. */
7469 if (htab->vxworks_p && !info->shared)
7470 {
7471 /* There is a relocation for the initial PLT entry:
7472 an R_ARM_32 relocation for _GLOBAL_OFFSET_TABLE_. */
7473 if (h->plt.offset == htab->plt_header_size)
7474 htab->srelplt2->size += RELOC_SIZE (htab);
7475
7476 /* There are two extra relocations for each subsequent
7477 PLT entry: an R_ARM_32 relocation for the GOT entry,
7478 and an R_ARM_32 relocation for the PLT entry. */
7479 htab->srelplt2->size += RELOC_SIZE (htab) * 2;
7480 }
7481 }
7482 else
7483 {
7484 h->plt.offset = (bfd_vma) -1;
7485 h->needs_plt = 0;
7486 }
7487 }
7488 else
7489 {
7490 h->plt.offset = (bfd_vma) -1;
7491 h->needs_plt = 0;
7492 }
7493
7494 if (h->got.refcount > 0)
7495 {
7496 asection *s;
7497 bfd_boolean dyn;
7498 int tls_type = elf32_arm_hash_entry (h)->tls_type;
7499 int indx;
7500
7501 /* Make sure this symbol is output as a dynamic symbol.
7502 Undefined weak syms won't yet be marked as dynamic. */
7503 if (h->dynindx == -1
7504 && !h->forced_local)
7505 {
7506 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7507 return FALSE;
7508 }
7509
7510 if (!htab->symbian_p)
7511 {
7512 s = htab->sgot;
7513 h->got.offset = s->size;
7514
7515 if (tls_type == GOT_UNKNOWN)
7516 abort ();
7517
7518 if (tls_type == GOT_NORMAL)
7519 /* Non-TLS symbols need one GOT slot. */
7520 s->size += 4;
7521 else
7522 {
7523 if (tls_type & GOT_TLS_GD)
7524 /* R_ARM_TLS_GD32 needs 2 consecutive GOT slots. */
7525 s->size += 8;
7526 if (tls_type & GOT_TLS_IE)
7527 /* R_ARM_TLS_IE32 needs one GOT slot. */
7528 s->size += 4;
7529 }
7530
7531 dyn = htab->root.dynamic_sections_created;
7532
7533 indx = 0;
7534 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
7535 && (!info->shared
7536 || !SYMBOL_REFERENCES_LOCAL (info, h)))
7537 indx = h->dynindx;
7538
7539 if (tls_type != GOT_NORMAL
7540 && (info->shared || indx != 0)
7541 && (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
7542 || h->root.type != bfd_link_hash_undefweak))
7543 {
7544 if (tls_type & GOT_TLS_IE)
7545 htab->srelgot->size += RELOC_SIZE (htab);
7546
7547 if (tls_type & GOT_TLS_GD)
7548 htab->srelgot->size += RELOC_SIZE (htab);
7549
7550 if ((tls_type & GOT_TLS_GD) && indx != 0)
7551 htab->srelgot->size += RELOC_SIZE (htab);
7552 }
7553 else if ((ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
7554 || h->root.type != bfd_link_hash_undefweak)
7555 && (info->shared
7556 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
7557 htab->srelgot->size += RELOC_SIZE (htab);
7558 }
7559 }
7560 else
7561 h->got.offset = (bfd_vma) -1;
7562
7563 /* Allocate stubs for exported Thumb functions on v4t. */
7564 if (!htab->use_blx && h->dynindx != -1
7565 && ELF_ST_TYPE (h->type) == STT_ARM_TFUNC
7566 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
7567 {
7568 struct elf_link_hash_entry * th;
7569 struct bfd_link_hash_entry * bh;
7570 struct elf_link_hash_entry * myh;
7571 char name[1024];
7572 asection *s;
7573 bh = NULL;
7574 /* Create a new symbol to regist the real location of the function. */
7575 s = h->root.u.def.section;
7576 sprintf(name, "__real_%s", h->root.root.string);
7577 _bfd_generic_link_add_one_symbol (info, s->owner,
7578 name, BSF_GLOBAL, s,
7579 h->root.u.def.value,
7580 NULL, TRUE, FALSE, &bh);
7581
7582 myh = (struct elf_link_hash_entry *) bh;
7583 myh->type = ELF_ST_INFO (STB_LOCAL, STT_ARM_TFUNC);
7584 myh->forced_local = 1;
7585 eh->export_glue = myh;
7586 th = record_arm_to_thumb_glue (info, h);
7587 /* Point the symbol at the stub. */
7588 h->type = ELF_ST_INFO (ELF_ST_BIND (h->type), STT_FUNC);
7589 h->root.u.def.section = th->root.u.def.section;
7590 h->root.u.def.value = th->root.u.def.value & ~1;
7591 }
7592
7593 if (eh->relocs_copied == NULL)
7594 return TRUE;
7595
7596 /* In the shared -Bsymbolic case, discard space allocated for
7597 dynamic pc-relative relocs against symbols which turn out to be
7598 defined in regular objects. For the normal shared case, discard
7599 space for pc-relative relocs that have become local due to symbol
7600 visibility changes. */
7601
7602 if (info->shared || htab->root.is_relocatable_executable)
7603 {
7604 /* The only reloc that uses pc_count is R_ARM_REL32, which will
7605 appear on something like ".long foo - .". We want calls to
7606 protected symbols to resolve directly to the function rather
7607 than going via the plt. If people want function pointer
7608 comparisons to work as expected then they should avoid
7609 writing assembly like ".long foo - .". */
7610 if (SYMBOL_CALLS_LOCAL (info, h))
7611 {
7612 struct elf32_arm_relocs_copied **pp;
7613
7614 for (pp = &eh->relocs_copied; (p = *pp) != NULL; )
7615 {
7616 p->count -= p->pc_count;
7617 p->pc_count = 0;
7618 if (p->count == 0)
7619 *pp = p->next;
7620 else
7621 pp = &p->next;
7622 }
7623 }
7624
7625 /* Also discard relocs on undefined weak syms with non-default
7626 visibility. */
7627 if (eh->relocs_copied != NULL
7628 && h->root.type == bfd_link_hash_undefweak)
7629 {
7630 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
7631 eh->relocs_copied = NULL;
7632
7633 /* Make sure undefined weak symbols are output as a dynamic
7634 symbol in PIEs. */
7635 else if (h->dynindx == -1
7636 && !h->forced_local)
7637 {
7638 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7639 return FALSE;
7640 }
7641 }
7642
7643 else if (htab->root.is_relocatable_executable && h->dynindx == -1
7644 && h->root.type == bfd_link_hash_new)
7645 {
7646 /* Output absolute symbols so that we can create relocations
7647 against them. For normal symbols we output a relocation
7648 against the section that contains them. */
7649 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7650 return FALSE;
7651 }
7652
7653 }
7654 else
7655 {
7656 /* For the non-shared case, discard space for relocs against
7657 symbols which turn out to need copy relocs or are not
7658 dynamic. */
7659
7660 if (!h->non_got_ref
7661 && ((h->def_dynamic
7662 && !h->def_regular)
7663 || (htab->root.dynamic_sections_created
7664 && (h->root.type == bfd_link_hash_undefweak
7665 || h->root.type == bfd_link_hash_undefined))))
7666 {
7667 /* Make sure this symbol is output as a dynamic symbol.
7668 Undefined weak syms won't yet be marked as dynamic. */
7669 if (h->dynindx == -1
7670 && !h->forced_local)
7671 {
7672 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7673 return FALSE;
7674 }
7675
7676 /* If that succeeded, we know we'll be keeping all the
7677 relocs. */
7678 if (h->dynindx != -1)
7679 goto keep;
7680 }
7681
7682 eh->relocs_copied = NULL;
7683
7684 keep: ;
7685 }
7686
7687 /* Finally, allocate space. */
7688 for (p = eh->relocs_copied; p != NULL; p = p->next)
7689 {
7690 asection *sreloc = elf_section_data (p->section)->sreloc;
7691 sreloc->size += p->count * RELOC_SIZE (htab);
7692 }
7693
7694 return TRUE;
7695 }
7696
7697 /* Find any dynamic relocs that apply to read-only sections. */
7698
7699 static bfd_boolean
7700 elf32_arm_readonly_dynrelocs (struct elf_link_hash_entry *h, PTR inf)
7701 {
7702 struct elf32_arm_link_hash_entry *eh;
7703 struct elf32_arm_relocs_copied *p;
7704
7705 if (h->root.type == bfd_link_hash_warning)
7706 h = (struct elf_link_hash_entry *) h->root.u.i.link;
7707
7708 eh = (struct elf32_arm_link_hash_entry *) h;
7709 for (p = eh->relocs_copied; p != NULL; p = p->next)
7710 {
7711 asection *s = p->section;
7712
7713 if (s != NULL && (s->flags & SEC_READONLY) != 0)
7714 {
7715 struct bfd_link_info *info = (struct bfd_link_info *) inf;
7716
7717 info->flags |= DF_TEXTREL;
7718
7719 /* Not an error, just cut short the traversal. */
7720 return FALSE;
7721 }
7722 }
7723 return TRUE;
7724 }
7725
7726 /* Set the sizes of the dynamic sections. */
7727
7728 static bfd_boolean
7729 elf32_arm_size_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
7730 struct bfd_link_info * info)
7731 {
7732 bfd * dynobj;
7733 asection * s;
7734 bfd_boolean plt;
7735 bfd_boolean relocs;
7736 bfd *ibfd;
7737 struct elf32_arm_link_hash_table *htab;
7738
7739 htab = elf32_arm_hash_table (info);
7740 dynobj = elf_hash_table (info)->dynobj;
7741 BFD_ASSERT (dynobj != NULL);
7742 check_use_blx (htab);
7743
7744 if (elf_hash_table (info)->dynamic_sections_created)
7745 {
7746 /* Set the contents of the .interp section to the interpreter. */
7747 if (info->executable)
7748 {
7749 s = bfd_get_section_by_name (dynobj, ".interp");
7750 BFD_ASSERT (s != NULL);
7751 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
7752 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
7753 }
7754 }
7755
7756 /* Set up .got offsets for local syms, and space for local dynamic
7757 relocs. */
7758 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
7759 {
7760 bfd_signed_vma *local_got;
7761 bfd_signed_vma *end_local_got;
7762 char *local_tls_type;
7763 bfd_size_type locsymcount;
7764 Elf_Internal_Shdr *symtab_hdr;
7765 asection *srel;
7766
7767 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
7768 continue;
7769
7770 for (s = ibfd->sections; s != NULL; s = s->next)
7771 {
7772 struct elf32_arm_relocs_copied *p;
7773
7774 for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
7775 {
7776 if (!bfd_is_abs_section (p->section)
7777 && bfd_is_abs_section (p->section->output_section))
7778 {
7779 /* Input section has been discarded, either because
7780 it is a copy of a linkonce section or due to
7781 linker script /DISCARD/, so we'll be discarding
7782 the relocs too. */
7783 }
7784 else if (p->count != 0)
7785 {
7786 srel = elf_section_data (p->section)->sreloc;
7787 srel->size += p->count * RELOC_SIZE (htab);
7788 if ((p->section->output_section->flags & SEC_READONLY) != 0)
7789 info->flags |= DF_TEXTREL;
7790 }
7791 }
7792 }
7793
7794 local_got = elf_local_got_refcounts (ibfd);
7795 if (!local_got)
7796 continue;
7797
7798 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
7799 locsymcount = symtab_hdr->sh_info;
7800 end_local_got = local_got + locsymcount;
7801 local_tls_type = elf32_arm_local_got_tls_type (ibfd);
7802 s = htab->sgot;
7803 srel = htab->srelgot;
7804 for (; local_got < end_local_got; ++local_got, ++local_tls_type)
7805 {
7806 if (*local_got > 0)
7807 {
7808 *local_got = s->size;
7809 if (*local_tls_type & GOT_TLS_GD)
7810 /* TLS_GD relocs need an 8-byte structure in the GOT. */
7811 s->size += 8;
7812 if (*local_tls_type & GOT_TLS_IE)
7813 s->size += 4;
7814 if (*local_tls_type == GOT_NORMAL)
7815 s->size += 4;
7816
7817 if (info->shared || *local_tls_type == GOT_TLS_GD)
7818 srel->size += RELOC_SIZE (htab);
7819 }
7820 else
7821 *local_got = (bfd_vma) -1;
7822 }
7823 }
7824
7825 if (htab->tls_ldm_got.refcount > 0)
7826 {
7827 /* Allocate two GOT entries and one dynamic relocation (if necessary)
7828 for R_ARM_TLS_LDM32 relocations. */
7829 htab->tls_ldm_got.offset = htab->sgot->size;
7830 htab->sgot->size += 8;
7831 if (info->shared)
7832 htab->srelgot->size += RELOC_SIZE (htab);
7833 }
7834 else
7835 htab->tls_ldm_got.offset = -1;
7836
7837 /* Allocate global sym .plt and .got entries, and space for global
7838 sym dynamic relocs. */
7839 elf_link_hash_traverse (& htab->root, allocate_dynrelocs, info);
7840
7841 /* The check_relocs and adjust_dynamic_symbol entry points have
7842 determined the sizes of the various dynamic sections. Allocate
7843 memory for them. */
7844 plt = FALSE;
7845 relocs = FALSE;
7846 for (s = dynobj->sections; s != NULL; s = s->next)
7847 {
7848 const char * name;
7849
7850 if ((s->flags & SEC_LINKER_CREATED) == 0)
7851 continue;
7852
7853 /* It's OK to base decisions on the section name, because none
7854 of the dynobj section names depend upon the input files. */
7855 name = bfd_get_section_name (dynobj, s);
7856
7857 if (strcmp (name, ".plt") == 0)
7858 {
7859 /* Remember whether there is a PLT. */
7860 plt = s->size != 0;
7861 }
7862 else if (strncmp (name, ".rel", 4) == 0)
7863 {
7864 if (s->size != 0)
7865 {
7866 /* Remember whether there are any reloc sections other
7867 than .rel(a).plt and .rela.plt.unloaded. */
7868 if (s != htab->srelplt && s != htab->srelplt2)
7869 relocs = TRUE;
7870
7871 /* We use the reloc_count field as a counter if we need
7872 to copy relocs into the output file. */
7873 s->reloc_count = 0;
7874 }
7875 }
7876 else if (strncmp (name, ".got", 4) != 0
7877 && strcmp (name, ".dynbss") != 0)
7878 {
7879 /* It's not one of our sections, so don't allocate space. */
7880 continue;
7881 }
7882
7883 if (s->size == 0)
7884 {
7885 /* If we don't need this section, strip it from the
7886 output file. This is mostly to handle .rel(a).bss and
7887 .rel(a).plt. We must create both sections in
7888 create_dynamic_sections, because they must be created
7889 before the linker maps input sections to output
7890 sections. The linker does that before
7891 adjust_dynamic_symbol is called, and it is that
7892 function which decides whether anything needs to go
7893 into these sections. */
7894 s->flags |= SEC_EXCLUDE;
7895 continue;
7896 }
7897
7898 if ((s->flags & SEC_HAS_CONTENTS) == 0)
7899 continue;
7900
7901 /* Allocate memory for the section contents. */
7902 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
7903 if (s->contents == NULL)
7904 return FALSE;
7905 }
7906
7907 if (elf_hash_table (info)->dynamic_sections_created)
7908 {
7909 /* Add some entries to the .dynamic section. We fill in the
7910 values later, in elf32_arm_finish_dynamic_sections, but we
7911 must add the entries now so that we get the correct size for
7912 the .dynamic section. The DT_DEBUG entry is filled in by the
7913 dynamic linker and used by the debugger. */
7914 #define add_dynamic_entry(TAG, VAL) \
7915 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
7916
7917 if (info->executable)
7918 {
7919 if (!add_dynamic_entry (DT_DEBUG, 0))
7920 return FALSE;
7921 }
7922
7923 if (plt)
7924 {
7925 if ( !add_dynamic_entry (DT_PLTGOT, 0)
7926 || !add_dynamic_entry (DT_PLTRELSZ, 0)
7927 || !add_dynamic_entry (DT_PLTREL,
7928 htab->use_rel ? DT_REL : DT_RELA)
7929 || !add_dynamic_entry (DT_JMPREL, 0))
7930 return FALSE;
7931 }
7932
7933 if (relocs)
7934 {
7935 if (htab->use_rel)
7936 {
7937 if (!add_dynamic_entry (DT_REL, 0)
7938 || !add_dynamic_entry (DT_RELSZ, 0)
7939 || !add_dynamic_entry (DT_RELENT, RELOC_SIZE (htab)))
7940 return FALSE;
7941 }
7942 else
7943 {
7944 if (!add_dynamic_entry (DT_RELA, 0)
7945 || !add_dynamic_entry (DT_RELASZ, 0)
7946 || !add_dynamic_entry (DT_RELAENT, RELOC_SIZE (htab)))
7947 return FALSE;
7948 }
7949 }
7950
7951 /* If any dynamic relocs apply to a read-only section,
7952 then we need a DT_TEXTREL entry. */
7953 if ((info->flags & DF_TEXTREL) == 0)
7954 elf_link_hash_traverse (&htab->root, elf32_arm_readonly_dynrelocs,
7955 (PTR) info);
7956
7957 if ((info->flags & DF_TEXTREL) != 0)
7958 {
7959 if (!add_dynamic_entry (DT_TEXTREL, 0))
7960 return FALSE;
7961 }
7962 }
7963 #undef add_dynamic_entry
7964
7965 return TRUE;
7966 }
7967
7968 /* Finish up dynamic symbol handling. We set the contents of various
7969 dynamic sections here. */
7970
7971 static bfd_boolean
7972 elf32_arm_finish_dynamic_symbol (bfd * output_bfd, struct bfd_link_info * info,
7973 struct elf_link_hash_entry * h, Elf_Internal_Sym * sym)
7974 {
7975 bfd * dynobj;
7976 struct elf32_arm_link_hash_table *htab;
7977 struct elf32_arm_link_hash_entry *eh;
7978
7979 dynobj = elf_hash_table (info)->dynobj;
7980 htab = elf32_arm_hash_table (info);
7981 eh = (struct elf32_arm_link_hash_entry *) h;
7982
7983 if (h->plt.offset != (bfd_vma) -1)
7984 {
7985 asection * splt;
7986 asection * srel;
7987 bfd_byte *loc;
7988 bfd_vma plt_index;
7989 Elf_Internal_Rela rel;
7990
7991 /* This symbol has an entry in the procedure linkage table. Set
7992 it up. */
7993
7994 BFD_ASSERT (h->dynindx != -1);
7995
7996 splt = bfd_get_section_by_name (dynobj, ".plt");
7997 srel = bfd_get_section_by_name (dynobj, RELOC_SECTION (htab, ".plt"));
7998 BFD_ASSERT (splt != NULL && srel != NULL);
7999
8000 /* Fill in the entry in the procedure linkage table. */
8001 if (htab->symbian_p)
8002 {
8003 put_arm_insn (htab, output_bfd,
8004 elf32_arm_symbian_plt_entry[0],
8005 splt->contents + h->plt.offset);
8006 bfd_put_32 (output_bfd,
8007 elf32_arm_symbian_plt_entry[1],
8008 splt->contents + h->plt.offset + 4);
8009
8010 /* Fill in the entry in the .rel.plt section. */
8011 rel.r_offset = (splt->output_section->vma
8012 + splt->output_offset
8013 + h->plt.offset + 4);
8014 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_GLOB_DAT);
8015
8016 /* Get the index in the procedure linkage table which
8017 corresponds to this symbol. This is the index of this symbol
8018 in all the symbols for which we are making plt entries. The
8019 first entry in the procedure linkage table is reserved. */
8020 plt_index = ((h->plt.offset - htab->plt_header_size)
8021 / htab->plt_entry_size);
8022 }
8023 else
8024 {
8025 bfd_vma got_offset, got_address, plt_address;
8026 bfd_vma got_displacement;
8027 asection * sgot;
8028 bfd_byte * ptr;
8029
8030 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
8031 BFD_ASSERT (sgot != NULL);
8032
8033 /* Get the offset into the .got.plt table of the entry that
8034 corresponds to this function. */
8035 got_offset = eh->plt_got_offset;
8036
8037 /* Get the index in the procedure linkage table which
8038 corresponds to this symbol. This is the index of this symbol
8039 in all the symbols for which we are making plt entries. The
8040 first three entries in .got.plt are reserved; after that
8041 symbols appear in the same order as in .plt. */
8042 plt_index = (got_offset - 12) / 4;
8043
8044 /* Calculate the address of the GOT entry. */
8045 got_address = (sgot->output_section->vma
8046 + sgot->output_offset
8047 + got_offset);
8048
8049 /* ...and the address of the PLT entry. */
8050 plt_address = (splt->output_section->vma
8051 + splt->output_offset
8052 + h->plt.offset);
8053
8054 ptr = htab->splt->contents + h->plt.offset;
8055 if (htab->vxworks_p && info->shared)
8056 {
8057 unsigned int i;
8058 bfd_vma val;
8059
8060 for (i = 0; i != htab->plt_entry_size / 4; i++, ptr += 4)
8061 {
8062 val = elf32_arm_vxworks_shared_plt_entry[i];
8063 if (i == 2)
8064 val |= got_address - sgot->output_section->vma;
8065 if (i == 5)
8066 val |= plt_index * RELOC_SIZE (htab);
8067 if (i == 2 || i == 5)
8068 bfd_put_32 (output_bfd, val, ptr);
8069 else
8070 put_arm_insn (htab, output_bfd, val, ptr);
8071 }
8072 }
8073 else if (htab->vxworks_p)
8074 {
8075 unsigned int i;
8076 bfd_vma val;
8077
8078 for (i = 0; i != htab->plt_entry_size / 4; i++)
8079 {
8080 val = elf32_arm_vxworks_exec_plt_entry[i];
8081 if (i == 2)
8082 val |= got_address;
8083 if (i == 4)
8084 val |= 0xffffff & -((h->plt.offset + i * 4 + 8) >> 2);
8085 if (i == 5)
8086 val |= plt_index * RELOC_SIZE (htab);
8087 if (i == 2 || i == 5)
8088 bfd_put_32 (output_bfd, val, ptr);
8089 else
8090 put_arm_insn (htab, output_bfd, val, ptr);
8091 }
8092
8093 loc = (htab->srelplt2->contents
8094 + (plt_index * 2 + 1) * RELOC_SIZE (htab));
8095
8096 /* Create the .rela.plt.unloaded R_ARM_ABS32 relocation
8097 referencing the GOT for this PLT entry. */
8098 rel.r_offset = plt_address + 8;
8099 rel.r_info = ELF32_R_INFO (htab->root.hgot->indx, R_ARM_ABS32);
8100 rel.r_addend = got_offset;
8101 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
8102 loc += RELOC_SIZE (htab);
8103
8104 /* Create the R_ARM_ABS32 relocation referencing the
8105 beginning of the PLT for this GOT entry. */
8106 rel.r_offset = got_address;
8107 rel.r_info = ELF32_R_INFO (htab->root.hplt->indx, R_ARM_ABS32);
8108 rel.r_addend = 0;
8109 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
8110 }
8111 else
8112 {
8113 /* Calculate the displacement between the PLT slot and the
8114 entry in the GOT. The eight-byte offset accounts for the
8115 value produced by adding to pc in the first instruction
8116 of the PLT stub. */
8117 got_displacement = got_address - (plt_address + 8);
8118
8119 BFD_ASSERT ((got_displacement & 0xf0000000) == 0);
8120
8121 if (!htab->use_blx && eh->plt_thumb_refcount > 0)
8122 {
8123 put_thumb_insn (htab, output_bfd,
8124 elf32_arm_plt_thumb_stub[0], ptr - 4);
8125 put_thumb_insn (htab, output_bfd,
8126 elf32_arm_plt_thumb_stub[1], ptr - 2);
8127 }
8128
8129 put_arm_insn (htab, output_bfd,
8130 elf32_arm_plt_entry[0]
8131 | ((got_displacement & 0x0ff00000) >> 20),
8132 ptr + 0);
8133 put_arm_insn (htab, output_bfd,
8134 elf32_arm_plt_entry[1]
8135 | ((got_displacement & 0x000ff000) >> 12),
8136 ptr+ 4);
8137 put_arm_insn (htab, output_bfd,
8138 elf32_arm_plt_entry[2]
8139 | (got_displacement & 0x00000fff),
8140 ptr + 8);
8141 #ifdef FOUR_WORD_PLT
8142 bfd_put_32 (output_bfd, elf32_arm_plt_entry[3], ptr + 12);
8143 #endif
8144 }
8145
8146 /* Fill in the entry in the global offset table. */
8147 bfd_put_32 (output_bfd,
8148 (splt->output_section->vma
8149 + splt->output_offset),
8150 sgot->contents + got_offset);
8151
8152 /* Fill in the entry in the .rel(a).plt section. */
8153 rel.r_addend = 0;
8154 rel.r_offset = got_address;
8155 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_JUMP_SLOT);
8156 }
8157
8158 loc = srel->contents + plt_index * RELOC_SIZE (htab);
8159 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
8160
8161 if (!h->def_regular)
8162 {
8163 /* Mark the symbol as undefined, rather than as defined in
8164 the .plt section. Leave the value alone. */
8165 sym->st_shndx = SHN_UNDEF;
8166 /* If the symbol is weak, we do need to clear the value.
8167 Otherwise, the PLT entry would provide a definition for
8168 the symbol even if the symbol wasn't defined anywhere,
8169 and so the symbol would never be NULL. */
8170 if (!h->ref_regular_nonweak)
8171 sym->st_value = 0;
8172 }
8173 }
8174
8175 if (h->got.offset != (bfd_vma) -1
8176 && (elf32_arm_hash_entry (h)->tls_type & GOT_TLS_GD) == 0
8177 && (elf32_arm_hash_entry (h)->tls_type & GOT_TLS_IE) == 0)
8178 {
8179 asection * sgot;
8180 asection * srel;
8181 Elf_Internal_Rela rel;
8182 bfd_byte *loc;
8183 bfd_vma offset;
8184
8185 /* This symbol has an entry in the global offset table. Set it
8186 up. */
8187 sgot = bfd_get_section_by_name (dynobj, ".got");
8188 srel = bfd_get_section_by_name (dynobj, RELOC_SECTION (htab, ".got"));
8189 BFD_ASSERT (sgot != NULL && srel != NULL);
8190
8191 offset = (h->got.offset & ~(bfd_vma) 1);
8192 rel.r_addend = 0;
8193 rel.r_offset = (sgot->output_section->vma
8194 + sgot->output_offset
8195 + offset);
8196
8197 /* If this is a static link, or it is a -Bsymbolic link and the
8198 symbol is defined locally or was forced to be local because
8199 of a version file, we just want to emit a RELATIVE reloc.
8200 The entry in the global offset table will already have been
8201 initialized in the relocate_section function. */
8202 if (info->shared
8203 && SYMBOL_REFERENCES_LOCAL (info, h))
8204 {
8205 BFD_ASSERT((h->got.offset & 1) != 0);
8206 rel.r_info = ELF32_R_INFO (0, R_ARM_RELATIVE);
8207 if (!htab->use_rel)
8208 {
8209 rel.r_addend = bfd_get_32 (output_bfd, sgot->contents + offset);
8210 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + offset);
8211 }
8212 }
8213 else
8214 {
8215 BFD_ASSERT((h->got.offset & 1) == 0);
8216 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + offset);
8217 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_GLOB_DAT);
8218 }
8219
8220 loc = srel->contents + srel->reloc_count++ * RELOC_SIZE (htab);
8221 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
8222 }
8223
8224 if (h->needs_copy)
8225 {
8226 asection * s;
8227 Elf_Internal_Rela rel;
8228 bfd_byte *loc;
8229
8230 /* This symbol needs a copy reloc. Set it up. */
8231 BFD_ASSERT (h->dynindx != -1
8232 && (h->root.type == bfd_link_hash_defined
8233 || h->root.type == bfd_link_hash_defweak));
8234
8235 s = bfd_get_section_by_name (h->root.u.def.section->owner,
8236 RELOC_SECTION (htab, ".bss"));
8237 BFD_ASSERT (s != NULL);
8238
8239 rel.r_addend = 0;
8240 rel.r_offset = (h->root.u.def.value
8241 + h->root.u.def.section->output_section->vma
8242 + h->root.u.def.section->output_offset);
8243 rel.r_info = ELF32_R_INFO (h->dynindx, R_ARM_COPY);
8244 loc = s->contents + s->reloc_count++ * RELOC_SIZE (htab);
8245 SWAP_RELOC_OUT (htab) (output_bfd, &rel, loc);
8246 }
8247
8248 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. On VxWorks,
8249 the _GLOBAL_OFFSET_TABLE_ symbol is not absolute: it is relative
8250 to the ".got" section. */
8251 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
8252 || (!htab->vxworks_p && h == htab->root.hgot))
8253 sym->st_shndx = SHN_ABS;
8254
8255 return TRUE;
8256 }
8257
8258 /* Finish up the dynamic sections. */
8259
8260 static bfd_boolean
8261 elf32_arm_finish_dynamic_sections (bfd * output_bfd, struct bfd_link_info * info)
8262 {
8263 bfd * dynobj;
8264 asection * sgot;
8265 asection * sdyn;
8266
8267 dynobj = elf_hash_table (info)->dynobj;
8268
8269 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
8270 BFD_ASSERT (elf32_arm_hash_table (info)->symbian_p || sgot != NULL);
8271 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
8272
8273 if (elf_hash_table (info)->dynamic_sections_created)
8274 {
8275 asection *splt;
8276 Elf32_External_Dyn *dyncon, *dynconend;
8277 struct elf32_arm_link_hash_table *htab;
8278
8279 htab = elf32_arm_hash_table (info);
8280 splt = bfd_get_section_by_name (dynobj, ".plt");
8281 BFD_ASSERT (splt != NULL && sdyn != NULL);
8282
8283 dyncon = (Elf32_External_Dyn *) sdyn->contents;
8284 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
8285
8286 for (; dyncon < dynconend; dyncon++)
8287 {
8288 Elf_Internal_Dyn dyn;
8289 const char * name;
8290 asection * s;
8291
8292 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
8293
8294 switch (dyn.d_tag)
8295 {
8296 unsigned int type;
8297
8298 default:
8299 break;
8300
8301 case DT_HASH:
8302 name = ".hash";
8303 goto get_vma_if_bpabi;
8304 case DT_STRTAB:
8305 name = ".dynstr";
8306 goto get_vma_if_bpabi;
8307 case DT_SYMTAB:
8308 name = ".dynsym";
8309 goto get_vma_if_bpabi;
8310 case DT_VERSYM:
8311 name = ".gnu.version";
8312 goto get_vma_if_bpabi;
8313 case DT_VERDEF:
8314 name = ".gnu.version_d";
8315 goto get_vma_if_bpabi;
8316 case DT_VERNEED:
8317 name = ".gnu.version_r";
8318 goto get_vma_if_bpabi;
8319
8320 case DT_PLTGOT:
8321 name = ".got";
8322 goto get_vma;
8323 case DT_JMPREL:
8324 name = RELOC_SECTION (htab, ".plt");
8325 get_vma:
8326 s = bfd_get_section_by_name (output_bfd, name);
8327 BFD_ASSERT (s != NULL);
8328 if (!htab->symbian_p)
8329 dyn.d_un.d_ptr = s->vma;
8330 else
8331 /* In the BPABI, tags in the PT_DYNAMIC section point
8332 at the file offset, not the memory address, for the
8333 convenience of the post linker. */
8334 dyn.d_un.d_ptr = s->filepos;
8335 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8336 break;
8337
8338 get_vma_if_bpabi:
8339 if (htab->symbian_p)
8340 goto get_vma;
8341 break;
8342
8343 case DT_PLTRELSZ:
8344 s = bfd_get_section_by_name (output_bfd,
8345 RELOC_SECTION (htab, ".plt"));
8346 BFD_ASSERT (s != NULL);
8347 dyn.d_un.d_val = s->size;
8348 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8349 break;
8350
8351 case DT_RELSZ:
8352 case DT_RELASZ:
8353 if (!htab->symbian_p)
8354 {
8355 /* My reading of the SVR4 ABI indicates that the
8356 procedure linkage table relocs (DT_JMPREL) should be
8357 included in the overall relocs (DT_REL). This is
8358 what Solaris does. However, UnixWare can not handle
8359 that case. Therefore, we override the DT_RELSZ entry
8360 here to make it not include the JMPREL relocs. Since
8361 the linker script arranges for .rel(a).plt to follow all
8362 other relocation sections, we don't have to worry
8363 about changing the DT_REL entry. */
8364 s = bfd_get_section_by_name (output_bfd,
8365 RELOC_SECTION (htab, ".plt"));
8366 if (s != NULL)
8367 dyn.d_un.d_val -= s->size;
8368 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8369 break;
8370 }
8371 /* Fall through */
8372
8373 case DT_REL:
8374 case DT_RELA:
8375 /* In the BPABI, the DT_REL tag must point at the file
8376 offset, not the VMA, of the first relocation
8377 section. So, we use code similar to that in
8378 elflink.c, but do not check for SHF_ALLOC on the
8379 relcoation section, since relocations sections are
8380 never allocated under the BPABI. The comments above
8381 about Unixware notwithstanding, we include all of the
8382 relocations here. */
8383 if (htab->symbian_p)
8384 {
8385 unsigned int i;
8386 type = ((dyn.d_tag == DT_REL || dyn.d_tag == DT_RELSZ)
8387 ? SHT_REL : SHT_RELA);
8388 dyn.d_un.d_val = 0;
8389 for (i = 1; i < elf_numsections (output_bfd); i++)
8390 {
8391 Elf_Internal_Shdr *hdr
8392 = elf_elfsections (output_bfd)[i];
8393 if (hdr->sh_type == type)
8394 {
8395 if (dyn.d_tag == DT_RELSZ
8396 || dyn.d_tag == DT_RELASZ)
8397 dyn.d_un.d_val += hdr->sh_size;
8398 else if ((ufile_ptr) hdr->sh_offset
8399 <= dyn.d_un.d_val - 1)
8400 dyn.d_un.d_val = hdr->sh_offset;
8401 }
8402 }
8403 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8404 }
8405 break;
8406
8407 /* Set the bottom bit of DT_INIT/FINI if the
8408 corresponding function is Thumb. */
8409 case DT_INIT:
8410 name = info->init_function;
8411 goto get_sym;
8412 case DT_FINI:
8413 name = info->fini_function;
8414 get_sym:
8415 /* If it wasn't set by elf_bfd_final_link
8416 then there is nothing to adjust. */
8417 if (dyn.d_un.d_val != 0)
8418 {
8419 struct elf_link_hash_entry * eh;
8420
8421 eh = elf_link_hash_lookup (elf_hash_table (info), name,
8422 FALSE, FALSE, TRUE);
8423 if (eh != (struct elf_link_hash_entry *) NULL
8424 && ELF_ST_TYPE (eh->type) == STT_ARM_TFUNC)
8425 {
8426 dyn.d_un.d_val |= 1;
8427 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
8428 }
8429 }
8430 break;
8431 }
8432 }
8433
8434 /* Fill in the first entry in the procedure linkage table. */
8435 if (splt->size > 0 && elf32_arm_hash_table (info)->plt_header_size)
8436 {
8437 const bfd_vma *plt0_entry;
8438 bfd_vma got_address, plt_address, got_displacement;
8439
8440 /* Calculate the addresses of the GOT and PLT. */
8441 got_address = sgot->output_section->vma + sgot->output_offset;
8442 plt_address = splt->output_section->vma + splt->output_offset;
8443
8444 if (htab->vxworks_p)
8445 {
8446 /* The VxWorks GOT is relocated by the dynamic linker.
8447 Therefore, we must emit relocations rather than simply
8448 computing the values now. */
8449 Elf_Internal_Rela rel;
8450
8451 plt0_entry = elf32_arm_vxworks_exec_plt0_entry;
8452 put_arm_insn (htab, output_bfd, plt0_entry[0],
8453 splt->contents + 0);
8454 put_arm_insn (htab, output_bfd, plt0_entry[1],
8455 splt->contents + 4);
8456 put_arm_insn (htab, output_bfd, plt0_entry[2],
8457 splt->contents + 8);
8458 bfd_put_32 (output_bfd, got_address, splt->contents + 12);
8459
8460 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_. */
8461 rel.r_offset = plt_address + 12;
8462 rel.r_info = ELF32_R_INFO (htab->root.hgot->indx, R_ARM_ABS32);
8463 rel.r_addend = 0;
8464 SWAP_RELOC_OUT (htab) (output_bfd, &rel,
8465 htab->srelplt2->contents);
8466 }
8467 else
8468 {
8469 got_displacement = got_address - (plt_address + 16);
8470
8471 plt0_entry = elf32_arm_plt0_entry;
8472 put_arm_insn (htab, output_bfd, plt0_entry[0],
8473 splt->contents + 0);
8474 put_arm_insn (htab, output_bfd, plt0_entry[1],
8475 splt->contents + 4);
8476 put_arm_insn (htab, output_bfd, plt0_entry[2],
8477 splt->contents + 8);
8478 put_arm_insn (htab, output_bfd, plt0_entry[3],
8479 splt->contents + 12);
8480
8481 #ifdef FOUR_WORD_PLT
8482 /* The displacement value goes in the otherwise-unused
8483 last word of the second entry. */
8484 bfd_put_32 (output_bfd, got_displacement, splt->contents + 28);
8485 #else
8486 bfd_put_32 (output_bfd, got_displacement, splt->contents + 16);
8487 #endif
8488 }
8489 }
8490
8491 /* UnixWare sets the entsize of .plt to 4, although that doesn't
8492 really seem like the right value. */
8493 elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
8494
8495 if (htab->vxworks_p && !info->shared && htab->splt->size > 0)
8496 {
8497 /* Correct the .rel(a).plt.unloaded relocations. They will have
8498 incorrect symbol indexes. */
8499 int num_plts;
8500 unsigned char *p;
8501
8502 num_plts = ((htab->splt->size - htab->plt_header_size)
8503 / htab->plt_entry_size);
8504 p = htab->srelplt2->contents + RELOC_SIZE (htab);
8505
8506 for (; num_plts; num_plts--)
8507 {
8508 Elf_Internal_Rela rel;
8509
8510 SWAP_RELOC_IN (htab) (output_bfd, p, &rel);
8511 rel.r_info = ELF32_R_INFO (htab->root.hgot->indx, R_ARM_ABS32);
8512 SWAP_RELOC_OUT (htab) (output_bfd, &rel, p);
8513 p += RELOC_SIZE (htab);
8514
8515 SWAP_RELOC_IN (htab) (output_bfd, p, &rel);
8516 rel.r_info = ELF32_R_INFO (htab->root.hplt->indx, R_ARM_ABS32);
8517 SWAP_RELOC_OUT (htab) (output_bfd, &rel, p);
8518 p += RELOC_SIZE (htab);
8519 }
8520 }
8521 }
8522
8523 /* Fill in the first three entries in the global offset table. */
8524 if (sgot)
8525 {
8526 if (sgot->size > 0)
8527 {
8528 if (sdyn == NULL)
8529 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
8530 else
8531 bfd_put_32 (output_bfd,
8532 sdyn->output_section->vma + sdyn->output_offset,
8533 sgot->contents);
8534 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
8535 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
8536 }
8537
8538 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
8539 }
8540
8541 return TRUE;
8542 }
8543
8544 static void
8545 elf32_arm_post_process_headers (bfd * abfd, struct bfd_link_info * link_info ATTRIBUTE_UNUSED)
8546 {
8547 Elf_Internal_Ehdr * i_ehdrp; /* ELF file header, internal form. */
8548 struct elf32_arm_link_hash_table *globals;
8549
8550 i_ehdrp = elf_elfheader (abfd);
8551
8552 if (EF_ARM_EABI_VERSION (i_ehdrp->e_flags) == EF_ARM_EABI_UNKNOWN)
8553 i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_ARM;
8554 else
8555 i_ehdrp->e_ident[EI_OSABI] = 0;
8556 i_ehdrp->e_ident[EI_ABIVERSION] = ARM_ELF_ABI_VERSION;
8557
8558 if (link_info)
8559 {
8560 globals = elf32_arm_hash_table (link_info);
8561 if (globals->byteswap_code)
8562 i_ehdrp->e_flags |= EF_ARM_BE8;
8563 }
8564 }
8565
8566 static enum elf_reloc_type_class
8567 elf32_arm_reloc_type_class (const Elf_Internal_Rela *rela)
8568 {
8569 switch ((int) ELF32_R_TYPE (rela->r_info))
8570 {
8571 case R_ARM_RELATIVE:
8572 return reloc_class_relative;
8573 case R_ARM_JUMP_SLOT:
8574 return reloc_class_plt;
8575 case R_ARM_COPY:
8576 return reloc_class_copy;
8577 default:
8578 return reloc_class_normal;
8579 }
8580 }
8581
8582 /* Set the right machine number for an Arm ELF file. */
8583
8584 static bfd_boolean
8585 elf32_arm_section_flags (flagword *flags, const Elf_Internal_Shdr *hdr)
8586 {
8587 if (hdr->sh_type == SHT_NOTE)
8588 *flags |= SEC_LINK_ONCE | SEC_LINK_DUPLICATES_SAME_CONTENTS;
8589
8590 return TRUE;
8591 }
8592
8593 static void
8594 elf32_arm_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
8595 {
8596 bfd_arm_update_notes (abfd, ARM_NOTE_SECTION);
8597 }
8598
8599 /* Return TRUE if this is an unwinding table entry. */
8600
8601 static bfd_boolean
8602 is_arm_elf_unwind_section_name (bfd * abfd ATTRIBUTE_UNUSED, const char * name)
8603 {
8604 size_t len1, len2;
8605
8606 len1 = sizeof (ELF_STRING_ARM_unwind) - 1;
8607 len2 = sizeof (ELF_STRING_ARM_unwind_once) - 1;
8608 return (strncmp (name, ELF_STRING_ARM_unwind, len1) == 0
8609 || strncmp (name, ELF_STRING_ARM_unwind_once, len2) == 0);
8610 }
8611
8612
8613 /* Set the type and flags for an ARM section. We do this by
8614 the section name, which is a hack, but ought to work. */
8615
8616 static bfd_boolean
8617 elf32_arm_fake_sections (bfd * abfd, Elf_Internal_Shdr * hdr, asection * sec)
8618 {
8619 const char * name;
8620
8621 name = bfd_get_section_name (abfd, sec);
8622
8623 if (is_arm_elf_unwind_section_name (abfd, name))
8624 {
8625 hdr->sh_type = SHT_ARM_EXIDX;
8626 hdr->sh_flags |= SHF_LINK_ORDER;
8627 }
8628 else if (strcmp(name, ".ARM.attributes") == 0)
8629 {
8630 hdr->sh_type = SHT_ARM_ATTRIBUTES;
8631 }
8632 return TRUE;
8633 }
8634
8635 /* Parse an Arm EABI attributes section. */
8636 static void
8637 elf32_arm_parse_attributes (bfd *abfd, Elf_Internal_Shdr * hdr)
8638 {
8639 bfd_byte *contents;
8640 bfd_byte *p;
8641 bfd_vma len;
8642
8643 contents = bfd_malloc (hdr->sh_size);
8644 if (!contents)
8645 return;
8646 if (!bfd_get_section_contents (abfd, hdr->bfd_section, contents, 0,
8647 hdr->sh_size))
8648 {
8649 free (contents);
8650 return;
8651 }
8652 p = contents;
8653 if (*(p++) == 'A')
8654 {
8655 len = hdr->sh_size - 1;
8656 while (len > 0)
8657 {
8658 int namelen;
8659 bfd_vma section_len;
8660
8661 section_len = bfd_get_32 (abfd, p);
8662 p += 4;
8663 if (section_len > len)
8664 section_len = len;
8665 len -= section_len;
8666 namelen = strlen ((char *)p) + 1;
8667 section_len -= namelen + 4;
8668 if (strcmp((char *)p, "aeabi") != 0)
8669 {
8670 /* Vendor section. Ignore it. */
8671 p += namelen + section_len;
8672 }
8673 else
8674 {
8675 p += namelen;
8676 while (section_len > 0)
8677 {
8678 int tag;
8679 unsigned int n;
8680 unsigned int val;
8681 bfd_vma subsection_len;
8682 bfd_byte *end;
8683
8684 tag = read_unsigned_leb128 (abfd, p, &n);
8685 p += n;
8686 subsection_len = bfd_get_32 (abfd, p);
8687 p += 4;
8688 if (subsection_len > section_len)
8689 subsection_len = section_len;
8690 section_len -= subsection_len;
8691 subsection_len -= n + 4;
8692 end = p + subsection_len;
8693 switch (tag)
8694 {
8695 case Tag_File:
8696 while (p < end)
8697 {
8698 bfd_boolean is_string;
8699
8700 tag = read_unsigned_leb128 (abfd, p, &n);
8701 p += n;
8702 if (tag == 4 || tag == 5)
8703 is_string = 1;
8704 else if (tag < 32)
8705 is_string = 0;
8706 else
8707 is_string = (tag & 1) != 0;
8708 if (tag == Tag_compatibility)
8709 {
8710 val = read_unsigned_leb128 (abfd, p, &n);
8711 p += n;
8712 elf32_arm_add_eabi_attr_compat (abfd, val,
8713 (char *)p);
8714 p += strlen ((char *)p) + 1;
8715 }
8716 else if (is_string)
8717 {
8718 elf32_arm_add_eabi_attr_string (abfd, tag,
8719 (char *)p);
8720 p += strlen ((char *)p) + 1;
8721 }
8722 else
8723 {
8724 val = read_unsigned_leb128 (abfd, p, &n);
8725 p += n;
8726 elf32_arm_add_eabi_attr_int (abfd, tag, val);
8727 }
8728 }
8729 break;
8730 case Tag_Section:
8731 case Tag_Symbol:
8732 /* Don't have anywhere convenient to attach these.
8733 Fall through for now. */
8734 default:
8735 /* Ignore things we don't kow about. */
8736 p += subsection_len;
8737 subsection_len = 0;
8738 break;
8739 }
8740 }
8741 }
8742 }
8743 }
8744 free (contents);
8745 }
8746
8747 /* Handle an ARM specific section when reading an object file. This is
8748 called when bfd_section_from_shdr finds a section with an unknown
8749 type. */
8750
8751 static bfd_boolean
8752 elf32_arm_section_from_shdr (bfd *abfd,
8753 Elf_Internal_Shdr * hdr,
8754 const char *name,
8755 int shindex)
8756 {
8757 /* There ought to be a place to keep ELF backend specific flags, but
8758 at the moment there isn't one. We just keep track of the
8759 sections by their name, instead. Fortunately, the ABI gives
8760 names for all the ARM specific sections, so we will probably get
8761 away with this. */
8762 switch (hdr->sh_type)
8763 {
8764 case SHT_ARM_EXIDX:
8765 case SHT_ARM_PREEMPTMAP:
8766 case SHT_ARM_ATTRIBUTES:
8767 break;
8768
8769 default:
8770 return FALSE;
8771 }
8772
8773 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
8774 return FALSE;
8775
8776 if (hdr->sh_type == SHT_ARM_ATTRIBUTES)
8777 elf32_arm_parse_attributes(abfd, hdr);
8778 return TRUE;
8779 }
8780
8781 /* A structure used to record a list of sections, independently
8782 of the next and prev fields in the asection structure. */
8783 typedef struct section_list
8784 {
8785 asection * sec;
8786 struct section_list * next;
8787 struct section_list * prev;
8788 }
8789 section_list;
8790
8791 /* Unfortunately we need to keep a list of sections for which
8792 an _arm_elf_section_data structure has been allocated. This
8793 is because it is possible for functions like elf32_arm_write_section
8794 to be called on a section which has had an elf_data_structure
8795 allocated for it (and so the used_by_bfd field is valid) but
8796 for which the ARM extended version of this structure - the
8797 _arm_elf_section_data structure - has not been allocated. */
8798 static section_list * sections_with_arm_elf_section_data = NULL;
8799
8800 static void
8801 record_section_with_arm_elf_section_data (asection * sec)
8802 {
8803 struct section_list * entry;
8804
8805 entry = bfd_malloc (sizeof (* entry));
8806 if (entry == NULL)
8807 return;
8808 entry->sec = sec;
8809 entry->next = sections_with_arm_elf_section_data;
8810 entry->prev = NULL;
8811 if (entry->next != NULL)
8812 entry->next->prev = entry;
8813 sections_with_arm_elf_section_data = entry;
8814 }
8815
8816 static struct section_list *
8817 find_arm_elf_section_entry (asection * sec)
8818 {
8819 struct section_list * entry;
8820 static struct section_list * last_entry = NULL;
8821
8822 /* This is a short cut for the typical case where the sections are added
8823 to the sections_with_arm_elf_section_data list in forward order and
8824 then looked up here in backwards order. This makes a real difference
8825 to the ld-srec/sec64k.exp linker test. */
8826 entry = sections_with_arm_elf_section_data;
8827 if (last_entry != NULL)
8828 {
8829 if (last_entry->sec == sec)
8830 entry = last_entry;
8831 else if (last_entry->next != NULL
8832 && last_entry->next->sec == sec)
8833 entry = last_entry->next;
8834 }
8835
8836 for (; entry; entry = entry->next)
8837 if (entry->sec == sec)
8838 break;
8839
8840 if (entry)
8841 /* Record the entry prior to this one - it is the entry we are most
8842 likely to want to locate next time. Also this way if we have been
8843 called from unrecord_section_with_arm_elf_section_data() we will not
8844 be caching a pointer that is about to be freed. */
8845 last_entry = entry->prev;
8846
8847 return entry;
8848 }
8849
8850 static _arm_elf_section_data *
8851 get_arm_elf_section_data (asection * sec)
8852 {
8853 struct section_list * entry;
8854
8855 entry = find_arm_elf_section_entry (sec);
8856
8857 if (entry)
8858 return elf32_arm_section_data (entry->sec);
8859 else
8860 return NULL;
8861 }
8862
8863 static void
8864 unrecord_section_with_arm_elf_section_data (asection * sec)
8865 {
8866 struct section_list * entry;
8867
8868 entry = find_arm_elf_section_entry (sec);
8869
8870 if (entry)
8871 {
8872 if (entry->prev != NULL)
8873 entry->prev->next = entry->next;
8874 if (entry->next != NULL)
8875 entry->next->prev = entry->prev;
8876 if (entry == sections_with_arm_elf_section_data)
8877 sections_with_arm_elf_section_data = entry->next;
8878 free (entry);
8879 }
8880 }
8881
8882 /* Called for each symbol. Builds a section map based on mapping symbols.
8883 Does not alter any of the symbols. */
8884
8885 static bfd_boolean
8886 elf32_arm_output_symbol_hook (struct bfd_link_info *info,
8887 const char *name,
8888 Elf_Internal_Sym *elfsym,
8889 asection *input_sec,
8890 struct elf_link_hash_entry *h)
8891 {
8892 int mapcount;
8893 elf32_arm_section_map *map;
8894 elf32_arm_section_map *newmap;
8895 _arm_elf_section_data *arm_data;
8896 struct elf32_arm_link_hash_table *globals;
8897
8898 globals = elf32_arm_hash_table (info);
8899 if (globals->vxworks_p
8900 && !elf_vxworks_link_output_symbol_hook (info, name, elfsym,
8901 input_sec, h))
8902 return FALSE;
8903
8904 /* Only do this on final link. */
8905 if (info->relocatable)
8906 return TRUE;
8907
8908 /* Only build a map if we need to byteswap code. */
8909 if (!globals->byteswap_code)
8910 return TRUE;
8911
8912 /* We only want mapping symbols. */
8913 if (!bfd_is_arm_special_symbol_name (name, BFD_ARM_SPECIAL_SYM_TYPE_MAP))
8914 return TRUE;
8915
8916 /* If this section has not been allocated an _arm_elf_section_data
8917 structure then we cannot record anything. */
8918 arm_data = get_arm_elf_section_data (input_sec);
8919 if (arm_data == NULL)
8920 return TRUE;
8921
8922 mapcount = arm_data->mapcount + 1;
8923 map = arm_data->map;
8924
8925 /* TODO: This may be inefficient, but we probably don't usually have many
8926 mapping symbols per section. */
8927 newmap = bfd_realloc (map, mapcount * sizeof (* map));
8928 if (newmap != NULL)
8929 {
8930 arm_data->map = newmap;
8931 arm_data->mapcount = mapcount;
8932
8933 newmap[mapcount - 1].vma = elfsym->st_value;
8934 newmap[mapcount - 1].type = name[1];
8935 }
8936
8937 return TRUE;
8938 }
8939
8940 typedef struct
8941 {
8942 void *finfo;
8943 struct bfd_link_info *info;
8944 int plt_shndx;
8945 bfd_vma plt_offset;
8946 bfd_boolean (*func) (void *, const char *, Elf_Internal_Sym *,
8947 asection *, struct elf_link_hash_entry *);
8948 } output_arch_syminfo;
8949
8950 enum map_symbol_type
8951 {
8952 ARM_MAP_ARM,
8953 ARM_MAP_THUMB,
8954 ARM_MAP_DATA
8955 };
8956
8957
8958 /* Output a single PLT mapping symbol. */
8959
8960 static bfd_boolean
8961 elf32_arm_ouput_plt_map_sym (output_arch_syminfo *osi,
8962 enum map_symbol_type type,
8963 bfd_vma offset)
8964 {
8965 static const char *names[3] = {"$a", "$t", "$d"};
8966 struct elf32_arm_link_hash_table *htab;
8967 Elf_Internal_Sym sym;
8968
8969 htab = elf32_arm_hash_table (osi->info);
8970 sym.st_value = osi->plt_offset + offset;
8971 sym.st_size = 0;
8972 sym.st_other = 0;
8973 sym.st_info = ELF_ST_INFO (STB_LOCAL, STT_NOTYPE);
8974 sym.st_shndx = osi->plt_shndx;
8975 if (!osi->func (osi->finfo, names[type], &sym, htab->splt, NULL))
8976 return FALSE;
8977 return TRUE;
8978 }
8979
8980
8981 /* Output mapping symbols for PLT entries associated with H. */
8982
8983 static bfd_boolean
8984 elf32_arm_output_plt_map (struct elf_link_hash_entry *h, void *inf)
8985 {
8986 output_arch_syminfo *osi = (output_arch_syminfo *) inf;
8987 struct elf32_arm_link_hash_table *htab;
8988 struct elf32_arm_link_hash_entry *eh;
8989 bfd_vma addr;
8990
8991 htab = elf32_arm_hash_table (osi->info);
8992
8993 if (h->root.type == bfd_link_hash_indirect)
8994 return TRUE;
8995
8996 if (h->root.type == bfd_link_hash_warning)
8997 /* When warning symbols are created, they **replace** the "real"
8998 entry in the hash table, thus we never get to see the real
8999 symbol in a hash traversal. So look at it now. */
9000 h = (struct elf_link_hash_entry *) h->root.u.i.link;
9001
9002 if (h->plt.offset == (bfd_vma) -1)
9003 return TRUE;
9004
9005 eh = (struct elf32_arm_link_hash_entry *) h;
9006 addr = h->plt.offset;
9007 if (htab->symbian_p)
9008 {
9009 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9010 return FALSE;
9011 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 4))
9012 return FALSE;
9013 }
9014 else if (htab->vxworks_p)
9015 {
9016 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9017 return FALSE;
9018 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 8))
9019 return FALSE;
9020 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr + 12))
9021 return FALSE;
9022 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 20))
9023 return FALSE;
9024 }
9025 else
9026 {
9027 bfd_boolean thumb_stub;
9028
9029 thumb_stub = eh->plt_thumb_refcount > 0 && !htab->use_blx;
9030 if (thumb_stub)
9031 {
9032 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_THUMB, addr - 4))
9033 return FALSE;
9034 }
9035 #ifdef FOUR_WORD_PLT
9036 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9037 return FALSE;
9038 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_DATA, addr + 12))
9039 return FALSE;
9040 #else
9041 /* A three-word PLT with no Thumb thunk contains only Arm code,
9042 so only need to output a mapping symbol for the first PLT entry and
9043 entries with thumb thunks. */
9044 if (thumb_stub || addr == 20)
9045 {
9046 if (!elf32_arm_ouput_plt_map_sym (osi, ARM_MAP_ARM, addr))
9047 return FALSE;
9048 }
9049 #endif
9050 }
9051
9052 return TRUE;
9053 }
9054
9055
9056 /* Output mapping symbols for the PLT. */
9057
9058 static bfd_boolean
9059 elf32_arm_output_arch_local_syms (bfd *output_bfd,
9060 struct bfd_link_info *info,
9061 void *finfo, bfd_boolean (*func) (void *, const char *,
9062 Elf_Internal_Sym *,
9063 asection *,
9064 struct elf_link_hash_entry *))
9065 {
9066 output_arch_syminfo osi;
9067 struct elf32_arm_link_hash_table *htab;
9068
9069 htab = elf32_arm_hash_table (info);
9070 if (!htab->splt || htab->splt->size == 0)
9071 return TRUE;
9072
9073 check_use_blx(htab);
9074 osi.finfo = finfo;
9075 osi.info = info;
9076 osi.func = func;
9077 osi.plt_shndx = _bfd_elf_section_from_bfd_section (output_bfd,
9078 htab->splt->output_section);
9079 osi.plt_offset = htab->splt->output_section->vma;
9080
9081 /* Output mapping symbols for the plt header. SymbianOS does not have a
9082 plt header. */
9083 if (htab->vxworks_p)
9084 {
9085 /* VxWorks shared libraries have no PLT header. */
9086 if (!info->shared)
9087 {
9088 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_ARM, 0))
9089 return FALSE;
9090 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_DATA, 12))
9091 return FALSE;
9092 }
9093 }
9094 else if (!htab->symbian_p)
9095 {
9096 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_ARM, 0))
9097 return FALSE;
9098 #ifndef FOUR_WORD_PLT
9099 if (!elf32_arm_ouput_plt_map_sym (&osi, ARM_MAP_DATA, 16))
9100 return FALSE;
9101 #endif
9102 }
9103
9104 elf_link_hash_traverse (&htab->root, elf32_arm_output_plt_map, (void *) &osi);
9105 return TRUE;
9106 }
9107
9108 /* Allocate target specific section data. */
9109
9110 static bfd_boolean
9111 elf32_arm_new_section_hook (bfd *abfd, asection *sec)
9112 {
9113 if (!sec->used_by_bfd)
9114 {
9115 _arm_elf_section_data *sdata;
9116 bfd_size_type amt = sizeof (*sdata);
9117
9118 sdata = bfd_zalloc (abfd, amt);
9119 if (sdata == NULL)
9120 return FALSE;
9121 sec->used_by_bfd = sdata;
9122 }
9123
9124 record_section_with_arm_elf_section_data (sec);
9125
9126 return _bfd_elf_new_section_hook (abfd, sec);
9127 }
9128
9129
9130 /* Used to order a list of mapping symbols by address. */
9131
9132 static int
9133 elf32_arm_compare_mapping (const void * a, const void * b)
9134 {
9135 return ((const elf32_arm_section_map *) a)->vma
9136 > ((const elf32_arm_section_map *) b)->vma;
9137 }
9138
9139
9140 /* Do code byteswapping. Return FALSE afterwards so that the section is
9141 written out as normal. */
9142
9143 static bfd_boolean
9144 elf32_arm_write_section (bfd *output_bfd ATTRIBUTE_UNUSED, asection *sec,
9145 bfd_byte *contents)
9146 {
9147 int mapcount;
9148 _arm_elf_section_data *arm_data;
9149 elf32_arm_section_map *map;
9150 bfd_vma ptr;
9151 bfd_vma end;
9152 bfd_vma offset;
9153 bfd_byte tmp;
9154 int i;
9155
9156 /* If this section has not been allocated an _arm_elf_section_data
9157 structure then we cannot record anything. */
9158 arm_data = get_arm_elf_section_data (sec);
9159 if (arm_data == NULL)
9160 return FALSE;
9161
9162 mapcount = arm_data->mapcount;
9163 map = arm_data->map;
9164
9165 if (mapcount == 0)
9166 return FALSE;
9167
9168 qsort (map, mapcount, sizeof (* map), elf32_arm_compare_mapping);
9169
9170 offset = sec->output_section->vma + sec->output_offset;
9171 ptr = map[0].vma - offset;
9172 for (i = 0; i < mapcount; i++)
9173 {
9174 if (i == mapcount - 1)
9175 end = sec->size;
9176 else
9177 end = map[i + 1].vma - offset;
9178
9179 switch (map[i].type)
9180 {
9181 case 'a':
9182 /* Byte swap code words. */
9183 while (ptr + 3 < end)
9184 {
9185 tmp = contents[ptr];
9186 contents[ptr] = contents[ptr + 3];
9187 contents[ptr + 3] = tmp;
9188 tmp = contents[ptr + 1];
9189 contents[ptr + 1] = contents[ptr + 2];
9190 contents[ptr + 2] = tmp;
9191 ptr += 4;
9192 }
9193 break;
9194
9195 case 't':
9196 /* Byte swap code halfwords. */
9197 while (ptr + 1 < end)
9198 {
9199 tmp = contents[ptr];
9200 contents[ptr] = contents[ptr + 1];
9201 contents[ptr + 1] = tmp;
9202 ptr += 2;
9203 }
9204 break;
9205
9206 case 'd':
9207 /* Leave data alone. */
9208 break;
9209 }
9210 ptr = end;
9211 }
9212
9213 free (map);
9214 arm_data->mapcount = 0;
9215 arm_data->map = NULL;
9216 unrecord_section_with_arm_elf_section_data (sec);
9217
9218 return FALSE;
9219 }
9220
9221 static void
9222 unrecord_section_via_map_over_sections (bfd * abfd ATTRIBUTE_UNUSED,
9223 asection * sec,
9224 void * ignore ATTRIBUTE_UNUSED)
9225 {
9226 unrecord_section_with_arm_elf_section_data (sec);
9227 }
9228
9229 static bfd_boolean
9230 elf32_arm_close_and_cleanup (bfd * abfd)
9231 {
9232 if (abfd->sections)
9233 bfd_map_over_sections (abfd,
9234 unrecord_section_via_map_over_sections,
9235 NULL);
9236
9237 return _bfd_elf_close_and_cleanup (abfd);
9238 }
9239
9240 static bfd_boolean
9241 elf32_arm_bfd_free_cached_info (bfd * abfd)
9242 {
9243 if (abfd->sections)
9244 bfd_map_over_sections (abfd,
9245 unrecord_section_via_map_over_sections,
9246 NULL);
9247
9248 return _bfd_free_cached_info (abfd);
9249 }
9250
9251 /* Display STT_ARM_TFUNC symbols as functions. */
9252
9253 static void
9254 elf32_arm_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
9255 asymbol *asym)
9256 {
9257 elf_symbol_type *elfsym = (elf_symbol_type *) asym;
9258
9259 if (ELF_ST_TYPE (elfsym->internal_elf_sym.st_info) == STT_ARM_TFUNC)
9260 elfsym->symbol.flags |= BSF_FUNCTION;
9261 }
9262
9263
9264 /* Mangle thumb function symbols as we read them in. */
9265
9266 static void
9267 elf32_arm_swap_symbol_in (bfd * abfd,
9268 const void *psrc,
9269 const void *pshn,
9270 Elf_Internal_Sym *dst)
9271 {
9272 bfd_elf32_swap_symbol_in (abfd, psrc, pshn, dst);
9273
9274 /* New EABI objects mark thumb function symbols by setting the low bit of
9275 the address. Turn these into STT_ARM_TFUNC. */
9276 if (ELF_ST_TYPE (dst->st_info) == STT_FUNC
9277 && (dst->st_value & 1))
9278 {
9279 dst->st_info = ELF_ST_INFO (ELF_ST_BIND (dst->st_info), STT_ARM_TFUNC);
9280 dst->st_value &= ~(bfd_vma) 1;
9281 }
9282 }
9283
9284
9285 /* Mangle thumb function symbols as we write them out. */
9286
9287 static void
9288 elf32_arm_swap_symbol_out (bfd *abfd,
9289 const Elf_Internal_Sym *src,
9290 void *cdst,
9291 void *shndx)
9292 {
9293 Elf_Internal_Sym newsym;
9294
9295 /* We convert STT_ARM_TFUNC symbols into STT_FUNC with the low bit
9296 of the address set, as per the new EABI. We do this unconditionally
9297 because objcopy does not set the elf header flags until after
9298 it writes out the symbol table. */
9299 if (ELF_ST_TYPE (src->st_info) == STT_ARM_TFUNC)
9300 {
9301 newsym = *src;
9302 newsym.st_info = ELF_ST_INFO (ELF_ST_BIND (src->st_info), STT_FUNC);
9303 if (newsym.st_shndx != SHN_UNDEF)
9304 {
9305 /* Do this only for defined symbols. At link type, the static
9306 linker will simulate the work of dynamic linker of resolving
9307 symbols and will carry over the thumbness of found symbols to
9308 the output symbol table. It's not clear how it happens, but
9309 the thumbness of underfined symbols can well be different at
9310 runtime, and writing '1' for them will be confusing for users
9311 and possibly for dynamic linker itself.
9312 */
9313 newsym.st_value |= 1;
9314 }
9315
9316 newsym.st_value |= 1;
9317
9318 src = &newsym;
9319 }
9320 bfd_elf32_swap_symbol_out (abfd, src, cdst, shndx);
9321 }
9322
9323 /* Add the PT_ARM_EXIDX program header. */
9324
9325 static bfd_boolean
9326 elf32_arm_modify_segment_map (bfd *abfd,
9327 struct bfd_link_info *info ATTRIBUTE_UNUSED)
9328 {
9329 struct elf_segment_map *m;
9330 asection *sec;
9331
9332 sec = bfd_get_section_by_name (abfd, ".ARM.exidx");
9333 if (sec != NULL && (sec->flags & SEC_LOAD) != 0)
9334 {
9335 /* If there is already a PT_ARM_EXIDX header, then we do not
9336 want to add another one. This situation arises when running
9337 "strip"; the input binary already has the header. */
9338 m = elf_tdata (abfd)->segment_map;
9339 while (m && m->p_type != PT_ARM_EXIDX)
9340 m = m->next;
9341 if (!m)
9342 {
9343 m = bfd_zalloc (abfd, sizeof (struct elf_segment_map));
9344 if (m == NULL)
9345 return FALSE;
9346 m->p_type = PT_ARM_EXIDX;
9347 m->count = 1;
9348 m->sections[0] = sec;
9349
9350 m->next = elf_tdata (abfd)->segment_map;
9351 elf_tdata (abfd)->segment_map = m;
9352 }
9353 }
9354
9355 return TRUE;
9356 }
9357
9358 /* We may add a PT_ARM_EXIDX program header. */
9359
9360 static int
9361 elf32_arm_additional_program_headers (bfd *abfd,
9362 struct bfd_link_info *info ATTRIBUTE_UNUSED)
9363 {
9364 asection *sec;
9365
9366 sec = bfd_get_section_by_name (abfd, ".ARM.exidx");
9367 if (sec != NULL && (sec->flags & SEC_LOAD) != 0)
9368 return 1;
9369 else
9370 return 0;
9371 }
9372
9373 /* We use this to override swap_symbol_in and swap_symbol_out. */
9374 const struct elf_size_info elf32_arm_size_info = {
9375 sizeof (Elf32_External_Ehdr),
9376 sizeof (Elf32_External_Phdr),
9377 sizeof (Elf32_External_Shdr),
9378 sizeof (Elf32_External_Rel),
9379 sizeof (Elf32_External_Rela),
9380 sizeof (Elf32_External_Sym),
9381 sizeof (Elf32_External_Dyn),
9382 sizeof (Elf_External_Note),
9383 4,
9384 1,
9385 32, 2,
9386 ELFCLASS32, EV_CURRENT,
9387 bfd_elf32_write_out_phdrs,
9388 bfd_elf32_write_shdrs_and_ehdr,
9389 bfd_elf32_write_relocs,
9390 elf32_arm_swap_symbol_in,
9391 elf32_arm_swap_symbol_out,
9392 bfd_elf32_slurp_reloc_table,
9393 bfd_elf32_slurp_symbol_table,
9394 bfd_elf32_swap_dyn_in,
9395 bfd_elf32_swap_dyn_out,
9396 bfd_elf32_swap_reloc_in,
9397 bfd_elf32_swap_reloc_out,
9398 bfd_elf32_swap_reloca_in,
9399 bfd_elf32_swap_reloca_out
9400 };
9401
9402 #define ELF_ARCH bfd_arch_arm
9403 #define ELF_MACHINE_CODE EM_ARM
9404 #ifdef __QNXTARGET__
9405 #define ELF_MAXPAGESIZE 0x1000
9406 #else
9407 #define ELF_MAXPAGESIZE 0x8000
9408 #endif
9409 #define ELF_MINPAGESIZE 0x1000
9410 #define ELF_COMMONPAGESIZE 0x1000
9411
9412 #define bfd_elf32_mkobject elf32_arm_mkobject
9413
9414 #define bfd_elf32_bfd_copy_private_bfd_data elf32_arm_copy_private_bfd_data
9415 #define bfd_elf32_bfd_merge_private_bfd_data elf32_arm_merge_private_bfd_data
9416 #define bfd_elf32_bfd_set_private_flags elf32_arm_set_private_flags
9417 #define bfd_elf32_bfd_print_private_bfd_data elf32_arm_print_private_bfd_data
9418 #define bfd_elf32_bfd_link_hash_table_create elf32_arm_link_hash_table_create
9419 #define bfd_elf32_bfd_reloc_type_lookup elf32_arm_reloc_type_lookup
9420 #define bfd_elf32_find_nearest_line elf32_arm_find_nearest_line
9421 #define bfd_elf32_find_inliner_info elf32_arm_find_inliner_info
9422 #define bfd_elf32_new_section_hook elf32_arm_new_section_hook
9423 #define bfd_elf32_bfd_is_target_special_symbol elf32_arm_is_target_special_symbol
9424 #define bfd_elf32_close_and_cleanup elf32_arm_close_and_cleanup
9425 #define bfd_elf32_bfd_free_cached_info elf32_arm_bfd_free_cached_info
9426 #define bfd_elf32_bfd_final_link elf32_arm_bfd_final_link
9427
9428 #define elf_backend_get_symbol_type elf32_arm_get_symbol_type
9429 #define elf_backend_gc_mark_hook elf32_arm_gc_mark_hook
9430 #define elf_backend_gc_sweep_hook elf32_arm_gc_sweep_hook
9431 #define elf_backend_check_relocs elf32_arm_check_relocs
9432 #define elf_backend_relocate_section elf32_arm_relocate_section
9433 #define elf_backend_write_section elf32_arm_write_section
9434 #define elf_backend_adjust_dynamic_symbol elf32_arm_adjust_dynamic_symbol
9435 #define elf_backend_create_dynamic_sections elf32_arm_create_dynamic_sections
9436 #define elf_backend_finish_dynamic_symbol elf32_arm_finish_dynamic_symbol
9437 #define elf_backend_finish_dynamic_sections elf32_arm_finish_dynamic_sections
9438 #define elf_backend_link_output_symbol_hook elf32_arm_output_symbol_hook
9439 #define elf_backend_size_dynamic_sections elf32_arm_size_dynamic_sections
9440 #define elf_backend_post_process_headers elf32_arm_post_process_headers
9441 #define elf_backend_reloc_type_class elf32_arm_reloc_type_class
9442 #define elf_backend_object_p elf32_arm_object_p
9443 #define elf_backend_section_flags elf32_arm_section_flags
9444 #define elf_backend_fake_sections elf32_arm_fake_sections
9445 #define elf_backend_section_from_shdr elf32_arm_section_from_shdr
9446 #define elf_backend_final_write_processing elf32_arm_final_write_processing
9447 #define elf_backend_copy_indirect_symbol elf32_arm_copy_indirect_symbol
9448 #define elf_backend_symbol_processing elf32_arm_symbol_processing
9449 #define elf_backend_size_info elf32_arm_size_info
9450 #define elf_backend_modify_segment_map elf32_arm_modify_segment_map
9451 #define elf_backend_additional_program_headers \
9452 elf32_arm_additional_program_headers
9453 #define elf_backend_output_arch_local_syms \
9454 elf32_arm_output_arch_local_syms
9455 #define elf_backend_begin_write_processing \
9456 elf32_arm_begin_write_processing
9457
9458 #define elf_backend_can_refcount 1
9459 #define elf_backend_can_gc_sections 1
9460 #define elf_backend_plt_readonly 1
9461 #define elf_backend_want_got_plt 1
9462 #define elf_backend_want_plt_sym 0
9463 #define elf_backend_may_use_rel_p 1
9464 #define elf_backend_may_use_rela_p 0
9465 #define elf_backend_default_use_rela_p 0
9466 #define elf_backend_rela_normal 0
9467
9468 #define elf_backend_got_header_size 12
9469
9470 #include "elf32-target.h"
9471
9472 /* VxWorks Targets */
9473
9474 #undef TARGET_LITTLE_SYM
9475 #define TARGET_LITTLE_SYM bfd_elf32_littlearm_vxworks_vec
9476 #undef TARGET_LITTLE_NAME
9477 #define TARGET_LITTLE_NAME "elf32-littlearm-vxworks"
9478 #undef TARGET_BIG_SYM
9479 #define TARGET_BIG_SYM bfd_elf32_bigarm_vxworks_vec
9480 #undef TARGET_BIG_NAME
9481 #define TARGET_BIG_NAME "elf32-bigarm-vxworks"
9482
9483 /* Like elf32_arm_link_hash_table_create -- but overrides
9484 appropriately for VxWorks. */
9485 static struct bfd_link_hash_table *
9486 elf32_arm_vxworks_link_hash_table_create (bfd *abfd)
9487 {
9488 struct bfd_link_hash_table *ret;
9489
9490 ret = elf32_arm_link_hash_table_create (abfd);
9491 if (ret)
9492 {
9493 struct elf32_arm_link_hash_table *htab
9494 = (struct elf32_arm_link_hash_table *) ret;
9495 htab->use_rel = 0;
9496 htab->vxworks_p = 1;
9497 }
9498 return ret;
9499 }
9500
9501 static void
9502 elf32_arm_vxworks_final_write_processing (bfd *abfd, bfd_boolean linker)
9503 {
9504 elf32_arm_final_write_processing (abfd, linker);
9505 elf_vxworks_final_write_processing (abfd, linker);
9506 }
9507
9508 #undef elf32_bed
9509 #define elf32_bed elf32_arm_vxworks_bed
9510
9511 #undef bfd_elf32_bfd_link_hash_table_create
9512 #define bfd_elf32_bfd_link_hash_table_create \
9513 elf32_arm_vxworks_link_hash_table_create
9514 #undef elf_backend_add_symbol_hook
9515 #define elf_backend_add_symbol_hook \
9516 elf_vxworks_add_symbol_hook
9517 #undef elf_backend_final_write_processing
9518 #define elf_backend_final_write_processing \
9519 elf32_arm_vxworks_final_write_processing
9520 #undef elf_backend_emit_relocs
9521 #define elf_backend_emit_relocs \
9522 elf_vxworks_emit_relocs
9523
9524 #undef elf_backend_may_use_rel_p
9525 #define elf_backend_may_use_rel_p 0
9526 #undef elf_backend_may_use_rela_p
9527 #define elf_backend_may_use_rela_p 1
9528 #undef elf_backend_default_use_rela_p
9529 #define elf_backend_default_use_rela_p 1
9530 #undef elf_backend_rela_normal
9531 #define elf_backend_rela_normal 1
9532 #undef elf_backend_want_plt_sym
9533 #define elf_backend_want_plt_sym 1
9534 #undef ELF_MAXPAGESIZE
9535 #define ELF_MAXPAGESIZE 0x1000
9536
9537 #include "elf32-target.h"
9538
9539
9540 /* Symbian OS Targets */
9541
9542 #undef TARGET_LITTLE_SYM
9543 #define TARGET_LITTLE_SYM bfd_elf32_littlearm_symbian_vec
9544 #undef TARGET_LITTLE_NAME
9545 #define TARGET_LITTLE_NAME "elf32-littlearm-symbian"
9546 #undef TARGET_BIG_SYM
9547 #define TARGET_BIG_SYM bfd_elf32_bigarm_symbian_vec
9548 #undef TARGET_BIG_NAME
9549 #define TARGET_BIG_NAME "elf32-bigarm-symbian"
9550
9551 /* Like elf32_arm_link_hash_table_create -- but overrides
9552 appropriately for Symbian OS. */
9553 static struct bfd_link_hash_table *
9554 elf32_arm_symbian_link_hash_table_create (bfd *abfd)
9555 {
9556 struct bfd_link_hash_table *ret;
9557
9558 ret = elf32_arm_link_hash_table_create (abfd);
9559 if (ret)
9560 {
9561 struct elf32_arm_link_hash_table *htab
9562 = (struct elf32_arm_link_hash_table *)ret;
9563 /* There is no PLT header for Symbian OS. */
9564 htab->plt_header_size = 0;
9565 /* The PLT entries are each three instructions. */
9566 htab->plt_entry_size = 4 * NUM_ELEM (elf32_arm_symbian_plt_entry);
9567 htab->symbian_p = 1;
9568 /* Symbian uses armv5t or above, so use_blx is always true. */
9569 htab->use_blx = 1;
9570 htab->root.is_relocatable_executable = 1;
9571 }
9572 return ret;
9573 }
9574
9575 static const struct bfd_elf_special_section
9576 elf32_arm_symbian_special_sections[] =
9577 {
9578 /* In a BPABI executable, the dynamic linking sections do not go in
9579 the loadable read-only segment. The post-linker may wish to
9580 refer to these sections, but they are not part of the final
9581 program image. */
9582 { ".dynamic", 8, 0, SHT_DYNAMIC, 0 },
9583 { ".dynstr", 7, 0, SHT_STRTAB, 0 },
9584 { ".dynsym", 7, 0, SHT_DYNSYM, 0 },
9585 { ".got", 4, 0, SHT_PROGBITS, 0 },
9586 { ".hash", 5, 0, SHT_HASH, 0 },
9587 /* These sections do not need to be writable as the SymbianOS
9588 postlinker will arrange things so that no dynamic relocation is
9589 required. */
9590 { ".init_array", 11, 0, SHT_INIT_ARRAY, SHF_ALLOC },
9591 { ".fini_array", 11, 0, SHT_FINI_ARRAY, SHF_ALLOC },
9592 { ".preinit_array", 14, 0, SHT_PREINIT_ARRAY, SHF_ALLOC },
9593 { NULL, 0, 0, 0, 0 }
9594 };
9595
9596 static void
9597 elf32_arm_symbian_begin_write_processing (bfd *abfd,
9598 struct bfd_link_info *link_info)
9599 {
9600 /* BPABI objects are never loaded directly by an OS kernel; they are
9601 processed by a postlinker first, into an OS-specific format. If
9602 the D_PAGED bit is set on the file, BFD will align segments on
9603 page boundaries, so that an OS can directly map the file. With
9604 BPABI objects, that just results in wasted space. In addition,
9605 because we clear the D_PAGED bit, map_sections_to_segments will
9606 recognize that the program headers should not be mapped into any
9607 loadable segment. */
9608 abfd->flags &= ~D_PAGED;
9609 elf32_arm_begin_write_processing(abfd, link_info);
9610 }
9611
9612 static bfd_boolean
9613 elf32_arm_symbian_modify_segment_map (bfd *abfd,
9614 struct bfd_link_info *info)
9615 {
9616 struct elf_segment_map *m;
9617 asection *dynsec;
9618
9619 /* BPABI shared libraries and executables should have a PT_DYNAMIC
9620 segment. However, because the .dynamic section is not marked
9621 with SEC_LOAD, the generic ELF code will not create such a
9622 segment. */
9623 dynsec = bfd_get_section_by_name (abfd, ".dynamic");
9624 if (dynsec)
9625 {
9626 for (m = elf_tdata (abfd)->segment_map; m != NULL; m = m->next)
9627 if (m->p_type == PT_DYNAMIC)
9628 break;
9629
9630 if (m == NULL)
9631 {
9632 m = _bfd_elf_make_dynamic_segment (abfd, dynsec);
9633 m->next = elf_tdata (abfd)->segment_map;
9634 elf_tdata (abfd)->segment_map = m;
9635 }
9636 }
9637
9638 /* Also call the generic arm routine. */
9639 return elf32_arm_modify_segment_map (abfd, info);
9640 }
9641
9642 #undef elf32_bed
9643 #define elf32_bed elf32_arm_symbian_bed
9644
9645 /* The dynamic sections are not allocated on SymbianOS; the postlinker
9646 will process them and then discard them. */
9647 #undef ELF_DYNAMIC_SEC_FLAGS
9648 #define ELF_DYNAMIC_SEC_FLAGS \
9649 (SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED)
9650
9651 #undef bfd_elf32_bfd_link_hash_table_create
9652 #define bfd_elf32_bfd_link_hash_table_create \
9653 elf32_arm_symbian_link_hash_table_create
9654 #undef elf_backend_add_symbol_hook
9655
9656 #undef elf_backend_special_sections
9657 #define elf_backend_special_sections elf32_arm_symbian_special_sections
9658
9659 #undef elf_backend_begin_write_processing
9660 #define elf_backend_begin_write_processing \
9661 elf32_arm_symbian_begin_write_processing
9662 #undef elf_backend_final_write_processing
9663 #define elf_backend_final_write_processing \
9664 elf32_arm_final_write_processing
9665 #undef elf_backend_emit_relocs
9666
9667 #undef elf_backend_modify_segment_map
9668 #define elf_backend_modify_segment_map elf32_arm_symbian_modify_segment_map
9669
9670 /* There is no .got section for BPABI objects, and hence no header. */
9671 #undef elf_backend_got_header_size
9672 #define elf_backend_got_header_size 0
9673
9674 /* Similarly, there is no .got.plt section. */
9675 #undef elf_backend_want_got_plt
9676 #define elf_backend_want_got_plt 0
9677
9678 #undef elf_backend_may_use_rel_p
9679 #define elf_backend_may_use_rel_p 1
9680 #undef elf_backend_may_use_rela_p
9681 #define elf_backend_may_use_rela_p 0
9682 #undef elf_backend_default_use_rela_p
9683 #define elf_backend_default_use_rela_p 0
9684 #undef elf_backend_rela_normal
9685 #define elf_backend_rela_normal 0
9686 #undef elf_backend_want_plt_sym
9687 #define elf_backend_want_plt_sym 0
9688 #undef ELF_MAXPAGESIZE
9689 #define ELF_MAXPAGESIZE 0x8000
9690
9691 #include "elf32-target.h"
git-cvsimport of binutils cvsroot