gmp-utils: New API to simply use of GMP's integer/rational/float objects
[binutils-gdb.git] / bfd / elf32-frv.c
blob9908c0112a5fac731f355c32f565636e469cf187
1 /* FRV-specific support for 32-bit ELF.
2 Copyright (C) 2002-2020 Free Software Foundation, Inc.
4 This file is part of BFD, the Binary File Descriptor library.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "elf/frv.h"
26 #include "dwarf2.h"
27 #include "hashtab.h"
28 #include "libiberty.h"
30 /* Forward declarations. */
33 static reloc_howto_type elf32_frv_howto_table [] =
35 /* This reloc does nothing. */
36 HOWTO (R_FRV_NONE, /* type */
37 0, /* rightshift */
38 3, /* size (0 = byte, 1 = short, 2 = long) */
39 0, /* bitsize */
40 FALSE, /* pc_relative */
41 0, /* bitpos */
42 complain_overflow_dont, /* complain_on_overflow */
43 bfd_elf_generic_reloc, /* special_function */
44 "R_FRV_NONE", /* name */
45 FALSE, /* partial_inplace */
46 0, /* src_mask */
47 0, /* dst_mask */
48 FALSE), /* pcrel_offset */
50 /* A 32 bit absolute relocation. */
51 HOWTO (R_FRV_32, /* type */
52 0, /* rightshift */
53 2, /* size (0 = byte, 1 = short, 2 = long) */
54 32, /* bitsize */
55 FALSE, /* pc_relative */
56 0, /* bitpos */
57 complain_overflow_bitfield, /* complain_on_overflow */
58 bfd_elf_generic_reloc, /* special_function */
59 "R_FRV_32", /* name */
60 FALSE, /* partial_inplace */
61 0xffffffff, /* src_mask */
62 0xffffffff, /* dst_mask */
63 FALSE), /* pcrel_offset */
65 /* A 16 bit pc-relative relocation. */
66 HOWTO (R_FRV_LABEL16, /* type */
67 2, /* rightshift */
68 2, /* size (0 = byte, 1 = short, 2 = long) */
69 16, /* bitsize */
70 TRUE, /* pc_relative */
71 0, /* bitpos */
72 complain_overflow_signed, /* complain_on_overflow */
73 bfd_elf_generic_reloc, /* special_function */
74 "R_FRV_LABEL16", /* name */
75 FALSE, /* partial_inplace */
76 0xffff, /* src_mask */
77 0xffff, /* dst_mask */
78 TRUE), /* pcrel_offset */
80 /* A 24-bit pc-relative relocation. */
81 HOWTO (R_FRV_LABEL24, /* type */
82 2, /* rightshift */
83 2, /* size (0 = byte, 1 = short, 2 = long) */
84 26, /* bitsize */
85 TRUE, /* pc_relative */
86 0, /* bitpos */
87 complain_overflow_bitfield, /* complain_on_overflow */
88 bfd_elf_generic_reloc, /* special_function */
89 "R_FRV_LABEL24", /* name */
90 FALSE, /* partial_inplace */
91 0x7e03ffff, /* src_mask */
92 0x7e03ffff, /* dst_mask */
93 TRUE), /* pcrel_offset */
95 HOWTO (R_FRV_LO16, /* type */
96 0, /* rightshift */
97 2, /* size (0 = byte, 1 = short, 2 = long) */
98 16, /* bitsize */
99 FALSE, /* pc_relative */
100 0, /* bitpos */
101 complain_overflow_dont, /* complain_on_overflow */
102 bfd_elf_generic_reloc, /* special_function */
103 "R_FRV_LO16", /* name */
104 FALSE, /* partial_inplace */
105 0xffff, /* src_mask */
106 0xffff, /* dst_mask */
107 FALSE), /* pcrel_offset */
109 HOWTO (R_FRV_HI16, /* type */
110 0, /* rightshift */
111 2, /* size (0 = byte, 1 = short, 2 = long) */
112 16, /* bitsize */
113 FALSE, /* pc_relative */
114 0, /* bitpos */
115 complain_overflow_dont, /* complain_on_overflow */
116 bfd_elf_generic_reloc, /* special_function */
117 "R_FRV_HI16", /* name */
118 FALSE, /* partial_inplace */
119 0xffff, /* src_mask */
120 0xffff, /* dst_mask */
121 FALSE), /* pcrel_offset */
123 HOWTO (R_FRV_GPREL12, /* type */
124 0, /* rightshift */
125 2, /* size (0 = byte, 1 = short, 2 = long) */
126 12, /* bitsize */
127 FALSE, /* pc_relative */
128 0, /* bitpos */
129 complain_overflow_dont, /* complain_on_overflow */
130 bfd_elf_generic_reloc, /* special_function */
131 "R_FRV_GPREL12", /* name */
132 FALSE, /* partial_inplace */
133 0xfff, /* src_mask */
134 0xfff, /* dst_mask */
135 FALSE), /* pcrel_offset */
137 HOWTO (R_FRV_GPRELU12, /* type */
138 0, /* rightshift */
139 2, /* size (0 = byte, 1 = short, 2 = long) */
140 12, /* bitsize */
141 FALSE, /* pc_relative */
142 0, /* bitpos */
143 complain_overflow_dont, /* complain_on_overflow */
144 bfd_elf_generic_reloc, /* special_function */
145 "R_FRV_GPRELU12", /* name */
146 FALSE, /* partial_inplace */
147 0xfff, /* src_mask */
148 0x3f03f, /* dst_mask */
149 FALSE), /* pcrel_offset */
151 HOWTO (R_FRV_GPREL32, /* type */
152 0, /* rightshift */
153 2, /* size (0 = byte, 1 = short, 2 = long) */
154 32, /* bitsize */
155 FALSE, /* pc_relative */
156 0, /* bitpos */
157 complain_overflow_dont, /* complain_on_overflow */
158 bfd_elf_generic_reloc, /* special_function */
159 "R_FRV_GPREL32", /* name */
160 FALSE, /* partial_inplace */
161 0xffffffff, /* src_mask */
162 0xffffffff, /* dst_mask */
163 FALSE), /* pcrel_offset */
165 HOWTO (R_FRV_GPRELHI, /* type */
166 0, /* rightshift */
167 2, /* size (0 = byte, 1 = short, 2 = long) */
168 16, /* bitsize */
169 FALSE, /* pc_relative */
170 0, /* bitpos */
171 complain_overflow_dont, /* complain_on_overflow */
172 bfd_elf_generic_reloc, /* special_function */
173 "R_FRV_GPRELHI", /* name */
174 FALSE, /* partial_inplace */
175 0xffff, /* src_mask */
176 0xffff, /* dst_mask */
177 FALSE), /* pcrel_offset */
179 HOWTO (R_FRV_GPRELLO, /* type */
180 0, /* rightshift */
181 2, /* size (0 = byte, 1 = short, 2 = long) */
182 16, /* bitsize */
183 FALSE, /* pc_relative */
184 0, /* bitpos */
185 complain_overflow_dont, /* complain_on_overflow */
186 bfd_elf_generic_reloc, /* special_function */
187 "R_FRV_GPRELLO", /* name */
188 FALSE, /* partial_inplace */
189 0xffff, /* src_mask */
190 0xffff, /* dst_mask */
191 FALSE), /* pcrel_offset */
193 /* A 12-bit signed operand with the GOT offset for the address of
194 the symbol. */
195 HOWTO (R_FRV_GOT12, /* type */
196 0, /* rightshift */
197 2, /* size (0 = byte, 1 = short, 2 = long) */
198 12, /* bitsize */
199 FALSE, /* pc_relative */
200 0, /* bitpos */
201 complain_overflow_signed, /* complain_on_overflow */
202 bfd_elf_generic_reloc, /* special_function */
203 "R_FRV_GOT12", /* name */
204 FALSE, /* partial_inplace */
205 0xfff, /* src_mask */
206 0xfff, /* dst_mask */
207 FALSE), /* pcrel_offset */
209 /* The upper 16 bits of the GOT offset for the address of the
210 symbol. */
211 HOWTO (R_FRV_GOTHI, /* type */
212 0, /* rightshift */
213 2, /* size (0 = byte, 1 = short, 2 = long) */
214 16, /* bitsize */
215 FALSE, /* pc_relative */
216 0, /* bitpos */
217 complain_overflow_dont, /* complain_on_overflow */
218 bfd_elf_generic_reloc, /* special_function */
219 "R_FRV_GOTHI", /* name */
220 FALSE, /* partial_inplace */
221 0xffff, /* src_mask */
222 0xffff, /* dst_mask */
223 FALSE), /* pcrel_offset */
225 /* The lower 16 bits of the GOT offset for the address of the
226 symbol. */
227 HOWTO (R_FRV_GOTLO, /* type */
228 0, /* rightshift */
229 2, /* size (0 = byte, 1 = short, 2 = long) */
230 16, /* bitsize */
231 FALSE, /* pc_relative */
232 0, /* bitpos */
233 complain_overflow_dont, /* complain_on_overflow */
234 bfd_elf_generic_reloc, /* special_function */
235 "R_FRV_GOTLO", /* name */
236 FALSE, /* partial_inplace */
237 0xffff, /* src_mask */
238 0xffff, /* dst_mask */
239 FALSE), /* pcrel_offset */
241 /* The 32-bit address of the canonical descriptor of a function. */
242 HOWTO (R_FRV_FUNCDESC, /* type */
243 0, /* rightshift */
244 2, /* size (0 = byte, 1 = short, 2 = long) */
245 32, /* bitsize */
246 FALSE, /* pc_relative */
247 0, /* bitpos */
248 complain_overflow_bitfield, /* complain_on_overflow */
249 bfd_elf_generic_reloc, /* special_function */
250 "R_FRV_FUNCDESC", /* name */
251 FALSE, /* partial_inplace */
252 0xffffffff, /* src_mask */
253 0xffffffff, /* dst_mask */
254 FALSE), /* pcrel_offset */
256 /* A 12-bit signed operand with the GOT offset for the address of
257 canonical descriptor of a function. */
258 HOWTO (R_FRV_FUNCDESC_GOT12, /* type */
259 0, /* rightshift */
260 2, /* size (0 = byte, 1 = short, 2 = long) */
261 12, /* bitsize */
262 FALSE, /* pc_relative */
263 0, /* bitpos */
264 complain_overflow_signed, /* complain_on_overflow */
265 bfd_elf_generic_reloc, /* special_function */
266 "R_FRV_FUNCDESC_GOT12", /* name */
267 FALSE, /* partial_inplace */
268 0xfff, /* src_mask */
269 0xfff, /* dst_mask */
270 FALSE), /* pcrel_offset */
272 /* The upper 16 bits of the GOT offset for the address of the
273 canonical descriptor of a function. */
274 HOWTO (R_FRV_FUNCDESC_GOTHI, /* type */
275 0, /* rightshift */
276 2, /* size (0 = byte, 1 = short, 2 = long) */
277 16, /* bitsize */
278 FALSE, /* pc_relative */
279 0, /* bitpos */
280 complain_overflow_dont, /* complain_on_overflow */
281 bfd_elf_generic_reloc, /* special_function */
282 "R_FRV_FUNCDESC_GOTHI", /* name */
283 FALSE, /* partial_inplace */
284 0xffff, /* src_mask */
285 0xffff, /* dst_mask */
286 FALSE), /* pcrel_offset */
288 /* The lower 16 bits of the GOT offset for the address of the
289 canonical descriptor of a function. */
290 HOWTO (R_FRV_FUNCDESC_GOTLO, /* type */
291 0, /* rightshift */
292 2, /* size (0 = byte, 1 = short, 2 = long) */
293 16, /* bitsize */
294 FALSE, /* pc_relative */
295 0, /* bitpos */
296 complain_overflow_dont, /* complain_on_overflow */
297 bfd_elf_generic_reloc, /* special_function */
298 "R_FRV_FUNCDESC_GOTLO", /* name */
299 FALSE, /* partial_inplace */
300 0xffff, /* src_mask */
301 0xffff, /* dst_mask */
302 FALSE), /* pcrel_offset */
304 /* The 64-bit descriptor of a function. */
305 HOWTO (R_FRV_FUNCDESC_VALUE, /* type */
306 0, /* rightshift */
307 2, /* size (0 = byte, 1 = short, 2 = long) */
308 64, /* bitsize */
309 FALSE, /* pc_relative */
310 0, /* bitpos */
311 complain_overflow_bitfield, /* complain_on_overflow */
312 bfd_elf_generic_reloc, /* special_function */
313 "R_FRV_FUNCDESC_VALUE", /* name */
314 FALSE, /* partial_inplace */
315 0xffffffff, /* src_mask */
316 0xffffffff, /* dst_mask */
317 FALSE), /* pcrel_offset */
319 /* A 12-bit signed operand with the GOT offset for the address of
320 canonical descriptor of a function. */
321 HOWTO (R_FRV_FUNCDESC_GOTOFF12, /* type */
322 0, /* rightshift */
323 2, /* size (0 = byte, 1 = short, 2 = long) */
324 12, /* bitsize */
325 FALSE, /* pc_relative */
326 0, /* bitpos */
327 complain_overflow_signed, /* complain_on_overflow */
328 bfd_elf_generic_reloc, /* special_function */
329 "R_FRV_FUNCDESC_GOTOFF12", /* name */
330 FALSE, /* partial_inplace */
331 0xfff, /* src_mask */
332 0xfff, /* dst_mask */
333 FALSE), /* pcrel_offset */
335 /* The upper 16 bits of the GOT offset for the address of the
336 canonical descriptor of a function. */
337 HOWTO (R_FRV_FUNCDESC_GOTOFFHI, /* type */
338 0, /* rightshift */
339 2, /* size (0 = byte, 1 = short, 2 = long) */
340 16, /* bitsize */
341 FALSE, /* pc_relative */
342 0, /* bitpos */
343 complain_overflow_dont, /* complain_on_overflow */
344 bfd_elf_generic_reloc, /* special_function */
345 "R_FRV_FUNCDESC_GOTOFFHI", /* name */
346 FALSE, /* partial_inplace */
347 0xffff, /* src_mask */
348 0xffff, /* dst_mask */
349 FALSE), /* pcrel_offset */
351 /* The lower 16 bits of the GOT offset for the address of the
352 canonical descriptor of a function. */
353 HOWTO (R_FRV_FUNCDESC_GOTOFFLO, /* type */
354 0, /* rightshift */
355 2, /* size (0 = byte, 1 = short, 2 = long) */
356 16, /* bitsize */
357 FALSE, /* pc_relative */
358 0, /* bitpos */
359 complain_overflow_dont, /* complain_on_overflow */
360 bfd_elf_generic_reloc, /* special_function */
361 "R_FRV_FUNCDESC_GOTOFFLO", /* name */
362 FALSE, /* partial_inplace */
363 0xffff, /* src_mask */
364 0xffff, /* dst_mask */
365 FALSE), /* pcrel_offset */
367 /* A 12-bit signed operand with the GOT offset for the address of
368 the symbol. */
369 HOWTO (R_FRV_GOTOFF12, /* type */
370 0, /* rightshift */
371 2, /* size (0 = byte, 1 = short, 2 = long) */
372 12, /* bitsize */
373 FALSE, /* pc_relative */
374 0, /* bitpos */
375 complain_overflow_signed, /* complain_on_overflow */
376 bfd_elf_generic_reloc, /* special_function */
377 "R_FRV_GOTOFF12", /* name */
378 FALSE, /* partial_inplace */
379 0xfff, /* src_mask */
380 0xfff, /* dst_mask */
381 FALSE), /* pcrel_offset */
383 /* The upper 16 bits of the GOT offset for the address of the
384 symbol. */
385 HOWTO (R_FRV_GOTOFFHI, /* type */
386 0, /* rightshift */
387 2, /* size (0 = byte, 1 = short, 2 = long) */
388 16, /* bitsize */
389 FALSE, /* pc_relative */
390 0, /* bitpos */
391 complain_overflow_dont, /* complain_on_overflow */
392 bfd_elf_generic_reloc, /* special_function */
393 "R_FRV_GOTOFFHI", /* name */
394 FALSE, /* partial_inplace */
395 0xffff, /* src_mask */
396 0xffff, /* dst_mask */
397 FALSE), /* pcrel_offset */
399 /* The lower 16 bits of the GOT offset for the address of the
400 symbol. */
401 HOWTO (R_FRV_GOTOFFLO, /* type */
402 0, /* rightshift */
403 2, /* size (0 = byte, 1 = short, 2 = long) */
404 16, /* bitsize */
405 FALSE, /* pc_relative */
406 0, /* bitpos */
407 complain_overflow_dont, /* complain_on_overflow */
408 bfd_elf_generic_reloc, /* special_function */
409 "R_FRV_GOTOFFLO", /* name */
410 FALSE, /* partial_inplace */
411 0xffff, /* src_mask */
412 0xffff, /* dst_mask */
413 FALSE), /* pcrel_offset */
415 /* A 24-bit pc-relative relocation referencing the TLS PLT entry for
416 a thread-local symbol. If the symbol number is 0, it refers to
417 the module. */
418 HOWTO (R_FRV_GETTLSOFF, /* type */
419 2, /* rightshift */
420 2, /* size (0 = byte, 1 = short, 2 = long) */
421 26, /* bitsize */
422 TRUE, /* pc_relative */
423 0, /* bitpos */
424 complain_overflow_bitfield, /* complain_on_overflow */
425 bfd_elf_generic_reloc, /* special_function */
426 "R_FRV_GETTLSOFF", /* name */
427 FALSE, /* partial_inplace */
428 0x7e03ffff, /* src_mask */
429 0x7e03ffff, /* dst_mask */
430 TRUE), /* pcrel_offset */
432 /* A 64-bit TLS descriptor for a symbol. This relocation is only
433 valid as a REL, dynamic relocation. */
434 HOWTO (R_FRV_TLSDESC_VALUE, /* type */
435 0, /* rightshift */
436 2, /* size (0 = byte, 1 = short, 2 = long) */
437 64, /* bitsize */
438 FALSE, /* pc_relative */
439 0, /* bitpos */
440 complain_overflow_bitfield, /* complain_on_overflow */
441 bfd_elf_generic_reloc, /* special_function */
442 "R_FRV_TLSDESC_VALUE", /* name */
443 FALSE, /* partial_inplace */
444 0xffffffff, /* src_mask */
445 0xffffffff, /* dst_mask */
446 FALSE), /* pcrel_offset */
448 /* A 12-bit signed operand with the GOT offset for the TLS
449 descriptor of the symbol. */
450 HOWTO (R_FRV_GOTTLSDESC12, /* type */
451 0, /* rightshift */
452 2, /* size (0 = byte, 1 = short, 2 = long) */
453 12, /* bitsize */
454 FALSE, /* pc_relative */
455 0, /* bitpos */
456 complain_overflow_signed, /* complain_on_overflow */
457 bfd_elf_generic_reloc, /* special_function */
458 "R_FRV_GOTTLSDESC12", /* name */
459 FALSE, /* partial_inplace */
460 0xfff, /* src_mask */
461 0xfff, /* dst_mask */
462 FALSE), /* pcrel_offset */
464 /* The upper 16 bits of the GOT offset for the TLS descriptor of the
465 symbol. */
466 HOWTO (R_FRV_GOTTLSDESCHI, /* type */
467 0, /* rightshift */
468 2, /* size (0 = byte, 1 = short, 2 = long) */
469 16, /* bitsize */
470 FALSE, /* pc_relative */
471 0, /* bitpos */
472 complain_overflow_dont, /* complain_on_overflow */
473 bfd_elf_generic_reloc, /* special_function */
474 "R_FRV_GOTTLSDESCHI", /* name */
475 FALSE, /* partial_inplace */
476 0xffff, /* src_mask */
477 0xffff, /* dst_mask */
478 FALSE), /* pcrel_offset */
480 /* The lower 16 bits of the GOT offset for the TLS descriptor of the
481 symbol. */
482 HOWTO (R_FRV_GOTTLSDESCLO, /* type */
483 0, /* rightshift */
484 2, /* size (0 = byte, 1 = short, 2 = long) */
485 16, /* bitsize */
486 FALSE, /* pc_relative */
487 0, /* bitpos */
488 complain_overflow_dont, /* complain_on_overflow */
489 bfd_elf_generic_reloc, /* special_function */
490 "R_FRV_GOTTLSDESCLO", /* name */
491 FALSE, /* partial_inplace */
492 0xffff, /* src_mask */
493 0xffff, /* dst_mask */
494 FALSE), /* pcrel_offset */
496 /* A 12-bit signed operand with the offset from the module base
497 address to the thread-local symbol address. */
498 HOWTO (R_FRV_TLSMOFF12, /* type */
499 0, /* rightshift */
500 2, /* size (0 = byte, 1 = short, 2 = long) */
501 12, /* bitsize */
502 FALSE, /* pc_relative */
503 0, /* bitpos */
504 complain_overflow_signed, /* complain_on_overflow */
505 bfd_elf_generic_reloc, /* special_function */
506 "R_FRV_TLSMOFF12", /* name */
507 FALSE, /* partial_inplace */
508 0xfff, /* src_mask */
509 0xfff, /* dst_mask */
510 FALSE), /* pcrel_offset */
512 /* The upper 16 bits of the offset from the module base address to
513 the thread-local symbol address. */
514 HOWTO (R_FRV_TLSMOFFHI, /* type */
515 0, /* rightshift */
516 2, /* size (0 = byte, 1 = short, 2 = long) */
517 16, /* bitsize */
518 FALSE, /* pc_relative */
519 0, /* bitpos */
520 complain_overflow_dont, /* complain_on_overflow */
521 bfd_elf_generic_reloc, /* special_function */
522 "R_FRV_TLSMOFFHI", /* name */
523 FALSE, /* partial_inplace */
524 0xffff, /* src_mask */
525 0xffff, /* dst_mask */
526 FALSE), /* pcrel_offset */
528 /* The lower 16 bits of the offset from the module base address to
529 the thread-local symbol address. */
530 HOWTO (R_FRV_TLSMOFFLO, /* type */
531 0, /* rightshift */
532 2, /* size (0 = byte, 1 = short, 2 = long) */
533 16, /* bitsize */
534 FALSE, /* pc_relative */
535 0, /* bitpos */
536 complain_overflow_dont, /* complain_on_overflow */
537 bfd_elf_generic_reloc, /* special_function */
538 "R_FRV_TLSMOFFLO", /* name */
539 FALSE, /* partial_inplace */
540 0xffff, /* src_mask */
541 0xffff, /* dst_mask */
542 FALSE), /* pcrel_offset */
544 /* A 12-bit signed operand with the GOT offset for the TLSOFF entry
545 for a symbol. */
546 HOWTO (R_FRV_GOTTLSOFF12, /* type */
547 0, /* rightshift */
548 2, /* size (0 = byte, 1 = short, 2 = long) */
549 12, /* bitsize */
550 FALSE, /* pc_relative */
551 0, /* bitpos */
552 complain_overflow_signed, /* complain_on_overflow */
553 bfd_elf_generic_reloc, /* special_function */
554 "R_FRV_GOTTLSOFF12", /* name */
555 FALSE, /* partial_inplace */
556 0xfff, /* src_mask */
557 0xfff, /* dst_mask */
558 FALSE), /* pcrel_offset */
560 /* The upper 16 bits of the GOT offset for the TLSOFF entry for a
561 symbol. */
562 HOWTO (R_FRV_GOTTLSOFFHI, /* type */
563 0, /* rightshift */
564 2, /* size (0 = byte, 1 = short, 2 = long) */
565 16, /* bitsize */
566 FALSE, /* pc_relative */
567 0, /* bitpos */
568 complain_overflow_dont, /* complain_on_overflow */
569 bfd_elf_generic_reloc, /* special_function */
570 "R_FRV_GOTTLSOFFHI", /* name */
571 FALSE, /* partial_inplace */
572 0xffff, /* src_mask */
573 0xffff, /* dst_mask */
574 FALSE), /* pcrel_offset */
576 /* The lower 16 bits of the GOT offset for the TLSOFF entry for a
577 symbol. */
578 HOWTO (R_FRV_GOTTLSOFFLO, /* type */
579 0, /* rightshift */
580 2, /* size (0 = byte, 1 = short, 2 = long) */
581 16, /* bitsize */
582 FALSE, /* pc_relative */
583 0, /* bitpos */
584 complain_overflow_dont, /* complain_on_overflow */
585 bfd_elf_generic_reloc, /* special_function */
586 "R_FRV_GOTTLSOFFLO", /* name */
587 FALSE, /* partial_inplace */
588 0xffff, /* src_mask */
589 0xffff, /* dst_mask */
590 FALSE), /* pcrel_offset */
592 /* The 32-bit offset from the thread pointer (not the module base
593 address) to a thread-local symbol. */
594 HOWTO (R_FRV_TLSOFF, /* type */
595 0, /* rightshift */
596 2, /* size (0 = byte, 1 = short, 2 = long) */
597 32, /* bitsize */
598 FALSE, /* pc_relative */
599 0, /* bitpos */
600 complain_overflow_dont, /* complain_on_overflow */
601 bfd_elf_generic_reloc, /* special_function */
602 "R_FRV_TLSOFF", /* name */
603 FALSE, /* partial_inplace */
604 0xffffffff, /* src_mask */
605 0xffffffff, /* dst_mask */
606 FALSE), /* pcrel_offset */
608 /* An annotation for linker relaxation, that denotes the
609 symbol+addend whose TLS descriptor is referenced by the sum of
610 the two input registers of an ldd instruction. */
611 HOWTO (R_FRV_TLSDESC_RELAX, /* type */
612 0, /* rightshift */
613 2, /* size (0 = byte, 1 = short, 2 = long) */
614 0, /* bitsize */
615 FALSE, /* pc_relative */
616 0, /* bitpos */
617 complain_overflow_dont, /* complain_on_overflow */
618 bfd_elf_generic_reloc, /* special_function */
619 "R_FRV_TLSDESC_RELAX", /* name */
620 FALSE, /* partial_inplace */
621 0, /* src_mask */
622 0, /* dst_mask */
623 FALSE), /* pcrel_offset */
625 /* An annotation for linker relaxation, that denotes the
626 symbol+addend whose TLS resolver entry point is given by the sum
627 of the two register operands of an calll instruction. */
628 HOWTO (R_FRV_GETTLSOFF_RELAX, /* type */
629 0, /* rightshift */
630 2, /* size (0 = byte, 1 = short, 2 = long) */
631 0, /* bitsize */
632 FALSE, /* pc_relative */
633 0, /* bitpos */
634 complain_overflow_dont, /* complain_on_overflow */
635 bfd_elf_generic_reloc, /* special_function */
636 "R_FRV_GETTLSOFF_RELAX", /* name */
637 FALSE, /* partial_inplace */
638 0, /* src_mask */
639 0, /* dst_mask */
640 FALSE), /* pcrel_offset */
642 /* An annotation for linker relaxation, that denotes the
643 symbol+addend whose TLS offset GOT entry is given by the sum of
644 the two input registers of an ld instruction. */
645 HOWTO (R_FRV_TLSOFF_RELAX, /* type */
646 0, /* rightshift */
647 2, /* size (0 = byte, 1 = short, 2 = long) */
648 0, /* bitsize */
649 FALSE, /* pc_relative */
650 0, /* bitpos */
651 complain_overflow_bitfield, /* complain_on_overflow */
652 bfd_elf_generic_reloc, /* special_function */
653 "R_FRV_TLSOFF_RELAX", /* name */
654 FALSE, /* partial_inplace */
655 0, /* src_mask */
656 0, /* dst_mask */
657 FALSE), /* pcrel_offset */
659 /* A 32-bit offset from the module base address to
660 the thread-local symbol address. */
661 HOWTO (R_FRV_TLSMOFF, /* 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_dont, /* complain_on_overflow */
668 bfd_elf_generic_reloc, /* special_function */
669 "R_FRV_TLSMOFF", /* name */
670 FALSE, /* partial_inplace */
671 0xffffffff, /* src_mask */
672 0xffffffff, /* dst_mask */
673 FALSE), /* pcrel_offset */
676 /* GNU extension to record C++ vtable hierarchy. */
677 static reloc_howto_type elf32_frv_vtinherit_howto =
678 HOWTO (R_FRV_GNU_VTINHERIT, /* type */
679 0, /* rightshift */
680 2, /* size (0 = byte, 1 = short, 2 = long) */
681 0, /* bitsize */
682 FALSE, /* pc_relative */
683 0, /* bitpos */
684 complain_overflow_dont, /* complain_on_overflow */
685 NULL, /* special_function */
686 "R_FRV_GNU_VTINHERIT", /* name */
687 FALSE, /* partial_inplace */
688 0, /* src_mask */
689 0, /* dst_mask */
690 FALSE); /* pcrel_offset */
692 /* GNU extension to record C++ vtable member usage. */
693 static reloc_howto_type elf32_frv_vtentry_howto =
694 HOWTO (R_FRV_GNU_VTENTRY, /* type */
695 0, /* rightshift */
696 2, /* size (0 = byte, 1 = short, 2 = long) */
697 0, /* bitsize */
698 FALSE, /* pc_relative */
699 0, /* bitpos */
700 complain_overflow_dont, /* complain_on_overflow */
701 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
702 "R_FRV_GNU_VTENTRY", /* name */
703 FALSE, /* partial_inplace */
704 0, /* src_mask */
705 0, /* dst_mask */
706 FALSE); /* pcrel_offset */
708 /* The following 3 relocations are REL. The only difference to the
709 entries in the table above are that partial_inplace is TRUE. */
710 static reloc_howto_type elf32_frv_rel_32_howto =
711 HOWTO (R_FRV_32, /* type */
712 0, /* rightshift */
713 2, /* size (0 = byte, 1 = short, 2 = long) */
714 32, /* bitsize */
715 FALSE, /* pc_relative */
716 0, /* bitpos */
717 complain_overflow_bitfield, /* complain_on_overflow */
718 bfd_elf_generic_reloc, /* special_function */
719 "R_FRV_32", /* name */
720 TRUE, /* partial_inplace */
721 0xffffffff, /* src_mask */
722 0xffffffff, /* dst_mask */
723 FALSE); /* pcrel_offset */
725 static reloc_howto_type elf32_frv_rel_funcdesc_howto =
726 HOWTO (R_FRV_FUNCDESC, /* type */
727 0, /* rightshift */
728 2, /* size (0 = byte, 1 = short, 2 = long) */
729 32, /* bitsize */
730 FALSE, /* pc_relative */
731 0, /* bitpos */
732 complain_overflow_bitfield, /* complain_on_overflow */
733 bfd_elf_generic_reloc, /* special_function */
734 "R_FRV_FUNCDESC", /* name */
735 TRUE, /* partial_inplace */
736 0xffffffff, /* src_mask */
737 0xffffffff, /* dst_mask */
738 FALSE); /* pcrel_offset */
740 static reloc_howto_type elf32_frv_rel_funcdesc_value_howto =
741 HOWTO (R_FRV_FUNCDESC_VALUE, /* type */
742 0, /* rightshift */
743 2, /* size (0 = byte, 1 = short, 2 = long) */
744 64, /* bitsize */
745 FALSE, /* pc_relative */
746 0, /* bitpos */
747 complain_overflow_bitfield, /* complain_on_overflow */
748 bfd_elf_generic_reloc, /* special_function */
749 "R_FRV_FUNCDESC_VALUE", /* name */
750 TRUE, /* partial_inplace */
751 0xffffffff, /* src_mask */
752 0xffffffff, /* dst_mask */
753 FALSE); /* pcrel_offset */
755 static reloc_howto_type elf32_frv_rel_tlsdesc_value_howto =
756 /* A 64-bit TLS descriptor for a symbol. The first word resolves to
757 an entry point, and the second resolves to a special argument.
758 If the symbol turns out to be in static TLS, the entry point is a
759 return instruction, and the special argument is the TLS offset
760 for the symbol. If it's in dynamic TLS, the entry point is a TLS
761 offset resolver, and the special argument is a pointer to a data
762 structure allocated by the dynamic loader, containing the GOT
763 address for the offset resolver, the module id, the offset within
764 the module, and anything else the TLS offset resolver might need
765 to determine the TLS offset for the symbol in the running
766 thread. */
767 HOWTO (R_FRV_TLSDESC_VALUE, /* type */
768 0, /* rightshift */
769 2, /* size (0 = byte, 1 = short, 2 = long) */
770 64, /* bitsize */
771 FALSE, /* pc_relative */
772 0, /* bitpos */
773 complain_overflow_bitfield, /* complain_on_overflow */
774 bfd_elf_generic_reloc, /* special_function */
775 "R_FRV_TLSDESC_VALUE", /* name */
776 TRUE, /* partial_inplace */
777 0xffffffff, /* src_mask */
778 0xffffffff, /* dst_mask */
779 FALSE); /* pcrel_offset */
781 static reloc_howto_type elf32_frv_rel_tlsoff_howto =
782 /* The 32-bit offset from the thread pointer (not the module base
783 address) to a thread-local symbol. */
784 HOWTO (R_FRV_TLSOFF, /* type */
785 0, /* rightshift */
786 2, /* size (0 = byte, 1 = short, 2 = long) */
787 32, /* bitsize */
788 FALSE, /* pc_relative */
789 0, /* bitpos */
790 complain_overflow_bitfield, /* complain_on_overflow */
791 bfd_elf_generic_reloc, /* special_function */
792 "R_FRV_TLSOFF", /* name */
793 TRUE, /* partial_inplace */
794 0xffffffff, /* src_mask */
795 0xffffffff, /* dst_mask */
796 FALSE); /* pcrel_offset */
800 extern const bfd_target frv_elf32_fdpic_vec;
801 #define IS_FDPIC(bfd) ((bfd)->xvec == &frv_elf32_fdpic_vec)
803 /* An extension of the elf hash table data structure, containing some
804 additional FRV-specific data. */
805 struct frvfdpic_elf_link_hash_table
807 struct elf_link_hash_table elf;
809 /* A pointer to the .rofixup section. */
810 asection *sgotfixup;
811 /* GOT base offset. */
812 bfd_vma got0;
813 /* Location of the first non-lazy PLT entry, i.e., the number of
814 bytes taken by lazy PLT entries. If locally-bound TLS
815 descriptors require a ret instruction, it will be placed at this
816 offset. */
817 bfd_vma plt0;
818 /* A hash table holding information about which symbols were
819 referenced with which PIC-related relocations. */
820 struct htab *relocs_info;
821 /* Summary reloc information collected by
822 _frvfdpic_count_got_plt_entries. */
823 struct _frvfdpic_dynamic_got_info *g;
826 /* Get the FRV ELF linker hash table from a link_info structure. */
828 #define frvfdpic_hash_table(p) \
829 ((is_elf_hash_table ((p)->hash) \
830 && elf_hash_table_id (elf_hash_table (p)) == FRV_ELF_DATA) \
831 ? (struct frvfdpic_elf_link_hash_table *) (p)->hash : NULL)
833 #define frvfdpic_got_section(info) \
834 (frvfdpic_hash_table (info)->elf.sgot)
835 #define frvfdpic_gotrel_section(info) \
836 (frvfdpic_hash_table (info)->elf.srelgot)
837 #define frvfdpic_gotfixup_section(info) \
838 (frvfdpic_hash_table (info)->sgotfixup)
839 #define frvfdpic_plt_section(info) \
840 (frvfdpic_hash_table (info)->elf.splt)
841 #define frvfdpic_pltrel_section(info) \
842 (frvfdpic_hash_table (info)->elf.srelplt)
843 #define frvfdpic_relocs_info(info) \
844 (frvfdpic_hash_table (info)->relocs_info)
845 #define frvfdpic_got_initial_offset(info) \
846 (frvfdpic_hash_table (info)->got0)
847 #define frvfdpic_plt_initial_offset(info) \
848 (frvfdpic_hash_table (info)->plt0)
849 #define frvfdpic_dynamic_got_plt_info(info) \
850 (frvfdpic_hash_table (info)->g)
852 /* Currently it's the same, but if some day we have a reason to change
853 it, we'd better be using a different macro.
855 FIXME: if there's any TLS PLT entry that uses local-exec or
856 initial-exec models, we could use the ret at the end of any of them
857 instead of adding one more. */
858 #define frvfdpic_plt_tls_ret_offset(info) \
859 (frvfdpic_plt_initial_offset (info))
861 /* The name of the dynamic interpreter. This is put in the .interp
862 section. */
864 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
866 #define DEFAULT_STACK_SIZE 0x20000
868 /* This structure is used to collect the number of entries present in
869 each addressable range of the got. */
870 struct _frvfdpic_dynamic_got_info
872 /* Several bits of information about the current link. */
873 struct bfd_link_info *info;
874 /* Total GOT size needed for GOT entries within the 12-, 16- or 32-bit
875 ranges. */
876 bfd_vma got12, gotlos, gothilo;
877 /* Total GOT size needed for function descriptor entries within the 12-,
878 16- or 32-bit ranges. */
879 bfd_vma fd12, fdlos, fdhilo;
880 /* Total GOT size needed by function descriptor entries referenced
881 in PLT entries, that would be profitable to place in offsets
882 close to the PIC register. */
883 bfd_vma fdplt;
884 /* Total PLT size needed by lazy PLT entries. */
885 bfd_vma lzplt;
886 /* Total GOT size needed for TLS descriptor entries within the 12-,
887 16- or 32-bit ranges. */
888 bfd_vma tlsd12, tlsdlos, tlsdhilo;
889 /* Total GOT size needed by TLS descriptors referenced in PLT
890 entries, that would be profitable to place in offers close to the
891 PIC register. */
892 bfd_vma tlsdplt;
893 /* Total PLT size needed by TLS lazy PLT entries. */
894 bfd_vma tlslzplt;
895 /* Number of relocations carried over from input object files. */
896 unsigned long relocs;
897 /* Number of fixups introduced by relocations in input object files. */
898 unsigned long fixups;
899 /* The number of fixups that reference the ret instruction added to
900 the PLT for locally-resolved TLS descriptors. */
901 unsigned long tls_ret_refs;
904 /* This structure is used to assign offsets to got entries, function
905 descriptors, plt entries and lazy plt entries. */
907 struct _frvfdpic_dynamic_got_plt_info
909 /* Summary information collected with _frvfdpic_count_got_plt_entries. */
910 struct _frvfdpic_dynamic_got_info g;
912 /* For each addressable range, we record a MAX (positive) and MIN
913 (negative) value. CUR is used to assign got entries, and it's
914 incremented from an initial positive value to MAX, then from MIN
915 to FDCUR (unless FDCUR wraps around first). FDCUR is used to
916 assign function descriptors, and it's decreased from an initial
917 non-positive value to MIN, then from MAX down to CUR (unless CUR
918 wraps around first). All of MIN, MAX, CUR and FDCUR always point
919 to even words. ODD, if non-zero, indicates an odd word to be
920 used for the next got entry, otherwise CUR is used and
921 incremented by a pair of words, wrapping around when it reaches
922 MAX. FDCUR is decremented (and wrapped) before the next function
923 descriptor is chosen. FDPLT indicates the number of remaining
924 slots that can be used for function descriptors used only by PLT
925 entries.
927 TMAX, TMIN and TCUR are used to assign TLS descriptors. TCUR
928 starts as MAX, and grows up to TMAX, then wraps around to TMIN
929 and grows up to MIN. TLSDPLT indicates the number of remaining
930 slots that can be used for TLS descriptors used only by TLS PLT
931 entries. */
932 struct _frvfdpic_dynamic_got_alloc_data
934 bfd_signed_vma max, cur, odd, fdcur, min;
935 bfd_signed_vma tmax, tcur, tmin;
936 bfd_vma fdplt, tlsdplt;
937 } got12, gotlos, gothilo;
940 /* Create an FRV ELF linker hash table. */
942 static struct bfd_link_hash_table *
943 frvfdpic_elf_link_hash_table_create (bfd *abfd)
945 struct frvfdpic_elf_link_hash_table *ret;
946 size_t amt = sizeof (struct frvfdpic_elf_link_hash_table);
948 ret = bfd_zmalloc (amt);
949 if (ret == NULL)
950 return NULL;
952 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
953 _bfd_elf_link_hash_newfunc,
954 sizeof (struct elf_link_hash_entry),
955 FRV_ELF_DATA))
957 free (ret);
958 return NULL;
961 return &ret->elf.root;
964 /* Decide whether a reference to a symbol can be resolved locally or
965 not. If the symbol is protected, we want the local address, but
966 its function descriptor must be assigned by the dynamic linker. */
967 #define FRVFDPIC_SYM_LOCAL(INFO, H) \
968 (_bfd_elf_symbol_refs_local_p ((H), (INFO), 1) \
969 || ! elf_hash_table (INFO)->dynamic_sections_created)
970 #define FRVFDPIC_FUNCDESC_LOCAL(INFO, H) \
971 ((H)->dynindx == -1 || ! elf_hash_table (INFO)->dynamic_sections_created)
973 /* This structure collects information on what kind of GOT, PLT or
974 function descriptors are required by relocations that reference a
975 certain symbol. */
976 struct frvfdpic_relocs_info
978 /* The index of the symbol, as stored in the relocation r_info, if
979 we have a local symbol; -1 otherwise. */
980 long symndx;
981 union
983 /* The input bfd in which the symbol is defined, if it's a local
984 symbol. */
985 bfd *abfd;
986 /* If symndx == -1, the hash table entry corresponding to a global
987 symbol (even if it turns out to bind locally, in which case it
988 should ideally be replaced with section's symndx + addend). */
989 struct elf_link_hash_entry *h;
990 } d;
991 /* The addend of the relocation that references the symbol. */
992 bfd_vma addend;
994 /* The fields above are used to identify an entry. The fields below
995 contain information on how an entry is used and, later on, which
996 locations it was assigned. */
997 /* The following 3 fields record whether the symbol+addend above was
998 ever referenced with a GOT relocation. The 12 suffix indicates a
999 GOT12 relocation; los is used for GOTLO relocations that are not
1000 matched by a GOTHI relocation; hilo is used for GOTLO/GOTHI
1001 pairs. */
1002 unsigned got12:1;
1003 unsigned gotlos:1;
1004 unsigned gothilo:1;
1005 /* Whether a FUNCDESC relocation references symbol+addend. */
1006 unsigned fd:1;
1007 /* Whether a FUNCDESC_GOT relocation references symbol+addend. */
1008 unsigned fdgot12:1;
1009 unsigned fdgotlos:1;
1010 unsigned fdgothilo:1;
1011 /* Whether a FUNCDESC_GOTOFF relocation references symbol+addend. */
1012 unsigned fdgoff12:1;
1013 unsigned fdgofflos:1;
1014 unsigned fdgoffhilo:1;
1015 /* Whether a GETTLSOFF relocation references symbol+addend. */
1016 unsigned tlsplt:1;
1017 /* FIXME: we should probably add tlspltdesc, tlspltoff and
1018 tlspltimm, to tell what kind of TLS PLT entry we're generating.
1019 We might instead just pre-compute flags telling whether the
1020 object is suitable for local exec, initial exec or general
1021 dynamic addressing, and use that all over the place. We could
1022 also try to do a better job of merging TLSOFF and TLSDESC entries
1023 in main executables, but perhaps we can get rid of TLSDESC
1024 entirely in them instead. */
1025 /* Whether a GOTTLSDESC relocation references symbol+addend. */
1026 unsigned tlsdesc12:1;
1027 unsigned tlsdesclos:1;
1028 unsigned tlsdeschilo:1;
1029 /* Whether a GOTTLSOFF relocation references symbol+addend. */
1030 unsigned tlsoff12:1;
1031 unsigned tlsofflos:1;
1032 unsigned tlsoffhilo:1;
1033 /* Whether symbol+addend is referenced with GOTOFF12, GOTOFFLO or
1034 GOTOFFHI relocations. The addend doesn't really matter, since we
1035 envision that this will only be used to check whether the symbol
1036 is mapped to the same segment as the got. */
1037 unsigned gotoff:1;
1038 /* Whether symbol+addend is referenced by a LABEL24 relocation. */
1039 unsigned call:1;
1040 /* Whether symbol+addend is referenced by a 32 or FUNCDESC_VALUE
1041 relocation. */
1042 unsigned sym:1;
1043 /* Whether we need a PLT entry for a symbol. Should be implied by
1044 something like:
1045 (call && symndx == -1 && ! FRVFDPIC_SYM_LOCAL (info, d.h)) */
1046 unsigned plt:1;
1047 /* Whether a function descriptor should be created in this link unit
1048 for symbol+addend. Should be implied by something like:
1049 (plt || fdgotoff12 || fdgotofflos || fdgotofflohi
1050 || ((fd || fdgot12 || fdgotlos || fdgothilo)
1051 && (symndx != -1 || FRVFDPIC_FUNCDESC_LOCAL (info, d.h)))) */
1052 unsigned privfd:1;
1053 /* Whether a lazy PLT entry is needed for this symbol+addend.
1054 Should be implied by something like:
1055 (privfd && symndx == -1 && ! FRVFDPIC_SYM_LOCAL (info, d.h)
1056 && ! (info->flags & DF_BIND_NOW)) */
1057 unsigned lazyplt:1;
1058 /* Whether we've already emitted GOT relocations and PLT entries as
1059 needed for this symbol. */
1060 unsigned done:1;
1062 /* The number of R_FRV_32, R_FRV_FUNCDESC, R_FRV_FUNCDESC_VALUE and
1063 R_FRV_TLSDESC_VALUE, R_FRV_TLSOFF relocations referencing
1064 symbol+addend. */
1065 unsigned relocs32, relocsfd, relocsfdv, relocstlsd, relocstlsoff;
1067 /* The number of .rofixups entries and dynamic relocations allocated
1068 for this symbol, minus any that might have already been used. */
1069 unsigned fixups, dynrelocs;
1071 /* The offsets of the GOT entries assigned to symbol+addend, to the
1072 function descriptor's address, and to a function descriptor,
1073 respectively. Should be zero if unassigned. The offsets are
1074 counted from the value that will be assigned to the PIC register,
1075 not from the beginning of the .got section. */
1076 bfd_signed_vma got_entry, fdgot_entry, fd_entry;
1077 /* The offsets of the PLT entries assigned to symbol+addend,
1078 non-lazy and lazy, respectively. If unassigned, should be
1079 (bfd_vma)-1. */
1080 bfd_vma plt_entry, lzplt_entry;
1081 /* The offsets of the GOT entries for TLS offset and TLS descriptor. */
1082 bfd_signed_vma tlsoff_entry, tlsdesc_entry;
1083 /* The offset of the TLS offset PLT entry. */
1084 bfd_vma tlsplt_entry;
1087 /* Compute a hash with the key fields of an frvfdpic_relocs_info entry. */
1088 static hashval_t
1089 frvfdpic_relocs_info_hash (const void *entry_)
1091 const struct frvfdpic_relocs_info *entry = entry_;
1093 return (entry->symndx == -1
1094 ? (long) entry->d.h->root.root.hash
1095 : entry->symndx + (long) entry->d.abfd->id * 257) + entry->addend;
1098 /* Test whether the key fields of two frvfdpic_relocs_info entries are
1099 identical. */
1100 static int
1101 frvfdpic_relocs_info_eq (const void *entry1, const void *entry2)
1103 const struct frvfdpic_relocs_info *e1 = entry1;
1104 const struct frvfdpic_relocs_info *e2 = entry2;
1106 return e1->symndx == e2->symndx && e1->addend == e2->addend
1107 && (e1->symndx == -1 ? e1->d.h == e2->d.h : e1->d.abfd == e2->d.abfd);
1110 /* Find or create an entry in a hash table HT that matches the key
1111 fields of the given ENTRY. If it's not found, memory for a new
1112 entry is allocated in ABFD's obstack. */
1113 static struct frvfdpic_relocs_info *
1114 frvfdpic_relocs_info_find (struct htab *ht,
1115 bfd *abfd,
1116 const struct frvfdpic_relocs_info *entry,
1117 enum insert_option insert)
1119 struct frvfdpic_relocs_info **loc =
1120 (struct frvfdpic_relocs_info **) htab_find_slot (ht, entry, insert);
1122 if (! loc)
1123 return NULL;
1125 if (*loc)
1126 return *loc;
1128 *loc = bfd_zalloc (abfd, sizeof (**loc));
1130 if (! *loc)
1131 return *loc;
1133 (*loc)->symndx = entry->symndx;
1134 (*loc)->d = entry->d;
1135 (*loc)->addend = entry->addend;
1136 (*loc)->plt_entry = (bfd_vma)-1;
1137 (*loc)->lzplt_entry = (bfd_vma)-1;
1138 (*loc)->tlsplt_entry = (bfd_vma)-1;
1140 return *loc;
1143 /* Obtain the address of the entry in HT associated with H's symbol +
1144 addend, creating a new entry if none existed. ABFD is only used
1145 for memory allocation purposes. */
1146 inline static struct frvfdpic_relocs_info *
1147 frvfdpic_relocs_info_for_global (struct htab *ht,
1148 bfd *abfd,
1149 struct elf_link_hash_entry *h,
1150 bfd_vma addend,
1151 enum insert_option insert)
1153 struct frvfdpic_relocs_info entry;
1155 entry.symndx = -1;
1156 entry.d.h = h;
1157 entry.addend = addend;
1159 return frvfdpic_relocs_info_find (ht, abfd, &entry, insert);
1162 /* Obtain the address of the entry in HT associated with the SYMNDXth
1163 local symbol of the input bfd ABFD, plus the addend, creating a new
1164 entry if none existed. */
1165 inline static struct frvfdpic_relocs_info *
1166 frvfdpic_relocs_info_for_local (struct htab *ht,
1167 bfd *abfd,
1168 long symndx,
1169 bfd_vma addend,
1170 enum insert_option insert)
1172 struct frvfdpic_relocs_info entry;
1174 entry.symndx = symndx;
1175 entry.d.abfd = abfd;
1176 entry.addend = addend;
1178 return frvfdpic_relocs_info_find (ht, abfd, &entry, insert);
1181 /* Merge fields set by check_relocs() of two entries that end up being
1182 mapped to the same (presumably global) symbol. */
1184 inline static void
1185 frvfdpic_pic_merge_early_relocs_info (struct frvfdpic_relocs_info *e2,
1186 struct frvfdpic_relocs_info const *e1)
1188 e2->got12 |= e1->got12;
1189 e2->gotlos |= e1->gotlos;
1190 e2->gothilo |= e1->gothilo;
1191 e2->fd |= e1->fd;
1192 e2->fdgot12 |= e1->fdgot12;
1193 e2->fdgotlos |= e1->fdgotlos;
1194 e2->fdgothilo |= e1->fdgothilo;
1195 e2->fdgoff12 |= e1->fdgoff12;
1196 e2->fdgofflos |= e1->fdgofflos;
1197 e2->fdgoffhilo |= e1->fdgoffhilo;
1198 e2->tlsplt |= e1->tlsplt;
1199 e2->tlsdesc12 |= e1->tlsdesc12;
1200 e2->tlsdesclos |= e1->tlsdesclos;
1201 e2->tlsdeschilo |= e1->tlsdeschilo;
1202 e2->tlsoff12 |= e1->tlsoff12;
1203 e2->tlsofflos |= e1->tlsofflos;
1204 e2->tlsoffhilo |= e1->tlsoffhilo;
1205 e2->gotoff |= e1->gotoff;
1206 e2->call |= e1->call;
1207 e2->sym |= e1->sym;
1210 /* Every block of 65535 lazy PLT entries shares a single call to the
1211 resolver, inserted in the 32768th lazy PLT entry (i.e., entry #
1212 32767, counting from 0). All other lazy PLT entries branch to it
1213 in a single instruction. */
1215 #define FRVFDPIC_LZPLT_BLOCK_SIZE ((bfd_vma) 8 * 65535 + 4)
1216 #define FRVFDPIC_LZPLT_RESOLV_LOC (8 * 32767)
1218 /* Add a dynamic relocation to the SRELOC section. */
1220 inline static bfd_vma
1221 _frvfdpic_add_dyn_reloc (bfd *output_bfd, asection *sreloc, bfd_vma offset,
1222 int reloc_type, long dynindx, bfd_vma addend,
1223 struct frvfdpic_relocs_info *entry)
1225 Elf_Internal_Rela outrel;
1226 bfd_vma reloc_offset;
1228 outrel.r_offset = offset;
1229 outrel.r_info = ELF32_R_INFO (dynindx, reloc_type);
1230 outrel.r_addend = addend;
1232 reloc_offset = sreloc->reloc_count * sizeof (Elf32_External_Rel);
1233 BFD_ASSERT (reloc_offset < sreloc->size);
1234 bfd_elf32_swap_reloc_out (output_bfd, &outrel,
1235 sreloc->contents + reloc_offset);
1236 sreloc->reloc_count++;
1238 /* If the entry's index is zero, this relocation was probably to a
1239 linkonce section that got discarded. We reserved a dynamic
1240 relocation, but it was for another entry than the one we got at
1241 the time of emitting the relocation. Unfortunately there's no
1242 simple way for us to catch this situation, since the relocation
1243 is cleared right before calling relocate_section, at which point
1244 we no longer know what the relocation used to point to. */
1245 if (entry->symndx)
1247 BFD_ASSERT (entry->dynrelocs > 0);
1248 entry->dynrelocs--;
1251 return reloc_offset;
1254 /* Add a fixup to the ROFIXUP section. */
1256 static bfd_vma
1257 _frvfdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma offset,
1258 struct frvfdpic_relocs_info *entry)
1260 bfd_vma fixup_offset;
1262 if (rofixup->flags & SEC_EXCLUDE)
1263 return -1;
1265 fixup_offset = rofixup->reloc_count * 4;
1266 if (rofixup->contents)
1268 BFD_ASSERT (fixup_offset < rofixup->size);
1269 bfd_put_32 (output_bfd, offset, rofixup->contents + fixup_offset);
1271 rofixup->reloc_count++;
1273 if (entry && entry->symndx)
1275 /* See discussion about symndx == 0 in _frvfdpic_add_dyn_reloc
1276 above. */
1277 BFD_ASSERT (entry->fixups > 0);
1278 entry->fixups--;
1281 return fixup_offset;
1284 /* Find the segment number in which OSEC, and output section, is
1285 located. */
1287 static unsigned
1288 _frvfdpic_osec_to_segment (bfd *output_bfd, asection *osec)
1290 Elf_Internal_Phdr *p = _bfd_elf_find_segment_containing_section (output_bfd, osec);
1292 return (p != NULL) ? p - elf_tdata (output_bfd)->phdr : -1;
1295 inline static bfd_boolean
1296 _frvfdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
1298 unsigned seg = _frvfdpic_osec_to_segment (output_bfd, osec);
1300 return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
1303 #define FRVFDPIC_TLS_BIAS (2048 - 16)
1305 /* Return the base VMA address which should be subtracted from real addresses
1306 when resolving TLSMOFF relocation.
1307 This is PT_TLS segment p_vaddr, plus the 2048-16 bias. */
1309 static bfd_vma
1310 tls_biased_base (struct bfd_link_info *info)
1312 /* If tls_sec is NULL, we should have signalled an error already. */
1313 if (elf_hash_table (info)->tls_sec == NULL)
1314 return FRVFDPIC_TLS_BIAS;
1315 return elf_hash_table (info)->tls_sec->vma + FRVFDPIC_TLS_BIAS;
1318 /* Generate relocations for GOT entries, function descriptors, and
1319 code for PLT and lazy PLT entries. */
1321 inline static bfd_boolean
1322 _frvfdpic_emit_got_relocs_plt_entries (struct frvfdpic_relocs_info *entry,
1323 bfd *output_bfd,
1324 struct bfd_link_info *info,
1325 asection *sec,
1326 Elf_Internal_Sym *sym,
1327 bfd_vma addend)
1330 bfd_vma fd_lazy_rel_offset = (bfd_vma)-1;
1331 int dynindx = -1;
1333 if (entry->done)
1334 return TRUE;
1335 entry->done = 1;
1337 if (entry->got_entry || entry->fdgot_entry || entry->fd_entry
1338 || entry->tlsoff_entry || entry->tlsdesc_entry)
1340 /* If the symbol is dynamic, consider it for dynamic
1341 relocations, otherwise decay to section + offset. */
1342 if (entry->symndx == -1 && entry->d.h->dynindx != -1)
1343 dynindx = entry->d.h->dynindx;
1344 else
1346 if (sec
1347 && sec->output_section
1348 && ! bfd_is_abs_section (sec->output_section)
1349 && ! bfd_is_und_section (sec->output_section))
1350 dynindx = elf_section_data (sec->output_section)->dynindx;
1351 else
1352 dynindx = 0;
1356 /* Generate relocation for GOT entry pointing to the symbol. */
1357 if (entry->got_entry)
1359 int idx = dynindx;
1360 bfd_vma ad = addend;
1362 /* If the symbol is dynamic but binds locally, use
1363 section+offset. */
1364 if (sec && (entry->symndx != -1
1365 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1367 if (entry->symndx == -1)
1368 ad += entry->d.h->root.u.def.value;
1369 else
1370 ad += sym->st_value;
1371 ad += sec->output_offset;
1372 if (sec->output_section && elf_section_data (sec->output_section))
1373 idx = elf_section_data (sec->output_section)->dynindx;
1374 else
1375 idx = 0;
1378 /* If we're linking an executable at a fixed address, we can
1379 omit the dynamic relocation as long as the symbol is local to
1380 this module. */
1381 if (bfd_link_pde (info)
1382 && (entry->symndx != -1
1383 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1385 if (sec)
1386 ad += sec->output_section->vma;
1387 if (entry->symndx != -1
1388 || entry->d.h->root.type != bfd_link_hash_undefweak)
1389 _frvfdpic_add_rofixup (output_bfd,
1390 frvfdpic_gotfixup_section (info),
1391 frvfdpic_got_section (info)->output_section
1392 ->vma
1393 + frvfdpic_got_section (info)->output_offset
1394 + frvfdpic_got_initial_offset (info)
1395 + entry->got_entry, entry);
1397 else
1398 _frvfdpic_add_dyn_reloc (output_bfd, frvfdpic_gotrel_section (info),
1399 _bfd_elf_section_offset
1400 (output_bfd, info,
1401 frvfdpic_got_section (info),
1402 frvfdpic_got_initial_offset (info)
1403 + entry->got_entry)
1404 + frvfdpic_got_section (info)
1405 ->output_section->vma
1406 + frvfdpic_got_section (info)->output_offset,
1407 R_FRV_32, idx, ad, entry);
1409 bfd_put_32 (output_bfd, ad,
1410 frvfdpic_got_section (info)->contents
1411 + frvfdpic_got_initial_offset (info)
1412 + entry->got_entry);
1415 /* Generate relocation for GOT entry pointing to a canonical
1416 function descriptor. */
1417 if (entry->fdgot_entry)
1419 int reloc, idx;
1420 bfd_vma ad = 0;
1422 if (! (entry->symndx == -1
1423 && entry->d.h->root.type == bfd_link_hash_undefweak
1424 && FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1426 /* If the symbol is dynamic and there may be dynamic symbol
1427 resolution because we are, or are linked with, a shared
1428 library, emit a FUNCDESC relocation such that the dynamic
1429 linker will allocate the function descriptor. If the
1430 symbol needs a non-local function descriptor but binds
1431 locally (e.g., its visibility is protected, emit a
1432 dynamic relocation decayed to section+offset. */
1433 if (entry->symndx == -1
1434 && ! FRVFDPIC_FUNCDESC_LOCAL (info, entry->d.h)
1435 && FRVFDPIC_SYM_LOCAL (info, entry->d.h)
1436 && !bfd_link_pde (info))
1438 reloc = R_FRV_FUNCDESC;
1439 idx = elf_section_data (entry->d.h->root.u.def.section
1440 ->output_section)->dynindx;
1441 ad = entry->d.h->root.u.def.section->output_offset
1442 + entry->d.h->root.u.def.value;
1444 else if (entry->symndx == -1
1445 && ! FRVFDPIC_FUNCDESC_LOCAL (info, entry->d.h))
1447 reloc = R_FRV_FUNCDESC;
1448 idx = dynindx;
1449 ad = addend;
1450 if (ad)
1452 (*info->callbacks->reloc_dangerous)
1453 (info, _("relocation requires zero addend"),
1454 elf_hash_table (info)->dynobj,
1455 frvfdpic_got_section (info),
1456 entry->fdgot_entry);
1457 return FALSE;
1460 else
1462 /* Otherwise, we know we have a private function descriptor,
1463 so reference it directly. */
1464 if (elf_hash_table (info)->dynamic_sections_created)
1465 BFD_ASSERT (entry->privfd);
1466 reloc = R_FRV_32;
1467 idx = elf_section_data (frvfdpic_got_section (info)
1468 ->output_section)->dynindx;
1469 ad = frvfdpic_got_section (info)->output_offset
1470 + frvfdpic_got_initial_offset (info) + entry->fd_entry;
1473 /* If there is room for dynamic symbol resolution, emit the
1474 dynamic relocation. However, if we're linking an
1475 executable at a fixed location, we won't have emitted a
1476 dynamic symbol entry for the got section, so idx will be
1477 zero, which means we can and should compute the address
1478 of the private descriptor ourselves. */
1479 if (bfd_link_pde (info)
1480 && (entry->symndx != -1
1481 || FRVFDPIC_FUNCDESC_LOCAL (info, entry->d.h)))
1483 ad += frvfdpic_got_section (info)->output_section->vma;
1484 _frvfdpic_add_rofixup (output_bfd,
1485 frvfdpic_gotfixup_section (info),
1486 frvfdpic_got_section (info)
1487 ->output_section->vma
1488 + frvfdpic_got_section (info)
1489 ->output_offset
1490 + frvfdpic_got_initial_offset (info)
1491 + entry->fdgot_entry, entry);
1493 else
1494 _frvfdpic_add_dyn_reloc (output_bfd,
1495 frvfdpic_gotrel_section (info),
1496 _bfd_elf_section_offset
1497 (output_bfd, info,
1498 frvfdpic_got_section (info),
1499 frvfdpic_got_initial_offset (info)
1500 + entry->fdgot_entry)
1501 + frvfdpic_got_section (info)
1502 ->output_section->vma
1503 + frvfdpic_got_section (info)
1504 ->output_offset,
1505 reloc, idx, ad, entry);
1508 bfd_put_32 (output_bfd, ad,
1509 frvfdpic_got_section (info)->contents
1510 + frvfdpic_got_initial_offset (info)
1511 + entry->fdgot_entry);
1514 /* Generate relocation to fill in a private function descriptor in
1515 the GOT. */
1516 if (entry->fd_entry)
1518 int idx = dynindx;
1519 bfd_vma ad = addend;
1520 bfd_vma ofst;
1521 long lowword, highword;
1523 /* If the symbol is dynamic but binds locally, use
1524 section+offset. */
1525 if (sec && (entry->symndx != -1
1526 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1528 if (entry->symndx == -1)
1529 ad += entry->d.h->root.u.def.value;
1530 else
1531 ad += sym->st_value;
1532 ad += sec->output_offset;
1533 if (sec->output_section && elf_section_data (sec->output_section))
1534 idx = elf_section_data (sec->output_section)->dynindx;
1535 else
1536 idx = 0;
1539 /* If we're linking an executable at a fixed address, we can
1540 omit the dynamic relocation as long as the symbol is local to
1541 this module. */
1542 if (bfd_link_pde (info)
1543 && (entry->symndx != -1 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1545 if (sec)
1546 ad += sec->output_section->vma;
1547 ofst = 0;
1548 if (entry->symndx != -1
1549 || entry->d.h->root.type != bfd_link_hash_undefweak)
1551 _frvfdpic_add_rofixup (output_bfd,
1552 frvfdpic_gotfixup_section (info),
1553 frvfdpic_got_section (info)
1554 ->output_section->vma
1555 + frvfdpic_got_section (info)
1556 ->output_offset
1557 + frvfdpic_got_initial_offset (info)
1558 + entry->fd_entry, entry);
1559 _frvfdpic_add_rofixup (output_bfd,
1560 frvfdpic_gotfixup_section (info),
1561 frvfdpic_got_section (info)
1562 ->output_section->vma
1563 + frvfdpic_got_section (info)
1564 ->output_offset
1565 + frvfdpic_got_initial_offset (info)
1566 + entry->fd_entry + 4, entry);
1569 else
1571 ofst =
1572 _frvfdpic_add_dyn_reloc (output_bfd,
1573 entry->lazyplt
1574 ? frvfdpic_pltrel_section (info)
1575 : frvfdpic_gotrel_section (info),
1576 _bfd_elf_section_offset
1577 (output_bfd, info,
1578 frvfdpic_got_section (info),
1579 frvfdpic_got_initial_offset (info)
1580 + entry->fd_entry)
1581 + frvfdpic_got_section (info)
1582 ->output_section->vma
1583 + frvfdpic_got_section (info)
1584 ->output_offset,
1585 R_FRV_FUNCDESC_VALUE, idx, ad, entry);
1588 /* If we've omitted the dynamic relocation, just emit the fixed
1589 addresses of the symbol and of the local GOT base offset. */
1590 if (bfd_link_pde (info)
1591 && sec
1592 && sec->output_section)
1594 lowword = ad;
1595 highword = frvfdpic_got_section (info)->output_section->vma
1596 + frvfdpic_got_section (info)->output_offset
1597 + frvfdpic_got_initial_offset (info);
1599 else if (entry->lazyplt)
1601 if (ad)
1603 (*info->callbacks->reloc_dangerous)
1604 (info, _("relocation requires zero addend"),
1605 elf_hash_table (info)->dynobj,
1606 frvfdpic_got_section (info),
1607 entry->fd_entry);
1608 return FALSE;
1611 fd_lazy_rel_offset = ofst;
1613 /* A function descriptor used for lazy or local resolving is
1614 initialized such that its high word contains the output
1615 section index in which the PLT entries are located, and
1616 the low word contains the address of the lazy PLT entry
1617 entry point, that must be within the memory region
1618 assigned to that section. */
1619 lowword = entry->lzplt_entry + 4
1620 + frvfdpic_plt_section (info)->output_offset
1621 + frvfdpic_plt_section (info)->output_section->vma;
1622 highword = _frvfdpic_osec_to_segment
1623 (output_bfd, frvfdpic_plt_section (info)->output_section);
1625 else
1627 /* A function descriptor for a local function gets the index
1628 of the section. For a non-local function, it's
1629 disregarded. */
1630 lowword = ad;
1631 if (sec == NULL
1632 || (entry->symndx == -1 && entry->d.h->dynindx != -1
1633 && entry->d.h->dynindx == idx))
1634 highword = 0;
1635 else
1636 highword = _frvfdpic_osec_to_segment
1637 (output_bfd, sec->output_section);
1640 bfd_put_32 (output_bfd, lowword,
1641 frvfdpic_got_section (info)->contents
1642 + frvfdpic_got_initial_offset (info)
1643 + entry->fd_entry);
1644 bfd_put_32 (output_bfd, highword,
1645 frvfdpic_got_section (info)->contents
1646 + frvfdpic_got_initial_offset (info)
1647 + entry->fd_entry + 4);
1650 /* Generate code for the PLT entry. */
1651 if (entry->plt_entry != (bfd_vma) -1)
1653 bfd_byte *plt_code = frvfdpic_plt_section (info)->contents
1654 + entry->plt_entry;
1656 BFD_ASSERT (entry->fd_entry);
1658 /* Figure out what kind of PLT entry we need, depending on the
1659 location of the function descriptor within the GOT. */
1660 if (entry->fd_entry >= -(1 << (12 - 1))
1661 && entry->fd_entry < (1 << (12 - 1)))
1663 /* lddi @(gr15, fd_entry), gr14 */
1664 bfd_put_32 (output_bfd,
1665 0x9cccf000 | (entry->fd_entry & ((1 << 12) - 1)),
1666 plt_code);
1667 plt_code += 4;
1669 else
1671 if (entry->fd_entry >= -(1 << (16 - 1))
1672 && entry->fd_entry < (1 << (16 - 1)))
1674 /* setlos lo(fd_entry), gr14 */
1675 bfd_put_32 (output_bfd,
1676 0x9cfc0000
1677 | (entry->fd_entry & (((bfd_vma)1 << 16) - 1)),
1678 plt_code);
1679 plt_code += 4;
1681 else
1683 /* sethi.p hi(fd_entry), gr14
1684 setlo lo(fd_entry), gr14 */
1685 bfd_put_32 (output_bfd,
1686 0x1cf80000
1687 | ((entry->fd_entry >> 16)
1688 & (((bfd_vma)1 << 16) - 1)),
1689 plt_code);
1690 plt_code += 4;
1691 bfd_put_32 (output_bfd,
1692 0x9cf40000
1693 | (entry->fd_entry & (((bfd_vma)1 << 16) - 1)),
1694 plt_code);
1695 plt_code += 4;
1697 /* ldd @(gr14,gr15),gr14 */
1698 bfd_put_32 (output_bfd, 0x9c08e14f, plt_code);
1699 plt_code += 4;
1701 /* jmpl @(gr14,gr0) */
1702 bfd_put_32 (output_bfd, 0x8030e000, plt_code);
1705 /* Generate code for the lazy PLT entry. */
1706 if (entry->lzplt_entry != (bfd_vma) -1)
1708 bfd_byte *lzplt_code = frvfdpic_plt_section (info)->contents
1709 + entry->lzplt_entry;
1710 bfd_vma resolverStub_addr;
1712 bfd_put_32 (output_bfd, fd_lazy_rel_offset, lzplt_code);
1713 lzplt_code += 4;
1715 resolverStub_addr = entry->lzplt_entry / FRVFDPIC_LZPLT_BLOCK_SIZE
1716 * FRVFDPIC_LZPLT_BLOCK_SIZE + FRVFDPIC_LZPLT_RESOLV_LOC;
1717 if (resolverStub_addr >= frvfdpic_plt_initial_offset (info))
1718 resolverStub_addr = frvfdpic_plt_initial_offset (info) - 12;
1720 if (entry->lzplt_entry == resolverStub_addr)
1722 /* This is a lazy PLT entry that includes a resolver call. */
1723 /* ldd @(gr15,gr0), gr4
1724 jmpl @(gr4,gr0) */
1725 bfd_put_32 (output_bfd, 0x8808f140, lzplt_code);
1726 bfd_put_32 (output_bfd, 0x80304000, lzplt_code + 4);
1728 else
1730 /* bra resolverStub */
1731 bfd_put_32 (output_bfd,
1732 0xc01a0000
1733 | (((resolverStub_addr - entry->lzplt_entry)
1734 / 4) & (((bfd_vma)1 << 16) - 1)),
1735 lzplt_code);
1739 /* Generate relocation for GOT entry holding the TLS offset. */
1740 if (entry->tlsoff_entry)
1742 int idx = dynindx;
1743 bfd_vma ad = addend;
1745 if (entry->symndx != -1
1746 || FRVFDPIC_SYM_LOCAL (info, entry->d.h))
1748 /* If the symbol is dynamic but binds locally, use
1749 section+offset. */
1750 if (sec)
1752 if (entry->symndx == -1)
1753 ad += entry->d.h->root.u.def.value;
1754 else
1755 ad += sym->st_value;
1756 ad += sec->output_offset;
1757 if (sec->output_section
1758 && elf_section_data (sec->output_section))
1759 idx = elf_section_data (sec->output_section)->dynindx;
1760 else
1761 idx = 0;
1765 /* *ABS*+addend is special for TLS relocations, use only the
1766 addend. */
1767 if (bfd_link_executable (info)
1768 && idx == 0
1769 && (bfd_is_abs_section (sec)
1770 || bfd_is_und_section (sec)))
1772 /* If we're linking an executable, we can entirely omit the
1773 dynamic relocation if the symbol is local to this module. */
1774 else if (bfd_link_executable (info)
1775 && (entry->symndx != -1
1776 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1778 if (sec)
1779 ad += sec->output_section->vma - tls_biased_base (info);
1781 else
1783 if (idx == 0
1784 && (bfd_is_abs_section (sec)
1785 || bfd_is_und_section (sec)))
1787 if (! elf_hash_table (info)->tls_sec)
1789 (*info->callbacks->undefined_symbol)
1790 (info, "TLS section", elf_hash_table (info)->dynobj,
1791 frvfdpic_got_section (info), entry->tlsoff_entry, TRUE);
1792 return FALSE;
1794 idx = elf_section_data (elf_hash_table (info)->tls_sec)->dynindx;
1795 ad += FRVFDPIC_TLS_BIAS;
1797 _frvfdpic_add_dyn_reloc (output_bfd, frvfdpic_gotrel_section (info),
1798 _bfd_elf_section_offset
1799 (output_bfd, info,
1800 frvfdpic_got_section (info),
1801 frvfdpic_got_initial_offset (info)
1802 + entry->tlsoff_entry)
1803 + frvfdpic_got_section (info)
1804 ->output_section->vma
1805 + frvfdpic_got_section (info)
1806 ->output_offset,
1807 R_FRV_TLSOFF, idx, ad, entry);
1810 bfd_put_32 (output_bfd, ad,
1811 frvfdpic_got_section (info)->contents
1812 + frvfdpic_got_initial_offset (info)
1813 + entry->tlsoff_entry);
1816 if (entry->tlsdesc_entry)
1818 int idx = dynindx;
1819 bfd_vma ad = addend;
1821 /* If the symbol is dynamic but binds locally, use
1822 section+offset. */
1823 if (sec && (entry->symndx != -1
1824 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1826 if (entry->symndx == -1)
1827 ad += entry->d.h->root.u.def.value;
1828 else
1829 ad += sym->st_value;
1830 ad += sec->output_offset;
1831 if (sec->output_section && elf_section_data (sec->output_section))
1832 idx = elf_section_data (sec->output_section)->dynindx;
1833 else
1834 idx = 0;
1837 /* If we didn't set up a TLS offset entry, but we're linking an
1838 executable and the symbol binds locally, we can use the
1839 module offset in the TLS descriptor in relaxations. */
1840 if (bfd_link_executable (info) && ! entry->tlsoff_entry)
1841 entry->tlsoff_entry = entry->tlsdesc_entry + 4;
1843 if (bfd_link_pde (info)
1844 && ((idx == 0
1845 && (bfd_is_abs_section (sec)
1846 || bfd_is_und_section (sec)))
1847 || entry->symndx != -1
1848 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1850 /* *ABS*+addend is special for TLS relocations, use only the
1851 addend for the TLS offset, and take the module id as
1852 0. */
1853 if (idx == 0
1854 && (bfd_is_abs_section (sec)
1855 || bfd_is_und_section (sec)))
1857 /* For other TLS symbols that bind locally, add the section
1858 TLS offset to the addend. */
1859 else if (sec)
1860 ad += sec->output_section->vma - tls_biased_base (info);
1862 bfd_put_32 (output_bfd,
1863 frvfdpic_plt_section (info)->output_section->vma
1864 + frvfdpic_plt_section (info)->output_offset
1865 + frvfdpic_plt_tls_ret_offset (info),
1866 frvfdpic_got_section (info)->contents
1867 + frvfdpic_got_initial_offset (info)
1868 + entry->tlsdesc_entry);
1870 _frvfdpic_add_rofixup (output_bfd,
1871 frvfdpic_gotfixup_section (info),
1872 frvfdpic_got_section (info)
1873 ->output_section->vma
1874 + frvfdpic_got_section (info)
1875 ->output_offset
1876 + frvfdpic_got_initial_offset (info)
1877 + entry->tlsdesc_entry, entry);
1879 BFD_ASSERT (frvfdpic_dynamic_got_plt_info (info)->tls_ret_refs);
1881 /* We've used one of the reserved fixups, so discount it so
1882 that we can check at the end that we've used them
1883 all. */
1884 frvfdpic_dynamic_got_plt_info (info)->tls_ret_refs--;
1886 /* While at that, make sure the ret instruction makes to the
1887 right location in the PLT. We could do it only when we
1888 got to 0, but since the check at the end will only print
1889 a warning, make sure we have the ret in place in case the
1890 warning is missed. */
1891 bfd_put_32 (output_bfd, 0xc03a4000,
1892 frvfdpic_plt_section (info)->contents
1893 + frvfdpic_plt_tls_ret_offset (info));
1895 else
1897 if (idx == 0
1898 && (bfd_is_abs_section (sec)
1899 || bfd_is_und_section (sec)))
1901 if (! elf_hash_table (info)->tls_sec)
1903 (*info->callbacks->undefined_symbol)
1904 (info, "TLS section", elf_hash_table (info)->dynobj,
1905 frvfdpic_got_section (info), entry->tlsdesc_entry, TRUE);
1906 return FALSE;
1908 idx = elf_section_data (elf_hash_table (info)->tls_sec)->dynindx;
1909 ad += FRVFDPIC_TLS_BIAS;
1912 _frvfdpic_add_dyn_reloc (output_bfd, frvfdpic_gotrel_section (info),
1913 _bfd_elf_section_offset
1914 (output_bfd, info,
1915 frvfdpic_got_section (info),
1916 frvfdpic_got_initial_offset (info)
1917 + entry->tlsdesc_entry)
1918 + frvfdpic_got_section (info)
1919 ->output_section->vma
1920 + frvfdpic_got_section (info)
1921 ->output_offset,
1922 R_FRV_TLSDESC_VALUE, idx, ad, entry);
1924 bfd_put_32 (output_bfd, 0,
1925 frvfdpic_got_section (info)->contents
1926 + frvfdpic_got_initial_offset (info)
1927 + entry->tlsdesc_entry);
1930 bfd_put_32 (output_bfd, ad,
1931 frvfdpic_got_section (info)->contents
1932 + frvfdpic_got_initial_offset (info)
1933 + entry->tlsdesc_entry + 4);
1936 /* Generate code for the get-TLS-offset PLT entry. */
1937 if (entry->tlsplt_entry != (bfd_vma) -1)
1939 bfd_byte *plt_code = frvfdpic_plt_section (info)->contents
1940 + entry->tlsplt_entry;
1942 if (bfd_link_executable (info)
1943 && (entry->symndx != -1
1944 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
1946 int idx = dynindx;
1947 bfd_vma ad = addend;
1949 /* sec may be NULL when referencing an undefweak symbol
1950 while linking a static executable. */
1951 if (!sec)
1953 BFD_ASSERT (entry->symndx == -1
1954 && entry->d.h->root.type == bfd_link_hash_undefweak);
1956 else
1958 if (entry->symndx == -1)
1959 ad += entry->d.h->root.u.def.value;
1960 else
1961 ad += sym->st_value;
1962 ad += sec->output_offset;
1963 if (sec->output_section
1964 && elf_section_data (sec->output_section))
1965 idx = elf_section_data (sec->output_section)->dynindx;
1966 else
1967 idx = 0;
1970 /* *ABS*+addend is special for TLS relocations, use only the
1971 addend for the TLS offset, and take the module id as
1972 0. */
1973 if (idx == 0
1974 && (bfd_is_abs_section (sec)
1975 || bfd_is_und_section (sec)))
1977 /* For other TLS symbols that bind locally, add the section
1978 TLS offset to the addend. */
1979 else if (sec)
1980 ad += sec->output_section->vma - tls_biased_base (info);
1982 if ((bfd_signed_vma)ad >= -(1 << (16 - 1))
1983 && (bfd_signed_vma)ad < (1 << (16 - 1)))
1985 /* setlos lo(ad), gr9 */
1986 bfd_put_32 (output_bfd,
1987 0x92fc0000
1988 | (ad
1989 & (((bfd_vma)1 << 16) - 1)),
1990 plt_code);
1991 plt_code += 4;
1993 else
1995 /* sethi.p hi(ad), gr9
1996 setlo lo(ad), gr9 */
1997 bfd_put_32 (output_bfd,
1998 0x12f80000
1999 | ((ad >> 16)
2000 & (((bfd_vma)1 << 16) - 1)),
2001 plt_code);
2002 plt_code += 4;
2003 bfd_put_32 (output_bfd,
2004 0x92f40000
2005 | (ad
2006 & (((bfd_vma)1 << 16) - 1)),
2007 plt_code);
2008 plt_code += 4;
2010 /* ret */
2011 bfd_put_32 (output_bfd, 0xc03a4000, plt_code);
2013 else if (entry->tlsoff_entry)
2015 /* Figure out what kind of PLT entry we need, depending on the
2016 location of the TLS descriptor within the GOT. */
2017 if (entry->tlsoff_entry >= -(1 << (12 - 1))
2018 && entry->tlsoff_entry < (1 << (12 - 1)))
2020 /* ldi @(gr15, tlsoff_entry), gr9 */
2021 bfd_put_32 (output_bfd,
2022 0x92c8f000 | (entry->tlsoff_entry
2023 & ((1 << 12) - 1)),
2024 plt_code);
2025 plt_code += 4;
2027 else
2029 if (entry->tlsoff_entry >= -(1 << (16 - 1))
2030 && entry->tlsoff_entry < (1 << (16 - 1)))
2032 /* setlos lo(tlsoff_entry), gr8 */
2033 bfd_put_32 (output_bfd,
2034 0x90fc0000
2035 | (entry->tlsoff_entry
2036 & (((bfd_vma)1 << 16) - 1)),
2037 plt_code);
2038 plt_code += 4;
2040 else
2042 /* sethi.p hi(tlsoff_entry), gr8
2043 setlo lo(tlsoff_entry), gr8 */
2044 bfd_put_32 (output_bfd,
2045 0x10f80000
2046 | ((entry->tlsoff_entry >> 16)
2047 & (((bfd_vma)1 << 16) - 1)),
2048 plt_code);
2049 plt_code += 4;
2050 bfd_put_32 (output_bfd,
2051 0x90f40000
2052 | (entry->tlsoff_entry
2053 & (((bfd_vma)1 << 16) - 1)),
2054 plt_code);
2055 plt_code += 4;
2057 /* ld @(gr15,gr8),gr9 */
2058 bfd_put_32 (output_bfd, 0x9008f108, plt_code);
2059 plt_code += 4;
2061 /* ret */
2062 bfd_put_32 (output_bfd, 0xc03a4000, plt_code);
2064 else
2066 BFD_ASSERT (entry->tlsdesc_entry);
2068 /* Figure out what kind of PLT entry we need, depending on the
2069 location of the TLS descriptor within the GOT. */
2070 if (entry->tlsdesc_entry >= -(1 << (12 - 1))
2071 && entry->tlsdesc_entry < (1 << (12 - 1)))
2073 /* lddi @(gr15, tlsdesc_entry), gr8 */
2074 bfd_put_32 (output_bfd,
2075 0x90ccf000 | (entry->tlsdesc_entry
2076 & ((1 << 12) - 1)),
2077 plt_code);
2078 plt_code += 4;
2080 else
2082 if (entry->tlsdesc_entry >= -(1 << (16 - 1))
2083 && entry->tlsdesc_entry < (1 << (16 - 1)))
2085 /* setlos lo(tlsdesc_entry), gr8 */
2086 bfd_put_32 (output_bfd,
2087 0x90fc0000
2088 | (entry->tlsdesc_entry
2089 & (((bfd_vma)1 << 16) - 1)),
2090 plt_code);
2091 plt_code += 4;
2093 else
2095 /* sethi.p hi(tlsdesc_entry), gr8
2096 setlo lo(tlsdesc_entry), gr8 */
2097 bfd_put_32 (output_bfd,
2098 0x10f80000
2099 | ((entry->tlsdesc_entry >> 16)
2100 & (((bfd_vma)1 << 16) - 1)),
2101 plt_code);
2102 plt_code += 4;
2103 bfd_put_32 (output_bfd,
2104 0x90f40000
2105 | (entry->tlsdesc_entry
2106 & (((bfd_vma)1 << 16) - 1)),
2107 plt_code);
2108 plt_code += 4;
2110 /* ldd @(gr15,gr8),gr8 */
2111 bfd_put_32 (output_bfd, 0x9008f148, plt_code);
2112 plt_code += 4;
2114 /* jmpl @(gr8,gr0) */
2115 bfd_put_32 (output_bfd, 0x80308000, plt_code);
2119 return TRUE;
2122 /* Handle an FRV small data reloc. */
2124 static bfd_reloc_status_type
2125 elf32_frv_relocate_gprel12 (struct bfd_link_info *info,
2126 bfd *input_bfd,
2127 asection *input_section,
2128 Elf_Internal_Rela *relocation,
2129 bfd_byte *contents,
2130 bfd_vma value)
2132 bfd_vma insn;
2133 bfd_vma gp;
2134 struct bfd_link_hash_entry *h;
2136 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
2138 gp = (h->u.def.value
2139 + h->u.def.section->output_section->vma
2140 + h->u.def.section->output_offset);
2142 value -= input_section->output_section->vma;
2143 value -= (gp - input_section->output_section->vma);
2145 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
2147 value += relocation->r_addend;
2149 if ((long) value > 0x7ff || (long) value < -0x800)
2150 return bfd_reloc_overflow;
2152 bfd_put_32 (input_bfd,
2153 (insn & 0xfffff000) | (value & 0xfff),
2154 contents + relocation->r_offset);
2156 return bfd_reloc_ok;
2159 /* Handle an FRV small data reloc. for the u12 field. */
2161 static bfd_reloc_status_type
2162 elf32_frv_relocate_gprelu12 (struct bfd_link_info *info,
2163 bfd *input_bfd,
2164 asection *input_section,
2165 Elf_Internal_Rela *relocation,
2166 bfd_byte *contents,
2167 bfd_vma value)
2169 bfd_vma insn;
2170 bfd_vma gp;
2171 struct bfd_link_hash_entry *h;
2172 bfd_vma mask;
2174 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
2176 gp = (h->u.def.value
2177 + h->u.def.section->output_section->vma
2178 + h->u.def.section->output_offset);
2180 value -= input_section->output_section->vma;
2181 value -= (gp - input_section->output_section->vma);
2183 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
2185 value += relocation->r_addend;
2187 if ((long) value > 0x7ff || (long) value < -0x800)
2188 return bfd_reloc_overflow;
2190 /* The high 6 bits go into bits 17-12. The low 6 bits go into bits 5-0. */
2191 mask = 0x3f03f;
2192 insn = (insn & ~mask) | ((value & 0xfc0) << 12) | (value & 0x3f);
2194 bfd_put_32 (input_bfd, insn, contents + relocation->r_offset);
2196 return bfd_reloc_ok;
2199 /* Handle an FRV ELF HI16 reloc. */
2201 static bfd_reloc_status_type
2202 elf32_frv_relocate_hi16 (bfd *input_bfd,
2203 Elf_Internal_Rela *relhi,
2204 bfd_byte *contents,
2205 bfd_vma value)
2207 bfd_vma insn;
2209 insn = bfd_get_32 (input_bfd, contents + relhi->r_offset);
2211 value += relhi->r_addend;
2212 value = ((value >> 16) & 0xffff);
2214 insn = (insn & 0xffff0000) | value;
2216 if ((long) value > 0xffff || (long) value < -0x10000)
2217 return bfd_reloc_overflow;
2219 bfd_put_32 (input_bfd, insn, contents + relhi->r_offset);
2220 return bfd_reloc_ok;
2223 static bfd_reloc_status_type
2224 elf32_frv_relocate_lo16 (bfd *input_bfd,
2225 Elf_Internal_Rela *rello,
2226 bfd_byte *contents,
2227 bfd_vma value)
2229 bfd_vma insn;
2231 insn = bfd_get_32 (input_bfd, contents + rello->r_offset);
2233 value += rello->r_addend;
2234 value = value & 0xffff;
2236 insn = (insn & 0xffff0000) | value;
2238 if ((long) value > 0xffff || (long) value < -0x10000)
2239 return bfd_reloc_overflow;
2241 bfd_put_32 (input_bfd, insn, contents + rello->r_offset);
2242 return bfd_reloc_ok;
2245 /* Perform the relocation for the CALL label24 instruction. */
2247 static bfd_reloc_status_type
2248 elf32_frv_relocate_label24 (bfd *input_bfd,
2249 asection *input_section,
2250 Elf_Internal_Rela *rello,
2251 bfd_byte *contents,
2252 bfd_vma value)
2254 bfd_vma insn;
2255 bfd_vma label6;
2256 bfd_vma label18;
2258 /* The format for the call instruction is:
2260 0 000000 0001111 000000000000000000
2261 label6 opcode label18
2263 The branch calculation is: pc + (4*label24)
2264 where label24 is the concatenation of label6 and label18. */
2266 /* Grab the instruction. */
2267 insn = bfd_get_32 (input_bfd, contents + rello->r_offset);
2269 value -= input_section->output_section->vma + input_section->output_offset;
2270 value -= rello->r_offset;
2271 value += rello->r_addend;
2273 value = value >> 2;
2275 label6 = value & 0xfc0000;
2276 label6 = label6 << 7;
2278 label18 = value & 0x3ffff;
2280 insn = insn & 0x803c0000;
2281 insn = insn | label6;
2282 insn = insn | label18;
2284 bfd_put_32 (input_bfd, insn, contents + rello->r_offset);
2286 return bfd_reloc_ok;
2289 static bfd_reloc_status_type
2290 elf32_frv_relocate_gprelhi (struct bfd_link_info *info,
2291 bfd *input_bfd,
2292 asection *input_section,
2293 Elf_Internal_Rela *relocation,
2294 bfd_byte *contents,
2295 bfd_vma value)
2297 bfd_vma insn;
2298 bfd_vma gp;
2299 struct bfd_link_hash_entry *h;
2301 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
2303 gp = (h->u.def.value
2304 + h->u.def.section->output_section->vma
2305 + h->u.def.section->output_offset);
2307 value -= input_section->output_section->vma;
2308 value -= (gp - input_section->output_section->vma);
2309 value += relocation->r_addend;
2310 value = ((value >> 16) & 0xffff);
2312 if ((long) value > 0xffff || (long) value < -0x10000)
2313 return bfd_reloc_overflow;
2315 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
2316 insn = (insn & 0xffff0000) | value;
2318 bfd_put_32 (input_bfd, insn, contents + relocation->r_offset);
2319 return bfd_reloc_ok;
2322 static bfd_reloc_status_type
2323 elf32_frv_relocate_gprello (struct bfd_link_info *info,
2324 bfd *input_bfd,
2325 asection *input_section,
2326 Elf_Internal_Rela *relocation,
2327 bfd_byte *contents,
2328 bfd_vma value)
2330 bfd_vma insn;
2331 bfd_vma gp;
2332 struct bfd_link_hash_entry *h;
2334 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
2336 gp = (h->u.def.value
2337 + h->u.def.section->output_section->vma
2338 + h->u.def.section->output_offset);
2340 value -= input_section->output_section->vma;
2341 value -= (gp - input_section->output_section->vma);
2342 value += relocation->r_addend;
2343 value = value & 0xffff;
2345 if ((long) value > 0xffff || (long) value < -0x10000)
2346 return bfd_reloc_overflow;
2348 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
2349 insn = (insn & 0xffff0000) | value;
2351 bfd_put_32 (input_bfd, insn, contents + relocation->r_offset);
2353 return bfd_reloc_ok;
2356 static reloc_howto_type *
2357 frv_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
2358 bfd_reloc_code_real_type code)
2360 switch (code)
2362 default:
2363 break;
2365 case BFD_RELOC_NONE:
2366 return &elf32_frv_howto_table[ (int) R_FRV_NONE];
2368 case BFD_RELOC_32:
2369 if (elf_elfheader (abfd)->e_type == ET_EXEC
2370 || elf_elfheader (abfd)->e_type == ET_DYN)
2371 return &elf32_frv_rel_32_howto;
2372 /* Fall through. */
2373 case BFD_RELOC_CTOR:
2374 return &elf32_frv_howto_table[ (int) R_FRV_32];
2376 case BFD_RELOC_FRV_LABEL16:
2377 return &elf32_frv_howto_table[ (int) R_FRV_LABEL16];
2379 case BFD_RELOC_FRV_LABEL24:
2380 return &elf32_frv_howto_table[ (int) R_FRV_LABEL24];
2382 case BFD_RELOC_FRV_LO16:
2383 return &elf32_frv_howto_table[ (int) R_FRV_LO16];
2385 case BFD_RELOC_FRV_HI16:
2386 return &elf32_frv_howto_table[ (int) R_FRV_HI16];
2388 case BFD_RELOC_FRV_GPREL12:
2389 return &elf32_frv_howto_table[ (int) R_FRV_GPREL12];
2391 case BFD_RELOC_FRV_GPRELU12:
2392 return &elf32_frv_howto_table[ (int) R_FRV_GPRELU12];
2394 case BFD_RELOC_FRV_GPREL32:
2395 return &elf32_frv_howto_table[ (int) R_FRV_GPREL32];
2397 case BFD_RELOC_FRV_GPRELHI:
2398 return &elf32_frv_howto_table[ (int) R_FRV_GPRELHI];
2400 case BFD_RELOC_FRV_GPRELLO:
2401 return &elf32_frv_howto_table[ (int) R_FRV_GPRELLO];
2403 case BFD_RELOC_FRV_GOT12:
2404 return &elf32_frv_howto_table[ (int) R_FRV_GOT12];
2406 case BFD_RELOC_FRV_GOTHI:
2407 return &elf32_frv_howto_table[ (int) R_FRV_GOTHI];
2409 case BFD_RELOC_FRV_GOTLO:
2410 return &elf32_frv_howto_table[ (int) R_FRV_GOTLO];
2412 case BFD_RELOC_FRV_FUNCDESC:
2413 if (elf_elfheader (abfd)->e_type == ET_EXEC
2414 || elf_elfheader (abfd)->e_type == ET_DYN)
2415 return &elf32_frv_rel_funcdesc_howto;
2416 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC];
2418 case BFD_RELOC_FRV_FUNCDESC_GOT12:
2419 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOT12];
2421 case BFD_RELOC_FRV_FUNCDESC_GOTHI:
2422 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTHI];
2424 case BFD_RELOC_FRV_FUNCDESC_GOTLO:
2425 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTLO];
2427 case BFD_RELOC_FRV_FUNCDESC_VALUE:
2428 if (elf_elfheader (abfd)->e_type == ET_EXEC
2429 || elf_elfheader (abfd)->e_type == ET_DYN)
2430 return &elf32_frv_rel_funcdesc_value_howto;
2431 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_VALUE];
2433 case BFD_RELOC_FRV_FUNCDESC_GOTOFF12:
2434 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTOFF12];
2436 case BFD_RELOC_FRV_FUNCDESC_GOTOFFHI:
2437 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTOFFHI];
2439 case BFD_RELOC_FRV_FUNCDESC_GOTOFFLO:
2440 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTOFFLO];
2442 case BFD_RELOC_FRV_GOTOFF12:
2443 return &elf32_frv_howto_table[ (int) R_FRV_GOTOFF12];
2445 case BFD_RELOC_FRV_GOTOFFHI:
2446 return &elf32_frv_howto_table[ (int) R_FRV_GOTOFFHI];
2448 case BFD_RELOC_FRV_GOTOFFLO:
2449 return &elf32_frv_howto_table[ (int) R_FRV_GOTOFFLO];
2451 case BFD_RELOC_FRV_GETTLSOFF:
2452 return &elf32_frv_howto_table[ (int) R_FRV_GETTLSOFF];
2454 case BFD_RELOC_FRV_TLSDESC_VALUE:
2455 if (elf_elfheader (abfd)->e_type == ET_EXEC
2456 || elf_elfheader (abfd)->e_type == ET_DYN)
2457 return &elf32_frv_rel_tlsdesc_value_howto;
2458 return &elf32_frv_howto_table[ (int) R_FRV_TLSDESC_VALUE];
2460 case BFD_RELOC_FRV_GOTTLSDESC12:
2461 return &elf32_frv_howto_table[ (int) R_FRV_GOTTLSDESC12];
2463 case BFD_RELOC_FRV_GOTTLSDESCHI:
2464 return &elf32_frv_howto_table[ (int) R_FRV_GOTTLSDESCHI];
2466 case BFD_RELOC_FRV_GOTTLSDESCLO:
2467 return &elf32_frv_howto_table[ (int) R_FRV_GOTTLSDESCLO];
2469 case BFD_RELOC_FRV_TLSMOFF12:
2470 return &elf32_frv_howto_table[ (int) R_FRV_TLSMOFF12];
2472 case BFD_RELOC_FRV_TLSMOFFHI:
2473 return &elf32_frv_howto_table[ (int) R_FRV_TLSMOFFHI];
2475 case BFD_RELOC_FRV_TLSMOFFLO:
2476 return &elf32_frv_howto_table[ (int) R_FRV_TLSMOFFLO];
2478 case BFD_RELOC_FRV_GOTTLSOFF12:
2479 return &elf32_frv_howto_table[ (int) R_FRV_GOTTLSOFF12];
2481 case BFD_RELOC_FRV_GOTTLSOFFHI:
2482 return &elf32_frv_howto_table[ (int) R_FRV_GOTTLSOFFHI];
2484 case BFD_RELOC_FRV_GOTTLSOFFLO:
2485 return &elf32_frv_howto_table[ (int) R_FRV_GOTTLSOFFLO];
2487 case BFD_RELOC_FRV_TLSOFF:
2488 if (elf_elfheader (abfd)->e_type == ET_EXEC
2489 || elf_elfheader (abfd)->e_type == ET_DYN)
2490 return &elf32_frv_rel_tlsoff_howto;
2491 return &elf32_frv_howto_table[ (int) R_FRV_TLSOFF];
2493 case BFD_RELOC_FRV_TLSDESC_RELAX:
2494 return &elf32_frv_howto_table[ (int) R_FRV_TLSDESC_RELAX];
2496 case BFD_RELOC_FRV_GETTLSOFF_RELAX:
2497 return &elf32_frv_howto_table[ (int) R_FRV_GETTLSOFF_RELAX];
2499 case BFD_RELOC_FRV_TLSOFF_RELAX:
2500 return &elf32_frv_howto_table[ (int) R_FRV_TLSOFF_RELAX];
2502 case BFD_RELOC_FRV_TLSMOFF:
2503 return &elf32_frv_howto_table[ (int) R_FRV_TLSMOFF];
2505 case BFD_RELOC_VTABLE_INHERIT:
2506 return &elf32_frv_vtinherit_howto;
2508 case BFD_RELOC_VTABLE_ENTRY:
2509 return &elf32_frv_vtentry_howto;
2512 return NULL;
2515 static reloc_howto_type *
2516 frv_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED, const char *r_name)
2518 unsigned int i;
2520 for (i = 0;
2521 i < sizeof (elf32_frv_howto_table) / sizeof (elf32_frv_howto_table[0]);
2522 i++)
2523 if (elf32_frv_howto_table[i].name != NULL
2524 && strcasecmp (elf32_frv_howto_table[i].name, r_name) == 0)
2525 return &elf32_frv_howto_table[i];
2527 if (strcasecmp (elf32_frv_vtinherit_howto.name, r_name) == 0)
2528 return &elf32_frv_vtinherit_howto;
2529 if (strcasecmp (elf32_frv_vtentry_howto.name, r_name) == 0)
2530 return &elf32_frv_vtentry_howto;
2532 return NULL;
2535 /* Set the howto pointer for an FRV ELF reloc. */
2537 static bfd_boolean
2538 frv_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
2539 arelent *cache_ptr,
2540 Elf_Internal_Rela *dst)
2542 unsigned int r_type;
2544 r_type = ELF32_R_TYPE (dst->r_info);
2545 switch (r_type)
2547 case R_FRV_GNU_VTINHERIT:
2548 cache_ptr->howto = &elf32_frv_vtinherit_howto;
2549 break;
2551 case R_FRV_GNU_VTENTRY:
2552 cache_ptr->howto = &elf32_frv_vtentry_howto;
2553 break;
2555 default:
2556 if (r_type >= ARRAY_SIZE (elf32_frv_howto_table))
2558 /* xgettext:c-format */
2559 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
2560 abfd, r_type);
2561 bfd_set_error (bfd_error_bad_value);
2562 return FALSE;
2564 cache_ptr->howto = & elf32_frv_howto_table [r_type];
2565 break;
2567 return TRUE;
2570 /* Set the howto pointer for an FRV ELF REL reloc. */
2572 static bfd_boolean
2573 frvfdpic_info_to_howto_rel (bfd *abfd ATTRIBUTE_UNUSED,
2574 arelent *cache_ptr, Elf_Internal_Rela *dst)
2576 unsigned int r_type;
2578 r_type = ELF32_R_TYPE (dst->r_info);
2579 switch (r_type)
2581 case R_FRV_32:
2582 cache_ptr->howto = &elf32_frv_rel_32_howto;
2583 break;
2585 case R_FRV_FUNCDESC:
2586 cache_ptr->howto = &elf32_frv_rel_funcdesc_howto;
2587 break;
2589 case R_FRV_FUNCDESC_VALUE:
2590 cache_ptr->howto = &elf32_frv_rel_funcdesc_value_howto;
2591 break;
2593 case R_FRV_TLSDESC_VALUE:
2594 cache_ptr->howto = &elf32_frv_rel_tlsdesc_value_howto;
2595 break;
2597 case R_FRV_TLSOFF:
2598 cache_ptr->howto = &elf32_frv_rel_tlsoff_howto;
2599 break;
2601 default:
2602 cache_ptr->howto = NULL;
2603 return FALSE;
2605 return TRUE;
2608 /* Perform a single relocation. By default we use the standard BFD
2609 routines, but a few relocs, we have to do them ourselves. */
2611 static bfd_reloc_status_type
2612 frv_final_link_relocate (reloc_howto_type *howto,
2613 bfd *input_bfd,
2614 asection *input_section,
2615 bfd_byte *contents,
2616 Elf_Internal_Rela *rel,
2617 bfd_vma relocation)
2619 return _bfd_final_link_relocate (howto, input_bfd, input_section,
2620 contents, rel->r_offset, relocation,
2621 rel->r_addend);
2625 /* Relocate an FRV ELF section.
2627 The RELOCATE_SECTION function is called by the new ELF backend linker
2628 to handle the relocations for a section.
2630 The relocs are always passed as Rela structures; if the section
2631 actually uses Rel structures, the r_addend field will always be
2632 zero.
2634 This function is responsible for adjusting the section contents as
2635 necessary, and (if using Rela relocs and generating a relocatable
2636 output file) adjusting the reloc addend as necessary.
2638 This function does not have to worry about setting the reloc
2639 address or the reloc symbol index.
2641 LOCAL_SYMS is a pointer to the swapped in local symbols.
2643 LOCAL_SECTIONS is an array giving the section in the input file
2644 corresponding to the st_shndx field of each local symbol.
2646 The global hash table entry for the global symbols can be found
2647 via elf_sym_hashes (input_bfd).
2649 When generating relocatable output, this function must handle
2650 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
2651 going to be the section symbol corresponding to the output
2652 section, which means that the addend must be adjusted
2653 accordingly. */
2655 static bfd_boolean
2656 elf32_frv_relocate_section (bfd *output_bfd ATTRIBUTE_UNUSED,
2657 struct bfd_link_info *info,
2658 bfd *input_bfd,
2659 asection *input_section,
2660 bfd_byte *contents,
2661 Elf_Internal_Rela *relocs,
2662 Elf_Internal_Sym *local_syms,
2663 asection **local_sections)
2665 Elf_Internal_Shdr *symtab_hdr;
2666 struct elf_link_hash_entry **sym_hashes;
2667 Elf_Internal_Rela *rel;
2668 Elf_Internal_Rela *relend;
2669 unsigned isec_segment, got_segment, plt_segment, gprel_segment, tls_segment,
2670 check_segment[2];
2671 int silence_segment_error = !bfd_link_pic (info);
2672 unsigned long insn;
2674 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
2675 sym_hashes = elf_sym_hashes (input_bfd);
2676 relend = relocs + input_section->reloc_count;
2678 isec_segment = _frvfdpic_osec_to_segment (output_bfd,
2679 input_section->output_section);
2680 if (IS_FDPIC (output_bfd) && frvfdpic_got_section (info))
2681 got_segment = _frvfdpic_osec_to_segment (output_bfd,
2682 frvfdpic_got_section (info)
2683 ->output_section);
2684 else
2685 got_segment = -1;
2686 if (IS_FDPIC (output_bfd) && frvfdpic_gotfixup_section (info))
2687 gprel_segment = _frvfdpic_osec_to_segment (output_bfd,
2688 frvfdpic_gotfixup_section (info)
2689 ->output_section);
2690 else
2691 gprel_segment = -1;
2692 if (IS_FDPIC (output_bfd) && frvfdpic_plt_section (info))
2693 plt_segment = _frvfdpic_osec_to_segment (output_bfd,
2694 frvfdpic_plt_section (info)
2695 ->output_section);
2696 else
2697 plt_segment = -1;
2698 if (elf_hash_table (info)->tls_sec)
2699 tls_segment = _frvfdpic_osec_to_segment (output_bfd,
2700 elf_hash_table (info)->tls_sec);
2701 else
2702 tls_segment = -1;
2704 for (rel = relocs; rel < relend; rel ++)
2706 reloc_howto_type *howto;
2707 unsigned long r_symndx;
2708 Elf_Internal_Sym *sym;
2709 asection *sec;
2710 struct elf_link_hash_entry *h;
2711 bfd_vma relocation;
2712 bfd_reloc_status_type r;
2713 const char *name;
2714 int r_type;
2715 asection *osec;
2716 struct frvfdpic_relocs_info *picrel = NULL;
2717 bfd_vma orig_addend = rel->r_addend;
2719 r_type = ELF32_R_TYPE (rel->r_info);
2721 if ( r_type == R_FRV_GNU_VTINHERIT
2722 || r_type == R_FRV_GNU_VTENTRY)
2723 continue;
2725 r_symndx = ELF32_R_SYM (rel->r_info);
2726 howto = elf32_frv_howto_table + ELF32_R_TYPE (rel->r_info);
2727 h = NULL;
2728 sym = NULL;
2729 sec = NULL;
2731 if (r_symndx < symtab_hdr->sh_info)
2733 sym = local_syms + r_symndx;
2734 osec = sec = local_sections [r_symndx];
2735 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2737 name = bfd_elf_string_from_elf_section
2738 (input_bfd, symtab_hdr->sh_link, sym->st_name);
2739 if (name == NULL || name[0] == 0)
2740 name = bfd_section_name (sec);
2742 else
2744 bfd_boolean warned, ignored;
2745 bfd_boolean unresolved_reloc;
2747 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2748 r_symndx, symtab_hdr, sym_hashes,
2749 h, sec, relocation,
2750 unresolved_reloc, warned, ignored);
2751 osec = sec;
2752 name = h->root.root.string;
2755 if (sec != NULL && discarded_section (sec))
2756 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
2757 rel, 1, relend, howto, 0, contents);
2759 if (bfd_link_relocatable (info))
2760 continue;
2762 if (r_type != R_FRV_TLSMOFF
2763 && h != NULL
2764 && (h->root.type == bfd_link_hash_defined
2765 || h->root.type == bfd_link_hash_defweak)
2766 && !FRVFDPIC_SYM_LOCAL (info, h))
2768 osec = sec = NULL;
2769 relocation = 0;
2772 switch (r_type)
2774 case R_FRV_LABEL24:
2775 case R_FRV_32:
2776 if (! IS_FDPIC (output_bfd))
2777 goto non_fdpic;
2778 /* Fall through. */
2780 case R_FRV_GOT12:
2781 case R_FRV_GOTHI:
2782 case R_FRV_GOTLO:
2783 case R_FRV_FUNCDESC_GOT12:
2784 case R_FRV_FUNCDESC_GOTHI:
2785 case R_FRV_FUNCDESC_GOTLO:
2786 case R_FRV_GOTOFF12:
2787 case R_FRV_GOTOFFHI:
2788 case R_FRV_GOTOFFLO:
2789 case R_FRV_FUNCDESC_GOTOFF12:
2790 case R_FRV_FUNCDESC_GOTOFFHI:
2791 case R_FRV_FUNCDESC_GOTOFFLO:
2792 case R_FRV_FUNCDESC:
2793 case R_FRV_FUNCDESC_VALUE:
2794 case R_FRV_GETTLSOFF:
2795 case R_FRV_TLSDESC_VALUE:
2796 case R_FRV_GOTTLSDESC12:
2797 case R_FRV_GOTTLSDESCHI:
2798 case R_FRV_GOTTLSDESCLO:
2799 case R_FRV_TLSMOFF12:
2800 case R_FRV_TLSMOFFHI:
2801 case R_FRV_TLSMOFFLO:
2802 case R_FRV_GOTTLSOFF12:
2803 case R_FRV_GOTTLSOFFHI:
2804 case R_FRV_GOTTLSOFFLO:
2805 case R_FRV_TLSOFF:
2806 case R_FRV_TLSDESC_RELAX:
2807 case R_FRV_GETTLSOFF_RELAX:
2808 case R_FRV_TLSOFF_RELAX:
2809 case R_FRV_TLSMOFF:
2810 if ((input_section->flags & SEC_ALLOC) == 0)
2811 break;
2813 if (h != NULL)
2814 picrel = frvfdpic_relocs_info_for_global (frvfdpic_relocs_info
2815 (info), input_bfd, h,
2816 orig_addend, INSERT);
2817 else
2818 /* In order to find the entry we created before, we must
2819 use the original addend, not the one that may have been
2820 modified by _bfd_elf_rela_local_sym(). */
2821 picrel = frvfdpic_relocs_info_for_local (frvfdpic_relocs_info
2822 (info), input_bfd, r_symndx,
2823 orig_addend, INSERT);
2824 if (! picrel)
2825 return FALSE;
2827 if (!_frvfdpic_emit_got_relocs_plt_entries (picrel, output_bfd, info,
2828 osec, sym,
2829 rel->r_addend))
2831 info->callbacks->einfo
2832 /* xgettext:c-format */
2833 (_("%H: relocation to `%s+%v'"
2834 " may have caused the error above\n"),
2835 input_bfd, input_section, rel->r_offset, name, rel->r_addend);
2836 return FALSE;
2839 break;
2841 default:
2842 non_fdpic:
2843 picrel = NULL;
2844 if (h
2845 && ! FRVFDPIC_SYM_LOCAL (info, h)
2846 && _bfd_elf_section_offset (output_bfd, info, input_section,
2847 rel->r_offset) != (bfd_vma) -1)
2849 info->callbacks->einfo
2850 (_("%H: relocation references symbol"
2851 " not defined in the module\n"),
2852 input_bfd, input_section, rel->r_offset);
2853 return FALSE;
2855 break;
2858 switch (r_type)
2860 case R_FRV_GETTLSOFF:
2861 case R_FRV_TLSDESC_VALUE:
2862 case R_FRV_GOTTLSDESC12:
2863 case R_FRV_GOTTLSDESCHI:
2864 case R_FRV_GOTTLSDESCLO:
2865 case R_FRV_TLSMOFF12:
2866 case R_FRV_TLSMOFFHI:
2867 case R_FRV_TLSMOFFLO:
2868 case R_FRV_GOTTLSOFF12:
2869 case R_FRV_GOTTLSOFFHI:
2870 case R_FRV_GOTTLSOFFLO:
2871 case R_FRV_TLSOFF:
2872 case R_FRV_TLSDESC_RELAX:
2873 case R_FRV_GETTLSOFF_RELAX:
2874 case R_FRV_TLSOFF_RELAX:
2875 case R_FRV_TLSMOFF:
2876 if (sec && (bfd_is_abs_section (sec) || bfd_is_und_section (sec)))
2877 relocation += tls_biased_base (info);
2878 break;
2880 default:
2881 break;
2884 /* Try to apply TLS relaxations. */
2885 if (1)
2886 switch (r_type)
2889 #define LOCAL_EXEC_P(info, picrel) \
2890 (bfd_link_executable (info) \
2891 && (picrel->symndx != -1 || FRVFDPIC_SYM_LOCAL ((info), (picrel)->d.h)))
2892 #define INITIAL_EXEC_P(info, picrel) \
2893 ((bfd_link_executable (info)|| (info)->flags & DF_STATIC_TLS) \
2894 && (picrel)->tlsoff_entry)
2896 #define IN_RANGE_FOR_OFST12_P(value) \
2897 ((bfd_vma)((value) + 2048) < (bfd_vma)4096)
2898 #define IN_RANGE_FOR_SETLOS_P(value) \
2899 ((bfd_vma)((value) + 32768) < (bfd_vma)65536)
2900 #define TLSMOFF_IN_RANGE_FOR_SETLOS_P(value, info) \
2901 (IN_RANGE_FOR_SETLOS_P ((value) - tls_biased_base (info)))
2903 #define RELAX_GETTLSOFF_LOCAL_EXEC_P(info, picrel, value) \
2904 (LOCAL_EXEC_P ((info), (picrel)) \
2905 && TLSMOFF_IN_RANGE_FOR_SETLOS_P((value), (info)))
2906 #define RELAX_GETTLSOFF_INITIAL_EXEC_P(info, picrel) \
2907 (INITIAL_EXEC_P ((info), (picrel)) \
2908 && IN_RANGE_FOR_OFST12_P ((picrel)->tlsoff_entry))
2910 #define RELAX_TLSDESC_LOCAL_EXEC_P(info, picrel, value) \
2911 (LOCAL_EXEC_P ((info), (picrel)))
2912 #define RELAX_TLSDESC_INITIAL_EXEC_P(info, picrel) \
2913 (INITIAL_EXEC_P ((info), (picrel)))
2915 #define RELAX_GOTTLSOFF_LOCAL_EXEC_P(info, picrel, value) \
2916 (LOCAL_EXEC_P ((info), (picrel)) \
2917 && TLSMOFF_IN_RANGE_FOR_SETLOS_P((value), (info)))
2919 case R_FRV_GETTLSOFF:
2920 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
2922 /* Is this a call instruction? */
2923 if ((insn & (unsigned long)0x01fc0000) != 0x003c0000)
2925 info->callbacks->einfo
2926 (_("%H: R_FRV_GETTLSOFF not applied to a call instruction\n"),
2927 input_bfd, input_section, rel->r_offset);
2928 return FALSE;
2931 if (RELAX_GETTLSOFF_LOCAL_EXEC_P (info, picrel,
2932 relocation + rel->r_addend))
2934 /* Replace the call instruction (except the packing bit)
2935 with setlos #tlsmofflo(symbol+offset), gr9. */
2936 insn &= (unsigned long)0x80000000;
2937 insn |= (unsigned long)0x12fc0000;
2938 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
2940 r_type = R_FRV_TLSMOFFLO;
2941 howto = elf32_frv_howto_table + r_type;
2942 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
2945 else if (RELAX_GETTLSOFF_INITIAL_EXEC_P (info, picrel))
2947 /* Replace the call instruction (except the packing bit)
2948 with ldi @(gr15, #gottlsoff12(symbol+addend)), gr9. */
2949 insn &= (unsigned long)0x80000000;
2950 insn |= (unsigned long)0x12c8f000;
2951 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
2953 r_type = R_FRV_GOTTLSOFF12;
2954 howto = elf32_frv_howto_table + r_type;
2955 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
2958 break;
2960 case R_FRV_GOTTLSDESC12:
2961 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
2963 /* Is this an lddi instruction? */
2964 if ((insn & (unsigned long)0x01fc0000) != 0x00cc0000)
2966 info->callbacks->einfo
2967 (_("%H: R_FRV_GOTTLSDESC12"
2968 " not applied to an lddi instruction\n"),
2969 input_bfd, input_section, rel->r_offset);
2970 return FALSE;
2973 if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
2974 relocation + rel->r_addend)
2975 && TLSMOFF_IN_RANGE_FOR_SETLOS_P (relocation + rel->r_addend,
2976 info))
2978 /* Replace lddi @(grB, #gottlsdesc12(symbol+offset), grC
2979 with setlos #tlsmofflo(symbol+offset), gr<C+1>.
2980 Preserve the packing bit. */
2981 insn = (insn & (unsigned long)0x80000000)
2982 | ((insn + (unsigned long)0x02000000)
2983 & (unsigned long)0x7e000000);
2984 insn |= (unsigned long)0x00fc0000;
2985 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
2987 r_type = R_FRV_TLSMOFFLO;
2988 howto = elf32_frv_howto_table + r_type;
2989 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
2992 else if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
2993 relocation + rel->r_addend))
2995 /* Replace lddi @(grB, #gottlsdesc12(symbol+offset), grC
2996 with sethi #tlsmoffhi(symbol+offset), gr<C+1>.
2997 Preserve the packing bit. */
2998 insn = (insn & (unsigned long)0x80000000)
2999 | ((insn + (unsigned long)0x02000000)
3000 & (unsigned long)0x7e000000);
3001 insn |= (unsigned long)0x00f80000;
3002 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3004 r_type = R_FRV_TLSMOFFHI;
3005 howto = elf32_frv_howto_table + r_type;
3006 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3009 else if (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel))
3011 /* Replace lddi @(grB, #gottlsdesc12(symbol+offset), grC
3012 with ldi @(grB, #gottlsoff12(symbol+offset),
3013 gr<C+1>. Preserve the packing bit. If gottlsoff12
3014 overflows, we'll error out, but that's sort-of ok,
3015 since we'd started with gottlsdesc12, that's actually
3016 more demanding. Compiling with -fPIE instead of
3017 -fpie would fix it; linking with --relax should fix
3018 it as well. */
3019 insn = (insn & (unsigned long)0x80cbf000)
3020 | ((insn + (unsigned long)0x02000000)
3021 & (unsigned long)0x7e000000);
3022 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3024 r_type = R_FRV_GOTTLSOFF12;
3025 howto = elf32_frv_howto_table + r_type;
3026 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3029 break;
3031 case R_FRV_GOTTLSDESCHI:
3032 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3034 /* Is this a sethi instruction? */
3035 if ((insn & (unsigned long)0x01ff0000) != 0x00f80000)
3037 info->callbacks->einfo
3038 (_("%H: R_FRV_GOTTLSDESCHI"
3039 " not applied to a sethi instruction\n"),
3040 input_bfd, input_section, rel->r_offset);
3041 return FALSE;
3044 if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
3045 relocation + rel->r_addend)
3046 || (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel)
3047 && IN_RANGE_FOR_SETLOS_P (picrel->tlsoff_entry)))
3049 /* Replace sethi with a nop. Preserve the packing bit. */
3050 insn &= (unsigned long)0x80000000;
3051 insn |= (unsigned long)0x00880000;
3052 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3054 /* Nothing to relocate. */
3055 continue;
3058 else if (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel))
3060 /* Simply decay GOTTLSDESC to GOTTLSOFF. */
3061 r_type = R_FRV_GOTTLSOFFHI;
3062 howto = elf32_frv_howto_table + r_type;
3063 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3066 break;
3068 case R_FRV_GOTTLSDESCLO:
3069 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3071 /* Is this a setlo or setlos instruction? */
3072 if ((insn & (unsigned long)0x01f70000) != 0x00f40000)
3074 info->callbacks->einfo
3075 (_("%H: R_FRV_GOTTLSDESCLO"
3076 " not applied to a setlo or setlos instruction\n"),
3077 input_bfd, input_section, rel->r_offset);
3078 return FALSE;
3081 if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
3082 relocation + rel->r_addend)
3083 || (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel)
3084 && IN_RANGE_FOR_OFST12_P (picrel->tlsoff_entry)))
3086 /* Replace setlo/setlos with a nop. Preserve the
3087 packing bit. */
3088 insn &= (unsigned long)0x80000000;
3089 insn |= (unsigned long)0x00880000;
3090 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3092 /* Nothing to relocate. */
3093 continue;
3096 else if (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel))
3098 /* If the corresponding sethi (if it exists) decayed
3099 to a nop, make sure this becomes (or already is) a
3100 setlos, not setlo. */
3101 if (IN_RANGE_FOR_SETLOS_P (picrel->tlsoff_entry))
3103 insn |= (unsigned long)0x00080000;
3104 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3107 /* Simply decay GOTTLSDESC to GOTTLSOFF. */
3108 r_type = R_FRV_GOTTLSOFFLO;
3109 howto = elf32_frv_howto_table + r_type;
3110 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3113 break;
3115 case R_FRV_TLSDESC_RELAX:
3116 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3118 /* Is this an ldd instruction? */
3119 if ((insn & (unsigned long)0x01fc0fc0) != 0x00080140)
3121 info->callbacks->einfo
3122 (_("%H: R_FRV_TLSDESC_RELAX"
3123 " not applied to an ldd instruction\n"),
3124 input_bfd, input_section, rel->r_offset);
3125 return FALSE;
3128 if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
3129 relocation + rel->r_addend)
3130 && TLSMOFF_IN_RANGE_FOR_SETLOS_P (relocation + rel->r_addend,
3131 info))
3133 /* Replace ldd #tlsdesc(symbol+offset)@(grB, grA), grC
3134 with setlos #tlsmofflo(symbol+offset), gr<C+1>.
3135 Preserve the packing bit. */
3136 insn = (insn & (unsigned long)0x80000000)
3137 | ((insn + (unsigned long)0x02000000)
3138 & (unsigned long)0x7e000000);
3139 insn |= (unsigned long)0x00fc0000;
3140 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3142 r_type = R_FRV_TLSMOFFLO;
3143 howto = elf32_frv_howto_table + r_type;
3144 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3147 else if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
3148 relocation + rel->r_addend))
3150 /* Replace ldd #tlsdesc(symbol+offset)@(grB, grA), grC
3151 with sethi #tlsmoffhi(symbol+offset), gr<C+1>.
3152 Preserve the packing bit. */
3153 insn = (insn & (unsigned long)0x80000000)
3154 | ((insn + (unsigned long)0x02000000)
3155 & (unsigned long)0x7e000000);
3156 insn |= (unsigned long)0x00f80000;
3157 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3159 r_type = R_FRV_TLSMOFFHI;
3160 howto = elf32_frv_howto_table + r_type;
3161 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3164 else if (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel)
3165 && IN_RANGE_FOR_OFST12_P (picrel->tlsoff_entry))
3167 /* Replace ldd #tlsdesc(symbol+offset)@(grB, grA), grC
3168 with ldi @(grB, #gottlsoff12(symbol+offset), gr<C+1>.
3169 Preserve the packing bit. */
3170 insn = (insn & (unsigned long)0x8003f000)
3171 | (unsigned long)0x00c80000
3172 | ((insn + (unsigned long)0x02000000)
3173 & (unsigned long)0x7e000000);
3174 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3176 r_type = R_FRV_GOTTLSOFF12;
3177 howto = elf32_frv_howto_table + r_type;
3178 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3181 else if (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel))
3183 /* Replace ldd #tlsdesc(symbol+offset)@(grB, grA), grC
3184 with ld #tlsoff(symbol+offset)@(grB, grA), gr<C+1>.
3185 Preserve the packing bit. */
3186 insn = (insn & (unsigned long)0x81ffffbf)
3187 | ((insn + (unsigned long)0x02000000)
3188 & (unsigned long)0x7e000000);
3189 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3191 /* #tlsoff(symbol+offset) is just a relaxation
3192 annotation, so there's nothing left to
3193 relocate. */
3194 continue;
3197 break;
3199 case R_FRV_GETTLSOFF_RELAX:
3200 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3202 /* Is this a calll or callil instruction? */
3203 if ((insn & (unsigned long)0x7ff80fc0) != 0x02300000)
3205 info->callbacks->einfo
3206 (_("%H: R_FRV_GETTLSOFF_RELAX"
3207 " not applied to a calll instruction\n"),
3208 input_bfd, input_section, rel->r_offset);
3209 return FALSE;
3212 if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
3213 relocation + rel->r_addend)
3214 && TLSMOFF_IN_RANGE_FOR_SETLOS_P (relocation + rel->r_addend,
3215 info))
3217 /* Replace calll with a nop. Preserve the packing bit. */
3218 insn &= (unsigned long)0x80000000;
3219 insn |= (unsigned long)0x00880000;
3220 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3222 /* Nothing to relocate. */
3223 continue;
3226 else if (RELAX_TLSDESC_LOCAL_EXEC_P (info, picrel,
3227 relocation + rel->r_addend))
3229 /* Replace calll with setlo #tlsmofflo(symbol+offset), gr9.
3230 Preserve the packing bit. */
3231 insn &= (unsigned long)0x80000000;
3232 insn |= (unsigned long)0x12f40000;
3233 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3235 r_type = R_FRV_TLSMOFFLO;
3236 howto = elf32_frv_howto_table + r_type;
3237 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3240 else if (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel))
3242 /* Replace calll with a nop. Preserve the packing bit. */
3243 insn &= (unsigned long)0x80000000;
3244 insn |= (unsigned long)0x00880000;
3245 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3247 /* Nothing to relocate. */
3248 continue;
3251 break;
3253 case R_FRV_GOTTLSOFF12:
3254 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3256 /* Is this an ldi instruction? */
3257 if ((insn & (unsigned long)0x01fc0000) != 0x00c80000)
3259 info->callbacks->einfo
3260 (_("%H: R_FRV_GOTTLSOFF12"
3261 " not applied to an ldi instruction\n"),
3262 input_bfd, input_section, rel->r_offset);
3263 return FALSE;
3266 if (RELAX_GOTTLSOFF_LOCAL_EXEC_P (info, picrel,
3267 relocation + rel->r_addend))
3269 /* Replace ldi @(grB, #gottlsoff12(symbol+offset), grC
3270 with setlos #tlsmofflo(symbol+offset), grC.
3271 Preserve the packing bit. */
3272 insn &= (unsigned long)0xfe000000;
3273 insn |= (unsigned long)0x00fc0000;
3274 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3276 r_type = R_FRV_TLSMOFFLO;
3277 howto = elf32_frv_howto_table + r_type;
3278 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3281 break;
3283 case R_FRV_GOTTLSOFFHI:
3284 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3286 /* Is this a sethi instruction? */
3287 if ((insn & (unsigned long)0x01ff0000) != 0x00f80000)
3289 info->callbacks->einfo
3290 (_("%H: R_FRV_GOTTLSOFFHI"
3291 " not applied to a sethi instruction\n"),
3292 input_bfd, input_section, rel->r_offset);
3293 return FALSE;
3296 if (RELAX_GOTTLSOFF_LOCAL_EXEC_P (info, picrel,
3297 relocation + rel->r_addend)
3298 || (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel)
3299 && IN_RANGE_FOR_OFST12_P (picrel->tlsoff_entry)))
3301 /* Replace sethi with a nop. Preserve the packing bit. */
3302 insn &= (unsigned long)0x80000000;
3303 insn |= (unsigned long)0x00880000;
3304 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3306 /* Nothing to relocate. */
3307 continue;
3310 break;
3312 case R_FRV_GOTTLSOFFLO:
3313 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3315 /* Is this a setlo or setlos instruction? */
3316 if ((insn & (unsigned long)0x01f70000) != 0x00f40000)
3318 info->callbacks->einfo
3319 (_("%H: R_FRV_GOTTLSOFFLO"
3320 " not applied to a setlo or setlos instruction\n"),
3321 input_bfd, input_section, rel->r_offset);
3322 return FALSE;
3325 if (RELAX_GOTTLSOFF_LOCAL_EXEC_P (info, picrel,
3326 relocation + rel->r_addend)
3327 || (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel)
3328 && IN_RANGE_FOR_OFST12_P (picrel->tlsoff_entry)))
3330 /* Replace setlo/setlos with a nop. Preserve the
3331 packing bit. */
3332 insn &= (unsigned long)0x80000000;
3333 insn |= (unsigned long)0x00880000;
3334 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3336 /* Nothing to relocate. */
3337 continue;
3340 break;
3342 case R_FRV_TLSOFF_RELAX:
3343 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3345 /* Is this an ld instruction? */
3346 if ((insn & (unsigned long)0x01fc0fc0) != 0x00080100)
3348 info->callbacks->einfo
3349 (_("%H: R_FRV_TLSOFF_RELAX"
3350 " not applied to an ld instruction\n"),
3351 input_bfd, input_section, rel->r_offset);
3352 return FALSE;
3355 if (RELAX_GOTTLSOFF_LOCAL_EXEC_P (info, picrel,
3356 relocation + rel->r_addend))
3358 /* Replace ld #gottlsoff(symbol+offset)@(grB, grA), grC
3359 with setlos #tlsmofflo(symbol+offset), grC.
3360 Preserve the packing bit. */
3361 insn &= (unsigned long)0xfe000000;
3362 insn |= (unsigned long)0x00fc0000;
3363 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3365 r_type = R_FRV_TLSMOFFLO;
3366 howto = elf32_frv_howto_table + r_type;
3367 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3370 else if (RELAX_TLSDESC_INITIAL_EXEC_P (info, picrel)
3371 && IN_RANGE_FOR_OFST12_P (picrel->tlsoff_entry))
3373 /* Replace ld #tlsoff(symbol+offset)@(grB, grA), grC
3374 with ldi @(grB, #gottlsoff12(symbol+offset), grC.
3375 Preserve the packing bit. */
3376 insn = (insn & (unsigned long)0xfe03f000)
3377 | (unsigned long)0x00c80000;
3378 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3380 r_type = R_FRV_GOTTLSOFF12;
3381 howto = elf32_frv_howto_table + r_type;
3382 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
3385 break;
3387 case R_FRV_TLSMOFFHI:
3388 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3390 /* Is this a sethi instruction? */
3391 if ((insn & (unsigned long)0x01ff0000) != 0x00f80000)
3393 info->callbacks->einfo
3394 (_("%H: R_FRV_TLSMOFFHI"
3395 " not applied to a sethi instruction\n"),
3396 input_bfd, input_section, rel->r_offset);
3397 return FALSE;
3400 if (TLSMOFF_IN_RANGE_FOR_SETLOS_P (relocation + rel->r_addend,
3401 info))
3403 /* Replace sethi with a nop. Preserve the packing bit. */
3404 insn &= (unsigned long)0x80000000;
3405 insn |= (unsigned long)0x00880000;
3406 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3408 /* Nothing to relocate. */
3409 continue;
3412 break;
3414 case R_FRV_TLSMOFFLO:
3415 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3417 /* Is this a setlo or setlos instruction? */
3418 if ((insn & (unsigned long)0x01f70000) != 0x00f40000)
3420 info->callbacks->einfo
3421 (_("R_FRV_TLSMOFFLO"
3422 " not applied to a setlo or setlos instruction\n"),
3423 input_bfd, input_section, rel->r_offset);
3424 return FALSE;
3427 if (TLSMOFF_IN_RANGE_FOR_SETLOS_P (relocation + rel->r_addend,
3428 info))
3429 /* If the corresponding sethi (if it exists) decayed
3430 to a nop, make sure this becomes (or already is) a
3431 setlos, not setlo. */
3433 insn |= (unsigned long)0x00080000;
3434 bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
3437 break;
3440 There's nothing to relax in these:
3441 R_FRV_TLSDESC_VALUE
3442 R_FRV_TLSOFF
3443 R_FRV_TLSMOFF12
3444 R_FRV_TLSMOFFHI
3445 R_FRV_TLSMOFFLO
3446 R_FRV_TLSMOFF
3449 default:
3450 break;
3453 switch (r_type)
3455 case R_FRV_LABEL24:
3456 check_segment[0] = isec_segment;
3457 if (! IS_FDPIC (output_bfd))
3458 check_segment[1] = isec_segment;
3459 else if (picrel->plt)
3461 relocation = frvfdpic_plt_section (info)->output_section->vma
3462 + frvfdpic_plt_section (info)->output_offset
3463 + picrel->plt_entry;
3464 check_segment[1] = plt_segment;
3466 /* We don't want to warn on calls to undefined weak symbols,
3467 as calls to them must be protected by non-NULL tests
3468 anyway, and unprotected calls would invoke undefined
3469 behavior. */
3470 else if (picrel->symndx == -1
3471 && picrel->d.h->root.type == bfd_link_hash_undefweak)
3472 check_segment[1] = check_segment[0];
3473 else
3474 check_segment[1] = sec
3475 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
3476 : (unsigned)-1;
3477 break;
3479 case R_FRV_GOT12:
3480 case R_FRV_GOTHI:
3481 case R_FRV_GOTLO:
3482 relocation = picrel->got_entry;
3483 check_segment[0] = check_segment[1] = got_segment;
3484 break;
3486 case R_FRV_FUNCDESC_GOT12:
3487 case R_FRV_FUNCDESC_GOTHI:
3488 case R_FRV_FUNCDESC_GOTLO:
3489 relocation = picrel->fdgot_entry;
3490 check_segment[0] = check_segment[1] = got_segment;
3491 break;
3493 case R_FRV_GOTOFFHI:
3494 case R_FRV_GOTOFF12:
3495 case R_FRV_GOTOFFLO:
3496 relocation -= frvfdpic_got_section (info)->output_section->vma
3497 + frvfdpic_got_section (info)->output_offset
3498 + frvfdpic_got_initial_offset (info);
3499 check_segment[0] = got_segment;
3500 check_segment[1] = sec
3501 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
3502 : (unsigned)-1;
3503 break;
3505 case R_FRV_FUNCDESC_GOTOFF12:
3506 case R_FRV_FUNCDESC_GOTOFFHI:
3507 case R_FRV_FUNCDESC_GOTOFFLO:
3508 relocation = picrel->fd_entry;
3509 check_segment[0] = check_segment[1] = got_segment;
3510 break;
3512 case R_FRV_FUNCDESC:
3514 int dynindx;
3515 bfd_vma addend = rel->r_addend;
3517 if (! (h && h->root.type == bfd_link_hash_undefweak
3518 && FRVFDPIC_SYM_LOCAL (info, h)))
3520 /* If the symbol is dynamic and there may be dynamic
3521 symbol resolution because we are or are linked with a
3522 shared library, emit a FUNCDESC relocation such that
3523 the dynamic linker will allocate the function
3524 descriptor. If the symbol needs a non-local function
3525 descriptor but binds locally (e.g., its visibility is
3526 protected, emit a dynamic relocation decayed to
3527 section+offset. */
3528 if (h && ! FRVFDPIC_FUNCDESC_LOCAL (info, h)
3529 && FRVFDPIC_SYM_LOCAL (info, h)
3530 && !bfd_link_pde (info))
3532 dynindx = elf_section_data (h->root.u.def.section
3533 ->output_section)->dynindx;
3534 addend += h->root.u.def.section->output_offset
3535 + h->root.u.def.value;
3537 else if (h && ! FRVFDPIC_FUNCDESC_LOCAL (info, h))
3539 if (addend)
3541 info->callbacks->einfo
3542 (_("%H: %s references dynamic symbol"
3543 " with nonzero addend\n"),
3544 input_bfd, input_section, rel->r_offset,
3545 "R_FRV_FUNCDESC");
3546 return FALSE;
3548 dynindx = h->dynindx;
3550 else
3552 /* Otherwise, we know we have a private function
3553 descriptor, so reference it directly. */
3554 BFD_ASSERT (picrel->privfd);
3555 r_type = R_FRV_32;
3556 dynindx = elf_section_data (frvfdpic_got_section (info)
3557 ->output_section)->dynindx;
3558 addend = frvfdpic_got_section (info)->output_offset
3559 + frvfdpic_got_initial_offset (info)
3560 + picrel->fd_entry;
3563 /* If there is room for dynamic symbol resolution, emit
3564 the dynamic relocation. However, if we're linking an
3565 executable at a fixed location, we won't have emitted a
3566 dynamic symbol entry for the got section, so idx will
3567 be zero, which means we can and should compute the
3568 address of the private descriptor ourselves. */
3569 if (bfd_link_pde (info)
3570 && (!h || FRVFDPIC_FUNCDESC_LOCAL (info, h)))
3572 addend += frvfdpic_got_section (info)->output_section->vma;
3573 if ((bfd_section_flags (input_section->output_section)
3574 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
3576 bfd_vma offset;
3578 if (_frvfdpic_osec_readonly_p (output_bfd,
3579 input_section
3580 ->output_section))
3582 info->callbacks->einfo
3583 (_("%H: cannot emit fixups"
3584 " in read-only section\n"),
3585 input_bfd, input_section, rel->r_offset);
3586 return FALSE;
3589 offset = _bfd_elf_section_offset
3590 (output_bfd, info,
3591 input_section, rel->r_offset);
3593 if (offset != (bfd_vma)-1)
3594 _frvfdpic_add_rofixup (output_bfd,
3595 frvfdpic_gotfixup_section
3596 (info),
3597 offset + input_section
3598 ->output_section->vma
3599 + input_section->output_offset,
3600 picrel);
3603 else if ((bfd_section_flags (input_section->output_section)
3604 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
3606 bfd_vma offset;
3608 if (_frvfdpic_osec_readonly_p (output_bfd,
3609 input_section
3610 ->output_section))
3612 info->callbacks->einfo
3613 (_("%H: cannot emit dynamic relocations"
3614 " in read-only section\n"),
3615 input_bfd, input_section, rel->r_offset);
3616 return FALSE;
3619 offset = _bfd_elf_section_offset
3620 (output_bfd, info,
3621 input_section, rel->r_offset);
3623 if (offset != (bfd_vma)-1)
3624 _frvfdpic_add_dyn_reloc (output_bfd,
3625 frvfdpic_gotrel_section (info),
3626 offset + input_section
3627 ->output_section->vma
3628 + input_section->output_offset,
3629 r_type, dynindx, addend, picrel);
3631 else
3632 addend += frvfdpic_got_section (info)->output_section->vma;
3635 /* We want the addend in-place because dynamic
3636 relocations are REL. Setting relocation to it should
3637 arrange for it to be installed. */
3638 relocation = addend - rel->r_addend;
3640 check_segment[0] = check_segment[1] = got_segment;
3641 break;
3643 case R_FRV_32:
3644 if (! IS_FDPIC (output_bfd))
3646 check_segment[0] = check_segment[1] = -1;
3647 break;
3649 /* Fall through. */
3650 case R_FRV_FUNCDESC_VALUE:
3652 int dynindx;
3653 bfd_vma addend = rel->r_addend;
3655 /* If the symbol is dynamic but binds locally, use
3656 section+offset. */
3657 if (h && ! FRVFDPIC_SYM_LOCAL (info, h))
3659 if (addend && r_type == R_FRV_FUNCDESC_VALUE)
3661 info->callbacks->einfo
3662 (_("%H: %s references dynamic symbol"
3663 " with nonzero addend\n"),
3664 input_bfd, input_section, rel->r_offset,
3665 "R_FRV_FUNCDESC_VALUE");
3666 return FALSE;
3668 dynindx = h->dynindx;
3670 else
3672 if (h)
3673 addend += h->root.u.def.value;
3674 else
3675 addend += sym->st_value;
3676 if (osec)
3677 addend += osec->output_offset;
3678 if (osec && osec->output_section
3679 && ! bfd_is_abs_section (osec->output_section)
3680 && ! bfd_is_und_section (osec->output_section))
3681 dynindx = elf_section_data (osec->output_section)->dynindx;
3682 else
3683 dynindx = 0;
3686 /* If we're linking an executable at a fixed address, we
3687 can omit the dynamic relocation as long as the symbol
3688 is defined in the current link unit (which is implied
3689 by its output section not being NULL). */
3690 if (bfd_link_pde (info)
3691 && (!h || FRVFDPIC_SYM_LOCAL (info, h)))
3693 if (osec)
3694 addend += osec->output_section->vma;
3695 if (IS_FDPIC (input_bfd)
3696 && (bfd_section_flags (input_section->output_section)
3697 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
3699 if (_frvfdpic_osec_readonly_p (output_bfd,
3700 input_section
3701 ->output_section))
3703 info->callbacks->einfo
3704 (_("%H: cannot emit fixups in read-only section\n"),
3705 input_bfd, input_section, rel->r_offset);
3706 return FALSE;
3708 if (!h || h->root.type != bfd_link_hash_undefweak)
3710 bfd_vma offset = _bfd_elf_section_offset
3711 (output_bfd, info,
3712 input_section, rel->r_offset);
3714 if (offset != (bfd_vma)-1)
3716 _frvfdpic_add_rofixup (output_bfd,
3717 frvfdpic_gotfixup_section
3718 (info),
3719 offset + input_section
3720 ->output_section->vma
3721 + input_section->output_offset,
3722 picrel);
3723 if (r_type == R_FRV_FUNCDESC_VALUE)
3724 _frvfdpic_add_rofixup
3725 (output_bfd,
3726 frvfdpic_gotfixup_section (info),
3727 offset
3728 + input_section->output_section->vma
3729 + input_section->output_offset + 4, picrel);
3734 else
3736 if ((bfd_section_flags (input_section->output_section)
3737 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
3739 bfd_vma offset;
3741 if (_frvfdpic_osec_readonly_p (output_bfd,
3742 input_section
3743 ->output_section))
3745 info->callbacks->einfo
3746 (_("%H: cannot emit dynamic relocations"
3747 " in read-only section\n"),
3748 input_bfd, input_section, rel->r_offset);
3749 return FALSE;
3752 offset = _bfd_elf_section_offset
3753 (output_bfd, info,
3754 input_section, rel->r_offset);
3756 if (offset != (bfd_vma)-1)
3757 _frvfdpic_add_dyn_reloc (output_bfd,
3758 frvfdpic_gotrel_section (info),
3759 offset + input_section
3760 ->output_section->vma
3761 + input_section->output_offset,
3762 r_type, dynindx, addend, picrel);
3764 else if (osec)
3765 addend += osec->output_section->vma;
3766 /* We want the addend in-place because dynamic
3767 relocations are REL. Setting relocation to it
3768 should arrange for it to be installed. */
3769 relocation = addend - rel->r_addend;
3772 if (r_type == R_FRV_FUNCDESC_VALUE)
3774 /* If we've omitted the dynamic relocation, just emit
3775 the fixed addresses of the symbol and of the local
3776 GOT base offset. */
3777 if (bfd_link_pde (info)
3778 && (!h || FRVFDPIC_SYM_LOCAL (info, h)))
3779 bfd_put_32 (output_bfd,
3780 frvfdpic_got_section (info)->output_section->vma
3781 + frvfdpic_got_section (info)->output_offset
3782 + frvfdpic_got_initial_offset (info),
3783 contents + rel->r_offset + 4);
3784 else
3785 /* A function descriptor used for lazy or local
3786 resolving is initialized such that its high word
3787 contains the output section index in which the
3788 PLT entries are located, and the low word
3789 contains the offset of the lazy PLT entry entry
3790 point into that section. */
3791 bfd_put_32 (output_bfd,
3792 h && ! FRVFDPIC_SYM_LOCAL (info, h)
3794 : _frvfdpic_osec_to_segment (output_bfd,
3796 ->output_section),
3797 contents + rel->r_offset + 4);
3800 check_segment[0] = check_segment[1] = got_segment;
3801 break;
3803 case R_FRV_GPREL12:
3804 case R_FRV_GPRELU12:
3805 case R_FRV_GPREL32:
3806 case R_FRV_GPRELHI:
3807 case R_FRV_GPRELLO:
3808 check_segment[0] = gprel_segment;
3809 check_segment[1] = sec
3810 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
3811 : (unsigned)-1;
3812 break;
3814 case R_FRV_GETTLSOFF:
3815 relocation = frvfdpic_plt_section (info)->output_section->vma
3816 + frvfdpic_plt_section (info)->output_offset
3817 + picrel->tlsplt_entry;
3818 BFD_ASSERT (picrel->tlsplt_entry != (bfd_vma)-1
3819 && picrel->tlsdesc_entry);
3820 check_segment[0] = isec_segment;
3821 check_segment[1] = plt_segment;
3822 break;
3824 case R_FRV_GOTTLSDESC12:
3825 case R_FRV_GOTTLSDESCHI:
3826 case R_FRV_GOTTLSDESCLO:
3827 BFD_ASSERT (picrel->tlsdesc_entry);
3828 relocation = picrel->tlsdesc_entry;
3829 check_segment[0] = tls_segment;
3830 check_segment[1] = sec
3831 && ! bfd_is_abs_section (sec)
3832 && ! bfd_is_und_section (sec)
3833 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
3834 : tls_segment;
3835 break;
3837 case R_FRV_TLSMOFF12:
3838 case R_FRV_TLSMOFFHI:
3839 case R_FRV_TLSMOFFLO:
3840 case R_FRV_TLSMOFF:
3841 check_segment[0] = tls_segment;
3842 if (! sec)
3843 check_segment[1] = -1;
3844 else if (bfd_is_abs_section (sec)
3845 || bfd_is_und_section (sec))
3847 relocation = 0;
3848 check_segment[1] = tls_segment;
3850 else if (sec->output_section)
3852 relocation -= tls_biased_base (info);
3853 check_segment[1] =
3854 _frvfdpic_osec_to_segment (output_bfd, sec->output_section);
3856 else
3857 check_segment[1] = -1;
3858 break;
3860 case R_FRV_GOTTLSOFF12:
3861 case R_FRV_GOTTLSOFFHI:
3862 case R_FRV_GOTTLSOFFLO:
3863 BFD_ASSERT (picrel->tlsoff_entry);
3864 relocation = picrel->tlsoff_entry;
3865 check_segment[0] = tls_segment;
3866 check_segment[1] = sec
3867 && ! bfd_is_abs_section (sec)
3868 && ! bfd_is_und_section (sec)
3869 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
3870 : tls_segment;
3871 break;
3873 case R_FRV_TLSDESC_VALUE:
3874 case R_FRV_TLSOFF:
3875 /* These shouldn't be present in input object files. */
3876 check_segment[0] = check_segment[1] = isec_segment;
3877 break;
3879 case R_FRV_TLSDESC_RELAX:
3880 case R_FRV_GETTLSOFF_RELAX:
3881 case R_FRV_TLSOFF_RELAX:
3882 /* These are just annotations for relaxation, nothing to do
3883 here. */
3884 continue;
3886 default:
3887 check_segment[0] = isec_segment;
3888 check_segment[1] = sec
3889 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
3890 : (unsigned)-1;
3891 break;
3894 if (check_segment[0] != check_segment[1] && IS_FDPIC (output_bfd))
3896 /* If you take this out, remove the #error from fdpic-static-6.d
3897 in the ld testsuite. */
3898 /* This helps catch problems in GCC while we can't do more
3899 than static linking. The idea is to test whether the
3900 input file basename is crt0.o only once. */
3901 if (silence_segment_error == 1)
3902 silence_segment_error =
3903 (strlen (bfd_get_filename (input_bfd)) == 6
3904 && filename_cmp (bfd_get_filename (input_bfd), "crt0.o") == 0)
3905 || (strlen (bfd_get_filename (input_bfd)) > 6
3906 && filename_cmp (bfd_get_filename (input_bfd)
3907 + strlen (bfd_get_filename (input_bfd)) - 7,
3908 "/crt0.o") == 0)
3909 ? -1 : 0;
3910 if (!silence_segment_error
3911 /* We don't want duplicate errors for undefined
3912 symbols. */
3913 && !(picrel && picrel->symndx == -1
3914 && picrel->d.h->root.type == bfd_link_hash_undefined))
3916 info->callbacks->einfo
3917 /* xgettext:c-format */
3918 (_("%H: reloc against `%s' references a different segment\n"),
3919 input_bfd, input_section, rel->r_offset, name);
3921 if (!silence_segment_error && bfd_link_pic (info))
3922 return FALSE;
3923 elf_elfheader (output_bfd)->e_flags |= EF_FRV_PIC;
3926 switch (r_type)
3928 case R_FRV_GOTOFFHI:
3929 case R_FRV_TLSMOFFHI:
3930 /* We need the addend to be applied before we shift the
3931 value right. */
3932 relocation += rel->r_addend;
3933 /* Fall through. */
3934 case R_FRV_GOTHI:
3935 case R_FRV_FUNCDESC_GOTHI:
3936 case R_FRV_FUNCDESC_GOTOFFHI:
3937 case R_FRV_GOTTLSOFFHI:
3938 case R_FRV_GOTTLSDESCHI:
3939 relocation >>= 16;
3940 /* Fall through. */
3942 case R_FRV_GOTLO:
3943 case R_FRV_FUNCDESC_GOTLO:
3944 case R_FRV_GOTOFFLO:
3945 case R_FRV_FUNCDESC_GOTOFFLO:
3946 case R_FRV_GOTTLSOFFLO:
3947 case R_FRV_GOTTLSDESCLO:
3948 case R_FRV_TLSMOFFLO:
3949 relocation &= 0xffff;
3950 break;
3952 default:
3953 break;
3956 switch (r_type)
3958 case R_FRV_LABEL24:
3959 if (! IS_FDPIC (output_bfd) || ! picrel->plt)
3960 break;
3961 /* Fall through. */
3963 /* When referencing a GOT entry, a function descriptor or a
3964 PLT, we don't want the addend to apply to the reference,
3965 but rather to the referenced symbol. The actual entry
3966 will have already been created taking the addend into
3967 account, so cancel it out here. */
3968 case R_FRV_GOT12:
3969 case R_FRV_GOTHI:
3970 case R_FRV_GOTLO:
3971 case R_FRV_FUNCDESC_GOT12:
3972 case R_FRV_FUNCDESC_GOTHI:
3973 case R_FRV_FUNCDESC_GOTLO:
3974 case R_FRV_FUNCDESC_GOTOFF12:
3975 case R_FRV_FUNCDESC_GOTOFFHI:
3976 case R_FRV_FUNCDESC_GOTOFFLO:
3977 case R_FRV_GETTLSOFF:
3978 case R_FRV_GOTTLSDESC12:
3979 case R_FRV_GOTTLSDESCHI:
3980 case R_FRV_GOTTLSDESCLO:
3981 case R_FRV_GOTTLSOFF12:
3982 case R_FRV_GOTTLSOFFHI:
3983 case R_FRV_GOTTLSOFFLO:
3984 /* Note that we only want GOTOFFHI, not GOTOFFLO or GOTOFF12
3985 here, since we do want to apply the addend to the others.
3986 Note that we've applied the addend to GOTOFFHI before we
3987 shifted it right. */
3988 case R_FRV_GOTOFFHI:
3989 case R_FRV_TLSMOFFHI:
3990 relocation -= rel->r_addend;
3991 break;
3993 default:
3994 break;
3997 if (r_type == R_FRV_HI16)
3998 r = elf32_frv_relocate_hi16 (input_bfd, rel, contents, relocation);
4000 else if (r_type == R_FRV_LO16)
4001 r = elf32_frv_relocate_lo16 (input_bfd, rel, contents, relocation);
4003 else if (r_type == R_FRV_LABEL24 || r_type == R_FRV_GETTLSOFF)
4004 r = elf32_frv_relocate_label24 (input_bfd, input_section, rel,
4005 contents, relocation);
4007 else if (r_type == R_FRV_GPREL12)
4008 r = elf32_frv_relocate_gprel12 (info, input_bfd, input_section, rel,
4009 contents, relocation);
4011 else if (r_type == R_FRV_GPRELU12)
4012 r = elf32_frv_relocate_gprelu12 (info, input_bfd, input_section, rel,
4013 contents, relocation);
4015 else if (r_type == R_FRV_GPRELLO)
4016 r = elf32_frv_relocate_gprello (info, input_bfd, input_section, rel,
4017 contents, relocation);
4019 else if (r_type == R_FRV_GPRELHI)
4020 r = elf32_frv_relocate_gprelhi (info, input_bfd, input_section, rel,
4021 contents, relocation);
4023 else if (r_type == R_FRV_TLSOFF
4024 || r_type == R_FRV_TLSDESC_VALUE)
4025 r = bfd_reloc_notsupported;
4027 else
4028 r = frv_final_link_relocate (howto, input_bfd, input_section, contents,
4029 rel, relocation);
4031 if (r != bfd_reloc_ok)
4033 const char * msg = (const char *) NULL;
4035 switch (r)
4037 case bfd_reloc_overflow:
4038 (*info->callbacks->reloc_overflow)
4039 (info, (h ? &h->root : NULL), name, howto->name,
4040 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
4041 break;
4043 case bfd_reloc_undefined:
4044 (*info->callbacks->undefined_symbol)
4045 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
4046 break;
4048 case bfd_reloc_outofrange:
4049 msg = _("internal error: out of range error");
4050 break;
4052 case bfd_reloc_notsupported:
4053 msg = _("internal error: unsupported relocation error");
4054 break;
4056 case bfd_reloc_dangerous:
4057 msg = _("internal error: dangerous relocation");
4058 break;
4060 default:
4061 msg = _("internal error: unknown error");
4062 break;
4065 if (msg)
4067 info->callbacks->einfo
4068 /* xgettext:c-format */
4069 (_("%H: reloc against `%s': %s\n"),
4070 input_bfd, input_section, rel->r_offset, name, msg);
4071 return FALSE;
4076 return TRUE;
4079 /* Return the section that should be marked against GC for a given
4080 relocation. */
4082 static asection *
4083 elf32_frv_gc_mark_hook (asection *sec,
4084 struct bfd_link_info *info,
4085 Elf_Internal_Rela *rel,
4086 struct elf_link_hash_entry *h,
4087 Elf_Internal_Sym *sym)
4089 if (h != NULL)
4090 switch (ELF32_R_TYPE (rel->r_info))
4092 case R_FRV_GNU_VTINHERIT:
4093 case R_FRV_GNU_VTENTRY:
4094 return NULL;
4097 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
4100 /* Hook called by the linker routine which adds symbols from an object
4101 file. We use it to put .comm items in .scomm, and not .comm. */
4103 static bfd_boolean
4104 elf32_frv_add_symbol_hook (bfd *abfd,
4105 struct bfd_link_info *info,
4106 Elf_Internal_Sym *sym,
4107 const char **namep ATTRIBUTE_UNUSED,
4108 flagword *flagsp ATTRIBUTE_UNUSED,
4109 asection **secp,
4110 bfd_vma *valp)
4112 if (sym->st_shndx == SHN_COMMON
4113 && !bfd_link_relocatable (info)
4114 && (int)sym->st_size <= (int)bfd_get_gp_size (abfd))
4116 /* Common symbols less than or equal to -G nn bytes are
4117 automatically put into .sbss. */
4119 asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
4121 if (scomm == NULL)
4123 scomm = bfd_make_section_with_flags (abfd, ".scommon",
4124 (SEC_ALLOC
4125 | SEC_IS_COMMON
4126 | SEC_SMALL_DATA
4127 | SEC_LINKER_CREATED));
4128 if (scomm == NULL)
4129 return FALSE;
4132 *secp = scomm;
4133 *valp = sym->st_size;
4136 return TRUE;
4139 /* We need dynamic symbols for every section, since segments can
4140 relocate independently. */
4141 static bfd_boolean
4142 _frvfdpic_link_omit_section_dynsym (bfd *output_bfd ATTRIBUTE_UNUSED,
4143 struct bfd_link_info *info
4144 ATTRIBUTE_UNUSED,
4145 asection *p ATTRIBUTE_UNUSED)
4147 switch (elf_section_data (p)->this_hdr.sh_type)
4149 case SHT_PROGBITS:
4150 case SHT_NOBITS:
4151 /* If sh_type is yet undecided, assume it could be
4152 SHT_PROGBITS/SHT_NOBITS. */
4153 case SHT_NULL:
4154 return FALSE;
4156 /* There shouldn't be section relative relocations
4157 against any other section. */
4158 default:
4159 return TRUE;
4163 /* Create a .got section, as well as its additional info field. This
4164 is almost entirely copied from
4165 elflink.c:_bfd_elf_create_got_section(). */
4167 static bfd_boolean
4168 _frv_create_got_section (bfd *abfd, struct bfd_link_info *info)
4170 flagword flags, pltflags;
4171 asection *s;
4172 struct elf_link_hash_entry *h;
4173 struct bfd_link_hash_entry *bh;
4174 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
4175 int ptralign;
4176 int offset;
4178 /* This function may be called more than once. */
4179 s = elf_hash_table (info)->sgot;
4180 if (s != NULL)
4181 return TRUE;
4183 /* Machine specific: although pointers are 32-bits wide, we want the
4184 GOT to be aligned to a 64-bit boundary, such that function
4185 descriptors in it can be accessed with 64-bit loads and
4186 stores. */
4187 ptralign = 3;
4189 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
4190 | SEC_LINKER_CREATED);
4191 pltflags = flags;
4193 s = bfd_make_section_anyway_with_flags (abfd, ".got", flags);
4194 elf_hash_table (info)->sgot = s;
4195 if (s == NULL
4196 || !bfd_set_section_alignment (s, ptralign))
4197 return FALSE;
4199 if (bed->want_got_sym)
4201 /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
4202 (or .got.plt) section. We don't do this in the linker script
4203 because we don't want to define the symbol if we are not creating
4204 a global offset table. */
4205 h = _bfd_elf_define_linkage_sym (abfd, info, s, "_GLOBAL_OFFSET_TABLE_");
4206 elf_hash_table (info)->hgot = h;
4207 if (h == NULL)
4208 return FALSE;
4210 /* Machine-specific: we want the symbol for executables as
4211 well. */
4212 if (! bfd_elf_link_record_dynamic_symbol (info, h))
4213 return FALSE;
4216 /* The first bit of the global offset table is the header. */
4217 s->size += bed->got_header_size;
4219 /* This is the machine-specific part. Create and initialize section
4220 data for the got. */
4221 if (IS_FDPIC (abfd))
4223 frvfdpic_relocs_info (info) = htab_try_create (1,
4224 frvfdpic_relocs_info_hash,
4225 frvfdpic_relocs_info_eq,
4226 (htab_del) NULL);
4227 if (! frvfdpic_relocs_info (info))
4228 return FALSE;
4230 s = bfd_make_section_anyway_with_flags (abfd, ".rel.got",
4231 (flags | SEC_READONLY));
4232 elf_hash_table (info)->srelgot = s;
4233 if (s == NULL
4234 || !bfd_set_section_alignment (s, 2))
4235 return FALSE;
4237 /* Machine-specific. */
4238 s = bfd_make_section_anyway_with_flags (abfd, ".rofixup",
4239 (flags | SEC_READONLY));
4240 if (s == NULL
4241 || !bfd_set_section_alignment (s, 2))
4242 return FALSE;
4244 frvfdpic_gotfixup_section (info) = s;
4245 offset = -2048;
4246 flags = BSF_GLOBAL;
4248 else
4250 offset = 2048;
4251 flags = BSF_GLOBAL | BSF_WEAK;
4254 /* Define _gp in .rofixup, for FDPIC, or .got otherwise. If it
4255 turns out that we're linking with a different linker script, the
4256 linker script will override it. */
4257 bh = NULL;
4258 if (!(_bfd_generic_link_add_one_symbol
4259 (info, abfd, "_gp", flags, s, offset, (const char *) NULL, FALSE,
4260 bed->collect, &bh)))
4261 return FALSE;
4262 h = (struct elf_link_hash_entry *) bh;
4263 h->def_regular = 1;
4264 h->type = STT_OBJECT;
4265 /* h->other = STV_HIDDEN; */ /* Should we? */
4267 /* Machine-specific: we want the symbol for executables as well. */
4268 if (IS_FDPIC (abfd) && ! bfd_elf_link_record_dynamic_symbol (info, h))
4269 return FALSE;
4271 if (!IS_FDPIC (abfd))
4272 return TRUE;
4274 /* FDPIC supports Thread Local Storage, and this may require a
4275 procedure linkage table for TLS PLT entries. */
4277 /* This is mostly copied from
4278 elflink.c:_bfd_elf_create_dynamic_sections(). */
4280 flags = pltflags;
4281 pltflags |= SEC_CODE;
4282 if (bed->plt_not_loaded)
4283 pltflags &= ~ (SEC_CODE | SEC_LOAD | SEC_HAS_CONTENTS);
4284 if (bed->plt_readonly)
4285 pltflags |= SEC_READONLY;
4287 s = bfd_make_section_anyway_with_flags (abfd, ".plt", pltflags);
4288 if (s == NULL
4289 || !bfd_set_section_alignment (s, bed->plt_alignment))
4290 return FALSE;
4291 /* FRV-specific: remember it. */
4292 frvfdpic_plt_section (info) = s;
4294 /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
4295 .plt section. */
4296 if (bed->want_plt_sym)
4298 h = _bfd_elf_define_linkage_sym (abfd, info, s,
4299 "_PROCEDURE_LINKAGE_TABLE_");
4300 elf_hash_table (info)->hplt = h;
4301 if (h == NULL)
4302 return FALSE;
4305 /* FRV-specific: we want rel relocations for the plt. */
4306 s = bfd_make_section_anyway_with_flags (abfd, ".rel.plt",
4307 flags | SEC_READONLY);
4308 if (s == NULL
4309 || !bfd_set_section_alignment (s, bed->s->log_file_align))
4310 return FALSE;
4311 /* FRV-specific: remember it. */
4312 frvfdpic_pltrel_section (info) = s;
4314 return TRUE;
4317 /* Make sure the got and plt sections exist, and that our pointers in
4318 the link hash table point to them. */
4320 static bfd_boolean
4321 elf32_frvfdpic_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
4323 /* This is mostly copied from
4324 elflink.c:_bfd_elf_create_dynamic_sections(). */
4325 flagword flags;
4326 asection *s;
4327 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
4329 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
4330 | SEC_LINKER_CREATED);
4332 /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
4333 .rel[a].bss sections. */
4335 /* FRV-specific: we want to create the GOT and the PLT in the FRV
4336 way. */
4337 if (! _frv_create_got_section (abfd, info))
4338 return FALSE;
4340 /* FRV-specific: make sure we created everything we wanted. */
4341 BFD_ASSERT (frvfdpic_got_section (info) && frvfdpic_gotrel_section (info)
4342 && frvfdpic_gotfixup_section (info)
4343 && frvfdpic_plt_section (info)
4344 && frvfdpic_pltrel_section (info));
4346 if (bed->want_dynbss)
4348 /* The .dynbss section is a place to put symbols which are defined
4349 by dynamic objects, are referenced by regular objects, and are
4350 not functions. We must allocate space for them in the process
4351 image and use a R_*_COPY reloc to tell the dynamic linker to
4352 initialize them at run time. The linker script puts the .dynbss
4353 section into the .bss section of the final image. */
4354 s = bfd_make_section_anyway_with_flags (abfd, ".dynbss",
4355 SEC_ALLOC | SEC_LINKER_CREATED);
4356 if (s == NULL)
4357 return FALSE;
4359 /* The .rel[a].bss section holds copy relocs. This section is not
4360 normally needed. We need to create it here, though, so that the
4361 linker will map it to an output section. We can't just create it
4362 only if we need it, because we will not know whether we need it
4363 until we have seen all the input files, and the first time the
4364 main linker code calls BFD after examining all the input files
4365 (size_dynamic_sections) the input sections have already been
4366 mapped to the output sections. If the section turns out not to
4367 be needed, we can discard it later. We will never need this
4368 section when generating a shared object, since they do not use
4369 copy relocs. */
4370 if (! bfd_link_pic (info))
4372 s = bfd_make_section_anyway_with_flags (abfd,
4373 (bed->default_use_rela_p
4374 ? ".rela.bss" : ".rel.bss"),
4375 flags | SEC_READONLY);
4376 if (s == NULL
4377 || !bfd_set_section_alignment (s, bed->s->log_file_align))
4378 return FALSE;
4382 return TRUE;
4385 /* Compute the total GOT and PLT size required by each symbol in each
4386 range. Symbols may require up to 4 words in the GOT: an entry
4387 pointing to the symbol, an entry pointing to its function
4388 descriptor, and a private function descriptors taking two
4389 words. */
4391 static void
4392 _frvfdpic_count_nontls_entries (struct frvfdpic_relocs_info *entry,
4393 struct _frvfdpic_dynamic_got_info *dinfo)
4395 /* Allocate space for a GOT entry pointing to the symbol. */
4396 if (entry->got12)
4397 dinfo->got12 += 4;
4398 else if (entry->gotlos)
4399 dinfo->gotlos += 4;
4400 else if (entry->gothilo)
4401 dinfo->gothilo += 4;
4402 else
4403 entry->relocs32--;
4404 entry->relocs32++;
4406 /* Allocate space for a GOT entry pointing to the function
4407 descriptor. */
4408 if (entry->fdgot12)
4409 dinfo->got12 += 4;
4410 else if (entry->fdgotlos)
4411 dinfo->gotlos += 4;
4412 else if (entry->fdgothilo)
4413 dinfo->gothilo += 4;
4414 else
4415 entry->relocsfd--;
4416 entry->relocsfd++;
4418 /* Decide whether we need a PLT entry, a function descriptor in the
4419 GOT, and a lazy PLT entry for this symbol. */
4420 entry->plt = entry->call
4421 && entry->symndx == -1 && ! FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
4422 && elf_hash_table (dinfo->info)->dynamic_sections_created;
4423 entry->privfd = entry->plt
4424 || entry->fdgoff12 || entry->fdgofflos || entry->fdgoffhilo
4425 || ((entry->fd || entry->fdgot12 || entry->fdgotlos || entry->fdgothilo)
4426 && (entry->symndx != -1
4427 || FRVFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h)));
4428 entry->lazyplt = entry->privfd
4429 && entry->symndx == -1 && ! FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
4430 && ! (dinfo->info->flags & DF_BIND_NOW)
4431 && elf_hash_table (dinfo->info)->dynamic_sections_created;
4433 /* Allocate space for a function descriptor. */
4434 if (entry->fdgoff12)
4435 dinfo->fd12 += 8;
4436 else if (entry->fdgofflos)
4437 dinfo->fdlos += 8;
4438 else if (entry->privfd && entry->plt)
4439 dinfo->fdplt += 8;
4440 else if (entry->privfd)
4441 dinfo->fdhilo += 8;
4442 else
4443 entry->relocsfdv--;
4444 entry->relocsfdv++;
4446 if (entry->lazyplt)
4447 dinfo->lzplt += 8;
4450 /* Compute the total GOT size required by each TLS symbol in each
4451 range. Symbols may require up to 5 words in the GOT: an entry
4452 holding the TLS offset for the symbol, and an entry with a full TLS
4453 descriptor taking 4 words. */
4455 static void
4456 _frvfdpic_count_tls_entries (struct frvfdpic_relocs_info *entry,
4457 struct _frvfdpic_dynamic_got_info *dinfo,
4458 bfd_boolean subtract)
4460 const int l = subtract ? -1 : 1;
4462 /* Allocate space for a GOT entry with the TLS offset of the
4463 symbol. */
4464 if (entry->tlsoff12)
4465 dinfo->got12 += 4 * l;
4466 else if (entry->tlsofflos)
4467 dinfo->gotlos += 4 * l;
4468 else if (entry->tlsoffhilo)
4469 dinfo->gothilo += 4 * l;
4470 else
4471 entry->relocstlsoff -= l;
4472 entry->relocstlsoff += l;
4474 /* If there's any TLSOFF relocation, mark the output file as not
4475 suitable for dlopening. This mark will remain even if we relax
4476 all such relocations, but this is not a problem, since we'll only
4477 do so for executables, and we definitely don't want anyone
4478 dlopening executables. */
4479 if (entry->relocstlsoff)
4480 dinfo->info->flags |= DF_STATIC_TLS;
4482 /* Allocate space for a TLS descriptor. */
4483 if (entry->tlsdesc12)
4484 dinfo->tlsd12 += 8 * l;
4485 else if (entry->tlsdesclos)
4486 dinfo->tlsdlos += 8 * l;
4487 else if (entry->tlsplt)
4488 dinfo->tlsdplt += 8 * l;
4489 else if (entry->tlsdeschilo)
4490 dinfo->tlsdhilo += 8 * l;
4491 else
4492 entry->relocstlsd -= l;
4493 entry->relocstlsd += l;
4496 /* Compute the number of dynamic relocations and fixups that a symbol
4497 requires, and add (or subtract) from the grand and per-symbol
4498 totals. */
4500 static void
4501 _frvfdpic_count_relocs_fixups (struct frvfdpic_relocs_info *entry,
4502 struct _frvfdpic_dynamic_got_info *dinfo,
4503 bfd_boolean subtract)
4505 bfd_vma relocs = 0, fixups = 0, tlsrets = 0;
4507 if (!bfd_link_pde (dinfo->info))
4509 relocs = entry->relocs32 + entry->relocsfd + entry->relocsfdv
4510 + entry->relocstlsd;
4512 /* In the executable, TLS relocations to symbols that bind
4513 locally (including those that resolve to global TLS offsets)
4514 are resolved immediately, without any need for fixups or
4515 dynamic relocations. In shared libraries, however, we must
4516 emit dynamic relocations even for local symbols, because we
4517 don't know the module id the library is going to get at
4518 run-time, nor its TLS base offset. */
4519 if (!bfd_link_executable (dinfo->info)
4520 || (entry->symndx == -1
4521 && ! FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)))
4522 relocs += entry->relocstlsoff;
4524 else
4526 if (entry->symndx != -1 || FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h))
4528 if (entry->symndx != -1
4529 || entry->d.h->root.type != bfd_link_hash_undefweak)
4530 fixups += entry->relocs32 + 2 * entry->relocsfdv;
4531 fixups += entry->relocstlsd;
4532 tlsrets += entry->relocstlsd;
4534 else
4536 relocs += entry->relocs32 + entry->relocsfdv
4537 + entry->relocstlsoff + entry->relocstlsd;
4540 if (entry->symndx != -1
4541 || FRVFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h))
4543 if (entry->symndx != -1
4544 || entry->d.h->root.type != bfd_link_hash_undefweak)
4545 fixups += entry->relocsfd;
4547 else
4548 relocs += entry->relocsfd;
4551 if (subtract)
4553 relocs = - relocs;
4554 fixups = - fixups;
4555 tlsrets = - tlsrets;
4558 entry->dynrelocs += relocs;
4559 entry->fixups += fixups;
4560 dinfo->relocs += relocs;
4561 dinfo->fixups += fixups;
4562 dinfo->tls_ret_refs += tlsrets;
4565 /* Look for opportunities to relax TLS relocations. We can assume
4566 we're linking the main executable or a static-tls library, since
4567 otherwise we wouldn't have got here. When relaxing, we have to
4568 first undo any previous accounting of TLS uses of fixups, dynamic
4569 relocations, GOT and PLT entries. */
4571 static void
4572 _frvfdpic_relax_tls_entries (struct frvfdpic_relocs_info *entry,
4573 struct _frvfdpic_dynamic_got_info *dinfo,
4574 bfd_boolean relaxing)
4576 bfd_boolean changed = ! relaxing;
4578 BFD_ASSERT (bfd_link_executable (dinfo->info)
4579 || (dinfo->info->flags & DF_STATIC_TLS));
4581 if (entry->tlsdesc12 || entry->tlsdesclos || entry->tlsdeschilo)
4583 if (! changed)
4585 _frvfdpic_count_relocs_fixups (entry, dinfo, TRUE);
4586 _frvfdpic_count_tls_entries (entry, dinfo, TRUE);
4587 changed = TRUE;
4590 /* When linking an executable, we can always decay GOTTLSDESC to
4591 TLSMOFF, if the symbol is local, or GOTTLSOFF, otherwise.
4592 When linking a static-tls shared library, using TLSMOFF is
4593 not an option, but we can still use GOTTLSOFF. When decaying
4594 to GOTTLSOFF, we must keep the GOT entry in range. We know
4595 it has to fit because we'll be trading the 4 words of hte TLS
4596 descriptor for a single word in the same range. */
4597 if (! bfd_link_executable (dinfo->info)
4598 || (entry->symndx == -1
4599 && ! FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)))
4601 entry->tlsoff12 |= entry->tlsdesc12;
4602 entry->tlsofflos |= entry->tlsdesclos;
4603 entry->tlsoffhilo |= entry->tlsdeschilo;
4606 entry->tlsdesc12 = entry->tlsdesclos = entry->tlsdeschilo = 0;
4609 /* We can only decay TLSOFFs or call #gettlsoff to TLSMOFF in the
4610 main executable. We have to check whether the symbol's TLSOFF is
4611 in range for a setlos. For symbols with a hash entry, we can
4612 determine exactly what to do; for others locals, we don't have
4613 addresses handy, so we use the size of the TLS section as an
4614 approximation. If we get it wrong, we'll retain a GOT entry
4615 holding the TLS offset (without dynamic relocations or fixups),
4616 but we'll still optimize away the loads from it. Since TLS sizes
4617 are generally very small, it's probably not worth attempting to
4618 do better than this. */
4619 if ((entry->tlsplt
4620 || entry->tlsoff12 || entry->tlsofflos || entry->tlsoffhilo)
4621 && bfd_link_executable (dinfo->info) && relaxing
4622 && ((entry->symndx == -1
4623 && FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
4624 /* The above may hold for an undefweak TLS symbol, so make
4625 sure we don't have this case before accessing def.value
4626 and def.section. */
4627 && (entry->d.h->root.type == bfd_link_hash_undefweak
4628 || (bfd_vma)(entry->d.h->root.u.def.value
4629 + (entry->d.h->root.u.def.section
4630 ->output_section->vma)
4631 + entry->d.h->root.u.def.section->output_offset
4632 + entry->addend
4633 - tls_biased_base (dinfo->info)
4634 + 32768) < (bfd_vma)65536))
4635 || (entry->symndx != -1
4636 && (elf_hash_table (dinfo->info)->tls_sec->size
4637 + entry->addend < 32768 + FRVFDPIC_TLS_BIAS))))
4639 if (! changed)
4641 _frvfdpic_count_relocs_fixups (entry, dinfo, TRUE);
4642 _frvfdpic_count_tls_entries (entry, dinfo, TRUE);
4643 changed = TRUE;
4646 entry->tlsplt =
4647 entry->tlsoff12 = entry->tlsofflos = entry->tlsoffhilo = 0;
4650 /* We can decay `call #gettlsoff' to a ldi #tlsoff if we already
4651 have a #gottlsoff12 relocation for this entry, or if we can fit
4652 one more in the 12-bit (and 16-bit) ranges. */
4653 if (entry->tlsplt
4654 && (entry->tlsoff12
4655 || (relaxing
4656 && dinfo->got12 + dinfo->fd12 + dinfo->tlsd12 <= 4096 - 12 - 4
4657 && (dinfo->got12 + dinfo->fd12 + dinfo->tlsd12
4658 + dinfo->gotlos + dinfo->fdlos + dinfo->tlsdlos
4659 <= 65536 - 12 - 4))))
4661 if (! changed)
4663 _frvfdpic_count_relocs_fixups (entry, dinfo, TRUE);
4664 _frvfdpic_count_tls_entries (entry, dinfo, TRUE);
4665 changed = TRUE;
4668 entry->tlsoff12 = 1;
4669 entry->tlsplt = 0;
4672 if (changed)
4674 _frvfdpic_count_tls_entries (entry, dinfo, FALSE);
4675 _frvfdpic_count_relocs_fixups (entry, dinfo, FALSE);
4678 return;
4681 /* Compute the total GOT and PLT size required by each symbol in each range. *
4682 Symbols may require up to 4 words in the GOT: an entry pointing to
4683 the symbol, an entry pointing to its function descriptor, and a
4684 private function descriptors taking two words. */
4686 static int
4687 _frvfdpic_count_got_plt_entries (void **entryp, void *dinfo_)
4689 struct frvfdpic_relocs_info *entry = *entryp;
4690 struct _frvfdpic_dynamic_got_info *dinfo = dinfo_;
4692 _frvfdpic_count_nontls_entries (entry, dinfo);
4694 if (bfd_link_executable (dinfo->info)
4695 || (dinfo->info->flags & DF_STATIC_TLS))
4696 _frvfdpic_relax_tls_entries (entry, dinfo, FALSE);
4697 else
4699 _frvfdpic_count_tls_entries (entry, dinfo, FALSE);
4700 _frvfdpic_count_relocs_fixups (entry, dinfo, FALSE);
4703 return 1;
4706 /* Determine the positive and negative ranges to be used by each
4707 offset range in the GOT. FDCUR and CUR, that must be aligned to a
4708 double-word boundary, are the minimum (negative) and maximum
4709 (positive) GOT offsets already used by previous ranges, except for
4710 an ODD entry that may have been left behind. GOT and FD indicate
4711 the size of GOT entries and function descriptors that must be
4712 placed within the range from -WRAP to WRAP. If there's room left,
4713 up to FDPLT bytes should be reserved for additional function
4714 descriptors. */
4716 inline static bfd_signed_vma
4717 _frvfdpic_compute_got_alloc_data (struct _frvfdpic_dynamic_got_alloc_data *gad,
4718 bfd_signed_vma fdcur,
4719 bfd_signed_vma odd,
4720 bfd_signed_vma cur,
4721 bfd_vma got,
4722 bfd_vma fd,
4723 bfd_vma fdplt,
4724 bfd_vma tlsd,
4725 bfd_vma tlsdplt,
4726 bfd_vma wrap)
4728 bfd_signed_vma wrapmin = -wrap;
4729 const bfd_vma tdescsz = 8;
4731 /* Start at the given initial points. */
4732 gad->fdcur = fdcur;
4733 gad->cur = cur;
4735 /* If we had an incoming odd word and we have any got entries that
4736 are going to use it, consume it, otherwise leave gad->odd at
4737 zero. We might force gad->odd to zero and return the incoming
4738 odd such that it is used by the next range, but then GOT entries
4739 might appear to be out of order and we wouldn't be able to
4740 shorten the GOT by one word if it turns out to end with an
4741 unpaired GOT entry. */
4742 if (odd && got)
4744 gad->odd = odd;
4745 got -= 4;
4746 odd = 0;
4748 else
4749 gad->odd = 0;
4751 /* If we're left with an unpaired GOT entry, compute its location
4752 such that we can return it. Otherwise, if got doesn't require an
4753 odd number of words here, either odd was already zero in the
4754 block above, or it was set to zero because got was non-zero, or
4755 got was already zero. In the latter case, we want the value of
4756 odd to carry over to the return statement, so we don't want to
4757 reset odd unless the condition below is true. */
4758 if (got & 4)
4760 odd = cur + got;
4761 got += 4;
4764 /* Compute the tentative boundaries of this range. */
4765 gad->max = cur + got;
4766 gad->min = fdcur - fd;
4767 gad->fdplt = 0;
4769 /* If function descriptors took too much space, wrap some of them
4770 around. */
4771 if (gad->min < wrapmin)
4773 gad->max += wrapmin - gad->min;
4774 gad->tmin = gad->min = wrapmin;
4777 /* If GOT entries took too much space, wrap some of them around.
4778 This may well cause gad->min to become lower than wrapmin. This
4779 will cause a relocation overflow later on, so we don't have to
4780 report it here . */
4781 if ((bfd_vma) gad->max > wrap)
4783 gad->min -= gad->max - wrap;
4784 gad->max = wrap;
4787 /* Add TLS descriptors. */
4788 gad->tmax = gad->max + tlsd;
4789 gad->tmin = gad->min;
4790 gad->tlsdplt = 0;
4792 /* If TLS descriptors took too much space, wrap an integral number
4793 of them around. */
4794 if ((bfd_vma) gad->tmax > wrap)
4796 bfd_vma wrapsize = gad->tmax - wrap;
4798 wrapsize += tdescsz / 2;
4799 wrapsize &= ~ tdescsz / 2;
4801 gad->tmin -= wrapsize;
4802 gad->tmax -= wrapsize;
4805 /* If there is space left and we have function descriptors
4806 referenced in PLT entries that could take advantage of shorter
4807 offsets, place them now. */
4808 if (fdplt && gad->tmin > wrapmin)
4810 bfd_vma fds;
4812 if ((bfd_vma) (gad->tmin - wrapmin) < fdplt)
4813 fds = gad->tmin - wrapmin;
4814 else
4815 fds = fdplt;
4817 fdplt -= fds;
4818 gad->min -= fds;
4819 gad->tmin -= fds;
4820 gad->fdplt += fds;
4823 /* If there is more space left, try to place some more function
4824 descriptors for PLT entries. */
4825 if (fdplt && (bfd_vma) gad->tmax < wrap)
4827 bfd_vma fds;
4829 if ((bfd_vma) (wrap - gad->tmax) < fdplt)
4830 fds = wrap - gad->tmax;
4831 else
4832 fds = fdplt;
4834 fdplt -= fds;
4835 gad->max += fds;
4836 gad->tmax += fds;
4837 gad->fdplt += fds;
4840 /* If there is space left and we have TLS descriptors referenced in
4841 PLT entries that could take advantage of shorter offsets, place
4842 them now. */
4843 if (tlsdplt && gad->tmin > wrapmin)
4845 bfd_vma tlsds;
4847 if ((bfd_vma) (gad->tmin - wrapmin) < tlsdplt)
4848 tlsds = (gad->tmin - wrapmin) & ~ (tdescsz / 2);
4849 else
4850 tlsds = tlsdplt;
4852 tlsdplt -= tlsds;
4853 gad->tmin -= tlsds;
4854 gad->tlsdplt += tlsds;
4857 /* If there is more space left, try to place some more TLS
4858 descriptors for PLT entries. Although we could try to fit an
4859 additional TLS descriptor with half of it just before before the
4860 wrap point and another right past the wrap point, this might
4861 cause us to run out of space for the next region, so don't do
4862 it. */
4863 if (tlsdplt && (bfd_vma) gad->tmax < wrap - tdescsz / 2)
4865 bfd_vma tlsds;
4867 if ((bfd_vma) (wrap - gad->tmax) < tlsdplt)
4868 tlsds = (wrap - gad->tmax) & ~ (tdescsz / 2);
4869 else
4870 tlsds = tlsdplt;
4872 tlsdplt -= tlsds;
4873 gad->tmax += tlsds;
4874 gad->tlsdplt += tlsds;
4877 /* If odd was initially computed as an offset past the wrap point,
4878 wrap it around. */
4879 if (odd > gad->max)
4880 odd = gad->min + odd - gad->max;
4882 /* _frvfdpic_get_got_entry() below will always wrap gad->cur if needed
4883 before returning, so do it here too. This guarantees that,
4884 should cur and fdcur meet at the wrap point, they'll both be
4885 equal to min. */
4886 if (gad->cur == gad->max)
4887 gad->cur = gad->min;
4889 /* Ditto for _frvfdpic_get_tlsdesc_entry(). */
4890 gad->tcur = gad->max;
4891 if (gad->tcur == gad->tmax)
4892 gad->tcur = gad->tmin;
4894 return odd;
4897 /* Compute the location of the next GOT entry, given the allocation
4898 data for a range. */
4900 inline static bfd_signed_vma
4901 _frvfdpic_get_got_entry (struct _frvfdpic_dynamic_got_alloc_data *gad)
4903 bfd_signed_vma ret;
4905 if (gad->odd)
4907 /* If there was an odd word left behind, use it. */
4908 ret = gad->odd;
4909 gad->odd = 0;
4911 else
4913 /* Otherwise, use the word pointed to by cur, reserve the next
4914 as an odd word, and skip to the next pair of words, possibly
4915 wrapping around. */
4916 ret = gad->cur;
4917 gad->odd = gad->cur + 4;
4918 gad->cur += 8;
4919 if (gad->cur == gad->max)
4920 gad->cur = gad->min;
4923 return ret;
4926 /* Compute the location of the next function descriptor entry in the
4927 GOT, given the allocation data for a range. */
4929 inline static bfd_signed_vma
4930 _frvfdpic_get_fd_entry (struct _frvfdpic_dynamic_got_alloc_data *gad)
4932 /* If we're at the bottom, wrap around, and only then allocate the
4933 next pair of words. */
4934 if (gad->fdcur == gad->min)
4935 gad->fdcur = gad->max;
4936 return gad->fdcur -= 8;
4939 /* Compute the location of the next TLS descriptor entry in the GOT,
4940 given the allocation data for a range. */
4941 inline static bfd_signed_vma
4942 _frvfdpic_get_tlsdesc_entry (struct _frvfdpic_dynamic_got_alloc_data *gad)
4944 bfd_signed_vma ret;
4946 ret = gad->tcur;
4948 gad->tcur += 8;
4950 /* If we're at the top of the region, wrap around to the bottom. */
4951 if (gad->tcur == gad->tmax)
4952 gad->tcur = gad->tmin;
4954 return ret;
4957 /* Assign GOT offsets for every GOT entry and function descriptor.
4958 Doing everything in a single pass is tricky. */
4960 static int
4961 _frvfdpic_assign_got_entries (void **entryp, void *info_)
4963 struct frvfdpic_relocs_info *entry = *entryp;
4964 struct _frvfdpic_dynamic_got_plt_info *dinfo = info_;
4966 if (entry->got12)
4967 entry->got_entry = _frvfdpic_get_got_entry (&dinfo->got12);
4968 else if (entry->gotlos)
4969 entry->got_entry = _frvfdpic_get_got_entry (&dinfo->gotlos);
4970 else if (entry->gothilo)
4971 entry->got_entry = _frvfdpic_get_got_entry (&dinfo->gothilo);
4973 if (entry->fdgot12)
4974 entry->fdgot_entry = _frvfdpic_get_got_entry (&dinfo->got12);
4975 else if (entry->fdgotlos)
4976 entry->fdgot_entry = _frvfdpic_get_got_entry (&dinfo->gotlos);
4977 else if (entry->fdgothilo)
4978 entry->fdgot_entry = _frvfdpic_get_got_entry (&dinfo->gothilo);
4980 if (entry->fdgoff12)
4981 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->got12);
4982 else if (entry->plt && dinfo->got12.fdplt)
4984 dinfo->got12.fdplt -= 8;
4985 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->got12);
4987 else if (entry->fdgofflos)
4988 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gotlos);
4989 else if (entry->plt && dinfo->gotlos.fdplt)
4991 dinfo->gotlos.fdplt -= 8;
4992 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gotlos);
4994 else if (entry->plt)
4996 dinfo->gothilo.fdplt -= 8;
4997 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gothilo);
4999 else if (entry->privfd)
5000 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gothilo);
5002 if (entry->tlsoff12)
5003 entry->tlsoff_entry = _frvfdpic_get_got_entry (&dinfo->got12);
5004 else if (entry->tlsofflos)
5005 entry->tlsoff_entry = _frvfdpic_get_got_entry (&dinfo->gotlos);
5006 else if (entry->tlsoffhilo)
5007 entry->tlsoff_entry = _frvfdpic_get_got_entry (&dinfo->gothilo);
5009 if (entry->tlsdesc12)
5010 entry->tlsdesc_entry = _frvfdpic_get_tlsdesc_entry (&dinfo->got12);
5011 else if (entry->tlsplt && dinfo->got12.tlsdplt)
5013 dinfo->got12.tlsdplt -= 8;
5014 entry->tlsdesc_entry = _frvfdpic_get_tlsdesc_entry (&dinfo->got12);
5016 else if (entry->tlsdesclos)
5017 entry->tlsdesc_entry = _frvfdpic_get_tlsdesc_entry (&dinfo->gotlos);
5018 else if (entry->tlsplt && dinfo->gotlos.tlsdplt)
5020 dinfo->gotlos.tlsdplt -= 8;
5021 entry->tlsdesc_entry = _frvfdpic_get_tlsdesc_entry (&dinfo->gotlos);
5023 else if (entry->tlsplt)
5025 dinfo->gothilo.tlsdplt -= 8;
5026 entry->tlsdesc_entry = _frvfdpic_get_tlsdesc_entry (&dinfo->gothilo);
5028 else if (entry->tlsdeschilo)
5029 entry->tlsdesc_entry = _frvfdpic_get_tlsdesc_entry (&dinfo->gothilo);
5031 return 1;
5034 /* Assign GOT offsets to private function descriptors used by PLT
5035 entries (or referenced by 32-bit offsets), as well as PLT entries
5036 and lazy PLT entries. */
5038 static int
5039 _frvfdpic_assign_plt_entries (void **entryp, void *info_)
5041 struct frvfdpic_relocs_info *entry = *entryp;
5042 struct _frvfdpic_dynamic_got_plt_info *dinfo = info_;
5044 if (entry->privfd)
5045 BFD_ASSERT (entry->fd_entry);
5047 if (entry->plt)
5049 int size;
5051 /* We use the section's raw size to mark the location of the
5052 next PLT entry. */
5053 entry->plt_entry = frvfdpic_plt_section (dinfo->g.info)->size;
5055 /* Figure out the length of this PLT entry based on the
5056 addressing mode we need to reach the function descriptor. */
5057 BFD_ASSERT (entry->fd_entry);
5058 if (entry->fd_entry >= -(1 << (12 - 1))
5059 && entry->fd_entry < (1 << (12 - 1)))
5060 size = 8;
5061 else if (entry->fd_entry >= -(1 << (16 - 1))
5062 && entry->fd_entry < (1 << (16 - 1)))
5063 size = 12;
5064 else
5065 size = 16;
5067 frvfdpic_plt_section (dinfo->g.info)->size += size;
5070 if (entry->lazyplt)
5072 entry->lzplt_entry = dinfo->g.lzplt;
5073 dinfo->g.lzplt += 8;
5074 /* If this entry is the one that gets the resolver stub, account
5075 for the additional instruction. */
5076 if (entry->lzplt_entry % FRVFDPIC_LZPLT_BLOCK_SIZE
5077 == FRVFDPIC_LZPLT_RESOLV_LOC)
5078 dinfo->g.lzplt += 4;
5081 if (entry->tlsplt)
5083 int size;
5085 entry->tlsplt_entry
5086 = frvfdpic_plt_section (dinfo->g.info)->size;
5088 if (bfd_link_executable (dinfo->g.info)
5089 && (entry->symndx != -1
5090 || FRVFDPIC_SYM_LOCAL (dinfo->g.info, entry->d.h)))
5092 if ((bfd_signed_vma)entry->addend >= -(1 << (16 - 1))
5093 /* FIXME: here we use the size of the TLS section
5094 as an upper bound for the value of the TLS
5095 symbol, because we may not know the exact value
5096 yet. If we get it wrong, we'll just waste a
5097 word in the PLT, and we should never get even
5098 close to 32 KiB of TLS anyway. */
5099 && elf_hash_table (dinfo->g.info)->tls_sec
5100 && (elf_hash_table (dinfo->g.info)->tls_sec->size
5101 + (bfd_signed_vma)(entry->addend) <= (1 << (16 - 1))))
5102 size = 8;
5103 else
5104 size = 12;
5106 else if (entry->tlsoff_entry)
5108 if (entry->tlsoff_entry >= -(1 << (12 - 1))
5109 && entry->tlsoff_entry < (1 << (12 - 1)))
5110 size = 8;
5111 else if (entry->tlsoff_entry >= -(1 << (16 - 1))
5112 && entry->tlsoff_entry < (1 << (16 - 1)))
5113 size = 12;
5114 else
5115 size = 16;
5117 else
5119 BFD_ASSERT (entry->tlsdesc_entry);
5121 if (entry->tlsdesc_entry >= -(1 << (12 - 1))
5122 && entry->tlsdesc_entry < (1 << (12 - 1)))
5123 size = 8;
5124 else if (entry->tlsdesc_entry >= -(1 << (16 - 1))
5125 && entry->tlsdesc_entry < (1 << (16 - 1)))
5126 size = 12;
5127 else
5128 size = 16;
5131 frvfdpic_plt_section (dinfo->g.info)->size += size;
5134 return 1;
5137 /* Cancel out any effects of calling _frvfdpic_assign_got_entries and
5138 _frvfdpic_assign_plt_entries. */
5140 static int
5141 _frvfdpic_reset_got_plt_entries (void **entryp, void *ignore ATTRIBUTE_UNUSED)
5143 struct frvfdpic_relocs_info *entry = *entryp;
5145 entry->got_entry = 0;
5146 entry->fdgot_entry = 0;
5147 entry->fd_entry = 0;
5148 entry->plt_entry = (bfd_vma)-1;
5149 entry->lzplt_entry = (bfd_vma)-1;
5150 entry->tlsoff_entry = 0;
5151 entry->tlsdesc_entry = 0;
5152 entry->tlsplt_entry = (bfd_vma)-1;
5154 return 1;
5157 /* Follow indirect and warning hash entries so that each got entry
5158 points to the final symbol definition. P must point to a pointer
5159 to the hash table we're traversing. Since this traversal may
5160 modify the hash table, we set this pointer to NULL to indicate
5161 we've made a potentially-destructive change to the hash table, so
5162 the traversal must be restarted. */
5163 static int
5164 _frvfdpic_resolve_final_relocs_info (void **entryp, void *p)
5166 struct frvfdpic_relocs_info *entry = *entryp;
5167 htab_t *htab = p;
5169 if (entry->symndx == -1)
5171 struct elf_link_hash_entry *h = entry->d.h;
5172 struct frvfdpic_relocs_info *oentry;
5174 while (h->root.type == bfd_link_hash_indirect
5175 || h->root.type == bfd_link_hash_warning)
5176 h = (struct elf_link_hash_entry *)h->root.u.i.link;
5178 if (entry->d.h == h)
5179 return 1;
5181 oentry = frvfdpic_relocs_info_for_global (*htab, 0, h, entry->addend,
5182 NO_INSERT);
5184 if (oentry)
5186 /* Merge the two entries. */
5187 frvfdpic_pic_merge_early_relocs_info (oentry, entry);
5188 htab_clear_slot (*htab, entryp);
5189 return 1;
5192 entry->d.h = h;
5194 /* If we can't find this entry with the new bfd hash, re-insert
5195 it, and get the traversal restarted. */
5196 if (! htab_find (*htab, entry))
5198 htab_clear_slot (*htab, entryp);
5199 entryp = htab_find_slot (*htab, entry, INSERT);
5200 if (! *entryp)
5201 *entryp = entry;
5202 /* Abort the traversal, since the whole table may have
5203 moved, and leave it up to the parent to restart the
5204 process. */
5205 *(htab_t *)p = NULL;
5206 return 0;
5210 return 1;
5213 /* Compute the total size of the GOT, the PLT, the dynamic relocations
5214 section and the rofixup section. Assign locations for GOT and PLT
5215 entries. */
5217 static bfd_boolean
5218 _frvfdpic_size_got_plt (bfd *output_bfd,
5219 struct _frvfdpic_dynamic_got_plt_info *gpinfop)
5221 bfd_signed_vma odd;
5222 bfd_vma limit, tlslimit;
5223 struct bfd_link_info *info = gpinfop->g.info;
5224 bfd *dynobj = elf_hash_table (info)->dynobj;
5226 memcpy (frvfdpic_dynamic_got_plt_info (info), &gpinfop->g,
5227 sizeof (gpinfop->g));
5229 odd = 12;
5230 /* Compute the total size taken by entries in the 12-bit and 16-bit
5231 ranges, to tell how many PLT function descriptors we can bring
5232 into the 12-bit range without causing the 16-bit range to
5233 overflow. */
5234 limit = odd + gpinfop->g.got12 + gpinfop->g.gotlos
5235 + gpinfop->g.fd12 + gpinfop->g.fdlos
5236 + gpinfop->g.tlsd12 + gpinfop->g.tlsdlos;
5237 if (limit < (bfd_vma)1 << 16)
5238 limit = ((bfd_vma)1 << 16) - limit;
5239 else
5240 limit = 0;
5241 if (gpinfop->g.fdplt < limit)
5243 tlslimit = (limit - gpinfop->g.fdplt) & ~ (bfd_vma) 8;
5244 limit = gpinfop->g.fdplt;
5246 else
5247 tlslimit = 0;
5248 if (gpinfop->g.tlsdplt < tlslimit)
5249 tlslimit = gpinfop->g.tlsdplt;
5251 /* Determine the ranges of GOT offsets that we can use for each
5252 range of addressing modes. */
5253 odd = _frvfdpic_compute_got_alloc_data (&gpinfop->got12,
5255 odd,
5257 gpinfop->g.got12,
5258 gpinfop->g.fd12,
5259 limit,
5260 gpinfop->g.tlsd12,
5261 tlslimit,
5262 (bfd_vma)1 << (12-1));
5263 odd = _frvfdpic_compute_got_alloc_data (&gpinfop->gotlos,
5264 gpinfop->got12.tmin,
5265 odd,
5266 gpinfop->got12.tmax,
5267 gpinfop->g.gotlos,
5268 gpinfop->g.fdlos,
5269 gpinfop->g.fdplt
5270 - gpinfop->got12.fdplt,
5271 gpinfop->g.tlsdlos,
5272 gpinfop->g.tlsdplt
5273 - gpinfop->got12.tlsdplt,
5274 (bfd_vma)1 << (16-1));
5275 odd = _frvfdpic_compute_got_alloc_data (&gpinfop->gothilo,
5276 gpinfop->gotlos.tmin,
5277 odd,
5278 gpinfop->gotlos.tmax,
5279 gpinfop->g.gothilo,
5280 gpinfop->g.fdhilo,
5281 gpinfop->g.fdplt
5282 - gpinfop->got12.fdplt
5283 - gpinfop->gotlos.fdplt,
5284 gpinfop->g.tlsdhilo,
5285 gpinfop->g.tlsdplt
5286 - gpinfop->got12.tlsdplt
5287 - gpinfop->gotlos.tlsdplt,
5288 (bfd_vma)1 << (32-1));
5290 /* Now assign (most) GOT offsets. */
5291 htab_traverse (frvfdpic_relocs_info (info), _frvfdpic_assign_got_entries,
5292 gpinfop);
5294 frvfdpic_got_section (info)->size = gpinfop->gothilo.tmax
5295 - gpinfop->gothilo.tmin
5296 /* If an odd word is the last word of the GOT, we don't need this
5297 word to be part of the GOT. */
5298 - (odd + 4 == gpinfop->gothilo.tmax ? 4 : 0);
5299 if (frvfdpic_got_section (info)->size == 0)
5300 frvfdpic_got_section (info)->flags |= SEC_EXCLUDE;
5301 else if (frvfdpic_got_section (info)->size == 12
5302 && ! elf_hash_table (info)->dynamic_sections_created)
5304 frvfdpic_got_section (info)->flags |= SEC_EXCLUDE;
5305 frvfdpic_got_section (info)->size = 0;
5307 /* This will be non-NULL during relaxation. The assumption is that
5308 the size of one of these sections will never grow, only shrink,
5309 so we can use the larger buffer we allocated before. */
5310 else if (frvfdpic_got_section (info)->contents == NULL)
5312 frvfdpic_got_section (info)->contents =
5313 (bfd_byte *) bfd_zalloc (dynobj,
5314 frvfdpic_got_section (info)->size);
5315 if (frvfdpic_got_section (info)->contents == NULL)
5316 return FALSE;
5319 if (frvfdpic_gotrel_section (info))
5320 /* Subtract the number of lzplt entries, since those will generate
5321 relocations in the pltrel section. */
5322 frvfdpic_gotrel_section (info)->size =
5323 (gpinfop->g.relocs - gpinfop->g.lzplt / 8)
5324 * get_elf_backend_data (output_bfd)->s->sizeof_rel;
5325 else
5326 BFD_ASSERT (gpinfop->g.relocs == 0);
5327 if (frvfdpic_gotrel_section (info)->size == 0)
5328 frvfdpic_gotrel_section (info)->flags |= SEC_EXCLUDE;
5329 else if (frvfdpic_gotrel_section (info)->contents == NULL)
5331 frvfdpic_gotrel_section (info)->contents =
5332 (bfd_byte *) bfd_zalloc (dynobj,
5333 frvfdpic_gotrel_section (info)->size);
5334 if (frvfdpic_gotrel_section (info)->contents == NULL)
5335 return FALSE;
5338 frvfdpic_gotfixup_section (info)->size = (gpinfop->g.fixups + 1) * 4;
5339 if (frvfdpic_gotfixup_section (info)->size == 0)
5340 frvfdpic_gotfixup_section (info)->flags |= SEC_EXCLUDE;
5341 else if (frvfdpic_gotfixup_section (info)->contents == NULL)
5343 frvfdpic_gotfixup_section (info)->contents =
5344 (bfd_byte *) bfd_zalloc (dynobj,
5345 frvfdpic_gotfixup_section (info)->size);
5346 if (frvfdpic_gotfixup_section (info)->contents == NULL)
5347 return FALSE;
5350 if (frvfdpic_pltrel_section (info))
5352 frvfdpic_pltrel_section (info)->size =
5353 gpinfop->g.lzplt / 8
5354 * get_elf_backend_data (output_bfd)->s->sizeof_rel;
5355 if (frvfdpic_pltrel_section (info)->size == 0)
5356 frvfdpic_pltrel_section (info)->flags |= SEC_EXCLUDE;
5357 else if (frvfdpic_pltrel_section (info)->contents == NULL)
5359 frvfdpic_pltrel_section (info)->contents =
5360 (bfd_byte *) bfd_zalloc (dynobj,
5361 frvfdpic_pltrel_section (info)->size);
5362 if (frvfdpic_pltrel_section (info)->contents == NULL)
5363 return FALSE;
5367 /* Add 4 bytes for every block of at most 65535 lazy PLT entries,
5368 such that there's room for the additional instruction needed to
5369 call the resolver. Since _frvfdpic_assign_got_entries didn't
5370 account for them, our block size is 4 bytes smaller than the real
5371 block size. */
5372 if (frvfdpic_plt_section (info))
5374 frvfdpic_plt_section (info)->size = gpinfop->g.lzplt
5375 + ((gpinfop->g.lzplt + (FRVFDPIC_LZPLT_BLOCK_SIZE - 4) - 8)
5376 / (FRVFDPIC_LZPLT_BLOCK_SIZE - 4) * 4);
5379 /* Reset it, such that _frvfdpic_assign_plt_entries() can use it to
5380 actually assign lazy PLT entries addresses. */
5381 gpinfop->g.lzplt = 0;
5383 /* Save information that we're going to need to generate GOT and PLT
5384 entries. */
5385 frvfdpic_got_initial_offset (info) = -gpinfop->gothilo.tmin;
5387 if (get_elf_backend_data (output_bfd)->want_got_sym)
5388 elf_hash_table (info)->hgot->root.u.def.value
5389 = frvfdpic_got_initial_offset (info);
5391 if (frvfdpic_plt_section (info))
5392 frvfdpic_plt_initial_offset (info) =
5393 frvfdpic_plt_section (info)->size;
5395 /* Allocate a ret statement at plt_initial_offset, to be used by
5396 locally-resolved TLS descriptors. */
5397 if (gpinfop->g.tls_ret_refs)
5398 frvfdpic_plt_section (info)->size += 4;
5400 htab_traverse (frvfdpic_relocs_info (info), _frvfdpic_assign_plt_entries,
5401 gpinfop);
5403 /* Allocate the PLT section contents only after
5404 _frvfdpic_assign_plt_entries has a chance to add the size of the
5405 non-lazy PLT entries. */
5406 if (frvfdpic_plt_section (info))
5408 if (frvfdpic_plt_section (info)->size == 0)
5409 frvfdpic_plt_section (info)->flags |= SEC_EXCLUDE;
5410 else if (frvfdpic_plt_section (info)->contents == NULL)
5412 frvfdpic_plt_section (info)->contents =
5413 (bfd_byte *) bfd_zalloc (dynobj,
5414 frvfdpic_plt_section (info)->size);
5415 if (frvfdpic_plt_section (info)->contents == NULL)
5416 return FALSE;
5420 return TRUE;
5423 /* Set the sizes of the dynamic sections. */
5425 static bfd_boolean
5426 elf32_frvfdpic_size_dynamic_sections (bfd *output_bfd,
5427 struct bfd_link_info *info)
5429 bfd *dynobj;
5430 asection *s;
5431 struct _frvfdpic_dynamic_got_plt_info gpinfo;
5433 dynobj = elf_hash_table (info)->dynobj;
5434 BFD_ASSERT (dynobj != NULL);
5436 if (elf_hash_table (info)->dynamic_sections_created)
5438 /* Set the contents of the .interp section to the interpreter. */
5439 if (bfd_link_executable (info) && !info->nointerp)
5441 s = bfd_get_linker_section (dynobj, ".interp");
5442 BFD_ASSERT (s != NULL);
5443 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
5444 s->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
5448 memset (&gpinfo, 0, sizeof (gpinfo));
5449 gpinfo.g.info = info;
5451 for (;;)
5453 htab_t relocs = frvfdpic_relocs_info (info);
5455 htab_traverse (relocs, _frvfdpic_resolve_final_relocs_info, &relocs);
5457 if (relocs == frvfdpic_relocs_info (info))
5458 break;
5461 htab_traverse (frvfdpic_relocs_info (info), _frvfdpic_count_got_plt_entries,
5462 &gpinfo.g);
5464 /* Allocate space to save the summary information, we're going to
5465 use it if we're doing relaxations. */
5466 frvfdpic_dynamic_got_plt_info (info) = bfd_alloc (dynobj, sizeof (gpinfo.g));
5468 if (!_frvfdpic_size_got_plt (output_bfd, &gpinfo))
5469 return FALSE;
5471 return _bfd_elf_add_dynamic_tags (output_bfd, info, TRUE);
5474 static bfd_boolean
5475 elf32_frvfdpic_always_size_sections (bfd *output_bfd,
5476 struct bfd_link_info *info)
5478 if (!bfd_link_relocatable (info)
5479 && !bfd_elf_stack_segment_size (output_bfd, info,
5480 "__stacksize", DEFAULT_STACK_SIZE))
5481 return FALSE;
5483 return TRUE;
5486 /* Check whether any of the relocations was optimized away, and
5487 subtract it from the relocation or fixup count. */
5488 static bfd_boolean
5489 _frvfdpic_check_discarded_relocs (bfd *abfd, asection *sec,
5490 struct bfd_link_info *info,
5492 bfd_boolean *changed)
5494 Elf_Internal_Shdr *symtab_hdr;
5495 struct elf_link_hash_entry **sym_hashes;
5496 Elf_Internal_Rela *rel, *erel;
5498 if ((sec->flags & SEC_RELOC) == 0
5499 || sec->reloc_count == 0)
5500 return TRUE;
5502 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
5503 sym_hashes = elf_sym_hashes (abfd);
5505 rel = elf_section_data (sec)->relocs;
5507 /* Now examine each relocation. */
5508 for (erel = rel + sec->reloc_count; rel < erel; rel++)
5510 struct elf_link_hash_entry *h;
5511 unsigned long r_symndx;
5512 struct frvfdpic_relocs_info *picrel;
5513 struct _frvfdpic_dynamic_got_info *dinfo;
5515 if (ELF32_R_TYPE (rel->r_info) != R_FRV_32
5516 && ELF32_R_TYPE (rel->r_info) != R_FRV_FUNCDESC)
5517 continue;
5519 if (_bfd_elf_section_offset (sec->output_section->owner,
5520 info, sec, rel->r_offset)
5521 != (bfd_vma)-1)
5522 continue;
5524 r_symndx = ELF32_R_SYM (rel->r_info);
5525 if (r_symndx < symtab_hdr->sh_info)
5526 h = NULL;
5527 else
5529 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
5530 while (h->root.type == bfd_link_hash_indirect
5531 || h->root.type == bfd_link_hash_warning)
5532 h = (struct elf_link_hash_entry *)h->root.u.i.link;
5535 if (h != NULL)
5536 picrel = frvfdpic_relocs_info_for_global (frvfdpic_relocs_info (info),
5537 abfd, h,
5538 rel->r_addend, NO_INSERT);
5539 else
5540 picrel = frvfdpic_relocs_info_for_local (frvfdpic_relocs_info (info),
5541 abfd, r_symndx,
5542 rel->r_addend, NO_INSERT);
5544 if (! picrel)
5545 return FALSE;
5547 *changed = TRUE;
5548 dinfo = frvfdpic_dynamic_got_plt_info (info);
5550 _frvfdpic_count_relocs_fixups (picrel, dinfo, TRUE);
5551 if (ELF32_R_TYPE (rel->r_info) == R_FRV_32)
5552 picrel->relocs32--;
5553 else /* we know (ELF32_R_TYPE (rel->r_info) == R_FRV_FUNCDESC) */
5554 picrel->relocsfd--;
5555 _frvfdpic_count_relocs_fixups (picrel, dinfo, FALSE);
5558 return TRUE;
5561 static bfd_boolean
5562 frvfdpic_elf_discard_info (bfd *ibfd,
5563 struct elf_reloc_cookie *cookie ATTRIBUTE_UNUSED,
5564 struct bfd_link_info *info)
5566 bfd_boolean changed = FALSE;
5567 asection *s;
5568 bfd *obfd = NULL;
5570 /* Account for relaxation of .eh_frame section. */
5571 for (s = ibfd->sections; s; s = s->next)
5572 if (s->sec_info_type == SEC_INFO_TYPE_EH_FRAME)
5574 if (!_frvfdpic_check_discarded_relocs (ibfd, s, info, &changed))
5575 return FALSE;
5576 obfd = s->output_section->owner;
5579 if (changed)
5581 struct _frvfdpic_dynamic_got_plt_info gpinfo;
5583 memset (&gpinfo, 0, sizeof (gpinfo));
5584 memcpy (&gpinfo.g, frvfdpic_dynamic_got_plt_info (info),
5585 sizeof (gpinfo.g));
5587 /* Clear GOT and PLT assignments. */
5588 htab_traverse (frvfdpic_relocs_info (info),
5589 _frvfdpic_reset_got_plt_entries,
5590 NULL);
5592 if (!_frvfdpic_size_got_plt (obfd, &gpinfo))
5593 return FALSE;
5596 return TRUE;
5599 /* Look for opportunities to relax TLS relocations. We can assume
5600 we're linking the main executable or a static-tls library, since
5601 otherwise we wouldn't have got here. */
5603 static int
5604 _frvfdpic_relax_got_plt_entries (void **entryp, void *dinfo_)
5606 struct frvfdpic_relocs_info *entry = *entryp;
5607 struct _frvfdpic_dynamic_got_info *dinfo = dinfo_;
5609 _frvfdpic_relax_tls_entries (entry, dinfo, TRUE);
5611 return 1;
5614 static bfd_boolean
5615 elf32_frvfdpic_relax_section (bfd *abfd ATTRIBUTE_UNUSED, asection *sec,
5616 struct bfd_link_info *info, bfd_boolean *again)
5618 struct _frvfdpic_dynamic_got_plt_info gpinfo;
5620 if (bfd_link_relocatable (info))
5621 (*info->callbacks->einfo)
5622 (_("%P%F: --relax and -r may not be used together\n"));
5624 /* If we return early, we didn't change anything. */
5625 *again = FALSE;
5627 /* We'll do our thing when requested to relax the GOT section. */
5628 if (sec != frvfdpic_got_section (info))
5629 return TRUE;
5631 /* We can only relax when linking the main executable or a library
5632 that can't be dlopened. */
5633 if (! bfd_link_executable (info) && ! (info->flags & DF_STATIC_TLS))
5634 return TRUE;
5636 /* If there isn't a TLS section for this binary, we can't do
5637 anything about its TLS relocations (it probably doesn't have
5638 any. */
5639 if (elf_hash_table (info)->tls_sec == NULL)
5640 return TRUE;
5642 memset (&gpinfo, 0, sizeof (gpinfo));
5643 memcpy (&gpinfo.g, frvfdpic_dynamic_got_plt_info (info), sizeof (gpinfo.g));
5645 /* Now look for opportunities to relax, adjusting the GOT usage
5646 as needed. */
5647 htab_traverse (frvfdpic_relocs_info (info),
5648 _frvfdpic_relax_got_plt_entries,
5649 &gpinfo.g);
5651 /* If we changed anything, reset and re-assign GOT and PLT entries. */
5652 if (memcmp (frvfdpic_dynamic_got_plt_info (info),
5653 &gpinfo.g, sizeof (gpinfo.g)) != 0)
5655 /* Clear GOT and PLT assignments. */
5656 htab_traverse (frvfdpic_relocs_info (info),
5657 _frvfdpic_reset_got_plt_entries,
5658 NULL);
5660 /* The owner of the TLS section is the output bfd. There should
5661 be a better way to get to it. */
5662 if (!_frvfdpic_size_got_plt (elf_hash_table (info)->tls_sec->owner,
5663 &gpinfo))
5664 return FALSE;
5666 /* Repeat until we don't make any further changes. We could fail to
5667 introduce changes in a round if, for example, the 12-bit range is
5668 full, but we later release some space by getting rid of TLS
5669 descriptors in it. We have to repeat the whole process because
5670 we might have changed the size of a section processed before this
5671 one. */
5672 *again = TRUE;
5675 return TRUE;
5678 /* Fill in code and data in dynamic sections. */
5680 static bfd_boolean
5681 elf32_frv_finish_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
5682 struct bfd_link_info *info ATTRIBUTE_UNUSED)
5684 /* Nothing to be done for non-FDPIC. */
5685 return TRUE;
5688 static bfd_boolean
5689 elf32_frvfdpic_finish_dynamic_sections (bfd *output_bfd,
5690 struct bfd_link_info *info)
5692 bfd *dynobj;
5693 asection *sdyn;
5695 dynobj = elf_hash_table (info)->dynobj;
5697 if (frvfdpic_dynamic_got_plt_info (info))
5699 BFD_ASSERT (frvfdpic_dynamic_got_plt_info (info)->tls_ret_refs == 0);
5701 if (frvfdpic_got_section (info))
5703 BFD_ASSERT (frvfdpic_gotrel_section (info)->size
5704 == (frvfdpic_gotrel_section (info)->reloc_count
5705 * sizeof (Elf32_External_Rel)));
5707 if (frvfdpic_gotfixup_section (info))
5709 struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
5710 bfd_vma got_value = hgot->root.u.def.value
5711 + hgot->root.u.def.section->output_section->vma
5712 + hgot->root.u.def.section->output_offset;
5713 struct bfd_link_hash_entry *hend;
5715 _frvfdpic_add_rofixup (output_bfd, frvfdpic_gotfixup_section (info),
5716 got_value, 0);
5718 if (frvfdpic_gotfixup_section (info)->size
5719 != (frvfdpic_gotfixup_section (info)->reloc_count * 4))
5721 error:
5722 info->callbacks->einfo
5723 ("LINKER BUG: .rofixup section size mismatch\n");
5724 return FALSE;
5727 hend = bfd_link_hash_lookup (info->hash, "__ROFIXUP_END__",
5728 FALSE, FALSE, TRUE);
5729 if (hend
5730 && (hend->type == bfd_link_hash_defined
5731 || hend->type == bfd_link_hash_defweak)
5732 && hend->u.def.section->output_section != NULL)
5734 bfd_vma value =
5735 frvfdpic_gotfixup_section (info)->output_section->vma
5736 + frvfdpic_gotfixup_section (info)->output_offset
5737 + frvfdpic_gotfixup_section (info)->size
5738 - hend->u.def.section->output_section->vma
5739 - hend->u.def.section->output_offset;
5740 BFD_ASSERT (hend->u.def.value == value);
5741 if (hend->u.def.value != value)
5742 goto error;
5746 if (frvfdpic_pltrel_section (info))
5748 BFD_ASSERT (frvfdpic_pltrel_section (info)->size
5749 == (frvfdpic_pltrel_section (info)->reloc_count
5750 * sizeof (Elf32_External_Rel)));
5754 if (elf_hash_table (info)->dynamic_sections_created)
5756 Elf32_External_Dyn * dyncon;
5757 Elf32_External_Dyn * dynconend;
5759 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
5761 BFD_ASSERT (sdyn != NULL);
5763 dyncon = (Elf32_External_Dyn *) sdyn->contents;
5764 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
5766 for (; dyncon < dynconend; dyncon++)
5768 Elf_Internal_Dyn dyn;
5770 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
5772 switch (dyn.d_tag)
5774 default:
5775 break;
5777 case DT_PLTGOT:
5778 dyn.d_un.d_ptr = frvfdpic_got_section (info)->output_section->vma
5779 + frvfdpic_got_section (info)->output_offset
5780 + frvfdpic_got_initial_offset (info);
5781 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
5782 break;
5784 case DT_JMPREL:
5785 dyn.d_un.d_ptr = frvfdpic_pltrel_section (info)
5786 ->output_section->vma
5787 + frvfdpic_pltrel_section (info)->output_offset;
5788 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
5789 break;
5791 case DT_PLTRELSZ:
5792 dyn.d_un.d_val = frvfdpic_pltrel_section (info)->size;
5793 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
5794 break;
5799 return TRUE;
5802 /* Adjust a symbol defined by a dynamic object and referenced by a
5803 regular object. */
5805 static bfd_boolean
5806 elf32_frvfdpic_adjust_dynamic_symbol
5807 (struct bfd_link_info *info ATTRIBUTE_UNUSED,
5808 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED)
5810 bfd * dynobj;
5812 dynobj = elf_hash_table (info)->dynobj;
5814 /* Make sure we know what is going on here. */
5815 BFD_ASSERT (dynobj != NULL
5816 && (h->is_weakalias
5817 || (h->def_dynamic
5818 && h->ref_regular
5819 && !h->def_regular)));
5821 /* If this is a weak symbol, and there is a real definition, the
5822 processor independent code will have arranged for us to see the
5823 real definition first, and we can just use the same value. */
5824 if (h->is_weakalias)
5826 struct elf_link_hash_entry *def = weakdef (h);
5827 BFD_ASSERT (def->root.type == bfd_link_hash_defined);
5828 h->root.u.def.section = def->root.u.def.section;
5829 h->root.u.def.value = def->root.u.def.value;
5830 return TRUE;
5833 return TRUE;
5836 /* Perform any actions needed for dynamic symbols. */
5838 static bfd_boolean
5839 elf32_frvfdpic_finish_dynamic_symbol
5840 (bfd *output_bfd ATTRIBUTE_UNUSED,
5841 struct bfd_link_info *info ATTRIBUTE_UNUSED,
5842 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED,
5843 Elf_Internal_Sym *sym ATTRIBUTE_UNUSED)
5845 return TRUE;
5848 /* Decide whether to attempt to turn absptr or lsda encodings in
5849 shared libraries into pcrel within the given input section. */
5851 static bfd_boolean
5852 frvfdpic_elf_use_relative_eh_frame
5853 (bfd *input_bfd ATTRIBUTE_UNUSED,
5854 struct bfd_link_info *info ATTRIBUTE_UNUSED,
5855 asection *eh_frame_section ATTRIBUTE_UNUSED)
5857 /* We can't use PC-relative encodings in FDPIC binaries, in general. */
5858 return FALSE;
5861 /* Adjust the contents of an eh_frame_hdr section before they're output. */
5863 static bfd_byte
5864 frvfdpic_elf_encode_eh_address (bfd *abfd,
5865 struct bfd_link_info *info,
5866 asection *osec, bfd_vma offset,
5867 asection *loc_sec, bfd_vma loc_offset,
5868 bfd_vma *encoded)
5870 struct elf_link_hash_entry *h;
5872 h = elf_hash_table (info)->hgot;
5873 BFD_ASSERT (h && h->root.type == bfd_link_hash_defined);
5875 if (! h || (_frvfdpic_osec_to_segment (abfd, osec)
5876 == _frvfdpic_osec_to_segment (abfd, loc_sec->output_section)))
5877 return _bfd_elf_encode_eh_address (abfd, info, osec, offset,
5878 loc_sec, loc_offset, encoded);
5880 BFD_ASSERT (_frvfdpic_osec_to_segment (abfd, osec)
5881 == (_frvfdpic_osec_to_segment
5882 (abfd, h->root.u.def.section->output_section)));
5884 *encoded = osec->vma + offset
5885 - (h->root.u.def.value
5886 + h->root.u.def.section->output_section->vma
5887 + h->root.u.def.section->output_offset);
5889 return DW_EH_PE_datarel | DW_EH_PE_sdata4;
5892 /* Look through the relocs for a section during the first phase.
5894 Besides handling virtual table relocs for gc, we have to deal with
5895 all sorts of PIC-related relocations. We describe below the
5896 general plan on how to handle such relocations, even though we only
5897 collect information at this point, storing them in hash tables for
5898 perusal of later passes.
5900 32 relocations are propagated to the linker output when creating
5901 position-independent output. LO16 and HI16 relocations are not
5902 supposed to be encountered in this case.
5904 LABEL16 should always be resolvable by the linker, since it's only
5905 used by branches.
5907 LABEL24, on the other hand, is used by calls. If it turns out that
5908 the target of a call is a dynamic symbol, a PLT entry must be
5909 created for it, which triggers the creation of a private function
5910 descriptor and, unless lazy binding is disabled, a lazy PLT entry.
5912 GPREL relocations require the referenced symbol to be in the same
5913 segment as _gp, but this can only be checked later.
5915 All GOT, GOTOFF and FUNCDESC relocations require a .got section to
5916 exist. LABEL24 might as well, since it may require a PLT entry,
5917 that will require a got.
5919 Non-FUNCDESC GOT relocations require a GOT entry to be created
5920 regardless of whether the symbol is dynamic. However, since a
5921 global symbol that turns out to not be exported may have the same
5922 address of a non-dynamic symbol, we don't assign GOT entries at
5923 this point, such that we can share them in this case. A relocation
5924 for the GOT entry always has to be created, be it to offset a
5925 private symbol by the section load address, be it to get the symbol
5926 resolved dynamically.
5928 FUNCDESC GOT relocations require a GOT entry to be created, and
5929 handled as if a FUNCDESC relocation was applied to the GOT entry in
5930 an object file.
5932 FUNCDESC relocations referencing a symbol that turns out to NOT be
5933 dynamic cause a private function descriptor to be created. The
5934 FUNCDESC relocation then decays to a 32 relocation that points at
5935 the private descriptor. If the symbol is dynamic, the FUNCDESC
5936 relocation is propagated to the linker output, such that the
5937 dynamic linker creates the canonical descriptor, pointing to the
5938 dynamically-resolved definition of the function.
5940 Non-FUNCDESC GOTOFF relocations must always refer to non-dynamic
5941 symbols that are assigned to the same segment as the GOT, but we
5942 can only check this later, after we know the complete set of
5943 symbols defined and/or exported.
5945 FUNCDESC GOTOFF relocations require a function descriptor to be
5946 created and, unless lazy binding is disabled or the symbol is not
5947 dynamic, a lazy PLT entry. Since we can't tell at this point
5948 whether a symbol is going to be dynamic, we have to decide later
5949 whether to create a lazy PLT entry or bind the descriptor directly
5950 to the private function.
5952 FUNCDESC_VALUE relocations are not supposed to be present in object
5953 files, but they may very well be simply propagated to the linker
5954 output, since they have no side effect.
5957 A function descriptor always requires a FUNCDESC_VALUE relocation.
5958 Whether it's in .plt.rel or not depends on whether lazy binding is
5959 enabled and on whether the referenced symbol is dynamic.
5961 The existence of a lazy PLT requires the resolverStub lazy PLT
5962 entry to be present.
5965 As for assignment of GOT, PLT and lazy PLT entries, and private
5966 descriptors, we might do them all sequentially, but we can do
5967 better than that. For example, we can place GOT entries and
5968 private function descriptors referenced using 12-bit operands
5969 closer to the PIC register value, such that these relocations don't
5970 overflow. Those that are only referenced with LO16 relocations
5971 could come next, but we may as well place PLT-required function
5972 descriptors in the 12-bit range to make them shorter. Symbols
5973 referenced with LO16/HI16 may come next, but we may place
5974 additional function descriptors in the 16-bit range if we can
5975 reliably tell that we've already placed entries that are ever
5976 referenced with only LO16. PLT entries are therefore generated as
5977 small as possible, while not introducing relocation overflows in
5978 GOT or FUNCDESC_GOTOFF relocations. Lazy PLT entries could be
5979 generated before or after PLT entries, but not intermingled with
5980 them, such that we can have more lazy PLT entries in range for a
5981 branch to the resolverStub. The resolverStub should be emitted at
5982 the most distant location from the first lazy PLT entry such that
5983 it's still in range for a branch, or closer, if there isn't a need
5984 for so many lazy PLT entries. Additional lazy PLT entries may be
5985 emitted after the resolverStub, as long as branches are still in
5986 range. If the branch goes out of range, longer lazy PLT entries
5987 are emitted.
5989 We could further optimize PLT and lazy PLT entries by giving them
5990 priority in assignment to closer-to-gr17 locations depending on the
5991 number of occurrences of references to them (assuming a function
5992 that's called more often is more important for performance, so its
5993 PLT entry should be faster), or taking hints from the compiler.
5994 Given infinite time and money... :-) */
5996 static bfd_boolean
5997 elf32_frv_check_relocs (bfd *abfd,
5998 struct bfd_link_info *info,
5999 asection *sec,
6000 const Elf_Internal_Rela *relocs)
6002 Elf_Internal_Shdr *symtab_hdr;
6003 struct elf_link_hash_entry **sym_hashes;
6004 const Elf_Internal_Rela *rel;
6005 const Elf_Internal_Rela *rel_end;
6006 bfd *dynobj;
6007 struct frvfdpic_relocs_info *picrel;
6009 if (bfd_link_relocatable (info))
6010 return TRUE;
6012 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
6013 sym_hashes = elf_sym_hashes (abfd);
6015 dynobj = elf_hash_table (info)->dynobj;
6016 rel_end = relocs + sec->reloc_count;
6017 for (rel = relocs; rel < rel_end; rel++)
6019 struct elf_link_hash_entry *h;
6020 unsigned long r_symndx;
6022 r_symndx = ELF32_R_SYM (rel->r_info);
6023 if (r_symndx < symtab_hdr->sh_info)
6024 h = NULL;
6025 else
6027 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
6028 while (h->root.type == bfd_link_hash_indirect
6029 || h->root.type == bfd_link_hash_warning)
6030 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6033 switch (ELF32_R_TYPE (rel->r_info))
6035 case R_FRV_GETTLSOFF:
6036 case R_FRV_TLSDESC_VALUE:
6037 case R_FRV_GOTTLSDESC12:
6038 case R_FRV_GOTTLSDESCHI:
6039 case R_FRV_GOTTLSDESCLO:
6040 case R_FRV_GOTTLSOFF12:
6041 case R_FRV_GOTTLSOFFHI:
6042 case R_FRV_GOTTLSOFFLO:
6043 case R_FRV_TLSOFF:
6044 case R_FRV_GOT12:
6045 case R_FRV_GOTHI:
6046 case R_FRV_GOTLO:
6047 case R_FRV_FUNCDESC_GOT12:
6048 case R_FRV_FUNCDESC_GOTHI:
6049 case R_FRV_FUNCDESC_GOTLO:
6050 case R_FRV_GOTOFF12:
6051 case R_FRV_GOTOFFHI:
6052 case R_FRV_GOTOFFLO:
6053 case R_FRV_FUNCDESC_GOTOFF12:
6054 case R_FRV_FUNCDESC_GOTOFFHI:
6055 case R_FRV_FUNCDESC_GOTOFFLO:
6056 case R_FRV_FUNCDESC:
6057 case R_FRV_FUNCDESC_VALUE:
6058 case R_FRV_TLSMOFF12:
6059 case R_FRV_TLSMOFFHI:
6060 case R_FRV_TLSMOFFLO:
6061 case R_FRV_TLSMOFF:
6062 if (! IS_FDPIC (abfd))
6063 goto bad_reloc;
6064 /* Fall through. */
6065 case R_FRV_GPREL12:
6066 case R_FRV_GPRELU12:
6067 case R_FRV_GPRELHI:
6068 case R_FRV_GPRELLO:
6069 case R_FRV_LABEL24:
6070 case R_FRV_32:
6071 if (! dynobj)
6073 elf_hash_table (info)->dynobj = dynobj = abfd;
6074 if (! _frv_create_got_section (abfd, info))
6075 return FALSE;
6077 if (! IS_FDPIC (abfd))
6079 picrel = NULL;
6080 break;
6082 if (h != NULL)
6084 if (h->dynindx == -1)
6085 switch (ELF_ST_VISIBILITY (h->other))
6087 case STV_INTERNAL:
6088 case STV_HIDDEN:
6089 break;
6090 default:
6091 bfd_elf_link_record_dynamic_symbol (info, h);
6092 break;
6094 picrel
6095 = frvfdpic_relocs_info_for_global (frvfdpic_relocs_info (info),
6096 abfd, h,
6097 rel->r_addend, INSERT);
6099 else
6100 picrel = frvfdpic_relocs_info_for_local (frvfdpic_relocs_info
6101 (info), abfd, r_symndx,
6102 rel->r_addend, INSERT);
6103 if (! picrel)
6104 return FALSE;
6105 break;
6107 default:
6108 picrel = NULL;
6109 break;
6112 switch (ELF32_R_TYPE (rel->r_info))
6114 case R_FRV_LABEL24:
6115 if (IS_FDPIC (abfd))
6116 picrel->call = 1;
6117 break;
6119 case R_FRV_FUNCDESC_VALUE:
6120 picrel->relocsfdv++;
6121 if (bfd_section_flags (sec) & SEC_ALLOC)
6122 picrel->relocs32--;
6123 /* Fall through. */
6125 case R_FRV_32:
6126 if (! IS_FDPIC (abfd))
6127 break;
6129 picrel->sym = 1;
6130 if (bfd_section_flags (sec) & SEC_ALLOC)
6131 picrel->relocs32++;
6132 break;
6134 case R_FRV_GOT12:
6135 picrel->got12 = 1;
6136 break;
6138 case R_FRV_GOTHI:
6139 case R_FRV_GOTLO:
6140 picrel->gothilo = 1;
6141 break;
6143 case R_FRV_FUNCDESC_GOT12:
6144 picrel->fdgot12 = 1;
6145 break;
6147 case R_FRV_FUNCDESC_GOTHI:
6148 case R_FRV_FUNCDESC_GOTLO:
6149 picrel->fdgothilo = 1;
6150 break;
6152 case R_FRV_GOTOFF12:
6153 case R_FRV_GOTOFFHI:
6154 case R_FRV_GOTOFFLO:
6155 picrel->gotoff = 1;
6156 break;
6158 case R_FRV_FUNCDESC_GOTOFF12:
6159 picrel->fdgoff12 = 1;
6160 break;
6162 case R_FRV_FUNCDESC_GOTOFFHI:
6163 case R_FRV_FUNCDESC_GOTOFFLO:
6164 picrel->fdgoffhilo = 1;
6165 break;
6167 case R_FRV_FUNCDESC:
6168 picrel->fd = 1;
6169 picrel->relocsfd++;
6170 break;
6172 case R_FRV_GETTLSOFF:
6173 picrel->tlsplt = 1;
6174 break;
6176 case R_FRV_TLSDESC_VALUE:
6177 picrel->relocstlsd++;
6178 goto bad_reloc;
6180 case R_FRV_GOTTLSDESC12:
6181 picrel->tlsdesc12 = 1;
6182 break;
6184 case R_FRV_GOTTLSDESCHI:
6185 case R_FRV_GOTTLSDESCLO:
6186 picrel->tlsdeschilo = 1;
6187 break;
6189 case R_FRV_TLSMOFF12:
6190 case R_FRV_TLSMOFFHI:
6191 case R_FRV_TLSMOFFLO:
6192 case R_FRV_TLSMOFF:
6193 break;
6195 case R_FRV_GOTTLSOFF12:
6196 picrel->tlsoff12 = 1;
6197 info->flags |= DF_STATIC_TLS;
6198 break;
6200 case R_FRV_GOTTLSOFFHI:
6201 case R_FRV_GOTTLSOFFLO:
6202 picrel->tlsoffhilo = 1;
6203 info->flags |= DF_STATIC_TLS;
6204 break;
6206 case R_FRV_TLSOFF:
6207 picrel->relocstlsoff++;
6208 info->flags |= DF_STATIC_TLS;
6209 goto bad_reloc;
6211 /* This relocation describes the C++ object vtable hierarchy.
6212 Reconstruct it for later use during GC. */
6213 case R_FRV_GNU_VTINHERIT:
6214 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
6215 return FALSE;
6216 break;
6218 /* This relocation describes which C++ vtable entries are actually
6219 used. Record for later use during GC. */
6220 case R_FRV_GNU_VTENTRY:
6221 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
6222 return FALSE;
6223 break;
6225 case R_FRV_LABEL16:
6226 case R_FRV_LO16:
6227 case R_FRV_HI16:
6228 case R_FRV_GPREL12:
6229 case R_FRV_GPRELU12:
6230 case R_FRV_GPREL32:
6231 case R_FRV_GPRELHI:
6232 case R_FRV_GPRELLO:
6233 case R_FRV_TLSDESC_RELAX:
6234 case R_FRV_GETTLSOFF_RELAX:
6235 case R_FRV_TLSOFF_RELAX:
6236 break;
6238 default:
6239 bad_reloc:
6240 /* xgettext:c-format */
6241 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
6242 abfd, (unsigned int) ELF32_R_TYPE (rel->r_info));
6243 return FALSE;
6247 return TRUE;
6251 /* Return the machine subcode from the ELF e_flags header. */
6253 static int
6254 elf32_frv_machine (bfd *abfd)
6256 switch (elf_elfheader (abfd)->e_flags & EF_FRV_CPU_MASK)
6258 default: break;
6259 case EF_FRV_CPU_FR550: return bfd_mach_fr550;
6260 case EF_FRV_CPU_FR500: return bfd_mach_fr500;
6261 case EF_FRV_CPU_FR450: return bfd_mach_fr450;
6262 case EF_FRV_CPU_FR405: return bfd_mach_fr400;
6263 case EF_FRV_CPU_FR400: return bfd_mach_fr400;
6264 case EF_FRV_CPU_FR300: return bfd_mach_fr300;
6265 case EF_FRV_CPU_SIMPLE: return bfd_mach_frvsimple;
6266 case EF_FRV_CPU_TOMCAT: return bfd_mach_frvtomcat;
6269 return bfd_mach_frv;
6272 /* Set the right machine number for a FRV ELF file. */
6274 static bfd_boolean
6275 elf32_frv_object_p (bfd *abfd)
6277 bfd_default_set_arch_mach (abfd, bfd_arch_frv, elf32_frv_machine (abfd));
6278 return (((elf_elfheader (abfd)->e_flags & EF_FRV_FDPIC) != 0)
6279 == (IS_FDPIC (abfd)));
6282 /* Function to set the ELF flag bits. */
6284 static bfd_boolean
6285 frv_elf_set_private_flags (bfd *abfd, flagword flags)
6287 elf_elfheader (abfd)->e_flags = flags;
6288 elf_flags_init (abfd) = TRUE;
6289 return TRUE;
6292 /* Return true if the architecture described by elf header flag
6293 EXTENSION is an extension of the architecture described by BASE. */
6295 static bfd_boolean
6296 frv_elf_arch_extension_p (flagword base, flagword extension)
6298 if (base == extension)
6299 return TRUE;
6301 /* CPU_GENERIC code can be merged with code for a specific
6302 architecture, in which case the result is marked as being
6303 for the specific architecture. Everything is therefore
6304 an extension of CPU_GENERIC. */
6305 if (base == EF_FRV_CPU_GENERIC)
6306 return TRUE;
6308 if (extension == EF_FRV_CPU_FR450)
6309 if (base == EF_FRV_CPU_FR400 || base == EF_FRV_CPU_FR405)
6310 return TRUE;
6312 if (extension == EF_FRV_CPU_FR405)
6313 if (base == EF_FRV_CPU_FR400)
6314 return TRUE;
6316 return FALSE;
6319 /* Merge backend specific data from an object file to the output
6320 object file when linking. */
6322 static bfd_boolean
6323 frv_elf_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
6325 bfd *obfd = info->output_bfd;
6326 flagword old_flags, old_partial;
6327 flagword new_flags, new_partial;
6328 bfd_boolean error = FALSE;
6329 char new_opt[80];
6330 char old_opt[80];
6332 /* FIXME: What should be checked when linking shared libraries? */
6333 if ((ibfd->flags & DYNAMIC) != 0)
6334 return TRUE;
6336 new_opt[0] = old_opt[0] = '\0';
6337 new_flags = elf_elfheader (ibfd)->e_flags;
6338 old_flags = elf_elfheader (obfd)->e_flags;
6340 if (new_flags & EF_FRV_FDPIC)
6341 new_flags &= ~EF_FRV_PIC;
6343 #ifdef DEBUG
6344 _bfd_error_handler
6345 ("old_flags = 0x%.8x, new_flags = 0x%.8x, init = %s, filename = %s",
6346 old_flags, new_flags, elf_flags_init (obfd) ? "yes" : "no",
6347 bfd_get_filename (ibfd));
6348 #endif
6350 if (!elf_flags_init (obfd)) /* First call, no flags set. */
6352 elf_flags_init (obfd) = TRUE;
6353 old_flags = new_flags;
6356 else if (new_flags == old_flags) /* Compatible flags are ok. */
6359 else /* Possibly incompatible flags. */
6361 /* Warn if different # of gprs are used. Note, 0 means nothing is
6362 said about the size of gprs. */
6363 new_partial = (new_flags & EF_FRV_GPR_MASK);
6364 old_partial = (old_flags & EF_FRV_GPR_MASK);
6365 if (new_partial == old_partial)
6368 else if (new_partial == 0)
6371 else if (old_partial == 0)
6372 old_flags |= new_partial;
6374 else
6376 switch (new_partial)
6378 default: strcat (new_opt, " -mgpr-??"); break;
6379 case EF_FRV_GPR_32: strcat (new_opt, " -mgpr-32"); break;
6380 case EF_FRV_GPR_64: strcat (new_opt, " -mgpr-64"); break;
6383 switch (old_partial)
6385 default: strcat (old_opt, " -mgpr-??"); break;
6386 case EF_FRV_GPR_32: strcat (old_opt, " -mgpr-32"); break;
6387 case EF_FRV_GPR_64: strcat (old_opt, " -mgpr-64"); break;
6391 /* Warn if different # of fprs are used. Note, 0 means nothing is
6392 said about the size of fprs. */
6393 new_partial = (new_flags & EF_FRV_FPR_MASK);
6394 old_partial = (old_flags & EF_FRV_FPR_MASK);
6395 if (new_partial == old_partial)
6398 else if (new_partial == 0)
6401 else if (old_partial == 0)
6402 old_flags |= new_partial;
6404 else
6406 switch (new_partial)
6408 default: strcat (new_opt, " -mfpr-?"); break;
6409 case EF_FRV_FPR_32: strcat (new_opt, " -mfpr-32"); break;
6410 case EF_FRV_FPR_64: strcat (new_opt, " -mfpr-64"); break;
6411 case EF_FRV_FPR_NONE: strcat (new_opt, " -msoft-float"); break;
6414 switch (old_partial)
6416 default: strcat (old_opt, " -mfpr-?"); break;
6417 case EF_FRV_FPR_32: strcat (old_opt, " -mfpr-32"); break;
6418 case EF_FRV_FPR_64: strcat (old_opt, " -mfpr-64"); break;
6419 case EF_FRV_FPR_NONE: strcat (old_opt, " -msoft-float"); break;
6423 /* Warn if different dword support was used. Note, 0 means nothing is
6424 said about the dword support. */
6425 new_partial = (new_flags & EF_FRV_DWORD_MASK);
6426 old_partial = (old_flags & EF_FRV_DWORD_MASK);
6427 if (new_partial == old_partial)
6430 else if (new_partial == 0)
6433 else if (old_partial == 0)
6434 old_flags |= new_partial;
6436 else
6438 switch (new_partial)
6440 default: strcat (new_opt, " -mdword-?"); break;
6441 case EF_FRV_DWORD_YES: strcat (new_opt, " -mdword"); break;
6442 case EF_FRV_DWORD_NO: strcat (new_opt, " -mno-dword"); break;
6445 switch (old_partial)
6447 default: strcat (old_opt, " -mdword-?"); break;
6448 case EF_FRV_DWORD_YES: strcat (old_opt, " -mdword"); break;
6449 case EF_FRV_DWORD_NO: strcat (old_opt, " -mno-dword"); break;
6453 /* Or in flags that accumulate (ie, if one module uses it, mark that the
6454 feature is used. */
6455 old_flags |= new_flags & (EF_FRV_DOUBLE
6456 | EF_FRV_MEDIA
6457 | EF_FRV_MULADD
6458 | EF_FRV_NON_PIC_RELOCS);
6460 /* If any module was compiled without -G0, clear the G0 bit. */
6461 old_flags = ((old_flags & ~ EF_FRV_G0)
6462 | (old_flags & new_flags & EF_FRV_G0));
6464 /* If any module was compiled without -mnopack, clear the mnopack bit. */
6465 old_flags = ((old_flags & ~ EF_FRV_NOPACK)
6466 | (old_flags & new_flags & EF_FRV_NOPACK));
6468 /* We don't have to do anything if the pic flags are the same, or the new
6469 module(s) were compiled with -mlibrary-pic. */
6470 new_partial = (new_flags & EF_FRV_PIC_FLAGS);
6471 old_partial = (old_flags & EF_FRV_PIC_FLAGS);
6472 if ((new_partial == old_partial) || ((new_partial & EF_FRV_LIBPIC) != 0))
6475 /* If the old module(s) were compiled with -mlibrary-pic, copy in the pic
6476 flags if any from the new module. */
6477 else if ((old_partial & EF_FRV_LIBPIC) != 0)
6478 old_flags = (old_flags & ~ EF_FRV_PIC_FLAGS) | new_partial;
6480 /* If we have mixtures of -fpic and -fPIC, or in both bits. */
6481 else if (new_partial != 0 && old_partial != 0)
6482 old_flags |= new_partial;
6484 /* One module was compiled for pic and the other was not, see if we have
6485 had any relocations that are not pic-safe. */
6486 else
6488 if ((old_flags & EF_FRV_NON_PIC_RELOCS) == 0)
6489 old_flags |= new_partial;
6490 else
6492 old_flags &= ~ EF_FRV_PIC_FLAGS;
6493 #ifndef FRV_NO_PIC_ERROR
6494 error = TRUE;
6495 _bfd_error_handler
6496 /* xgettext:c-format */
6497 (_("%pB: compiled with %s and linked with modules"
6498 " that use non-pic relocations"),
6499 ibfd, (new_flags & EF_FRV_BIGPIC) ? "-fPIC" : "-fpic");
6500 #endif
6504 /* Warn if different cpu is used (allow a specific cpu to override
6505 the generic cpu). */
6506 new_partial = (new_flags & EF_FRV_CPU_MASK);
6507 old_partial = (old_flags & EF_FRV_CPU_MASK);
6508 if (frv_elf_arch_extension_p (new_partial, old_partial))
6511 else if (frv_elf_arch_extension_p (old_partial, new_partial))
6512 old_flags = (old_flags & ~EF_FRV_CPU_MASK) | new_partial;
6514 else
6516 switch (new_partial)
6518 default: strcat (new_opt, " -mcpu=?"); break;
6519 case EF_FRV_CPU_GENERIC: strcat (new_opt, " -mcpu=frv"); break;
6520 case EF_FRV_CPU_SIMPLE: strcat (new_opt, " -mcpu=simple"); break;
6521 case EF_FRV_CPU_FR550: strcat (new_opt, " -mcpu=fr550"); break;
6522 case EF_FRV_CPU_FR500: strcat (new_opt, " -mcpu=fr500"); break;
6523 case EF_FRV_CPU_FR450: strcat (new_opt, " -mcpu=fr450"); break;
6524 case EF_FRV_CPU_FR405: strcat (new_opt, " -mcpu=fr405"); break;
6525 case EF_FRV_CPU_FR400: strcat (new_opt, " -mcpu=fr400"); break;
6526 case EF_FRV_CPU_FR300: strcat (new_opt, " -mcpu=fr300"); break;
6527 case EF_FRV_CPU_TOMCAT: strcat (new_opt, " -mcpu=tomcat"); break;
6530 switch (old_partial)
6532 default: strcat (old_opt, " -mcpu=?"); break;
6533 case EF_FRV_CPU_GENERIC: strcat (old_opt, " -mcpu=frv"); break;
6534 case EF_FRV_CPU_SIMPLE: strcat (old_opt, " -mcpu=simple"); break;
6535 case EF_FRV_CPU_FR550: strcat (old_opt, " -mcpu=fr550"); break;
6536 case EF_FRV_CPU_FR500: strcat (old_opt, " -mcpu=fr500"); break;
6537 case EF_FRV_CPU_FR450: strcat (old_opt, " -mcpu=fr450"); break;
6538 case EF_FRV_CPU_FR405: strcat (old_opt, " -mcpu=fr405"); break;
6539 case EF_FRV_CPU_FR400: strcat (old_opt, " -mcpu=fr400"); break;
6540 case EF_FRV_CPU_FR300: strcat (old_opt, " -mcpu=fr300"); break;
6541 case EF_FRV_CPU_TOMCAT: strcat (old_opt, " -mcpu=tomcat"); break;
6545 /* Print out any mismatches from above. */
6546 if (new_opt[0])
6548 error = TRUE;
6549 _bfd_error_handler
6550 /* xgettext:c-format */
6551 (_("%pB: compiled with %s and linked with modules compiled with %s"),
6552 ibfd, new_opt, old_opt);
6555 /* Warn about any other mismatches */
6556 new_partial = (new_flags & ~ EF_FRV_ALL_FLAGS);
6557 old_partial = (old_flags & ~ EF_FRV_ALL_FLAGS);
6558 if (new_partial != old_partial)
6560 old_flags |= new_partial;
6561 error = TRUE;
6562 _bfd_error_handler
6563 /* xgettext:c-format */
6564 (_("%pB: uses different unknown e_flags (%#x) fields"
6565 " than previous modules (%#x)"),
6566 ibfd, new_partial, old_partial);
6570 /* If the cpu is -mcpu=simple, then set the -mnopack bit. */
6571 if ((old_flags & EF_FRV_CPU_MASK) == EF_FRV_CPU_SIMPLE)
6572 old_flags |= EF_FRV_NOPACK;
6574 /* Update the old flags now with changes made above. */
6575 old_partial = elf_elfheader (obfd)->e_flags & EF_FRV_CPU_MASK;
6576 elf_elfheader (obfd)->e_flags = old_flags;
6577 if (old_partial != (old_flags & EF_FRV_CPU_MASK))
6578 bfd_default_set_arch_mach (obfd, bfd_arch_frv, elf32_frv_machine (obfd));
6580 if (((new_flags & EF_FRV_FDPIC) == 0)
6581 != (! IS_FDPIC (ibfd)))
6583 error = TRUE;
6584 if (IS_FDPIC (obfd))
6585 _bfd_error_handler
6586 (_("%pB: cannot link non-fdpic object file into fdpic executable"),
6587 ibfd);
6588 else
6589 _bfd_error_handler
6590 (_("%pB: cannot link fdpic object file into non-fdpic executable"),
6591 ibfd);
6594 if (error)
6595 bfd_set_error (bfd_error_bad_value);
6597 return !error;
6601 static bfd_boolean
6602 frv_elf_print_private_bfd_data (bfd *abfd, void * ptr)
6604 FILE *file = (FILE *) ptr;
6605 flagword flags;
6607 BFD_ASSERT (abfd != NULL && ptr != NULL);
6609 /* Print normal ELF private data. */
6610 _bfd_elf_print_private_bfd_data (abfd, ptr);
6612 flags = elf_elfheader (abfd)->e_flags;
6613 fprintf (file, _("private flags = 0x%lx:"), (unsigned long) flags);
6615 switch (flags & EF_FRV_CPU_MASK)
6617 default: break;
6618 case EF_FRV_CPU_SIMPLE: fprintf (file, " -mcpu=simple"); break;
6619 case EF_FRV_CPU_FR550: fprintf (file, " -mcpu=fr550"); break;
6620 case EF_FRV_CPU_FR500: fprintf (file, " -mcpu=fr500"); break;
6621 case EF_FRV_CPU_FR450: fprintf (file, " -mcpu=fr450"); break;
6622 case EF_FRV_CPU_FR405: fprintf (file, " -mcpu=fr405"); break;
6623 case EF_FRV_CPU_FR400: fprintf (file, " -mcpu=fr400"); break;
6624 case EF_FRV_CPU_FR300: fprintf (file, " -mcpu=fr300"); break;
6625 case EF_FRV_CPU_TOMCAT: fprintf (file, " -mcpu=tomcat"); break;
6628 switch (flags & EF_FRV_GPR_MASK)
6630 default: break;
6631 case EF_FRV_GPR_32: fprintf (file, " -mgpr-32"); break;
6632 case EF_FRV_GPR_64: fprintf (file, " -mgpr-64"); break;
6635 switch (flags & EF_FRV_FPR_MASK)
6637 default: break;
6638 case EF_FRV_FPR_32: fprintf (file, " -mfpr-32"); break;
6639 case EF_FRV_FPR_64: fprintf (file, " -mfpr-64"); break;
6640 case EF_FRV_FPR_NONE: fprintf (file, " -msoft-float"); break;
6643 switch (flags & EF_FRV_DWORD_MASK)
6645 default: break;
6646 case EF_FRV_DWORD_YES: fprintf (file, " -mdword"); break;
6647 case EF_FRV_DWORD_NO: fprintf (file, " -mno-dword"); break;
6650 if (flags & EF_FRV_DOUBLE)
6651 fprintf (file, " -mdouble");
6653 if (flags & EF_FRV_MEDIA)
6654 fprintf (file, " -mmedia");
6656 if (flags & EF_FRV_MULADD)
6657 fprintf (file, " -mmuladd");
6659 if (flags & EF_FRV_PIC)
6660 fprintf (file, " -fpic");
6662 if (flags & EF_FRV_BIGPIC)
6663 fprintf (file, " -fPIC");
6665 if (flags & EF_FRV_LIBPIC)
6666 fprintf (file, " -mlibrary-pic");
6668 if (flags & EF_FRV_FDPIC)
6669 fprintf (file, " -mfdpic");
6671 if (flags & EF_FRV_NON_PIC_RELOCS)
6672 fprintf (file, " non-pic relocations");
6674 if (flags & EF_FRV_G0)
6675 fprintf (file, " -G0");
6677 fputc ('\n', file);
6678 return TRUE;
6682 /* Support for core dump NOTE sections. */
6684 static bfd_boolean
6685 elf32_frv_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
6687 int offset;
6688 unsigned int raw_size;
6690 switch (note->descsz)
6692 default:
6693 return FALSE;
6695 /* The Linux/FRV elf_prstatus struct is 268 bytes long. The other
6696 hardcoded offsets and sizes listed below (and contained within
6697 this lexical block) refer to fields in the target's elf_prstatus
6698 struct. */
6699 case 268:
6700 /* `pr_cursig' is at offset 12. */
6701 elf_tdata (abfd)->core->signal = bfd_get_16 (abfd, note->descdata + 12);
6703 /* `pr_pid' is at offset 24. */
6704 elf_tdata (abfd)->core->lwpid = bfd_get_32 (abfd, note->descdata + 24);
6706 /* `pr_reg' is at offset 72. */
6707 offset = 72;
6709 /* Most grok_prstatus implementations set `raw_size' to the size
6710 of the pr_reg field. For Linux/FRV, we set `raw_size' to be
6711 the size of `pr_reg' plus the size of `pr_exec_fdpic_loadmap'
6712 and `pr_interp_fdpic_loadmap', both of which (by design)
6713 immediately follow `pr_reg'. This will allow these fields to
6714 be viewed by GDB as registers.
6716 `pr_reg' is 184 bytes long. `pr_exec_fdpic_loadmap' and
6717 `pr_interp_fdpic_loadmap' are 4 bytes each. */
6718 raw_size = 184 + 4 + 4;
6720 break;
6723 /* Make a ".reg/999" section. */
6724 return _bfd_elfcore_make_pseudosection (abfd, ".reg", raw_size,
6725 note->descpos + offset);
6728 static bfd_boolean
6729 elf32_frv_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
6731 switch (note->descsz)
6733 default:
6734 return FALSE;
6736 /* The Linux/FRV elf_prpsinfo struct is 124 bytes long. */
6737 case 124:
6739 /* `pr_fname' is found at offset 28 and is 16 bytes long. */
6740 elf_tdata (abfd)->core->program
6741 = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
6743 /* `pr_psargs' is found at offset 44 and is 80 bytes long. */
6744 elf_tdata (abfd)->core->command
6745 = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
6748 /* Note that for some reason, a spurious space is tacked
6749 onto the end of the args in some (at least one anyway)
6750 implementations, so strip it off if it exists. */
6753 char *command = elf_tdata (abfd)->core->command;
6754 int n = strlen (command);
6756 if (0 < n && command[n - 1] == ' ')
6757 command[n - 1] = '\0';
6760 return TRUE;
6762 #define ELF_ARCH bfd_arch_frv
6763 #define ELF_MACHINE_CODE EM_CYGNUS_FRV
6764 #define ELF_MAXPAGESIZE 0x1000
6766 #define TARGET_BIG_SYM frv_elf32_vec
6767 #define TARGET_BIG_NAME "elf32-frv"
6769 #define elf_info_to_howto frv_info_to_howto_rela
6770 #define elf_backend_relocate_section elf32_frv_relocate_section
6771 #define elf_backend_gc_mark_hook elf32_frv_gc_mark_hook
6772 #define elf_backend_check_relocs elf32_frv_check_relocs
6773 #define elf_backend_object_p elf32_frv_object_p
6774 #define elf_backend_add_symbol_hook elf32_frv_add_symbol_hook
6776 #define elf_backend_stack_align 8
6777 #define elf_backend_can_gc_sections 1
6778 #define elf_backend_rela_normal 1
6780 #define bfd_elf32_bfd_reloc_type_lookup frv_reloc_type_lookup
6781 #define bfd_elf32_bfd_reloc_name_lookup frv_reloc_name_lookup
6782 #define bfd_elf32_bfd_set_private_flags frv_elf_set_private_flags
6783 #define bfd_elf32_bfd_merge_private_bfd_data frv_elf_merge_private_bfd_data
6784 #define bfd_elf32_bfd_print_private_bfd_data frv_elf_print_private_bfd_data
6786 #define elf_backend_want_got_sym 1
6787 #define elf_backend_got_header_size 0
6788 #define elf_backend_want_got_plt 0
6789 #define elf_backend_plt_readonly 1
6790 #define elf_backend_want_plt_sym 0
6791 #define elf_backend_plt_header_size 0
6793 #define elf_backend_finish_dynamic_sections \
6794 elf32_frv_finish_dynamic_sections
6796 #define elf_backend_grok_prstatus elf32_frv_grok_prstatus
6797 #define elf_backend_grok_psinfo elf32_frv_grok_psinfo
6799 #define elf_backend_linux_prpsinfo32_ugid16 TRUE
6801 #include "elf32-target.h"
6803 #undef ELF_TARGET_ID
6804 #define ELF_TARGET_ID FRV_ELF_DATA
6805 #undef ELF_MAXPAGESIZE
6806 #define ELF_MAXPAGESIZE 0x4000
6808 #undef TARGET_BIG_SYM
6809 #define TARGET_BIG_SYM frv_elf32_fdpic_vec
6810 #undef TARGET_BIG_NAME
6811 #define TARGET_BIG_NAME "elf32-frvfdpic"
6812 #undef elf32_bed
6813 #define elf32_bed elf32_frvfdpic_bed
6815 #undef elf_info_to_howto_rel
6816 #define elf_info_to_howto_rel frvfdpic_info_to_howto_rel
6818 #undef bfd_elf32_bfd_link_hash_table_create
6819 #define bfd_elf32_bfd_link_hash_table_create \
6820 frvfdpic_elf_link_hash_table_create
6821 #undef elf_backend_always_size_sections
6822 #define elf_backend_always_size_sections \
6823 elf32_frvfdpic_always_size_sections
6825 #undef elf_backend_create_dynamic_sections
6826 #define elf_backend_create_dynamic_sections \
6827 elf32_frvfdpic_create_dynamic_sections
6828 #undef elf_backend_adjust_dynamic_symbol
6829 #define elf_backend_adjust_dynamic_symbol \
6830 elf32_frvfdpic_adjust_dynamic_symbol
6831 #undef elf_backend_size_dynamic_sections
6832 #define elf_backend_size_dynamic_sections \
6833 elf32_frvfdpic_size_dynamic_sections
6834 #undef bfd_elf32_bfd_relax_section
6835 #define bfd_elf32_bfd_relax_section \
6836 elf32_frvfdpic_relax_section
6837 #undef elf_backend_finish_dynamic_symbol
6838 #define elf_backend_finish_dynamic_symbol \
6839 elf32_frvfdpic_finish_dynamic_symbol
6840 #undef elf_backend_finish_dynamic_sections
6841 #define elf_backend_finish_dynamic_sections \
6842 elf32_frvfdpic_finish_dynamic_sections
6844 #undef elf_backend_discard_info
6845 #define elf_backend_discard_info \
6846 frvfdpic_elf_discard_info
6847 #undef elf_backend_can_make_relative_eh_frame
6848 #define elf_backend_can_make_relative_eh_frame \
6849 frvfdpic_elf_use_relative_eh_frame
6850 #undef elf_backend_can_make_lsda_relative_eh_frame
6851 #define elf_backend_can_make_lsda_relative_eh_frame \
6852 frvfdpic_elf_use_relative_eh_frame
6853 #undef elf_backend_encode_eh_address
6854 #define elf_backend_encode_eh_address \
6855 frvfdpic_elf_encode_eh_address
6857 #undef elf_backend_may_use_rel_p
6858 #define elf_backend_may_use_rel_p 1
6859 #undef elf_backend_may_use_rela_p
6860 #define elf_backend_may_use_rela_p 1
6861 /* We use REL for dynamic relocations only. */
6862 #undef elf_backend_default_use_rela_p
6863 #define elf_backend_default_use_rela_p 1
6865 #undef elf_backend_omit_section_dynsym
6866 #define elf_backend_omit_section_dynsym _frvfdpic_link_omit_section_dynsym
6868 #include "elf32-target.h"