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