projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
2004-05-14 Andrew Cagney <cagney@redhat.com>
[deliverable/binutils-gdb.git] / bfd / elf32-frv.c
CommitLineData
4e5ba5b7 1/* FRV-specific support for 32-bit ELF.
5a580b3a 2 Copyright 2002, 2003, 2004 Free Software Foundation, Inc.
4e5ba5b7
DB		 3
4This file is part of BFD, the Binary File Descriptor library.
5
6This program is free software; you can redistribute it and/or modify
7it under the terms of the GNU General Public License as published by
8the Free Software Foundation; either version 2 of the License, or
9(at your option) any later version.
10
11This program is distributed in the hope that it will be useful,
12but WITHOUT ANY WARRANTY; without even the implied warranty of
13MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14GNU General Public License for more details.
15
16You should have received a copy of the GNU General Public License
17along with this program; if not, write to the Free Software
18Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
19
20#include "bfd.h"
21#include "sysdep.h"
22#include "libbfd.h"
23#include "elf-bfd.h"
24#include "elf/frv.h"
ec3391e7 25#include "elf/dwarf2.h"
51532845 26#include "hashtab.h"
4e5ba5b7
DB		 27
28/* Forward declarations. */
29static bfd_reloc_status_type elf32_frv_relocate_lo16
30 PARAMS ((bfd *, Elf_Internal_Rela *, bfd_byte *, bfd_vma));
31static bfd_reloc_status_type elf32_frv_relocate_hi16
32 PARAMS ((bfd *, Elf_Internal_Rela *, bfd_byte *, bfd_vma));
33static bfd_reloc_status_type elf32_frv_relocate_label24
34 PARAMS ((bfd *, asection *, Elf_Internal_Rela *, bfd_byte *, bfd_vma));
35static bfd_reloc_status_type elf32_frv_relocate_gprel12
b34976b6
AM		 36 PARAMS ((struct bfd_link_info *, bfd *, asection *, Elf_Internal_Rela *,
37 bfd_byte *, bfd_vma));
4e5ba5b7 38static bfd_reloc_status_type elf32_frv_relocate_gprelu12
b34976b6
AM		 39 PARAMS ((struct bfd_link_info *, bfd *, asection *, Elf_Internal_Rela *,
40 bfd_byte *, bfd_vma));
4e5ba5b7 41static bfd_reloc_status_type elf32_frv_relocate_gprello
b34976b6
AM		 42 PARAMS ((struct bfd_link_info *, bfd *, asection *, Elf_Internal_Rela *,
43 bfd_byte *, bfd_vma));
4e5ba5b7 44static bfd_reloc_status_type elf32_frv_relocate_gprelhi
b34976b6
AM		 45 PARAMS ((struct bfd_link_info *, bfd *, asection *, Elf_Internal_Rela *,
46 bfd_byte *, bfd_vma));
4e5ba5b7
DB		 47static reloc_howto_type *frv_reloc_type_lookup
48 PARAMS ((bfd *, bfd_reloc_code_real_type));
b34976b6 49static void frv_info_to_howto_rela
947216bf 50 PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
b34976b6
AM		 51static bfd_boolean elf32_frv_relocate_section
52 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
53 Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
54static bfd_boolean elf32_frv_add_symbol_hook
555cd476 55 PARAMS (( bfd *, struct bfd_link_info *, Elf_Internal_Sym *,
b34976b6 56 const char **, flagword *, asection **, bfd_vma *));
4e5ba5b7 57static bfd_reloc_status_type frv_final_link_relocate
b34976b6
AM		 58 PARAMS ((reloc_howto_type *, bfd *, asection *, bfd_byte *,
59 Elf_Internal_Rela *, bfd_vma));
60static bfd_boolean elf32_frv_gc_sweep_hook
61 PARAMS ((bfd *, struct bfd_link_info *, asection *, const
62 Elf_Internal_Rela *));
4e5ba5b7 63static asection * elf32_frv_gc_mark_hook
b34976b6
AM		 64 PARAMS ((asection *, struct bfd_link_info *, Elf_Internal_Rela *,
65 struct elf_link_hash_entry *, Elf_Internal_Sym *));
66static bfd_boolean elf32_frv_check_relocs
67 PARAMS ((bfd *, struct bfd_link_info *, asection *,
68 const Elf_Internal_Rela *));
69static int elf32_frv_machine
70 PARAMS ((bfd *));
71static bfd_boolean elf32_frv_object_p
72 PARAMS ((bfd *));
73static bfd_boolean frv_elf_set_private_flags
74 PARAMS ((bfd *, flagword));
75static bfd_boolean frv_elf_copy_private_bfd_data
76 PARAMS ((bfd *, bfd *));
77static bfd_boolean frv_elf_merge_private_bfd_data
78 PARAMS ((bfd *, bfd *));
79static bfd_boolean frv_elf_print_private_bfd_data
80 PARAMS ((bfd *, PTR));
4e5ba5b7
DB		 81
82static reloc_howto_type elf32_frv_howto_table [] =
83{
84 /* This reloc does nothing. */
85 HOWTO (R_FRV_NONE, /* type */
86 0, /* rightshift */
87 2, /* size (0 = byte, 1 = short, 2 = long) */
88 32, /* bitsize */
b34976b6 89 FALSE, /* pc_relative */
4e5ba5b7
DB		 90 0, /* bitpos */
91 complain_overflow_bitfield, /* complain_on_overflow */
92 bfd_elf_generic_reloc, /* special_function */
93 "R_FRV_NONE", /* name */
b34976b6 94 FALSE, /* partial_inplace */
4e5ba5b7
DB		 95 0, /* src_mask */
96 0, /* dst_mask */
b34976b6 97 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 98
99 /* A 32 bit absolute relocation. */
100 HOWTO (R_FRV_32, /* type */
101 0, /* rightshift */
102 2, /* size (0 = byte, 1 = short, 2 = long) */
103 32, /* bitsize */
b34976b6 104 FALSE, /* pc_relative */
4e5ba5b7
DB		 105 0, /* bitpos */
106 complain_overflow_bitfield, /* complain_on_overflow */
107 bfd_elf_generic_reloc, /* special_function */
108 "R_FRV_32", /* name */
b34976b6 109 FALSE, /* partial_inplace */
4e5ba5b7
DB		 110 0xffffffff, /* src_mask */
111 0xffffffff, /* dst_mask */
b34976b6 112 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 113
114 /* A 16 bit pc-relative relocation. */
115 HOWTO (R_FRV_LABEL16, /* type */
b15b52ef 116 2, /* rightshift */
4e5ba5b7
DB		 117 2, /* size (0 = byte, 1 = short, 2 = long) */
118 16, /* bitsize */
b34976b6 119 TRUE, /* pc_relative */
4e5ba5b7 120 0, /* bitpos */
e6deed0a 121 complain_overflow_signed, /* complain_on_overflow */
4e5ba5b7
DB		 122 bfd_elf_generic_reloc, /* special_function */
123 "R_FRV_LABEL16", /* name */
b34976b6 124 FALSE, /* partial_inplace */
4e5ba5b7
DB		 125 0xffff, /* src_mask */
126 0xffff, /* dst_mask */
b34976b6 127 TRUE), /* pcrel_offset */
4e5ba5b7
DB		 128
129 /* A 24-bit pc-relative relocation. */
130 HOWTO (R_FRV_LABEL24, /* type */
131 2, /* rightshift */
132 2, /* size (0 = byte, 1 = short, 2 = long) */
133 26, /* bitsize */
b34976b6 134 TRUE, /* pc_relative */
4e5ba5b7
DB		 135 0, /* bitpos */
136 complain_overflow_bitfield, /* complain_on_overflow */
137 bfd_elf_generic_reloc, /* special_function */
138 "R_FRV_LABEL24", /* name */
b34976b6 139 FALSE, /* partial_inplace */
4e5ba5b7
DB		 140 0x7e03ffff, /* src_mask */
141 0x7e03ffff, /* dst_mask */
b34976b6 142 TRUE), /* pcrel_offset */
4e5ba5b7
DB		 143
144 HOWTO (R_FRV_LO16, /* type */
145 0, /* rightshift */
146 2, /* size (0 = byte, 1 = short, 2 = long) */
147 16, /* bitsize */
b34976b6 148 FALSE, /* pc_relative */
4e5ba5b7
DB		 149 0, /* bitpos */
150 complain_overflow_dont, /* complain_on_overflow */
151 bfd_elf_generic_reloc, /* special_function */
152 "R_FRV_LO16", /* name */
b34976b6 153 FALSE, /* partial_inplace */
4e5ba5b7
DB		 154 0xffff, /* src_mask */
155 0xffff, /* dst_mask */
b34976b6 156 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 157
158 HOWTO (R_FRV_HI16, /* type */
159 0, /* rightshift */
160 2, /* size (0 = byte, 1 = short, 2 = long) */
161 16, /* bitsize */
b34976b6 162 FALSE, /* pc_relative */
4e5ba5b7
DB		 163 0, /* bitpos */
164 complain_overflow_dont, /* complain_on_overflow */
165 bfd_elf_generic_reloc, /* special_function */
166 "R_FRV_HI16", /* name */
b34976b6 167 FALSE, /* partial_inplace */
4e5ba5b7
DB		 168 0xffff, /* src_mask */
169 0xffff, /* dst_mask */
b34976b6 170 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 171
172 HOWTO (R_FRV_GPREL12, /* type */
173 0, /* rightshift */
174 2, /* size (0 = byte, 1 = short, 2 = long) */
175 12, /* bitsize */
b34976b6 176 FALSE, /* pc_relative */
4e5ba5b7
DB		 177 0, /* bitpos */
178 complain_overflow_dont, /* complain_on_overflow */
179 bfd_elf_generic_reloc, /* special_function */
180 "R_FRV_GPREL12", /* name */
b34976b6 181 FALSE, /* partial_inplace */
4e5ba5b7
DB		 182 0xfff, /* src_mask */
183 0xfff, /* dst_mask */
b34976b6 184 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 185
186 HOWTO (R_FRV_GPRELU12, /* type */
187 0, /* rightshift */
188 2, /* size (0 = byte, 1 = short, 2 = long) */
189 12, /* bitsize */
b34976b6 190 FALSE, /* pc_relative */
4e5ba5b7
DB		 191 0, /* bitpos */
192 complain_overflow_dont, /* complain_on_overflow */
193 bfd_elf_generic_reloc, /* special_function */
194 "R_FRV_GPRELU12", /* name */
b34976b6 195 FALSE, /* partial_inplace */
4e5ba5b7
DB		 196 0xfff, /* src_mask */
197 0x3f03f, /* dst_mask */
b34976b6 198 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 199
200 HOWTO (R_FRV_GPREL32, /* type */
201 0, /* rightshift */
202 2, /* size (0 = byte, 1 = short, 2 = long) */
203 32, /* bitsize */
b34976b6 204 FALSE, /* pc_relative */
4e5ba5b7
DB		 205 0, /* bitpos */
206 complain_overflow_dont, /* complain_on_overflow */
207 bfd_elf_generic_reloc, /* special_function */
208 "R_FRV_GPREL32", /* name */
b34976b6 209 FALSE, /* partial_inplace */
4e5ba5b7
DB		 210 0xffffffff, /* src_mask */
211 0xffffffff, /* dst_mask */
b34976b6 212 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 213
214 HOWTO (R_FRV_GPRELHI, /* type */
215 0, /* rightshift */
216 2, /* size (0 = byte, 1 = short, 2 = long) */
217 16, /* bitsize */
b34976b6 218 FALSE, /* pc_relative */
4e5ba5b7
DB		 219 0, /* bitpos */
220 complain_overflow_dont, /* complain_on_overflow */
221 bfd_elf_generic_reloc, /* special_function */
222 "R_FRV_GPRELHI", /* name */
b34976b6 223 FALSE, /* partial_inplace */
4e5ba5b7
DB		 224 0xffff, /* src_mask */
225 0xffff, /* dst_mask */
b34976b6 226 FALSE), /* pcrel_offset */
4e5ba5b7
DB		 227
228 HOWTO (R_FRV_GPRELLO, /* type */
229 0, /* rightshift */
230 2, /* size (0 = byte, 1 = short, 2 = long) */
231 16, /* bitsize */
b34976b6 232 FALSE, /* pc_relative */
4e5ba5b7
DB		 233 0, /* bitpos */
234 complain_overflow_dont, /* complain_on_overflow */
235 bfd_elf_generic_reloc, /* special_function */
236 "R_FRV_GPRELLO", /* name */
b34976b6 237 FALSE, /* partial_inplace */
4e5ba5b7
DB		 238 0xffff, /* src_mask */
239 0xffff, /* dst_mask */
b34976b6 240 FALSE), /* pcrel_offset */
51532845
AO		 241
242 /* A 12-bit signed operand with the GOT offset for the address of
243 the symbol. */
244 HOWTO (R_FRV_GOT12, /* type */
245 0, /* rightshift */
246 2, /* size (0 = byte, 1 = short, 2 = long) */
247 12, /* bitsize */
248 FALSE, /* pc_relative */
249 0, /* bitpos */
250 complain_overflow_signed, /* complain_on_overflow */
251 bfd_elf_generic_reloc, /* special_function */
252 "R_FRV_GOT12", /* name */
253 FALSE, /* partial_inplace */
254 0xfff, /* src_mask */
255 0xfff, /* dst_mask */
256 FALSE), /* pcrel_offset */
257
258 /* The upper 16 bits of the GOT offset for the address of the
259 symbol. */
260 HOWTO (R_FRV_GOTHI, /* type */
261 0, /* rightshift */
262 2, /* size (0 = byte, 1 = short, 2 = long) */
263 16, /* bitsize */
264 FALSE, /* pc_relative */
265 0, /* bitpos */
266 complain_overflow_dont, /* complain_on_overflow */
267 bfd_elf_generic_reloc, /* special_function */
268 "R_FRV_GOTHI", /* name */
269 FALSE, /* partial_inplace */
270 0xffff, /* src_mask */
271 0xffff, /* dst_mask */
272 FALSE), /* pcrel_offset */
273
274 /* The lower 16 bits of the GOT offset for the address of the
275 symbol. */
276 HOWTO (R_FRV_GOTLO, /* type */
277 0, /* rightshift */
278 2, /* size (0 = byte, 1 = short, 2 = long) */
279 16, /* bitsize */
280 FALSE, /* pc_relative */
281 0, /* bitpos */
282 complain_overflow_dont, /* complain_on_overflow */
283 bfd_elf_generic_reloc, /* special_function */
284 "R_FRV_GOTLO", /* name */
285 FALSE, /* partial_inplace */
286 0xffff, /* src_mask */
287 0xffff, /* dst_mask */
288 FALSE), /* pcrel_offset */
289
290 /* The 32-bit address of the canonical descriptor of a function. */
291 HOWTO (R_FRV_FUNCDESC, /* type */
292 0, /* rightshift */
293 2, /* size (0 = byte, 1 = short, 2 = long) */
294 32, /* bitsize */
295 FALSE, /* pc_relative */
296 0, /* bitpos */
297 complain_overflow_bitfield, /* complain_on_overflow */
298 bfd_elf_generic_reloc, /* special_function */
299 "R_FRV_FUNCDESC", /* name */
300 FALSE, /* partial_inplace */
301 0xffffffff, /* src_mask */
302 0xffffffff, /* dst_mask */
303 FALSE), /* pcrel_offset */
304
305 /* A 12-bit signed operand with the GOT offset for the address of
306 canonical descriptor of a function. */
307 HOWTO (R_FRV_FUNCDESC_GOT12, /* type */
308 0, /* rightshift */
309 2, /* size (0 = byte, 1 = short, 2 = long) */
310 12, /* bitsize */
311 FALSE, /* pc_relative */
312 0, /* bitpos */
313 complain_overflow_signed, /* complain_on_overflow */
314 bfd_elf_generic_reloc, /* special_function */
315 "R_FRV_FUNCDESC_GOT12", /* name */
316 FALSE, /* partial_inplace */
317 0xfff, /* src_mask */
318 0xfff, /* dst_mask */
319 FALSE), /* pcrel_offset */
320
321 /* The upper 16 bits of the GOT offset for the address of the
322 canonical descriptor of a function. */
323 HOWTO (R_FRV_FUNCDESC_GOTHI, /* type */
324 0, /* rightshift */
325 2, /* size (0 = byte, 1 = short, 2 = long) */
326 16, /* bitsize */
327 FALSE, /* pc_relative */
328 0, /* bitpos */
329 complain_overflow_dont, /* complain_on_overflow */
330 bfd_elf_generic_reloc, /* special_function */
331 "R_FRV_FUNCDESC_GOTHI", /* name */
332 FALSE, /* partial_inplace */
333 0xffff, /* src_mask */
334 0xffff, /* dst_mask */
335 FALSE), /* pcrel_offset */
336
337 /* The lower 16 bits of the GOT offset for the address of the
338 canonical descriptor of a function. */
339 HOWTO (R_FRV_FUNCDESC_GOTLO, /* type */
340 0, /* rightshift */
341 2, /* size (0 = byte, 1 = short, 2 = long) */
342 16, /* bitsize */
343 FALSE, /* pc_relative */
344 0, /* bitpos */
345 complain_overflow_dont, /* complain_on_overflow */
346 bfd_elf_generic_reloc, /* special_function */
347 "R_FRV_FUNCDESC_GOTLO", /* name */
348 FALSE, /* partial_inplace */
349 0xffff, /* src_mask */
350 0xffff, /* dst_mask */
351 FALSE), /* pcrel_offset */
352
353 /* The 32-bit address of the canonical descriptor of a function. */
354 HOWTO (R_FRV_FUNCDESC_VALUE, /* type */
355 0, /* rightshift */
356 2, /* size (0 = byte, 1 = short, 2 = long) */
357 64, /* bitsize */
358 FALSE, /* pc_relative */
359 0, /* bitpos */
360 complain_overflow_bitfield, /* complain_on_overflow */
361 bfd_elf_generic_reloc, /* special_function */
362 "R_FRV_FUNCDESC_VALUE", /* name */
363 FALSE, /* partial_inplace */
364 0xffffffff, /* src_mask */
365 0xffffffff, /* dst_mask */
366 FALSE), /* pcrel_offset */
367
368 /* A 12-bit signed operand with the GOT offset for the address of
369 canonical descriptor of a function. */
370 HOWTO (R_FRV_FUNCDESC_GOTOFF12, /* type */
371 0, /* rightshift */
372 2, /* size (0 = byte, 1 = short, 2 = long) */
373 12, /* bitsize */
374 FALSE, /* pc_relative */
375 0, /* bitpos */
376 complain_overflow_signed, /* complain_on_overflow */
377 bfd_elf_generic_reloc, /* special_function */
378 "R_FRV_FUNCDESC_GOTOFF12", /* name */
379 FALSE, /* partial_inplace */
380 0xfff, /* src_mask */
381 0xfff, /* dst_mask */
382 FALSE), /* pcrel_offset */
383
384 /* The upper 16 bits of the GOT offset for the address of the
385 canonical descriptor of a function. */
386 HOWTO (R_FRV_FUNCDESC_GOTOFFHI, /* type */
387 0, /* rightshift */
388 2, /* size (0 = byte, 1 = short, 2 = long) */
389 16, /* bitsize */
390 FALSE, /* pc_relative */
391 0, /* bitpos */
392 complain_overflow_dont, /* complain_on_overflow */
393 bfd_elf_generic_reloc, /* special_function */
394 "R_FRV_FUNCDESC_GOTOFFHI", /* name */
395 FALSE, /* partial_inplace */
396 0xffff, /* src_mask */
397 0xffff, /* dst_mask */
398 FALSE), /* pcrel_offset */
399
400 /* The lower 16 bits of the GOT offset for the address of the
401 canonical descriptor of a function. */
402 HOWTO (R_FRV_FUNCDESC_GOTOFFLO, /* type */
403 0, /* rightshift */
404 2, /* size (0 = byte, 1 = short, 2 = long) */
405 16, /* bitsize */
406 FALSE, /* pc_relative */
407 0, /* bitpos */
408 complain_overflow_dont, /* complain_on_overflow */
409 bfd_elf_generic_reloc, /* special_function */
410 "R_FRV_FUNCDESC_GOTOFFLO", /* name */
411 FALSE, /* partial_inplace */
412 0xffff, /* src_mask */
413 0xffff, /* dst_mask */
414 FALSE), /* pcrel_offset */
415
416 /* A 12-bit signed operand with the GOT offset for the address of
417 the symbol. */
418 HOWTO (R_FRV_GOTOFF12, /* type */
419 0, /* rightshift */
420 2, /* size (0 = byte, 1 = short, 2 = long) */
421 12, /* bitsize */
422 FALSE, /* pc_relative */
423 0, /* bitpos */
424 complain_overflow_signed, /* complain_on_overflow */
425 bfd_elf_generic_reloc, /* special_function */
426 "R_FRV_GOTOFF12", /* name */
427 FALSE, /* partial_inplace */
428 0xfff, /* src_mask */
429 0xfff, /* dst_mask */
430 FALSE), /* pcrel_offset */
431
432 /* The upper 16 bits of the GOT offset for the address of the
433 symbol. */
434 HOWTO (R_FRV_GOTOFFHI, /* type */
435 0, /* rightshift */
436 2, /* size (0 = byte, 1 = short, 2 = long) */
437 16, /* bitsize */
438 FALSE, /* pc_relative */
439 0, /* bitpos */
440 complain_overflow_dont, /* complain_on_overflow */
441 bfd_elf_generic_reloc, /* special_function */
442 "R_FRV_GOTOFFHI", /* name */
443 FALSE, /* partial_inplace */
444 0xffff, /* src_mask */
445 0xffff, /* dst_mask */
446 FALSE), /* pcrel_offset */
447
448 /* The lower 16 bits of the GOT offset for the address of the
449 symbol. */
450 HOWTO (R_FRV_GOTOFFLO, /* type */
451 0, /* rightshift */
452 2, /* size (0 = byte, 1 = short, 2 = long) */
453 16, /* bitsize */
454 FALSE, /* pc_relative */
455 0, /* bitpos */
456 complain_overflow_dont, /* complain_on_overflow */
457 bfd_elf_generic_reloc, /* special_function */
458 "R_FRV_GOTOFFLO", /* name */
459 FALSE, /* partial_inplace */
460 0xffff, /* src_mask */
461 0xffff, /* dst_mask */
462 FALSE), /* pcrel_offset */
463
4e5ba5b7
DB		 464};
465
466/* GNU extension to record C++ vtable hierarchy. */
467static reloc_howto_type elf32_frv_vtinherit_howto =
468 HOWTO (R_FRV_GNU_VTINHERIT, /* type */
469 0, /* rightshift */
470 2, /* size (0 = byte, 1 = short, 2 = long) */
471 0, /* bitsize */
b34976b6 472 FALSE, /* pc_relative */
4e5ba5b7
DB		 473 0, /* bitpos */
474 complain_overflow_dont, /* complain_on_overflow */
475 NULL, /* special_function */
476 "R_FRV_GNU_VTINHERIT", /* name */
b34976b6 477 FALSE, /* partial_inplace */
4e5ba5b7
DB		 478 0, /* src_mask */
479 0, /* dst_mask */
b34976b6 480 FALSE); /* pcrel_offset */
4e5ba5b7
DB		 481
482 /* GNU extension to record C++ vtable member usage. */
483static reloc_howto_type elf32_frv_vtentry_howto =
484 HOWTO (R_FRV_GNU_VTENTRY, /* type */
485 0, /* rightshift */
486 2, /* size (0 = byte, 1 = short, 2 = long) */
487 0, /* bitsize */
b34976b6 488 FALSE, /* pc_relative */
4e5ba5b7
DB		 489 0, /* bitpos */
490 complain_overflow_dont, /* complain_on_overflow */
491 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
492 "R_FRV_GNU_VTENTRY", /* name */
b34976b6 493 FALSE, /* partial_inplace */
4e5ba5b7
DB		 494 0, /* src_mask */
495 0, /* dst_mask */
b34976b6 496 FALSE); /* pcrel_offset */
51532845
AO		 497
498/* The following 3 relocations are REL. The only difference to the
499 entries in the table above are that partial_inplace is TRUE. */
500static reloc_howto_type elf32_frv_rel_32_howto =
501 HOWTO (R_FRV_32, /* type */
502 0, /* rightshift */
503 2, /* size (0 = byte, 1 = short, 2 = long) */
504 32, /* bitsize */
505 FALSE, /* pc_relative */
506 0, /* bitpos */
507 complain_overflow_bitfield, /* complain_on_overflow */
508 bfd_elf_generic_reloc, /* special_function */
509 "R_FRV_32", /* name */
510 TRUE, /* partial_inplace */
511 0xffffffff, /* src_mask */
512 0xffffffff, /* dst_mask */
513 FALSE); /* pcrel_offset */
514
515static reloc_howto_type elf32_frv_rel_funcdesc_howto =
516 HOWTO (R_FRV_FUNCDESC, /* type */
517 0, /* rightshift */
518 2, /* size (0 = byte, 1 = short, 2 = long) */
519 32, /* bitsize */
520 FALSE, /* pc_relative */
521 0, /* bitpos */
522 complain_overflow_bitfield, /* complain_on_overflow */
523 bfd_elf_generic_reloc, /* special_function */
524 "R_FRV_FUNCDESC", /* name */
525 TRUE, /* partial_inplace */
526 0xffffffff, /* src_mask */
527 0xffffffff, /* dst_mask */
528 FALSE); /* pcrel_offset */
529
530static reloc_howto_type elf32_frv_rel_funcdesc_value_howto =
531 HOWTO (R_FRV_FUNCDESC_VALUE, /* type */
532 0, /* rightshift */
533 2, /* size (0 = byte, 1 = short, 2 = long) */
534 64, /* bitsize */
535 FALSE, /* pc_relative */
536 0, /* bitpos */
537 complain_overflow_bitfield, /* complain_on_overflow */
538 bfd_elf_generic_reloc, /* special_function */
539 "R_FRV_FUNCDESC_VALUE", /* name */
540 TRUE, /* partial_inplace */
541 0xffffffff, /* src_mask */
542 0xffffffff, /* dst_mask */
543 FALSE); /* pcrel_offset */
544
4e5ba5b7
DB		 545\f
546/* Map BFD reloc types to FRV ELF reloc types. */
547#if 0
548struct frv_reloc_map
549{
550 unsigned int bfd_reloc_val;
551 unsigned int frv_reloc_val;
552};
553
554static const struct frv_reloc_map frv_reloc_map [] =
555{
556 { BFD_RELOC_NONE, R_FRV_NONE },
557 { BFD_RELOC_32, R_FRV_32 },
558 { BFD_RELOC_FRV_LABEL16, R_FRV_LABEL16 },
559 { BFD_RELOC_FRV_LABEL24, R_FRV_LABEL24 },
560 { BFD_RELOC_FRV_LO16, R_FRV_LO16 },
561 { BFD_RELOC_FRV_HI16, R_FRV_HI16 },
562 { BFD_RELOC_FRV_GPREL12, R_FRV_GPREL12 },
563 { BFD_RELOC_FRV_GPRELU12, R_FRV_GPRELU12 },
564 { BFD_RELOC_FRV_GPREL32, R_FRV_GPREL32 },
565 { BFD_RELOC_FRV_GPRELHI, R_FRV_GPRELHI },
566 { BFD_RELOC_FRV_GPRELLO, R_FRV_GPRELLO },
51532845
AO		 567 { BFD_RELOC_FRV_GOT12, R_FRV_GOT12 },
568 { BFD_RELOC_FRV_GOTHI, R_FRV_GOTHI },
569 { BFD_RELOC_FRV_GOTLO, R_FRV_GOTLO },
570 { BFD_RELOC_FRV_FUNCDESC, R_FRV_FUNCDESC },
571 { BFD_RELOC_FRV_FUNCDESC_GOT12, R_FRV_FUNCDESC_GOT12 },
572 { BFD_RELOC_FRV_FUNCDESC_GOTHI, R_FRV_FUNCDESC_GOTHI },
573 { BFD_RELOC_FRV_FUNCDESC_GOTLO, R_FRV_FUNCDESC_GOTLO },
574 { BFD_RELOC_FRV_FUNCDESC_VALUE, R_FRV_FUNCDESC_VALUE },
575 { BFD_RELOC_FRV_FUNCDESC_GOTOFF12, R_FRV_FUNCDESC_GOTOFF12 },
576 { BFD_RELOC_FRV_FUNCDESC_GOTOFFHI, R_FRV_FUNCDESC_GOTOFFHI },
577 { BFD_RELOC_FRV_FUNCDESC_GOTOFFLO, R_FRV_FUNCDESC_GOTOFFLO },
578 { BFD_RELOC_FRV_GOTOFF12, R_FRV_GOTOFF12 },
579 { BFD_RELOC_FRV_GOTOFFHI, R_FRV_GOTOFFHI },
580 { BFD_RELOC_FRV_GOTOFFLO, R_FRV_GOTOFFLO },
4e5ba5b7
DB		 581 { BFD_RELOC_VTABLE_INHERIT, R_FRV_GNU_VTINHERIT },
582 { BFD_RELOC_VTABLE_ENTRY, R_FRV_GNU_VTENTRY },
583};
584#endif
585
43850d5b
AO		 586extern const bfd_target bfd_elf32_frvfdpic_vec;
587#define IS_FDPIC(bfd) ((bfd)->xvec == &bfd_elf32_frvfdpic_vec)
4e5ba5b7 588
51532845
AO		 589/* An extension of the elf hash table data structure, containing some
590 additional FRV-specific data. */
43850d5b 591struct frvfdpic_elf_link_hash_table
4e5ba5b7 592{
51532845
AO		 593 struct elf_link_hash_table elf;
594
595 /* A pointer to the .got section. */
596 asection *sgot;
597 /* A pointer to the .rel.got section. */
598 asection *sgotrel;
599 /* A pointer to the .rofixup section. */
600 asection *sgotfixup;
601 /* A pointer to the .plt section. */
602 asection *splt;
603 /* A pointer to the .rel.plt section. */
604 asection *spltrel;
605 /* GOT base offset. */
606 bfd_vma got0;
607 /* Location of the first non-lazy PLT entry, i.e., the number of
608 bytes taken by lazy PLT entries. */
609 bfd_vma plt0;
610 /* A hash table holding information about which symbols were
611 referenced with which PIC-related relocations. */
612 struct htab *relocs_info;
613};
4e5ba5b7 614
51532845
AO		 615/* Get the FRV ELF linker hash table from a link_info structure. */
616
43850d5b
AO		 617#define frvfdpic_hash_table(info) \
618 ((struct frvfdpic_elf_link_hash_table *) ((info)->hash))
619
620#define frvfdpic_got_section(info) \
621 (frvfdpic_hash_table (info)->sgot)
622#define frvfdpic_gotrel_section(info) \
623 (frvfdpic_hash_table (info)->sgotrel)
624#define frvfdpic_gotfixup_section(info) \
625 (frvfdpic_hash_table (info)->sgotfixup)
626#define frvfdpic_plt_section(info) \
627 (frvfdpic_hash_table (info)->splt)
628#define frvfdpic_pltrel_section(info) \
629 (frvfdpic_hash_table (info)->spltrel)
630#define frvfdpic_relocs_info(info) \
631 (frvfdpic_hash_table (info)->relocs_info)
632#define frvfdpic_got_initial_offset(info) \
633 (frvfdpic_hash_table (info)->got0)
634#define frvfdpic_plt_initial_offset(info) \
635 (frvfdpic_hash_table (info)->plt0)
51532845
AO		 636
637/* Create an FRV ELF linker hash table. */
638
639static struct bfd_link_hash_table *
43850d5b 640frvfdpic_elf_link_hash_table_create (bfd *abfd)
51532845 641{
43850d5b
AO		 642 struct frvfdpic_elf_link_hash_table *ret;
643 bfd_size_type amt = sizeof (struct frvfdpic_elf_link_hash_table);
4e5ba5b7 644
51532845
AO		 645 ret = bfd_zalloc (abfd, amt);
646 if (ret == NULL)
647 return NULL;
4e5ba5b7 648
51532845
AO		 649 if (! _bfd_elf_link_hash_table_init (&ret->elf, abfd,
650 _bfd_elf_link_hash_newfunc))
651 {
652 free (ret);
653 return NULL;
654 }
4e5ba5b7 655
51532845
AO		 656 return &ret->elf.root;
657}
4e5ba5b7 658
51532845
AO		 659/* Decide whether a reference to a symbol can be resolved locally or
660 not. If the symbol is protected, we want the local address, but
661 its function descriptor must be assigned by the dynamic linker. */
43850d5b 662#define FRVFDPIC_SYM_LOCAL(INFO, H) \
51532845
AO		 663 (_bfd_elf_symbol_refs_local_p ((H), (INFO), 1) \
664 || ! elf_hash_table (INFO)->dynamic_sections_created \
51532845
AO		 665 || (/* The condition below is an ugly hack to get .scommon data to
666 be regarded as local. For some reason the
667 ELF_LINK_HASH_DEF_REGULAR bit is not set on such common
668 symbols, and the SEC_IS_COMMON bit is not set any longer
669 when we need to perform this test. Hopefully this
670 approximation is good enough. */ \
671 ((H)->root.type == bfd_link_hash_defined \
672 || (H)->root.type == bfd_link_hash_defweak) \
673 && (H)->root.u.def.section->output_section \
674 && ((H)->root.u.def.section->flags & SEC_LINKER_CREATED)))
43850d5b 675#define FRVFDPIC_FUNCDESC_LOCAL(INFO, H) \
51532845
AO		 676 ((H)->dynindx == -1 || ! elf_hash_table (INFO)->dynamic_sections_created)
677
678/* This structure collects information on what kind of GOT, PLT or
679 function descriptors are required by relocations that reference a
680 certain symbol. */
43850d5b 681struct frvfdpic_relocs_info
51532845
AO		 682{
683 /* The index of the symbol, as stored in the relocation r_info, if
684 we have a local symbol; -1 otherwise. */
685 long symndx;
686 union
687 {
688 /* The input bfd in which the symbol is defined, if it's a local
689 symbol. */
690 bfd *abfd;
691 /* If symndx == -1, the hash table entry corresponding to a global
692 symbol (even if it turns out to bind locally, in which case it
693 should ideally be replaced with section's symndx + addend). */
694 struct elf_link_hash_entry *h;
695 } d;
696 /* The addend of the relocation that references the symbol. */
697 bfd_vma addend;
698
699 /* The fields above are used to identify an entry. The fields below
700 contain information on how an entry is used and, later on, which
701 locations it was assigned. */
702 /* The following 3 fields record whether the symbol+addend above was
703 ever referenced with a GOT relocation. The 12 suffix indicates a
704 GOT12 relocation; los is used for GOTLO relocations that are not
705 matched by a GOTHI relocation; hilo is used for GOTLO/GOTHI
706 pairs. */
707 unsigned got12:1;
708 unsigned gotlos:1;
709 unsigned gothilo:1;
710 /* Whether a FUNCDESC relocation references symbol+addend. */
711 unsigned fd:1;
712 /* Whether a FUNCDESC_GOT relocation references symbol+addend. */
713 unsigned fdgot12:1;
714 unsigned fdgotlos:1;
715 unsigned fdgothilo:1;
716 /* Whether a FUNCDESC_GOTOFF relocation references symbol+addend. */
717 unsigned fdgoff12:1;
718 unsigned fdgofflos:1;
719 unsigned fdgoffhilo:1;
720 /* Whether symbol+addend is referenced with GOTOFF12, GOTOFFLO or
721 GOTOFFHI relocations. The addend doesn't really matter, since we
722 envision that this will only be used to check whether the symbol
723 is mapped to the same segment as the got. */
724 unsigned gotoff:1;
725 /* Whether symbol+addend is referenced by a LABEL24 relocation. */
726 unsigned call:1;
727 /* Whether symbol+addend is referenced by a 32 or FUNCDESC_VALUE
728 relocation. */
729 unsigned sym:1;
730 /* Whether we need a PLT entry for a symbol. Should be implied by
731 something like:
43850d5b 732 (call && symndx == -1 && ! FRVFDPIC_SYM_LOCAL (info, d.h)) */
51532845
AO		 733 unsigned plt:1;
734 /* Whether a function descriptor should be created in this link unit
735 for symbol+addend. Should be implied by something like:
736 (plt || fdgotoff12 || fdgotofflos || fdgotofflohi
737 || ((fd || fdgot12 || fdgotlos || fdgothilo)
43850d5b 738 && (symndx != -1 || FRVFDPIC_FUNCDESC_LOCAL (info, d.h)))) */
51532845
AO		 739 unsigned privfd:1;
740 /* Whether a lazy PLT entry is needed for this symbol+addend.
741 Should be implied by something like:
43850d5b 742 (privfd && symndx == -1 && ! FRVFDPIC_SYM_LOCAL (info, d.h)
51532845
AO		 743 && ! (info->flags & DF_BIND_NOW)) */
744 unsigned lazyplt:1;
745 /* Whether we've already emitted GOT relocations and PLT entries as
746 needed for this symbol. */
747 unsigned done:1;
748
749 /* The number of R_FRV_32, R_FRV_FUNCDESC and R_FRV_FUNCDESC_VALUE
750 relocations referencing the symbol. */
751 unsigned relocs32, relocsfd, relocsfdv;
752
3b712a1a
AO		 753 /* The number of .rofixups entries and dynamic relocations allocated
754 for this symbol, minus any that might have already been used. */
755 unsigned fixups, dynrelocs;
756
51532845
AO		 757 /* The offsets of the GOT entries assigned to symbol+addend, to the
758 function descriptor's address, and to a function descriptor,
759 respectively. Should be zero if unassigned. The offsets are
760 counted from the value that will be assigned to the PIC register,
761 not from the beginning of the .got section. */
762 bfd_signed_vma got_entry, fdgot_entry, fd_entry;
763 /* The offsets of the PLT entries assigned to symbol+addend,
764 non-lazy and lazy, respectively. If unassigned, should be
765 (bfd_vma)-1. */
766 bfd_vma plt_entry, lzplt_entry;
767};
4e5ba5b7 768
43850d5b 769/* Compute a hash with the key fields of an frvfdpic_relocs_info entry. */
51532845 770static hashval_t
43850d5b 771frvfdpic_relocs_info_hash (const void *entry_)
51532845 772{
43850d5b 773 const struct frvfdpic_relocs_info *entry = entry_;
4e5ba5b7 774
51532845
AO		 775 return (entry->symndx == -1
776 ? entry->d.h->root.root.hash
777 : entry->symndx + entry->d.abfd->id * 257) + entry->addend;
4e5ba5b7
DB		 778}
779
43850d5b 780/* Test whether the key fields of two frvfdpic_relocs_info entries are
51532845
AO		 781 identical. */
782static int
43850d5b 783frvfdpic_relocs_info_eq (const void *entry1, const void *entry2)
51532845 784{
43850d5b
AO		 785 const struct frvfdpic_relocs_info *e1 = entry1;
786 const struct frvfdpic_relocs_info *e2 = entry2;
4e5ba5b7 787
51532845
AO		 788 return e1->symndx == e2->symndx && e1->addend == e2->addend
789 && (e1->symndx == -1 ? e1->d.h == e2->d.h : e1->d.abfd == e2->d.abfd);
790}
791
792/* Find or create an entry in a hash table HT that matches the key
793 fields of the given ENTRY. If it's not found, memory for a new
794 entry is allocated in ABFD's obstack. */
43850d5b
AO		 795static struct frvfdpic_relocs_info *
796frvfdpic_relocs_info_find (struct htab *ht,
797 bfd *abfd,
798 const struct frvfdpic_relocs_info *entry,
799 enum insert_option insert)
4e5ba5b7 800{
43850d5b
AO		 801 struct frvfdpic_relocs_info **loc =
802 (struct frvfdpic_relocs_info **) htab_find_slot (ht, entry, insert);
3b712a1a
AO		 803
804 if (! loc)
805 return NULL;
4e5ba5b7 806
51532845
AO		 807 if (*loc)
808 return *loc;
4e5ba5b7 809
51532845 810 *loc = bfd_zalloc (abfd, sizeof (**loc));
b34976b6 811
51532845
AO		 812 if (! *loc)
813 return *loc;
814
815 (*loc)->symndx = entry->symndx;
816 (*loc)->d = entry->d;
817 (*loc)->addend = entry->addend;
818 (*loc)->plt_entry = (bfd_vma)-1;
819 (*loc)->lzplt_entry = (bfd_vma)-1;
820
821 return *loc;
822}
823
824/* Obtain the address of the entry in HT associated with H's symbol +
825 addend, creating a new entry if none existed. ABFD is only used
826 for memory allocation purposes. */
43850d5b
AO		 827inline static struct frvfdpic_relocs_info *
828frvfdpic_relocs_info_for_global (struct htab *ht,
829 bfd *abfd,
830 struct elf_link_hash_entry *h,
831 bfd_vma addend,
832 enum insert_option insert)
51532845 833{
43850d5b 834 struct frvfdpic_relocs_info entry;
51532845
AO		 835
836 entry.symndx = -1;
837 entry.d.h = h;
838 entry.addend = addend;
839
43850d5b 840 return frvfdpic_relocs_info_find (ht, abfd, &entry, insert);
51532845
AO		 841}
842
843/* Obtain the address of the entry in HT associated with the SYMNDXth
844 local symbol of the input bfd ABFD, plus the addend, creating a new
845 entry if none existed. */
43850d5b
AO		 846inline static struct frvfdpic_relocs_info *
847frvfdpic_relocs_info_for_local (struct htab *ht,
848 bfd *abfd,
849 long symndx,
850 bfd_vma addend,
851 enum insert_option insert)
51532845 852{
43850d5b 853 struct frvfdpic_relocs_info entry;
51532845
AO		 854
855 entry.symndx = symndx;
856 entry.d.abfd = abfd;
857 entry.addend = addend;
858
43850d5b 859 return frvfdpic_relocs_info_find (ht, abfd, &entry, insert);
3b712a1a
AO		 860}
861
862/* Merge fields set by check_relocs() of two entries that end up being
863 mapped to the same (presumably global) symbol. */
864
865inline static void
43850d5b
AO		 866frvfdpic_pic_merge_early_relocs_info (struct frvfdpic_relocs_info *e2,
867 struct frvfdpic_relocs_info const *e1)
3b712a1a
AO		 868{
869 e2->got12 |= e1->got12;
870 e2->gotlos |= e1->gotlos;
871 e2->gothilo |= e1->gothilo;
872 e2->fd |= e1->fd;
873 e2->fdgot12 |= e1->fdgot12;
874 e2->fdgotlos |= e1->fdgotlos;
875 e2->fdgothilo |= e1->fdgothilo;
876 e2->fdgoff12 |= e1->fdgoff12;
877 e2->fdgofflos |= e1->fdgofflos;
878 e2->fdgoffhilo |= e1->fdgoffhilo;
879 e2->gotoff |= e1->gotoff;
880 e2->call |= e1->call;
881 e2->sym |= e1->sym;
882
883#if 0
43850d5b
AO		 884 /* These are set in _frvfdpic_count_got_plt_entries() or later, and this
885 function is only called in _frvfdpic_resolve_final_relocs_info(), that
3b712a1a
AO		 886 runs just before it, so we don't have to worry about the fields
887 below. */
888
889 e2->plt |= e1->plt;
890 e2->privfd |= e1->privfd;
891 e2->lazyplt |= e1->lazyplt;
892 e2->done |= e1->done;
893
894 e2->relocs32 += e1->relocs32;
895 e2->relocsfd += e1->relocsfd;
896 e2->relocsfdv += e1->relocsfdv;
897 e2->fixups += e1->fixups;
898 e2->dynrelocs += e1->dynrelocs;
899
900 if (abs (e1->got_entry) < abs (e2->got_entry))
901 e2->got_entry = e1->got_entry;
902 if (abs (e1->fdgot_entry) < abs (e2->fdgot_entry))
903 e2->fdgot_entry = e1->fdgot_entry;
904 if (abs (e1->fd_entry) < abs (e2->fd_entry))
905 e2->fd_entry = e1->fd_entry;
906
907 if (e1->plt_entry < e2->plt_entry)
908 e2->plt_entry = e1->plt_entry;
909 if (e1->lzplt_entry < e2->lzplt_entry)
910 e2->lzplt_entry = e1->lzplt_entry;
911#endif
51532845
AO		 912}
913
914/* Every block of 65535 lazy PLT entries shares a single call to the
915 resolver, inserted in the 32768th lazy PLT entry (i.e., entry #
916 32767, counting from 0). All other lazy PLT entries branch to it
917 in a single instruction. */
918
43850d5b
AO		 919#define FRVFDPIC_LZPLT_BLOCK_SIZE ((bfd_vma) 8 * 65535 + 4)
920#define FRVFDPIC_LZPLT_RESOLV_LOC (8 * 32767)
51532845
AO		 921
922/* Add a dynamic relocation to the SRELOC section. */
923
924inline static bfd_vma
43850d5b
AO		 925_frvfdpic_add_dyn_reloc (bfd *output_bfd, asection *sreloc, bfd_vma offset,
926 int reloc_type, long dynindx, bfd_vma addend,
927 struct frvfdpic_relocs_info *entry)
51532845
AO		 928{
929 Elf_Internal_Rela outrel;
930 bfd_vma reloc_offset;
931
932 outrel.r_offset = offset;
933 outrel.r_info = ELF32_R_INFO (dynindx, reloc_type);
934 outrel.r_addend = addend;
935
936 reloc_offset = sreloc->reloc_count * sizeof (Elf32_External_Rel);
937 BFD_ASSERT (reloc_offset < sreloc->_raw_size);
938 bfd_elf32_swap_reloc_out (output_bfd, &outrel,
939 sreloc->contents + reloc_offset);
940 sreloc->reloc_count++;
941
3f980e41
AO		 942 /* If the entry's index is zero, this relocation was probably to a
943 linkonce section that got discarded. We reserved a dynamic
944 relocation, but it was for another entry than the one we got at
945 the time of emitting the relocation. Unfortunately there's no
946 simple way for us to catch this situation, since the relocation
947 is cleared right before calling relocate_section, at which point
948 we no longer know what the relocation used to point to. */
949 if (entry->symndx)
950 {
951 BFD_ASSERT (entry->dynrelocs > 0);
952 entry->dynrelocs--;
953 }
3b712a1a 954
51532845
AO		 955 return reloc_offset;
956}
957
958/* Add a fixup to the ROFIXUP section. */
959
960static bfd_vma
43850d5b
AO		 961_frvfdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma offset,
962 struct frvfdpic_relocs_info *entry)
51532845
AO		 963{
964 bfd_vma fixup_offset;
965
966 if (rofixup->flags & SEC_EXCLUDE)
967 return -1;
968
969 fixup_offset = rofixup->reloc_count * 4;
970 if (rofixup->contents)
971 {
972 BFD_ASSERT (fixup_offset < rofixup->_raw_size);
973 bfd_put_32 (output_bfd, offset, rofixup->contents + fixup_offset);
974 }
975 rofixup->reloc_count++;
3b712a1a 976
3f980e41 977 if (entry && entry->symndx)
3b712a1a 978 {
3f980e41
AO		 979 /* See discussion about symndx == 0 in _frvfdpic_add_dyn_reloc
980 above. */
3b712a1a
AO		 981 BFD_ASSERT (entry->fixups > 0);
982 entry->fixups--;
983 }
984
51532845
AO		 985 return fixup_offset;
986}
987
988/* Find the segment number in which OSEC, and output section, is
989 located. */
990
991static unsigned
43850d5b 992_frvfdpic_osec_to_segment (bfd *output_bfd, asection *osec)
51532845
AO		 993{
994 struct elf_segment_map *m;
995 Elf_Internal_Phdr *p;
996
997 /* Find the segment that contains the output_section. */
998 for (m = elf_tdata (output_bfd)->segment_map,
999 p = elf_tdata (output_bfd)->phdr;
1000 m != NULL;
1001 m = m->next, p++)
1002 {
1003 int i;
1004
1005 for (i = m->count - 1; i >= 0; i--)
1006 if (m->sections[i] == osec)
1007 break;
1008
1009 if (i >= 0)
1010 break;
1011 }
1012
1013 return p - elf_tdata (output_bfd)->phdr;
1014}
1015
1016inline static bfd_boolean
43850d5b 1017_frvfdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
51532845 1018{
43850d5b 1019 unsigned seg = _frvfdpic_osec_to_segment (output_bfd, osec);
51532845
AO		 1020
1021 return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
1022}
1023
1024/* Generate relocations for GOT entries, function descriptors, and
1025 code for PLT and lazy PLT entries. */
1026
1027inline static bfd_boolean
43850d5b
AO		 1028_frvfdpic_emit_got_relocs_plt_entries (struct frvfdpic_relocs_info *entry,
1029 bfd *output_bfd,
1030 struct bfd_link_info *info,
1031 asection *sec,
1032 Elf_Internal_Sym *sym,
1033 bfd_vma addend)
51532845
AO		 1034
1035{
1036 bfd_vma fd_lazy_rel_offset = (bfd_vma)-1;
1037 int dynindx = -1;
1038
1039 if (entry->done)
1040 return TRUE;
1041 entry->done = 1;
1042
1043 if (entry->got_entry || entry->fdgot_entry || entry->fd_entry)
1044 {
1045 /* If the symbol is dynamic, consider it for dynamic
1046 relocations, otherwise decay to section + offset. */
1047 if (entry->symndx == -1 && entry->d.h->dynindx != -1)
1048 dynindx = entry->d.h->dynindx;
1049 else
1050 {
1051 if (sec->output_section
1052 && ! bfd_is_abs_section (sec->output_section)
1053 && ! bfd_is_und_section (sec->output_section))
1054 dynindx = elf_section_data (sec->output_section)->dynindx;
1055 else
1056 dynindx = 0;
1057 }
1058 }
1059
1060 /* Generate relocation for GOT entry pointing to the symbol. */
1061 if (entry->got_entry)
1062 {
1063 int idx = dynindx;
1064 bfd_vma ad = addend;
1065
1066 /* If the symbol is dynamic but binds locally, use
1067 section+offset. */
43850d5b
AO		 1068 if (sec && (entry->symndx != -1
1069 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
51532845
AO		 1070 {
1071 if (entry->symndx == -1)
1072 ad += entry->d.h->root.u.def.value;
1073 else
1074 ad += sym->st_value;
1075 ad += sec->output_offset;
1076 if (sec->output_section && elf_section_data (sec->output_section))
1077 idx = elf_section_data (sec->output_section)->dynindx;
1078 else
1079 idx = 0;
1080 }
1081
1082 /* If we're linking an executable at a fixed address, we can
1083 omit the dynamic relocation as long as the symbol is local to
1084 this module. */
1085 if (info->executable && !info->pie
43850d5b
AO		 1086 && (entry->symndx != -1
1087 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
51532845
AO		 1088 {
1089 if (sec)
1090 ad += sec->output_section->vma;
3b712a1a
AO		 1091 if (entry->symndx != -1
1092 || entry->d.h->root.type != bfd_link_hash_undefweak)
43850d5b
AO		 1093 _frvfdpic_add_rofixup (output_bfd,
1094 frvfdpic_gotfixup_section (info),
1095 frvfdpic_got_section (info)->output_section
1096 ->vma
1097 + frvfdpic_got_section (info)->output_offset
1098 + frvfdpic_got_initial_offset (info)
1099 + entry->got_entry, entry);
51532845
AO		 1100 }
1101 else
43850d5b
AO		 1102 _frvfdpic_add_dyn_reloc (output_bfd, frvfdpic_gotrel_section (info),
1103 _bfd_elf_section_offset
1104 (output_bfd, info,
1105 frvfdpic_got_section (info),
1106 frvfdpic_got_initial_offset (info)
1107 + entry->got_entry)
1108 + frvfdpic_got_section (info)
1109 ->output_section->vma
1110 + frvfdpic_got_section (info)->output_offset,
1111 R_FRV_32, idx, ad, entry);
51532845
AO		 1112
1113 bfd_put_32 (output_bfd, ad,
43850d5b
AO		 1114 frvfdpic_got_section (info)->contents
1115 + frvfdpic_got_initial_offset (info)
51532845
AO		 1116 + entry->got_entry);
1117 }
1118
1119 /* Generate relocation for GOT entry pointing to a canonical
1120 function descriptor. */
1121 if (entry->fdgot_entry)
1122 {
1123 int reloc, idx;
072c8903 1124 bfd_vma ad = 0;
51532845 1125
072c8903
AO		 1126 if (! (entry->symndx == -1
1127 && entry->d.h->root.type == bfd_link_hash_undefweak
43850d5b 1128 && FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
51532845 1129 {
072c8903
AO		 1130 /* If the symbol is dynamic and there may be dynamic symbol
1131 resolution because we are, or are linked with, a shared
1132 library, emit a FUNCDESC relocation such that the dynamic
1133 linker will allocate the function descriptor. If the
1134 symbol needs a non-local function descriptor but binds
1135 locally (e.g., its visibility is protected, emit a
1136 dynamic relocation decayed to section+offset. */
43850d5b
AO		 1137 if (entry->symndx == -1
1138 && ! FRVFDPIC_FUNCDESC_LOCAL (info, entry->d.h)
1139 && FRVFDPIC_SYM_LOCAL (info, entry->d.h)
072c8903
AO		 1140 && !(info->executable && !info->pie))
1141 {
1142 reloc = R_FRV_FUNCDESC;
1143 idx = elf_section_data (entry->d.h->root.u.def.section
1144 ->output_section)->dynindx;
1145 ad = entry->d.h->root.u.def.section->output_offset
1146 + entry->d.h->root.u.def.value;
1147 }
1148 else if (entry->symndx == -1
43850d5b 1149 && ! FRVFDPIC_FUNCDESC_LOCAL (info, entry->d.h))
072c8903
AO		 1150 {
1151 reloc = R_FRV_FUNCDESC;
1152 idx = dynindx;
1153 ad = addend;
1154 if (ad)
1155 return FALSE;
1156 }
51532845 1157 else
072c8903
AO		 1158 {
1159 /* Otherwise, we know we have a private function descriptor,
1160 so reference it directly. */
1161 if (elf_hash_table (info)->dynamic_sections_created)
1162 BFD_ASSERT (entry->privfd);
1163 reloc = R_FRV_32;
43850d5b 1164 idx = elf_section_data (frvfdpic_got_section (info)
072c8903 1165 ->output_section)->dynindx;
43850d5b
AO		 1166 ad = frvfdpic_got_section (info)->output_offset
1167 + frvfdpic_got_initial_offset (info) + entry->fd_entry;
072c8903
AO		 1168 }
1169
1170 /* If there is room for dynamic symbol resolution, emit the
1171 dynamic relocation. However, if we're linking an
1172 executable at a fixed location, we won't have emitted a
1173 dynamic symbol entry for the got section, so idx will be
1174 zero, which means we can and should compute the address
1175 of the private descriptor ourselves. */
1176 if (info->executable && !info->pie
1177 && (entry->symndx != -1
43850d5b 1178 || FRVFDPIC_FUNCDESC_LOCAL (info, entry->d.h)))
51532845 1179 {
43850d5b
AO		 1180 ad += frvfdpic_got_section (info)->output_section->vma;
1181 _frvfdpic_add_rofixup (output_bfd,
1182 frvfdpic_gotfixup_section (info),
1183 frvfdpic_got_section (info)
1184 ->output_section->vma
1185 + frvfdpic_got_section (info)
1186 ->output_offset
1187 + frvfdpic_got_initial_offset (info)
1188 + entry->fdgot_entry, entry);
51532845 1189 }
072c8903 1190 else
43850d5b
AO		 1191 _frvfdpic_add_dyn_reloc (output_bfd,
1192 frvfdpic_gotrel_section (info),
1193 _bfd_elf_section_offset
1194 (output_bfd, info,
1195 frvfdpic_got_section (info),
1196 frvfdpic_got_initial_offset (info)
1197 + entry->fdgot_entry)
1198 + frvfdpic_got_section (info)
1199 ->output_section->vma
1200 + frvfdpic_got_section (info)
1201 ->output_offset,
1202 reloc, idx, ad, entry);
51532845 1203 }
51532845
AO		 1204
1205 bfd_put_32 (output_bfd, ad,
43850d5b
AO		 1206 frvfdpic_got_section (info)->contents
1207 + frvfdpic_got_initial_offset (info)
51532845
AO		 1208 + entry->fdgot_entry);
1209 }
1210
1211 /* Generate relocation to fill in a private function descriptor in
1212 the GOT. */
1213 if (entry->fd_entry)
1214 {
1215 int idx = dynindx;
1216 bfd_vma ad = addend;
1217 bfd_vma ofst;
1218 long lowword, highword;
1219
1220 /* If the symbol is dynamic but binds locally, use
1221 section+offset. */
43850d5b
AO		 1222 if (sec && (entry->symndx != -1
1223 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
51532845
AO		 1224 {
1225 if (entry->symndx == -1)
1226 ad += entry->d.h->root.u.def.value;
1227 else
1228 ad += sym->st_value;
1229 ad += sec->output_offset;
1230 if (sec->output_section && elf_section_data (sec->output_section))
1231 idx = elf_section_data (sec->output_section)->dynindx;
1232 else
1233 idx = 0;
1234 }
1235
1236 /* If we're linking an executable at a fixed address, we can
1237 omit the dynamic relocation as long as the symbol is local to
1238 this module. */
1239 if (info->executable && !info->pie
43850d5b 1240 && (entry->symndx != -1 || FRVFDPIC_SYM_LOCAL (info, entry->d.h)))
51532845
AO		 1241 {
1242 if (sec)
1243 ad += sec->output_section->vma;
1244 ofst = 0;
3b712a1a
AO		 1245 if (entry->symndx != -1
1246 || entry->d.h->root.type != bfd_link_hash_undefweak)
51532845 1247 {
43850d5b
AO		 1248 _frvfdpic_add_rofixup (output_bfd,
1249 frvfdpic_gotfixup_section (info),
1250 frvfdpic_got_section (info)
1251 ->output_section->vma
1252 + frvfdpic_got_section (info)
1253 ->output_offset
1254 + frvfdpic_got_initial_offset (info)
1255 + entry->fd_entry, entry);
1256 _frvfdpic_add_rofixup (output_bfd,
1257 frvfdpic_gotfixup_section (info),
1258 frvfdpic_got_section (info)
1259 ->output_section->vma
1260 + frvfdpic_got_section (info)
1261 ->output_offset
1262 + frvfdpic_got_initial_offset (info)
1263 + entry->fd_entry + 4, entry);
51532845
AO		 1264 }
1265 }
1266 else
1267 {
1268 ofst =
43850d5b
AO		 1269 _frvfdpic_add_dyn_reloc (output_bfd,
1270 entry->lazyplt
1271 ? frvfdpic_pltrel_section (info)
1272 : frvfdpic_gotrel_section (info),
1273 _bfd_elf_section_offset
1274 (output_bfd, info,
1275 frvfdpic_got_section (info),
1276 frvfdpic_got_initial_offset (info)
1277 + entry->fd_entry)
1278 + frvfdpic_got_section (info)
1279 ->output_section->vma
1280 + frvfdpic_got_section (info)
1281 ->output_offset,
1282 R_FRV_FUNCDESC_VALUE, idx, ad, entry);
51532845
AO		 1283 }
1284
1285 /* If we've omitted the dynamic relocation, just emit the fixed
1286 addresses of the symbol and of the local GOT base offset. */
1287 if (info->executable && !info->pie && sec && sec->output_section)
1288 {
1289 lowword = ad;
43850d5b
AO		 1290 highword = frvfdpic_got_section (info)->output_section->vma
1291 + frvfdpic_got_section (info)->output_offset
1292 + frvfdpic_got_initial_offset (info);
51532845
AO		 1293 }
1294 else if (entry->lazyplt)
1295 {
1296 if (ad)
1297 return FALSE;
1298
1299 fd_lazy_rel_offset = ofst;
1300
1301 /* A function descriptor used for lazy or local resolving is
1302 initialized such that its high word contains the output
1303 section index in which the PLT entries are located, and
1304 the low word contains the address of the lazy PLT entry
1305 entry point, that must be within the memory region
1306 assigned to that section. */
1307 lowword = entry->lzplt_entry + 4
43850d5b
AO		 1308 + frvfdpic_plt_section (info)->output_offset
1309 + frvfdpic_plt_section (info)->output_section->vma;
1310 highword = _frvfdpic_osec_to_segment
1311 (output_bfd, frvfdpic_plt_section (info)->output_section);
51532845
AO		 1312 }
1313 else
1314 {
1315 /* A function descriptor for a local function gets the index
1316 of the section. For a non-local function, it's
1317 disregarded. */
1318 lowword = ad;
1319 if (entry->symndx == -1 && entry->d.h->dynindx != -1
1320 && entry->d.h->dynindx == idx)
1321 highword = 0;
1322 else
43850d5b
AO		 1323 highword = _frvfdpic_osec_to_segment
1324 (output_bfd, sec->output_section);
51532845
AO		 1325 }
1326
1327 bfd_put_32 (output_bfd, lowword,
43850d5b
AO		 1328 frvfdpic_got_section (info)->contents
1329 + frvfdpic_got_initial_offset (info)
51532845
AO		 1330 + entry->fd_entry);
1331 bfd_put_32 (output_bfd, highword,
43850d5b
AO		 1332 frvfdpic_got_section (info)->contents
1333 + frvfdpic_got_initial_offset (info)
51532845
AO		 1334 + entry->fd_entry + 4);
1335 }
1336
1337 /* Generate code for the PLT entry. */
1338 if (entry->plt_entry != (bfd_vma) -1)
1339 {
43850d5b
AO		 1340 bfd_byte *plt_code = frvfdpic_plt_section (info)->contents
1341 + entry->plt_entry;
51532845
AO		 1342
1343 BFD_ASSERT (entry->fd_entry);
1344
1345 /* Figure out what kind of PLT entry we need, depending on the
1346 location of the function descriptor within the GOT. */
1347 if (entry->fd_entry >= -(1 << (12 - 1))
1348 && entry->fd_entry < (1 << (12 - 1)))
1349 {
1350 /* lddi @(gr15, fd_entry), gr14 */
1351 bfd_put_32 (output_bfd,
1352 0x9cccf000 | (entry->fd_entry & ((1 << 12) - 1)),
1353 plt_code);
1354 plt_code += 4;
1355 }
1356 else
1357 {
1358 if (entry->fd_entry >= -(1 << (16 - 1))
1359 && entry->fd_entry < (1 << (16 - 1)))
1360 {
1361 /* setlos lo(fd_entry), gr14 */
1362 bfd_put_32 (output_bfd,
1363 0x9cfc0000
1364 | (entry->fd_entry & (((bfd_vma)1 << 16) - 1)),
1365 plt_code);
1366 plt_code += 4;
1367 }
1368 else
1369 {
1370 /* sethi.p hi(fd_entry), gr14
1371 setlo lo(fd_entry), gr14 */
1372 bfd_put_32 (output_bfd,
1373 0x1cf80000
1374 | ((entry->fd_entry >> 16)
1375 & (((bfd_vma)1 << 16) - 1)),
1376 plt_code);
1377 bfd_put_32 (output_bfd,
1378 0x9cf40000
1379 | (entry->fd_entry & (((bfd_vma)1 << 16) - 1)),
1380 plt_code);
1381 plt_code += 8;
1382 }
1383 /* ldd @(gr14,gr15),gr14 */
1384 bfd_put_32 (output_bfd, 0x9c08e14f, plt_code);
1385 plt_code += 4;
1386 }
1387 /* jmpl @(gr14,gr0) */
1388 bfd_put_32 (output_bfd, 0x8030e000, plt_code);
1389 }
1390
1391 /* Generate code for the lazy PLT entry. */
1392 if (entry->lzplt_entry != (bfd_vma) -1)
1393 {
43850d5b 1394 bfd_byte *lzplt_code = frvfdpic_plt_section (info)->contents
51532845
AO		 1395 + entry->lzplt_entry;
1396 bfd_vma resolverStub_addr;
1397
1398 bfd_put_32 (output_bfd, fd_lazy_rel_offset, lzplt_code);
1399 lzplt_code += 4;
1400
43850d5b
AO		 1401 resolverStub_addr = entry->lzplt_entry / FRVFDPIC_LZPLT_BLOCK_SIZE
1402 * FRVFDPIC_LZPLT_BLOCK_SIZE + FRVFDPIC_LZPLT_RESOLV_LOC;
1403 if (resolverStub_addr >= frvfdpic_plt_initial_offset (info))
1404 resolverStub_addr = frvfdpic_plt_initial_offset (info) - 12;
51532845
AO		 1405
1406 if (entry->lzplt_entry == resolverStub_addr)
1407 {
1408 /* This is a lazy PLT entry that includes a resolver call. */
1409 /* ldd @(gr15,gr0), gr4
1410 jmpl @(gr4,gr0) */
1411 bfd_put_32 (output_bfd, 0x8808f140, lzplt_code);
1412 bfd_put_32 (output_bfd, 0x80304000, lzplt_code + 4);
1413 }
1414 else
1415 {
1416 /* bra resolverStub */
1417 bfd_put_32 (output_bfd,
1418 0xc01a0000
1419 | (((resolverStub_addr - entry->lzplt_entry)
1420 / 4) & (((bfd_vma)1 << 16) - 1)),
1421 lzplt_code);
1422 }
1423 }
1424
1425 return TRUE;
1426}
1427
1428/* Handle an FRV small data reloc. */
1429
1430static bfd_reloc_status_type
1431elf32_frv_relocate_gprel12 (info, input_bfd, input_section, relocation,
1432 contents, value)
1433 struct bfd_link_info *info;
1434 bfd *input_bfd;
1435 asection *input_section;
1436 Elf_Internal_Rela *relocation;
1437 bfd_byte *contents;
1438 bfd_vma value;
1439{
1440 bfd_vma insn;
1441 bfd_vma gp;
1442 struct bfd_link_hash_entry *h;
1443
1444 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
1445
1446 gp = (h->u.def.value
1447 + h->u.def.section->output_section->vma
1448 + h->u.def.section->output_offset);
1449
1450 value -= input_section->output_section->vma;
1451 value -= (gp - input_section->output_section->vma);
1452
1453 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
1454
1455 value += relocation->r_addend;
1456
1457 if ((long) value > 0x7ff || (long) value < -0x800)
1458 return bfd_reloc_overflow;
1459
1460 bfd_put_32 (input_bfd,
1461 (insn & 0xfffff000) | (value & 0xfff),
1462 contents + relocation->r_offset);
1463
1464 return bfd_reloc_ok;
1465}
1466
1467/* Handle an FRV small data reloc. for the u12 field. */
1468
1469static bfd_reloc_status_type
1470elf32_frv_relocate_gprelu12 (info, input_bfd, input_section, relocation,
1471 contents, value)
1472 struct bfd_link_info *info;
1473 bfd *input_bfd;
1474 asection *input_section;
1475 Elf_Internal_Rela *relocation;
1476 bfd_byte *contents;
1477 bfd_vma value;
1478{
1479 bfd_vma insn;
1480 bfd_vma gp;
1481 struct bfd_link_hash_entry *h;
1482 bfd_vma mask;
1483
1484 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
1485
1486 gp = (h->u.def.value
1487 + h->u.def.section->output_section->vma
1488 + h->u.def.section->output_offset);
1489
1490 value -= input_section->output_section->vma;
1491 value -= (gp - input_section->output_section->vma);
4e5ba5b7
DB		 1492
1493 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
1494
1495 value += relocation->r_addend;
1496
1497 if ((long) value > 0x7ff || (long) value < -0x800)
1498 return bfd_reloc_overflow;
1499
1500 /* The high 6 bits go into bits 17-12. The low 6 bits go into bits 5-0. */
1501 mask = 0x3f03f;
1502 insn = (insn & ~mask) | ((value & 0xfc0) << 12) | (value & 0x3f);
1503
1504 bfd_put_32 (input_bfd, insn, contents + relocation->r_offset);
1505
1506 return bfd_reloc_ok;
1507}
1508
1509/* Handle an FRV ELF HI16 reloc. */
1510
1511static bfd_reloc_status_type
1512elf32_frv_relocate_hi16 (input_bfd, relhi, contents, value)
1513 bfd *input_bfd;
1514 Elf_Internal_Rela *relhi;
1515 bfd_byte *contents;
1516 bfd_vma value;
1517{
1518 bfd_vma insn;
1519
1520 insn = bfd_get_32 (input_bfd, contents + relhi->r_offset);
1521
1522 value += relhi->r_addend;
1523 value = ((value >> 16) & 0xffff);
1524
1525 insn = (insn & 0xffff0000) | value;
1526
1527 if ((long) value > 0xffff || (long) value < -0x10000)
1528 return bfd_reloc_overflow;
1529
1530 bfd_put_32 (input_bfd, insn, contents + relhi->r_offset);
1531 return bfd_reloc_ok;
1532
1533}
1534static bfd_reloc_status_type
1535elf32_frv_relocate_lo16 (input_bfd, rello, contents, value)
1536 bfd *input_bfd;
1537 Elf_Internal_Rela *rello;
1538 bfd_byte *contents;
1539 bfd_vma value;
1540{
1541 bfd_vma insn;
1542
1543 insn = bfd_get_32 (input_bfd, contents + rello->r_offset);
1544
1545 value += rello->r_addend;
1546 value = value & 0xffff;
1547
1548 insn = (insn & 0xffff0000) | value;
1549
1550 if ((long) value > 0xffff || (long) value < -0x10000)
1551 return bfd_reloc_overflow;
1552
1553 bfd_put_32 (input_bfd, insn, contents + rello->r_offset);
1554 return bfd_reloc_ok;
1555}
1556
1557/* Perform the relocation for the CALL label24 instruction. */
1558
1559static bfd_reloc_status_type
1560elf32_frv_relocate_label24 (input_bfd, input_section, rello, contents, value)
1561 bfd *input_bfd;
1562 asection *input_section;
1563 Elf_Internal_Rela *rello;
1564 bfd_byte *contents;
1565 bfd_vma value;
1566{
1567 bfd_vma insn;
1568 bfd_vma label6;
1569 bfd_vma label18;
1570
1571 /* The format for the call instruction is:
1572
b34976b6 1573 0 000000 0001111 000000000000000000
4e5ba5b7
DB		 1574 label6 opcode label18
1575
1576 The branch calculation is: pc + (4*label24)
1577 where label24 is the concatenation of label6 and label18. */
1578
1579 /* Grab the instruction. */
1580 insn = bfd_get_32 (input_bfd, contents + rello->r_offset);
1581
1582 value -= input_section->output_section->vma + input_section->output_offset;
1583 value -= rello->r_offset;
1584 value += rello->r_addend;
1585
1586 value = value >> 2;
1587
1588 label6 = value & 0xfc0000;
1589 label6 = label6 << 7;
1590
1591 label18 = value & 0x3ffff;
1592
1593 insn = insn & 0x803c0000;
1594 insn = insn | label6;
1595 insn = insn | label18;
1596
1597 bfd_put_32 (input_bfd, insn, contents + rello->r_offset);
1598
1599 return bfd_reloc_ok;
1600}
1601
1602static bfd_reloc_status_type
b34976b6
AM		 1603elf32_frv_relocate_gprelhi (info, input_bfd, input_section, relocation,
1604 contents, value)
4e5ba5b7
DB		 1605 struct bfd_link_info *info;
1606 bfd *input_bfd;
1607 asection *input_section;
1608 Elf_Internal_Rela *relocation;
1609 bfd_byte *contents;
1610 bfd_vma value;
1611{
1612 bfd_vma insn;
1613 bfd_vma gp;
1614 struct bfd_link_hash_entry *h;
1615
b34976b6 1616 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
4e5ba5b7
DB		 1617
1618 gp = (h->u.def.value
1619 + h->u.def.section->output_section->vma
1620 + h->u.def.section->output_offset);
1621
1622 value -= input_section->output_section->vma;
1623 value -= (gp - input_section->output_section->vma);
1624 value += relocation->r_addend;
1625 value = ((value >> 16) & 0xffff);
1626
1627 if ((long) value > 0xffff || (long) value < -0x10000)
1628 return bfd_reloc_overflow;
1629
1630 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
1631 insn = (insn & 0xffff0000) | value;
1632
1633 bfd_put_32 (input_bfd, insn, contents + relocation->r_offset);
1634 return bfd_reloc_ok;
1635}
1636
1637static bfd_reloc_status_type
b34976b6
AM		 1638elf32_frv_relocate_gprello (info, input_bfd, input_section, relocation,
1639 contents, value)
4e5ba5b7
DB		 1640 struct bfd_link_info *info;
1641 bfd *input_bfd;
1642 asection *input_section;
1643 Elf_Internal_Rela *relocation;
1644 bfd_byte *contents;
1645 bfd_vma value;
1646{
1647 bfd_vma insn;
1648 bfd_vma gp;
1649 struct bfd_link_hash_entry *h;
1650
b34976b6 1651 h = bfd_link_hash_lookup (info->hash, "_gp", FALSE, FALSE, TRUE);
4e5ba5b7
DB		 1652
1653 gp = (h->u.def.value
1654 + h->u.def.section->output_section->vma
1655 + h->u.def.section->output_offset);
1656
1657 value -= input_section->output_section->vma;
1658 value -= (gp - input_section->output_section->vma);
1659 value += relocation->r_addend;
1660 value = value & 0xffff;
1661
1662 if ((long) value > 0xffff || (long) value < -0x10000)
1663 return bfd_reloc_overflow;
1664
1665 insn = bfd_get_32 (input_bfd, contents + relocation->r_offset);
1666 insn = (insn & 0xffff0000) | value;
1667
1668 bfd_put_32 (input_bfd, insn, contents + relocation->r_offset);
1669
1670 return bfd_reloc_ok;
1671}
1672
1673static reloc_howto_type *
1674frv_reloc_type_lookup (abfd, code)
b34976b6 1675 bfd *abfd ATTRIBUTE_UNUSED;
4e5ba5b7
DB		 1676 bfd_reloc_code_real_type code;
1677{
1678 switch (code)
1679 {
1680 default:
1681 break;
1682
1683 case BFD_RELOC_NONE:
1684 return &elf32_frv_howto_table[ (int) R_FRV_NONE];
b34976b6 1685
4e5ba5b7 1686 case BFD_RELOC_32:
51532845
AO		 1687 if (elf_elfheader (abfd)->e_type == ET_EXEC
1688 || elf_elfheader (abfd)->e_type == ET_DYN)
1689 return &elf32_frv_rel_32_howto;
1690 /* Fall through. */
4e5ba5b7
DB		 1691 case BFD_RELOC_CTOR:
1692 return &elf32_frv_howto_table[ (int) R_FRV_32];
1693
1694 case BFD_RELOC_FRV_LABEL16:
1695 return &elf32_frv_howto_table[ (int) R_FRV_LABEL16];
1696
1697 case BFD_RELOC_FRV_LABEL24:
1698 return &elf32_frv_howto_table[ (int) R_FRV_LABEL24];
1699
1700 case BFD_RELOC_FRV_LO16:
1701 return &elf32_frv_howto_table[ (int) R_FRV_LO16];
1702
1703 case BFD_RELOC_FRV_HI16:
1704 return &elf32_frv_howto_table[ (int) R_FRV_HI16];
1705
1706 case BFD_RELOC_FRV_GPREL12:
1707 return &elf32_frv_howto_table[ (int) R_FRV_GPREL12];
1708
1709 case BFD_RELOC_FRV_GPRELU12:
1710 return &elf32_frv_howto_table[ (int) R_FRV_GPRELU12];
1711
1712 case BFD_RELOC_FRV_GPREL32:
1713 return &elf32_frv_howto_table[ (int) R_FRV_GPREL32];
1714
1715 case BFD_RELOC_FRV_GPRELHI:
1716 return &elf32_frv_howto_table[ (int) R_FRV_GPRELHI];
1717
1718 case BFD_RELOC_FRV_GPRELLO:
1719 return &elf32_frv_howto_table[ (int) R_FRV_GPRELLO];
1720
51532845
AO		 1721 case BFD_RELOC_FRV_GOT12:
1722 return &elf32_frv_howto_table[ (int) R_FRV_GOT12];
1723
1724 case BFD_RELOC_FRV_GOTHI:
1725 return &elf32_frv_howto_table[ (int) R_FRV_GOTHI];
1726
1727 case BFD_RELOC_FRV_GOTLO:
1728 return &elf32_frv_howto_table[ (int) R_FRV_GOTLO];
1729
1730 case BFD_RELOC_FRV_FUNCDESC:
1731 if (elf_elfheader (abfd)->e_type == ET_EXEC
1732 || elf_elfheader (abfd)->e_type == ET_DYN)
1733 return &elf32_frv_rel_funcdesc_howto;
1734 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC];
1735
1736 case BFD_RELOC_FRV_FUNCDESC_GOT12:
1737 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOT12];
1738
1739 case BFD_RELOC_FRV_FUNCDESC_GOTHI:
1740 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTHI];
1741
1742 case BFD_RELOC_FRV_FUNCDESC_GOTLO:
1743 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTLO];
1744
1745 case BFD_RELOC_FRV_FUNCDESC_VALUE:
1746 if (elf_elfheader (abfd)->e_type == ET_EXEC
1747 || elf_elfheader (abfd)->e_type == ET_DYN)
1748 return &elf32_frv_rel_funcdesc_value_howto;
1749 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_VALUE];
1750
1751 case BFD_RELOC_FRV_FUNCDESC_GOTOFF12:
1752 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTOFF12];
1753
1754 case BFD_RELOC_FRV_FUNCDESC_GOTOFFHI:
1755 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTOFFHI];
1756
1757 case BFD_RELOC_FRV_FUNCDESC_GOTOFFLO:
1758 return &elf32_frv_howto_table[ (int) R_FRV_FUNCDESC_GOTOFFLO];
1759
1760 case BFD_RELOC_FRV_GOTOFF12:
1761 return &elf32_frv_howto_table[ (int) R_FRV_GOTOFF12];
1762
1763 case BFD_RELOC_FRV_GOTOFFHI:
1764 return &elf32_frv_howto_table[ (int) R_FRV_GOTOFFHI];
1765
1766 case BFD_RELOC_FRV_GOTOFFLO:
1767 return &elf32_frv_howto_table[ (int) R_FRV_GOTOFFLO];
1768
4e5ba5b7
DB		 1769 case BFD_RELOC_VTABLE_INHERIT:
1770 return &elf32_frv_vtinherit_howto;
1771
1772 case BFD_RELOC_VTABLE_ENTRY:
1773 return &elf32_frv_vtentry_howto;
1774 }
1775
1776 return NULL;
1777}
1778
1779/* Set the howto pointer for an FRV ELF reloc. */
1780
1781static void
1782frv_info_to_howto_rela (abfd, cache_ptr, dst)
b34976b6
AM		 1783 bfd *abfd ATTRIBUTE_UNUSED;
1784 arelent *cache_ptr;
1785 Elf_Internal_Rela *dst;
4e5ba5b7
DB		 1786{
1787 unsigned int r_type;
1788
1789 r_type = ELF32_R_TYPE (dst->r_info);
1790 switch (r_type)
1791 {
1792 case R_FRV_GNU_VTINHERIT:
1793 cache_ptr->howto = &elf32_frv_vtinherit_howto;
1794 break;
1795
1796 case R_FRV_GNU_VTENTRY:
1797 cache_ptr->howto = &elf32_frv_vtentry_howto;
1798 break;
1799
1800 default:
1801 cache_ptr->howto = & elf32_frv_howto_table [r_type];
1802 break;
1803 }
1804}
51532845
AO		 1805
1806/* Set the howto pointer for an FRV ELF REL reloc. */
1807static void
43850d5b
AO		 1808frvfdpic_info_to_howto_rel (bfd *abfd ATTRIBUTE_UNUSED,
1809 arelent *cache_ptr, Elf_Internal_Rela *dst)
51532845
AO		 1810{
1811 unsigned int r_type;
1812
1813 r_type = ELF32_R_TYPE (dst->r_info);
1814 switch (r_type)
1815 {
1816 case R_FRV_32:
1817 cache_ptr->howto = &elf32_frv_rel_32_howto;
1818 break;
1819
1820 case R_FRV_FUNCDESC:
1821 cache_ptr->howto = &elf32_frv_rel_funcdesc_howto;
1822 break;
1823
1824 case R_FRV_FUNCDESC_VALUE:
1825 cache_ptr->howto = &elf32_frv_rel_funcdesc_value_howto;
1826 break;
1827
1828 default:
1829 cache_ptr->howto = NULL;
1830 break;
1831 }
1832}
4e5ba5b7
DB		 1833\f
1834/* Perform a single relocation. By default we use the standard BFD
1835 routines, but a few relocs, we have to do them ourselves. */
1836
1837static bfd_reloc_status_type
b34976b6
AM		 1838frv_final_link_relocate (howto, input_bfd, input_section, contents, rel,
1839 relocation)
1840 reloc_howto_type *howto;
1841 bfd *input_bfd;
1842 asection *input_section;
1843 bfd_byte *contents;
1844 Elf_Internal_Rela *rel;
1845 bfd_vma relocation;
4e5ba5b7
DB		 1846{
1847 return _bfd_final_link_relocate (howto, input_bfd, input_section,
1848 contents, rel->r_offset, relocation,
1849 rel->r_addend);
1850}
1851
1852\f
1853/* Relocate an FRV ELF section.
4e5ba5b7
DB		 1854
1855 The RELOCATE_SECTION function is called by the new ELF backend linker
1856 to handle the relocations for a section.
1857
1858 The relocs are always passed as Rela structures; if the section
1859 actually uses Rel structures, the r_addend field will always be
1860 zero.
1861
1862 This function is responsible for adjusting the section contents as
1049f94e 1863 necessary, and (if using Rela relocs and generating a relocatable
4e5ba5b7
DB		 1864 output file) adjusting the reloc addend as necessary.
1865
1866 This function does not have to worry about setting the reloc
1867 address or the reloc symbol index.
1868
1869 LOCAL_SYMS is a pointer to the swapped in local symbols.
1870
1871 LOCAL_SECTIONS is an array giving the section in the input file
1872 corresponding to the st_shndx field of each local symbol.
1873
1874 The global hash table entry for the global symbols can be found
1875 via elf_sym_hashes (input_bfd).
1876
1049f94e 1877 When generating relocatable output, this function must handle
4e5ba5b7
DB		 1878 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
1879 going to be the section symbol corresponding to the output
1880 section, which means that the addend must be adjusted
1881 accordingly. */
1882
b34976b6 1883static bfd_boolean
4e5ba5b7 1884elf32_frv_relocate_section (output_bfd, info, input_bfd, input_section,
de2d743e 1885 contents, relocs, local_syms, local_sections)
b34976b6
AM		 1886 bfd *output_bfd ATTRIBUTE_UNUSED;
1887 struct bfd_link_info *info;
1888 bfd *input_bfd;
1889 asection *input_section;
1890 bfd_byte *contents;
1891 Elf_Internal_Rela *relocs;
1892 Elf_Internal_Sym *local_syms;
1893 asection **local_sections;
4e5ba5b7 1894{
b34976b6
AM		 1895 Elf_Internal_Shdr *symtab_hdr;
1896 struct elf_link_hash_entry **sym_hashes;
1897 Elf_Internal_Rela *rel;
1898 Elf_Internal_Rela *relend;
51532845
AO		 1899 unsigned isec_segment, got_segment, plt_segment, gprel_segment,
1900 check_segment[2];
1901 int silence_segment_error = !(info->shared || info->pie);
4e5ba5b7 1902
1049f94e 1903 if (info->relocatable)
b34976b6 1904 return TRUE;
de2d743e 1905
4e5ba5b7
DB		 1906 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
1907 sym_hashes = elf_sym_hashes (input_bfd);
1908 relend = relocs + input_section->reloc_count;
1909
43850d5b
AO		 1910 isec_segment = _frvfdpic_osec_to_segment (output_bfd,
1911 input_section->output_section);
1912 if (IS_FDPIC (output_bfd) && frvfdpic_got_section (info))
1913 got_segment = _frvfdpic_osec_to_segment (output_bfd,
1914 frvfdpic_got_section (info)
1915 ->output_section);
51532845
AO		 1916 else
1917 got_segment = -1;
43850d5b
AO		 1918 if (IS_FDPIC (output_bfd) && frvfdpic_gotfixup_section (info))
1919 gprel_segment = _frvfdpic_osec_to_segment (output_bfd,
1920 frvfdpic_gotfixup_section (info)
1921 ->output_section);
51532845
AO		 1922 else
1923 gprel_segment = -1;
43850d5b
AO		 1924 if (IS_FDPIC (output_bfd) && elf_hash_table (info)->dynamic_sections_created)
1925 plt_segment = _frvfdpic_osec_to_segment (output_bfd,
1926 frvfdpic_plt_section (info)
1927 ->output_section);
51532845
AO		 1928 else
1929 plt_segment = -1;
1930
4e5ba5b7
DB		 1931 for (rel = relocs; rel < relend; rel ++)
1932 {
b34976b6
AM		 1933 reloc_howto_type *howto;
1934 unsigned long r_symndx;
1935 Elf_Internal_Sym *sym;
1936 asection *sec;
1937 struct elf_link_hash_entry *h;
1938 bfd_vma relocation;
1939 bfd_reloc_status_type r;
1940 const char * name = NULL;
1941 int r_type;
51532845 1942 asection *osec;
43850d5b 1943 struct frvfdpic_relocs_info *picrel;
51532845
AO		 1944 bfd_vma orig_addend = rel->r_addend;
1945
1946 r_type = ELF32_R_TYPE (rel->r_info);
1947
1948 if ( r_type == R_FRV_GNU_VTINHERIT
1949 || r_type == R_FRV_GNU_VTENTRY)
1950 continue;
1951
1952 /* This is a final link. */
1953 r_symndx = ELF32_R_SYM (rel->r_info);
1954 howto = elf32_frv_howto_table + ELF32_R_TYPE (rel->r_info);
1955 h = NULL;
1956 sym = NULL;
1957 sec = NULL;
1958
1959 if (r_symndx < symtab_hdr->sh_info)
1960 {
1961 sym = local_syms + r_symndx;
1962 osec = sec = local_sections [r_symndx];
1963 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1964
1965 name = bfd_elf_string_from_elf_section
1966 (input_bfd, symtab_hdr->sh_link, sym->st_name);
1967 name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
1968 }
1969 else
1970 {
1971 h = sym_hashes [r_symndx - symtab_hdr->sh_info];
1972
1973 while (h->root.type == bfd_link_hash_indirect
1974 || h->root.type == bfd_link_hash_warning)
1975 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1976
1977 name = h->root.root.string;
1978
1979 if ((h->root.type == bfd_link_hash_defined
1980 || h->root.type == bfd_link_hash_defweak)
43850d5b 1981 && ! FRVFDPIC_SYM_LOCAL (info, h))
51532845
AO		 1982 {
1983 sec = NULL;
1984 relocation = 0;
1985 }
1986 else
1987 if (h->root.type == bfd_link_hash_defined
1988 || h->root.type == bfd_link_hash_defweak)
1989 {
1990 sec = h->root.u.def.section;
1991 relocation = (h->root.u.def.value
1992 + sec->output_section->vma
1993 + sec->output_offset);
1994 }
1995 else if (h->root.type == bfd_link_hash_undefweak)
1996 {
1997 relocation = 0;
1998 }
59c2e50f 1999 else if (info->unresolved_syms_in_objects == RM_IGNORE
51532845
AO		 2000 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
2001 relocation = 0;
2002 else
2003 {
2004 if (! ((*info->callbacks->undefined_symbol)
2005 (info, h->root.root.string, input_bfd,
59c2e50f
L		 2006 input_section, rel->r_offset,
2007 (info->unresolved_syms_in_objects == RM_GENERATE_ERROR
2008 || ELF_ST_VISIBILITY (h->other)))))
51532845
AO		 2009 return FALSE;
2010 relocation = 0;
2011 }
2012 osec = sec;
2013 }
2014
2015 switch (r_type)
2016 {
2017 case R_FRV_LABEL24:
2018 case R_FRV_32:
43850d5b
AO		 2019 if (! IS_FDPIC (output_bfd))
2020 goto non_fdpic;
2021
51532845
AO		 2022 case R_FRV_GOT12:
2023 case R_FRV_GOTHI:
2024 case R_FRV_GOTLO:
2025 case R_FRV_FUNCDESC_GOT12:
2026 case R_FRV_FUNCDESC_GOTHI:
2027 case R_FRV_FUNCDESC_GOTLO:
2028 case R_FRV_GOTOFF12:
2029 case R_FRV_GOTOFFHI:
2030 case R_FRV_GOTOFFLO:
2031 case R_FRV_FUNCDESC_GOTOFF12:
2032 case R_FRV_FUNCDESC_GOTOFFHI:
2033 case R_FRV_FUNCDESC_GOTOFFLO:
2034 case R_FRV_FUNCDESC:
2035 case R_FRV_FUNCDESC_VALUE:
2036 if (h != NULL)
43850d5b
AO		 2037 picrel = frvfdpic_relocs_info_for_global (frvfdpic_relocs_info
2038 (info), input_bfd, h,
2039 orig_addend, INSERT);
51532845
AO		 2040 else
2041 /* In order to find the entry we created before, we must
2042 use the original addend, not the one that may have been
2043 modified by _bfd_elf_rela_local_sym(). */
43850d5b
AO		 2044 picrel = frvfdpic_relocs_info_for_local (frvfdpic_relocs_info
2045 (info), input_bfd, r_symndx,
2046 orig_addend, INSERT);
51532845
AO		 2047 if (! picrel)
2048 return FALSE;
2049
43850d5b
AO		 2050 if (!_frvfdpic_emit_got_relocs_plt_entries (picrel, output_bfd, info,
2051 osec, sym,
2052 rel->r_addend))
51532845 2053 {
43850d5b
AO		 2054 (*_bfd_error_handler)
2055 (_("%s: relocation at `%s+0x%x' references symbol `%s' with nonzero addend"),
2056 bfd_archive_filename (input_bfd), input_section->name,
2057 rel->r_offset, name);
51532845
AO		 2058 return FALSE;
2059
2060 }
2061
2062 break;
2063
2064 default:
43850d5b 2065 non_fdpic:
51532845 2066 picrel = NULL;
43850d5b 2067 if (h && ! FRVFDPIC_SYM_LOCAL (info, h))
51532845
AO		 2068 {
2069 info->callbacks->warning
2070 (info, _("relocation references symbol not defined in the module"),
2071 name, input_bfd, input_section, rel->r_offset);
2072 return FALSE;
2073 }
2074 break;
2075 }
2076
2077 switch (r_type)
2078 {
2079 case R_FRV_LABEL24:
2080 check_segment[0] = isec_segment;
43850d5b
AO		 2081 if (! IS_FDPIC (output_bfd))
2082 check_segment[1] = isec_segment;
2083 else if (picrel->plt)
51532845 2084 {
43850d5b
AO		 2085 relocation = frvfdpic_plt_section (info)->output_section->vma
2086 + frvfdpic_plt_section (info)->output_offset
51532845
AO		 2087 + picrel->plt_entry;
2088 check_segment[1] = plt_segment;
2089 }
2090 /* We don't want to warn on calls to undefined weak symbols,
2091 as calls to them must be protected by non-NULL tests
2092 anyway, and unprotected calls would invoke undefined
2093 behavior. */
2094 else if (picrel->symndx == -1
2095 && picrel->d.h->root.type == bfd_link_hash_undefweak)
2096 check_segment[1] = check_segment[0];
2097 else
2098 check_segment[1] = sec
43850d5b 2099 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
51532845
AO		 2100 : (unsigned)-1;
2101 break;
2102
2103 case R_FRV_GOT12:
2104 case R_FRV_GOTHI:
2105 case R_FRV_GOTLO:
2106 relocation = picrel->got_entry;
2107 check_segment[0] = check_segment[1] = got_segment;
2108 break;
2109
2110 case R_FRV_FUNCDESC_GOT12:
2111 case R_FRV_FUNCDESC_GOTHI:
2112 case R_FRV_FUNCDESC_GOTLO:
2113 relocation = picrel->fdgot_entry;
2114 check_segment[0] = check_segment[1] = got_segment;
2115 break;
2116
2117 case R_FRV_GOTOFFHI:
2118 case R_FRV_GOTOFF12:
2119 case R_FRV_GOTOFFLO:
43850d5b
AO		 2120 relocation -= frvfdpic_got_section (info)->output_section->vma
2121 + frvfdpic_got_section (info)->output_offset
2122 + frvfdpic_got_initial_offset (info);
51532845
AO		 2123 check_segment[0] = got_segment;
2124 check_segment[1] = sec
43850d5b 2125 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
51532845
AO		 2126 : (unsigned)-1;
2127 break;
2128
2129 case R_FRV_FUNCDESC_GOTOFF12:
2130 case R_FRV_FUNCDESC_GOTOFFHI:
2131 case R_FRV_FUNCDESC_GOTOFFLO:
2132 relocation = picrel->fd_entry;
2133 check_segment[0] = check_segment[1] = got_segment;
2134 break;
2135
2136 case R_FRV_FUNCDESC:
2137 {
2138 int dynindx;
2139 bfd_vma addend = rel->r_addend;
2140
072c8903 2141 if (! (h && h->root.type == bfd_link_hash_undefweak
43850d5b 2142 && FRVFDPIC_SYM_LOCAL (info, h)))
51532845 2143 {
072c8903
AO		 2144 /* If the symbol is dynamic and there may be dynamic
2145 symbol resolution because we are or are linked with a
2146 shared library, emit a FUNCDESC relocation such that
2147 the dynamic linker will allocate the function
2148 descriptor. If the symbol needs a non-local function
2149 descriptor but binds locally (e.g., its visibility is
2150 protected, emit a dynamic relocation decayed to
2151 section+offset. */
43850d5b
AO		 2152 if (h && ! FRVFDPIC_FUNCDESC_LOCAL (info, h)
2153 && FRVFDPIC_SYM_LOCAL (info, h)
072c8903 2154 && !(info->executable && !info->pie))
51532845 2155 {
072c8903
AO		 2156 dynindx = elf_section_data (h->root.u.def.section
2157 ->output_section)->dynindx;
2158 addend += h->root.u.def.section->output_offset
2159 + h->root.u.def.value;
2160 }
43850d5b 2161 else if (h && ! FRVFDPIC_FUNCDESC_LOCAL (info, h))
072c8903
AO		 2162 {
2163 if (addend)
2164 {
2165 info->callbacks->warning
2166 (info, _("R_FRV_FUNCDESC references dynamic symbol with nonzero addend"),
2167 name, input_bfd, input_section, rel->r_offset);
2168 return FALSE;
2169 }
2170 dynindx = h->dynindx;
2171 }
2172 else
2173 {
2174 /* Otherwise, we know we have a private function
2175 descriptor, so reference it directly. */
2176 BFD_ASSERT (picrel->privfd);
2177 r_type = R_FRV_32;
43850d5b 2178 dynindx = elf_section_data (frvfdpic_got_section (info)
072c8903 2179 ->output_section)->dynindx;
43850d5b
AO		 2180 addend = frvfdpic_got_section (info)->output_offset
2181 + frvfdpic_got_initial_offset (info)
072c8903 2182 + picrel->fd_entry;
51532845 2183 }
51532845 2184
072c8903
AO		 2185 /* If there is room for dynamic symbol resolution, emit
2186 the dynamic relocation. However, if we're linking an
2187 executable at a fixed location, we won't have emitted a
2188 dynamic symbol entry for the got section, so idx will
2189 be zero, which means we can and should compute the
2190 address of the private descriptor ourselves. */
2191 if (info->executable && !info->pie
43850d5b 2192 && (!h || FRVFDPIC_FUNCDESC_LOCAL (info, h)))
072c8903 2193 {
43850d5b 2194 addend += frvfdpic_got_section (info)->output_section->vma;
072c8903
AO		 2195 if ((bfd_get_section_flags (output_bfd,
2196 input_section->output_section)
2197 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2198 {
43850d5b
AO		 2199 if (_frvfdpic_osec_readonly_p (output_bfd,
2200 input_section
2201 ->output_section))
072c8903
AO		 2202 {
2203 info->callbacks->warning
2204 (info,
2205 _("cannot emit fixups in read-only section"),
2206 name, input_bfd, input_section, rel->r_offset);
2207 return FALSE;
2208 }
43850d5b
AO		 2209 _frvfdpic_add_rofixup (output_bfd,
2210 frvfdpic_gotfixup_section
2211 (info),
2212 _bfd_elf_section_offset
2213 (output_bfd, info,
2214 input_section, rel->r_offset)
2215 + input_section
2216 ->output_section->vma
2217 + input_section->output_offset,
2218 picrel);
072c8903
AO		 2219 }
2220 }
2221 else if ((bfd_get_section_flags (output_bfd,
2222 input_section->output_section)
2223 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
51532845 2224 {
43850d5b
AO		 2225 if (_frvfdpic_osec_readonly_p (output_bfd,
2226 input_section
2227 ->output_section))
51532845
AO		 2228 {
2229 info->callbacks->warning
2230 (info,
072c8903 2231 _("cannot emit dynamic relocations in read-only section"),
51532845
AO		 2232 name, input_bfd, input_section, rel->r_offset);
2233 return FALSE;
2234 }
43850d5b
AO		 2235 _frvfdpic_add_dyn_reloc (output_bfd,
2236 frvfdpic_gotrel_section (info),
2237 _bfd_elf_section_offset
2238 (output_bfd, info,
2239 input_section, rel->r_offset)
2240 + input_section
2241 ->output_section->vma
2242 + input_section->output_offset,
2243 r_type, dynindx, addend, picrel);
51532845 2244 }
43850d5b
AO		 2245 else
2246 addend += frvfdpic_got_section (info)->output_section->vma;
51532845
AO		 2247 }
2248
2249 /* We want the addend in-place because dynamic
2250 relocations are REL. Setting relocation to it should
2251 arrange for it to be installed. */
2252 relocation = addend - rel->r_addend;
2253 }
2254 check_segment[0] = check_segment[1] = got_segment;
2255 break;
2256
2257 case R_FRV_32:
43850d5b
AO		 2258 if (! IS_FDPIC (output_bfd))
2259 {
2260 check_segment[0] = check_segment[1] = -1;
2261 break;
2262 }
2263 /* Fall through. */
51532845
AO		 2264 case R_FRV_FUNCDESC_VALUE:
2265 {
2266 int dynindx;
2267 bfd_vma addend = rel->r_addend;
2268
2269 /* If the symbol is dynamic but binds locally, use
2270 section+offset. */
43850d5b 2271 if (h && ! FRVFDPIC_SYM_LOCAL (info, h))
51532845
AO		 2272 {
2273 if (addend && r_type == R_FRV_FUNCDESC_VALUE)
2274 {
2275 info->callbacks->warning
2276 (info, _("R_FRV_FUNCDESC_VALUE references dynamic symbol with nonzero addend"),
2277 name, input_bfd, input_section, rel->r_offset);
2278 return FALSE;
2279 }
2280 dynindx = h->dynindx;
2281 }
2282 else
2283 {
2284 if (h)
2285 addend += h->root.u.def.value;
2286 else
2287 addend += sym->st_value;
2288 if (osec)
2289 addend += osec->output_offset;
2290 if (osec && osec->output_section
2291 && ! bfd_is_abs_section (osec->output_section)
2292 && ! bfd_is_und_section (osec->output_section))
2293 dynindx = elf_section_data (osec->output_section)->dynindx;
2294 else
2295 dynindx = 0;
2296 }
2297
2298 /* If we're linking an executable at a fixed address, we
2299 can omit the dynamic relocation as long as the symbol
2300 is defined in the current link unit (which is implied
2301 by its output section not being NULL). */
2302 if (info->executable && !info->pie
43850d5b 2303 && (!h || FRVFDPIC_SYM_LOCAL (info, h)))
51532845
AO		 2304 {
2305 if (osec)
2306 addend += osec->output_section->vma;
43850d5b 2307 if (IS_FDPIC (input_bfd)
51532845
AO		 2308 && (bfd_get_section_flags (output_bfd,
2309 input_section->output_section)
2310 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2311 {
43850d5b
AO		 2312 if (_frvfdpic_osec_readonly_p (output_bfd,
2313 input_section
2314 ->output_section))
51532845
AO		 2315 {
2316 info->callbacks->warning
2317 (info,
2318 _("cannot emit fixups in read-only section"),
2319 name, input_bfd, input_section, rel->r_offset);
2320 return FALSE;
2321 }
2322 if (!h || h->root.type != bfd_link_hash_undefweak)
2323 {
43850d5b
AO		 2324 _frvfdpic_add_rofixup (output_bfd,
2325 frvfdpic_gotfixup_section
2326 (info),
2327 _bfd_elf_section_offset
2328 (output_bfd, info,
2329 input_section, rel->r_offset)
2330 + input_section
2331 ->output_section->vma
2332 + input_section->output_offset,
2333 picrel);
51532845 2334 if (r_type == R_FRV_FUNCDESC_VALUE)
43850d5b 2335 _frvfdpic_add_rofixup
51532845 2336 (output_bfd,
43850d5b 2337 frvfdpic_gotfixup_section (info),
51532845
AO		 2338 _bfd_elf_section_offset
2339 (output_bfd, info,
2340 input_section, rel->r_offset)
2341 + input_section->output_section->vma
3b712a1a 2342 + input_section->output_offset + 4, picrel);
51532845
AO		 2343 }
2344 }
2345 }
2346 else
2347 {
2348 if ((bfd_get_section_flags (output_bfd,
2349 input_section->output_section)
2350 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2351 {
43850d5b
AO		 2352 if (_frvfdpic_osec_readonly_p (output_bfd,
2353 input_section
2354 ->output_section))
51532845
AO		 2355 {
2356 info->callbacks->warning
2357 (info,
2358 _("cannot emit dynamic relocations in read-only section"),
2359 name, input_bfd, input_section, rel->r_offset);
2360 return FALSE;
2361 }
43850d5b
AO		 2362 _frvfdpic_add_dyn_reloc (output_bfd,
2363 frvfdpic_gotrel_section (info),
2364 _bfd_elf_section_offset
2365 (output_bfd, info,
2366 input_section, rel->r_offset)
2367 + input_section
2368 ->output_section->vma
2369 + input_section->output_offset,
2370 r_type, dynindx, addend, picrel);
51532845 2371 }
43850d5b
AO		 2372 else if (osec)
2373 addend += osec->output_section->vma;
51532845
AO		 2374 /* We want the addend in-place because dynamic
2375 relocations are REL. Setting relocation to it
2376 should arrange for it to be installed. */
2377 relocation = addend - rel->r_addend;
2378 }
2379
2380 if (r_type == R_FRV_FUNCDESC_VALUE)
2381 {
2382 /* If we've omitted the dynamic relocation, just emit
2383 the fixed addresses of the symbol and of the local
2384 GOT base offset. */
2385 if (info->executable && !info->pie
43850d5b 2386 && (!h || FRVFDPIC_SYM_LOCAL (info, h)))
51532845 2387 bfd_put_32 (output_bfd,
43850d5b
AO		 2388 frvfdpic_got_section (info)->output_section->vma
2389 + frvfdpic_got_section (info)->output_offset
2390 + frvfdpic_got_initial_offset (info),
51532845
AO		 2391 contents + rel->r_offset + 4);
2392 else
2393 /* A function descriptor used for lazy or local
2394 resolving is initialized such that its high word
2395 contains the output section index in which the
2396 PLT entries are located, and the low word
2397 contains the offset of the lazy PLT entry entry
2398 point into that section. */
2399 bfd_put_32 (output_bfd,
43850d5b 2400 h && ! FRVFDPIC_SYM_LOCAL (info, h)
51532845 2401 ? 0
43850d5b
AO		 2402 : _frvfdpic_osec_to_segment (output_bfd,
2403 sec
2404 ->output_section),
51532845
AO		 2405 contents + rel->r_offset + 4);
2406 }
2407 }
2408 check_segment[0] = check_segment[1] = got_segment;
2409 break;
2410
2411 case R_FRV_GPREL12:
2412 case R_FRV_GPRELU12:
2413 case R_FRV_GPREL32:
2414 case R_FRV_GPRELHI:
2415 case R_FRV_GPRELLO:
2416 check_segment[0] = gprel_segment;
2417 check_segment[1] = sec
43850d5b 2418 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
51532845
AO		 2419 : (unsigned)-1;
2420 break;
2421
2422 default:
2423 check_segment[0] = isec_segment;
2424 check_segment[1] = sec
43850d5b 2425 ? _frvfdpic_osec_to_segment (output_bfd, sec->output_section)
51532845
AO		 2426 : (unsigned)-1;
2427 break;
2428 }
2429
43850d5b 2430 if (check_segment[0] != check_segment[1] && IS_FDPIC (output_bfd))
51532845 2431 {
43850d5b
AO		 2432#if 1 /* If you take this out, remove the #error from fdpic-static-6.d
2433 in the ld testsuite. */
51532845
AO		 2434 /* This helps catch problems in GCC while we can't do more
2435 than static linking. The idea is to test whether the
2436 input file basename is crt0.o only once. */
2437 if (silence_segment_error == 1)
2438 silence_segment_error =
2439 (strlen (input_bfd->filename) == 6
2440 && strcmp (input_bfd->filename, "crt0.o") == 0)
2441 || (strlen (input_bfd->filename) > 6
2442 && strcmp (input_bfd->filename
2443 + strlen (input_bfd->filename) - 7,
2444 "/crt0.o") == 0)
2445 ? -1 : 0;
2446#endif
2447 if (!silence_segment_error
2448 /* We don't want duplicate errors for undefined
2449 symbols. */
2450 && !(picrel && picrel->symndx == -1
2451 && picrel->d.h->root.type == bfd_link_hash_undefined))
2452 info->callbacks->warning
2453 (info,
2454 (info->shared || info->pie)
2455 ? _("relocations between different segments are not supported")
2456 : _("warning: relocation references a different segment"),
2457 name, input_bfd, input_section, rel->r_offset);
2458 if (!silence_segment_error && (info->shared || info->pie))
2459 return FALSE;
2460 elf_elfheader (output_bfd)->e_flags |= EF_FRV_PIC;
2461 }
2462
2463 switch (r_type)
2464 {
2465 case R_FRV_GOTOFFHI:
2466 /* We need the addend to be applied before we shift the
2467 value right. */
2468 relocation += rel->r_addend;
2469 /* Fall through. */
2470 case R_FRV_GOTHI:
2471 case R_FRV_FUNCDESC_GOTHI:
2472 case R_FRV_FUNCDESC_GOTOFFHI:
2473 relocation >>= 16;
2474 /* Fall through. */
2475
2476 case R_FRV_GOTLO:
2477 case R_FRV_FUNCDESC_GOTLO:
2478 case R_FRV_GOTOFFLO:
2479 case R_FRV_FUNCDESC_GOTOFFLO:
2480 relocation &= 0xffff;
2481 break;
2482
2483 default:
2484 break;
2485 }
2486
2487 switch (r_type)
2488 {
2489 case R_FRV_LABEL24:
43850d5b 2490 if (! IS_FDPIC (output_bfd) || ! picrel->plt)
51532845
AO		 2491 break;
2492 /* Fall through. */
2493
2494 /* When referencing a GOT entry, a function descriptor or a
2495 PLT, we don't want the addend to apply to the reference,
2496 but rather to the referenced symbol. The actual entry
2497 will have already been created taking the addend into
2498 account, so cancel it out here. */
2499 case R_FRV_GOT12:
2500 case R_FRV_GOTHI:
2501 case R_FRV_GOTLO:
2502 case R_FRV_FUNCDESC_GOT12:
2503 case R_FRV_FUNCDESC_GOTHI:
2504 case R_FRV_FUNCDESC_GOTLO:
2505 case R_FRV_FUNCDESC_GOTOFF12:
2506 case R_FRV_FUNCDESC_GOTOFFHI:
2507 case R_FRV_FUNCDESC_GOTOFFLO:
2508 /* Note that we only want GOTOFFHI, not GOTOFFLO or GOTOFF12
2509 here, since we do want to apply the addend to the others.
2510 Note that we've applied the addend to GOTOFFHI before we
2511 shifted it right. */
2512 case R_FRV_GOTOFFHI:
2513 relocation -= rel->r_addend;
2514 break;
2515
2516 default:
2517 break;
2518 }
2519
2520 if (r_type == R_FRV_HI16)
2521 r = elf32_frv_relocate_hi16 (input_bfd, rel, contents, relocation);
2522
2523 else if (r_type == R_FRV_LO16)
2524 r = elf32_frv_relocate_lo16 (input_bfd, rel, contents, relocation);
2525
2526 else if (r_type == R_FRV_LABEL24)
2527 r = elf32_frv_relocate_label24 (input_bfd, input_section, rel,
2528 contents, relocation);
2529
2530 else if (r_type == R_FRV_GPREL12)
2531 r = elf32_frv_relocate_gprel12 (info, input_bfd, input_section, rel,
2532 contents, relocation);
2533
2534 else if (r_type == R_FRV_GPRELU12)
2535 r = elf32_frv_relocate_gprelu12 (info, input_bfd, input_section, rel,
2536 contents, relocation);
2537
2538 else if (r_type == R_FRV_GPRELLO)
2539 r = elf32_frv_relocate_gprello (info, input_bfd, input_section, rel,
2540 contents, relocation);
2541
2542 else if (r_type == R_FRV_GPRELHI)
2543 r = elf32_frv_relocate_gprelhi (info, input_bfd, input_section, rel,
2544 contents, relocation);
2545
2546 else
2547 r = frv_final_link_relocate (howto, input_bfd, input_section, contents,
2548 rel, relocation);
2549
2550 if (r != bfd_reloc_ok)
2551 {
2552 const char * msg = (const char *) NULL;
2553
2554 switch (r)
2555 {
2556 case bfd_reloc_overflow:
2557 r = info->callbacks->reloc_overflow
2558 (info, name, howto->name, (bfd_vma) 0,
2559 input_bfd, input_section, rel->r_offset);
2560 break;
2561
2562 case bfd_reloc_undefined:
2563 r = info->callbacks->undefined_symbol
2564 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
2565 break;
2566
2567 case bfd_reloc_outofrange:
2568 msg = _("internal error: out of range error");
2569 break;
2570
2571 case bfd_reloc_notsupported:
2572 msg = _("internal error: unsupported relocation error");
2573 break;
2574
2575 case bfd_reloc_dangerous:
2576 msg = _("internal error: dangerous relocation");
2577 break;
2578
2579 default:
2580 msg = _("internal error: unknown error");
2581 break;
2582 }
2583
2584 if (msg)
2585 r = info->callbacks->warning
2586 (info, msg, name, input_bfd, input_section, rel->r_offset);
2587
2588 if (! r)
2589 return FALSE;
2590 }
2591 }
2592
2593 return TRUE;
2594}
2595\f
2596/* Return the section that should be marked against GC for a given
2597 relocation. */
2598
2599static asection *
2600elf32_frv_gc_mark_hook (sec, info, rel, h, sym)
2601 asection *sec;
2602 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2603 Elf_Internal_Rela *rel;
2604 struct elf_link_hash_entry *h;
2605 Elf_Internal_Sym *sym;
2606{
2607 if (h != NULL)
2608 {
2609 switch (ELF32_R_TYPE (rel->r_info))
2610 {
2611 case R_FRV_GNU_VTINHERIT:
2612 case R_FRV_GNU_VTENTRY:
2613 break;
2614
2615 default:
2616 switch (h->root.type)
2617 {
2618 default:
2619 break;
2620
2621 case bfd_link_hash_defined:
2622 case bfd_link_hash_defweak:
2623 return h->root.u.def.section;
2624
2625 case bfd_link_hash_common:
2626 return h->root.u.c.p->section;
2627 }
2628 }
2629 }
2630 else
2631 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
2632
2633 return NULL;
2634}
2635
2636/* Update the got entry reference counts for the section being removed. */
2637
2638static bfd_boolean
2639elf32_frv_gc_sweep_hook (abfd, info, sec, relocs)
2640 bfd *abfd ATTRIBUTE_UNUSED;
2641 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2642 asection *sec ATTRIBUTE_UNUSED;
2643 const Elf_Internal_Rela *relocs ATTRIBUTE_UNUSED;
2644{
2645 return TRUE;
2646}
2647
2648\f
2649/* Hook called by the linker routine which adds symbols from an object
2650 file. We use it to put .comm items in .scomm, and not .comm. */
2651
2652static bfd_boolean
2653elf32_frv_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
2654 bfd *abfd;
2655 struct bfd_link_info *info;
555cd476 2656 Elf_Internal_Sym *sym;
51532845
AO		 2657 const char **namep ATTRIBUTE_UNUSED;
2658 flagword *flagsp ATTRIBUTE_UNUSED;
2659 asection **secp;
2660 bfd_vma *valp;
2661{
2662 if (sym->st_shndx == SHN_COMMON
2663 && !info->relocatable
2664 && (int)sym->st_size <= (int)bfd_get_gp_size (abfd))
2665 {
2666 /* Common symbols less than or equal to -G nn bytes are
2667 automatically put into .sbss. */
2668
2669 asection *scomm = bfd_get_section_by_name (abfd, ".scommon");
2670
2671 if (scomm == NULL)
2672 {
2673 scomm = bfd_make_section (abfd, ".scommon");
2674 if (scomm == NULL
2675 || !bfd_set_section_flags (abfd, scomm, (SEC_ALLOC
2676 | SEC_IS_COMMON
2677 | SEC_LINKER_CREATED)))
2678 return FALSE;
2679 }
2680
2681 *secp = scomm;
2682 *valp = sym->st_size;
2683 }
2684
2685 return TRUE;
2686}
43850d5b
AO		 2687
2688/* Create a .got section, as well as its additional info field. This
51532845
AO		 2689 is almost entirely copied from
2690 elflink.c:_bfd_elf_create_got_section(). */
2691
2692static bfd_boolean
2693_frv_create_got_section (bfd *abfd, struct bfd_link_info *info)
2694{
2695 flagword flags;
2696 asection *s;
2697 struct elf_link_hash_entry *h;
2698 struct bfd_link_hash_entry *bh;
2699 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
2700 int ptralign;
43850d5b 2701 int offset;
51532845
AO		 2702
2703 /* This function may be called more than once. */
2704 s = bfd_get_section_by_name (abfd, ".got");
2705 if (s != NULL && (s->flags & SEC_LINKER_CREATED) != 0)
2706 return TRUE;
2707
2708 /* Machine specific: although pointers are 32-bits wide, we want the
2709 GOT to be aligned to a 64-bit boundary, such that function
2710 descriptors in it can be accessed with 64-bit loads and
2711 stores. */
2712 ptralign = 3;
2713
2714 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2715 | SEC_LINKER_CREATED);
2716
2717 s = bfd_make_section (abfd, ".got");
2718 if (s == NULL
2719 || !bfd_set_section_flags (abfd, s, flags)
2720 || !bfd_set_section_alignment (abfd, s, ptralign))
2721 return FALSE;
2722
2723 if (bed->want_got_plt)
2724 {
2725 s = bfd_make_section (abfd, ".got.plt");
2726 if (s == NULL
2727 || !bfd_set_section_flags (abfd, s, flags)
2728 || !bfd_set_section_alignment (abfd, s, ptralign))
2729 return FALSE;
2730 }
2731
2732 if (bed->want_got_sym)
2733 {
2734 /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
2735 (or .got.plt) section. We don't do this in the linker script
2736 because we don't want to define the symbol if we are not creating
2737 a global offset table. */
2738 bh = NULL;
2739 if (!(_bfd_generic_link_add_one_symbol
2740 (info, abfd, "_GLOBAL_OFFSET_TABLE_", BSF_GLOBAL, s,
2741 bed->got_symbol_offset, (const char *) NULL, FALSE,
2742 bed->collect, &bh)))
2743 return FALSE;
2744 h = (struct elf_link_hash_entry *) bh;
2745 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
2746 h->type = STT_OBJECT;
2747
2748 /* Machine-specific: we want the symbol for executables as
2749 well. */
c152c796 2750 if (! bfd_elf_link_record_dynamic_symbol (info, h))
51532845
AO		 2751 return FALSE;
2752
2753 elf_hash_table (info)->hgot = h;
2754 }
2755
2756 /* The first bit of the global offset table is the header. */
2757 s->_raw_size += bed->got_header_size + bed->got_symbol_offset;
2758
2759 /* This is the machine-specific part. Create and initialize section
2760 data for the got. */
43850d5b
AO		 2761 if (IS_FDPIC (abfd))
2762 {
2763 frvfdpic_got_section (info) = s;
2764 frvfdpic_relocs_info (info) = htab_try_create (1, frvfdpic_relocs_info_hash,
2765 frvfdpic_relocs_info_eq,
2766 (htab_del) NULL);
2767 if (! frvfdpic_relocs_info (info))
2768 return FALSE;
51532845 2769
43850d5b
AO		 2770 s = bfd_make_section (abfd, ".rel.got");
2771 if (s == NULL
2772 || ! bfd_set_section_flags (abfd, s, (flags | SEC_READONLY))
2773 || ! bfd_set_section_alignment (abfd, s, 2))
2774 return FALSE;
51532845 2775
43850d5b 2776 frvfdpic_gotrel_section (info) = s;
51532845 2777
43850d5b
AO		 2778 /* Machine-specific. */
2779 s = bfd_make_section (abfd, ".rofixup");
2780 if (s == NULL
2781 || ! bfd_set_section_flags (abfd, s, (flags | SEC_READONLY))
2782 || ! bfd_set_section_alignment (abfd, s, 2))
2783 return FALSE;
51532845 2784
43850d5b
AO		 2785 frvfdpic_gotfixup_section (info) = s;
2786 offset = -2048;
2787 flags = BSF_GLOBAL;
2788 }
2789 else
2790 {
2791 offset = 2048;
2792 flags = BSF_GLOBAL | BSF_WEAK;
2793 }
51532845 2794
43850d5b
AO		 2795 /* Define _gp in .rofixup, for FDPIC, or .got otherwise. If it
2796 turns out that we're linking with a different linker script, the
2797 linker script will override it. */
51532845
AO		 2798 bh = NULL;
2799 if (!(_bfd_generic_link_add_one_symbol
43850d5b 2800 (info, abfd, "_gp", flags, s, offset, (const char *) NULL, FALSE,
51532845
AO		 2801 bed->collect, &bh)))
2802 return FALSE;
2803 h = (struct elf_link_hash_entry *) bh;
2804 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
2805 h->type = STT_OBJECT;
2806
2807 /* Machine-specific: we want the symbol for executables as well. */
43850d5b 2808 if (IS_FDPIC (abfd) && ! bfd_elf_link_record_dynamic_symbol (info, h))
51532845 2809 return FALSE;
43850d5b 2810
51532845
AO		 2811 return TRUE;
2812}
2813
2814/* Make sure the got and plt sections exist, and that our pointers in
2815 the link hash table point to them. */
2816
2817static bfd_boolean
43850d5b 2818elf32_frvfdpic_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
51532845
AO		 2819{
2820 /* This is mostly copied from
2821 elflink.c:_bfd_elf_create_dynamic_sections(). */
2822 flagword flags, pltflags;
2823 asection *s;
2824 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
2825
2826 /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
2827 .rel[a].bss sections. */
2828
2829 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2830 | SEC_LINKER_CREATED);
2831
2832 pltflags = flags;
2833 pltflags |= SEC_CODE;
2834 if (bed->plt_not_loaded)
2835 pltflags &= ~ (SEC_CODE | SEC_LOAD | SEC_HAS_CONTENTS);
2836 if (bed->plt_readonly)
2837 pltflags |= SEC_READONLY;
2838
2839 s = bfd_make_section (abfd, ".plt");
2840 if (s == NULL
2841 || ! bfd_set_section_flags (abfd, s, pltflags)
2842 || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
2843 return FALSE;
2844 /* FRV-specific: remember it. */
43850d5b 2845 frvfdpic_plt_section (info) = s;
51532845
AO		 2846
2847 if (bed->want_plt_sym)
2848 {
2849 /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
2850 .plt section. */
2851 struct elf_link_hash_entry *h;
2852 struct bfd_link_hash_entry *bh = NULL;
2853
2854 if (! (_bfd_generic_link_add_one_symbol
2855 (info, abfd, "_PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s, 0, NULL,
2856 FALSE, get_elf_backend_data (abfd)->collect, &bh)))
2857 return FALSE;
2858 h = (struct elf_link_hash_entry *) bh;
2859 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
2860 h->type = STT_OBJECT;
2861
2862 if (! info->executable
c152c796 2863 && ! bfd_elf_link_record_dynamic_symbol (info, h))
51532845
AO		 2864 return FALSE;
2865 }
2866
2867 /* FRV-specific: we want rel relocations for the plt. */
2868 s = bfd_make_section (abfd, ".rel.plt");
2869 if (s == NULL
2870 || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)
2871 || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
2872 return FALSE;
2873 /* FRV-specific: remember it. */
43850d5b 2874 frvfdpic_pltrel_section (info) = s;
51532845
AO		 2875
2876 /* FRV-specific: we want to create the GOT in the FRV way. */
2877 if (! _frv_create_got_section (abfd, info))
2878 return FALSE;
2879
2880 /* FRV-specific: make sure we created everything we wanted. */
43850d5b
AO		 2881 BFD_ASSERT (frvfdpic_got_section (info) && frvfdpic_gotrel_section (info)
2882 && frvfdpic_gotfixup_section (info)
2883 && frvfdpic_plt_section (info)
2884 && frvfdpic_pltrel_section (info));
51532845
AO		 2885
2886 if (bed->want_dynbss)
2887 {
2888 /* The .dynbss section is a place to put symbols which are defined
2889 by dynamic objects, are referenced by regular objects, and are
2890 not functions. We must allocate space for them in the process
2891 image and use a R_*_COPY reloc to tell the dynamic linker to
2892 initialize them at run time. The linker script puts the .dynbss
2893 section into the .bss section of the final image. */
2894 s = bfd_make_section (abfd, ".dynbss");
2895 if (s == NULL
2896 || ! bfd_set_section_flags (abfd, s, SEC_ALLOC | SEC_LINKER_CREATED))
2897 return FALSE;
2898
2899 /* The .rel[a].bss section holds copy relocs. This section is not
2900 normally needed. We need to create it here, though, so that the
2901 linker will map it to an output section. We can't just create it
2902 only if we need it, because we will not know whether we need it
2903 until we have seen all the input files, and the first time the
2904 main linker code calls BFD after examining all the input files
2905 (size_dynamic_sections) the input sections have already been
2906 mapped to the output sections. If the section turns out not to
2907 be needed, we can discard it later. We will never need this
2908 section when generating a shared object, since they do not use
2909 copy relocs. */
2910 if (! info->shared)
2911 {
2912 s = bfd_make_section (abfd,
2913 (bed->default_use_rela_p
2914 ? ".rela.bss" : ".rel.bss"));
2915 if (s == NULL
2916 || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)
2917 || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
2918 return FALSE;
2919 }
2920 }
2921
2922 return TRUE;
2923}
2924
2925/* The name of the dynamic interpreter. This is put in the .interp
2926 section. */
2927
2928#define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
2929
2930#define DEFAULT_STACK_SIZE 0x20000
2931
2932/* This structure is used to collect the number of entries present in
2933 each addressable range of the got. */
43850d5b 2934struct _frvfdpic_dynamic_got_info
51532845
AO		 2935{
2936 /* Several bits of information about the current link. */
2937 struct bfd_link_info *info;
2938 /* Total size needed for GOT entries within the 12-, 16- or 32-bit
2939 ranges. */
2940 bfd_vma got12, gotlos, gothilo;
2941 /* Total size needed for function descriptor entries within the 12-,
2942 16- or 32-bit ranges. */
2943 bfd_vma fd12, fdlos, fdhilo;
2944 /* Total size needed function descriptor entries referenced in PLT
2945 entries, that would be profitable to place in offsets close to
2946 the PIC register. */
2947 bfd_vma fdplt;
2948 /* Total size needed by lazy PLT entries. */
2949 bfd_vma lzplt;
2950 /* Number of relocations carried over from input object files. */
2951 unsigned long relocs;
2952 /* Number of fixups introduced by relocations in input object files. */
2953 unsigned long fixups;
2954};
2955
2956/* Compute the total GOT size required by each symbol in each range.
2957 Symbols may require up to 4 words in the GOT: an entry pointing to
2958 the symbol, an entry pointing to its function descriptor, and a
2959 private function descriptors taking two words. */
2960
2961static int
43850d5b 2962_frvfdpic_count_got_plt_entries (void **entryp, void *dinfo_)
51532845 2963{
43850d5b
AO		 2964 struct frvfdpic_relocs_info *entry = *entryp;
2965 struct _frvfdpic_dynamic_got_info *dinfo = dinfo_;
3b712a1a 2966 unsigned relocs = 0, fixups = 0;
51532845
AO		 2967
2968 /* Allocate space for a GOT entry pointing to the symbol. */
2969 if (entry->got12)
2970 dinfo->got12 += 4;
2971 else if (entry->gotlos)
2972 dinfo->gotlos += 4;
2973 else if (entry->gothilo)
2974 dinfo->gothilo += 4;
2975 else
2976 entry->relocs32--;
2977 entry->relocs32++;
2978
2979 /* Allocate space for a GOT entry pointing to the function
2980 descriptor. */
2981 if (entry->fdgot12)
2982 dinfo->got12 += 4;
2983 else if (entry->fdgotlos)
2984 dinfo->gotlos += 4;
2985 else if (entry->fdgothilo)
2986 dinfo->gothilo += 4;
2987 else
2988 entry->relocsfd--;
2989 entry->relocsfd++;
2990
2991 /* Decide whether we need a PLT entry, a function descriptor in the
2992 GOT, and a lazy PLT entry for this symbol. */
2993 entry->plt = entry->call
43850d5b 2994 && entry->symndx == -1 && ! FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
51532845
AO		 2995 && elf_hash_table (dinfo->info)->dynamic_sections_created;
2996 entry->privfd = entry->plt
2997 || entry->fdgoff12 || entry->fdgofflos || entry->fdgoffhilo
2998 || ((entry->fd || entry->fdgot12 || entry->fdgotlos || entry->fdgothilo)
2999 && (entry->symndx != -1
43850d5b 3000 || FRVFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h)));
51532845 3001 entry->lazyplt = entry->privfd
43850d5b 3002 && entry->symndx == -1 && ! FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
51532845
AO		 3003 && ! (dinfo->info->flags & DF_BIND_NOW)
3004 && elf_hash_table (dinfo->info)->dynamic_sections_created;
3005
3006 /* Allocate space for a function descriptor. */
3007 if (entry->fdgoff12)
3008 dinfo->fd12 += 8;
3009 else if (entry->fdgofflos)
3010 dinfo->fdlos += 8;
3011 else if (entry->privfd && entry->plt)
3012 dinfo->fdplt += 8;
3013 else if (entry->privfd)
3014 dinfo->fdhilo += 8;
3015 else
3016 entry->relocsfdv--;
3017 entry->relocsfdv++;
3018
3019 if (entry->lazyplt)
3020 dinfo->lzplt += 8;
3021
3022 if (!dinfo->info->executable || dinfo->info->pie)
3b712a1a 3023 relocs = entry->relocs32 + entry->relocsfd + entry->relocsfdv;
51532845
AO		 3024 else
3025 {
43850d5b 3026 if (entry->symndx != -1 || FRVFDPIC_SYM_LOCAL (dinfo->info, entry->d.h))
51532845
AO		 3027 {
3028 if (entry->symndx != -1
3b712a1a
AO		 3029 || entry->d.h->root.type != bfd_link_hash_undefweak)
3030 fixups += entry->relocs32 + 2 * entry->relocsfdv;
51532845
AO		 3031 }
3032 else
3b712a1a
AO		 3033 relocs += entry->relocs32 + entry->relocsfdv;
3034
43850d5b
AO		 3035 if (entry->symndx != -1
3036 || FRVFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h))
51532845
AO		 3037 {
3038 if (entry->symndx != -1
3039 || entry->d.h->root.type != bfd_link_hash_undefweak)
3b712a1a 3040 fixups += entry->relocsfd;
51532845
AO		 3041 }
3042 else
3b712a1a 3043 relocs += entry->relocsfd;
51532845
AO		 3044 }
3045
3b712a1a
AO		 3046 entry->dynrelocs += relocs;
3047 entry->fixups += fixups;
3048 dinfo->relocs += relocs;
3049 dinfo->fixups += fixups;
3050
51532845
AO		 3051 return 1;
3052}
3053
3054/* This structure is used to assign offsets to got entries, function
3055 descriptors, plt entries and lazy plt entries. */
3056
43850d5b 3057struct _frvfdpic_dynamic_got_plt_info
51532845 3058{
43850d5b
AO		 3059 /* Summary information collected with _frvfdpic_count_got_plt_entries. */
3060 struct _frvfdpic_dynamic_got_info g;
51532845
AO		 3061
3062 /* For each addressable range, we record a MAX (positive) and MIN
3063 (negative) value. CUR is used to assign got entries, and it's
3064 incremented from an initial positive value to MAX, then from MIN
3065 to FDCUR (unless FDCUR wraps around first). FDCUR is used to
3066 assign function descriptors, and it's decreased from an initial
3067 non-positive value to MIN, then from MAX down to CUR (unless CUR
3068 wraps around first). All of MIN, MAX, CUR and FDCUR always point
3069 to even words. ODD, if non-zero, indicates an odd word to be
3070 used for the next got entry, otherwise CUR is used and
3071 incremented by a pair of words, wrapping around when it reaches
3072 MAX. FDCUR is decremented (and wrapped) before the next function
3073 descriptor is chosen. FDPLT indicates the number of remaining
3074 slots that can be used for function descriptors used only by PLT
3075 entries. */
43850d5b 3076 struct _frvfdpic_dynamic_got_alloc_data
51532845
AO		 3077 {
3078 bfd_signed_vma max, cur, odd, fdcur, min;
3079 bfd_vma fdplt;
3080 } got12, gotlos, gothilo;
3081};
3082
3083/* Determine the positive and negative ranges to be used by each
3084 offset range in the GOT. FDCUR and CUR, that must be aligned to a
3085 double-word boundary, are the minimum (negative) and maximum
3086 (positive) GOT offsets already used by previous ranges, except for
3087 an ODD entry that may have been left behind. GOT and FD indicate
3088 the size of GOT entries and function descriptors that must be
3089 placed within the range from -WRAP to WRAP. If there's room left,
3090 up to FDPLT bytes should be reserved for additional function
3091 descriptors. */
3092
3093inline static bfd_signed_vma
43850d5b
AO		 3094_frvfdpic_compute_got_alloc_data (struct _frvfdpic_dynamic_got_alloc_data *gad,
3095 bfd_signed_vma fdcur,
3096 bfd_signed_vma odd,
3097 bfd_signed_vma cur,
3098 bfd_vma got,
3099 bfd_vma fd,
3100 bfd_vma fdplt,
3101 bfd_vma wrap)
51532845
AO		 3102{
3103 bfd_signed_vma wrapmin = -wrap;
3104
3105 /* Start at the given initial points. */
3106 gad->fdcur = fdcur;
3107 gad->cur = cur;
3108
3109 /* If we had an incoming odd word and we have any got entries that
3110 are going to use it, consume it, otherwise leave gad->odd at
3111 zero. We might force gad->odd to zero and return the incoming
3112 odd such that it is used by the next range, but then GOT entries
3113 might appear to be out of order and we wouldn't be able to
3114 shorten the GOT by one word if it turns out to end with an
3115 unpaired GOT entry. */
3116 if (odd && got)
3117 {
3118 gad->odd = odd;
3119 got -= 4;
3120 odd = 0;
3121 }
3122 else
3123 gad->odd = 0;
3124
3125 /* If we're left with an unpaired GOT entry, compute its location
3126 such that we can return it. Otherwise, if got doesn't require an
3127 odd number of words here, either odd was already zero in the
3128 block above, or it was set to zero because got was non-zero, or
3129 got was already zero. In the latter case, we want the value of
3130 odd to carry over to the return statement, so we don't want to
3131 reset odd unless the condition below is true. */
3132 if (got & 4)
3133 {
3134 odd = cur + got;
3135 got += 4;
3136 }
3137
3138 /* Compute the tentative boundaries of this range. */
3139 gad->max = cur + got;
3140 gad->min = fdcur - fd;
3141 gad->fdplt = 0;
3142
3143 /* If function descriptors took too much space, wrap some of them
3144 around. */
3145 if (gad->min < wrapmin)
3146 {
3147 gad->max += wrapmin - gad->min;
3148 gad->min = wrapmin;
3149 }
3150 /* If there is space left and we have function descriptors
3151 referenced in PLT entries that could take advantage of shorter
3152 offsets, place them here. */
3153 else if (fdplt && gad->min > wrapmin)
3154 {
3155 bfd_vma fds;
3156 if ((bfd_vma) (gad->min - wrapmin) < fdplt)
3157 fds = gad->min - wrapmin;
3158 else
3159 fds = fdplt;
3160
3161 fdplt -= fds;
3162 gad->min -= fds;
3163 gad->fdplt += fds;
3164 }
3165
3166 /* If GOT entries took too much space, wrap some of them around.
3167 This may well cause gad->min to become lower than wrapmin. This
3168 will cause a relocation overflow later on, so we don't have to
3169 report it here . */
3170 if ((bfd_vma) gad->max > wrap)
3171 {
3172 gad->min -= gad->max - wrap;
3173 gad->max = wrap;
3174 }
3175 /* If there is more space left, try to place some more function
3176 descriptors for PLT entries. */
3177 else if (fdplt && (bfd_vma) gad->max < wrap)
3178 {
3179 bfd_vma fds;
3180 if ((bfd_vma) (wrap - gad->max) < fdplt)
3181 fds = wrap - gad->max;
3182 else
3183 fds = fdplt;
3184
3185 fdplt -= fds;
3186 gad->max += fds;
3187 gad->fdplt += fds;
3188 }
3189
3190 /* If odd was initially computed as an offset past the wrap point,
3191 wrap it around. */
3192 if (odd > gad->max)
3193 odd = gad->min + odd - gad->max;
3194
43850d5b 3195 /* _frvfdpic_get_got_entry() below will always wrap gad->cur if needed
51532845
AO		 3196 before returning, so do it here too. This guarantees that,
3197 should cur and fdcur meet at the wrap point, they'll both be
3198 equal to min. */
3199 if (gad->cur == gad->max)
3200 gad->cur = gad->min;
3201
3202 return odd;
3203}
3204
3205/* Compute the location of the next GOT entry, given the allocation
3206 data for a range. */
3207
3208inline static bfd_signed_vma
43850d5b 3209_frvfdpic_get_got_entry (struct _frvfdpic_dynamic_got_alloc_data *gad)
51532845
AO		 3210{
3211 bfd_signed_vma ret;
3212
3213 if (gad->odd)
3214 {
3215 /* If there was an odd word left behind, use it. */
3216 ret = gad->odd;
3217 gad->odd = 0;
3218 }
3219 else
3220 {
3221 /* Otherwise, use the word pointed to by cur, reserve the next
3222 as an odd word, and skip to the next pair of words, possibly
3223 wrapping around. */
3224 ret = gad->cur;
3225 gad->odd = gad->cur + 4;
3226 gad->cur += 8;
3227 if (gad->cur == gad->max)
3228 gad->cur = gad->min;
3229 }
3230
3231 return ret;
3232}
3233
3234/* Compute the location of the next function descriptor entry in the
3235 GOT, given the allocation data for a range. */
3236
3237inline static bfd_signed_vma
43850d5b 3238_frvfdpic_get_fd_entry (struct _frvfdpic_dynamic_got_alloc_data *gad)
51532845
AO		 3239{
3240 /* If we're at the bottom, wrap around, and only then allocate the
3241 next pair of words. */
3242 if (gad->fdcur == gad->min)
3243 gad->fdcur = gad->max;
3244 return gad->fdcur -= 8;
3245}
3246
3247/* Assign GOT offsets for every GOT entry and function descriptor.
3248 Doing everything in a single pass is tricky. */
3249
3250static int
43850d5b 3251_frvfdpic_assign_got_entries (void **entryp, void *info_)
51532845 3252{
43850d5b
AO		 3253 struct frvfdpic_relocs_info *entry = *entryp;
3254 struct _frvfdpic_dynamic_got_plt_info *dinfo = info_;
51532845
AO		 3255
3256 if (entry->got12)
43850d5b 3257 entry->got_entry = _frvfdpic_get_got_entry (&dinfo->got12);
51532845 3258 else if (entry->gotlos)
43850d5b 3259 entry->got_entry = _frvfdpic_get_got_entry (&dinfo->gotlos);
51532845 3260 else if (entry->gothilo)
43850d5b 3261 entry->got_entry = _frvfdpic_get_got_entry (&dinfo->gothilo);
51532845
AO		 3262
3263 if (entry->fdgot12)
43850d5b 3264 entry->fdgot_entry = _frvfdpic_get_got_entry (&dinfo->got12);
51532845 3265 else if (entry->fdgotlos)
43850d5b 3266 entry->fdgot_entry = _frvfdpic_get_got_entry (&dinfo->gotlos);
51532845 3267 else if (entry->fdgothilo)
43850d5b 3268 entry->fdgot_entry = _frvfdpic_get_got_entry (&dinfo->gothilo);
51532845
AO		 3269
3270 if (entry->fdgoff12)
43850d5b 3271 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->got12);
51532845
AO		 3272 else if (entry->plt && dinfo->got12.fdplt)
3273 {
3274 dinfo->got12.fdplt -= 8;
43850d5b 3275 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->got12);
51532845
AO		 3276 }
3277 else if (entry->fdgofflos)
43850d5b 3278 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gotlos);
51532845
AO		 3279 else if (entry->plt && dinfo->gotlos.fdplt)
3280 {
3281 dinfo->gotlos.fdplt -= 8;
43850d5b 3282 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gotlos);
51532845
AO		 3283 }
3284 else if (entry->plt)
3285 {
3286 dinfo->gothilo.fdplt -= 8;
43850d5b 3287 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gothilo);
51532845
AO		 3288 }
3289 else if (entry->privfd)
43850d5b 3290 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gothilo);
51532845
AO		 3291
3292 return 1;
3293}
3294
3295/* Assign GOT offsets to private function descriptors used by PLT
3296 entries (or referenced by 32-bit offsets), as well as PLT entries
3297 and lazy PLT entries. */
3298
3299static int
43850d5b 3300_frvfdpic_assign_plt_entries (void **entryp, void *info_)
51532845 3301{
43850d5b
AO		 3302 struct frvfdpic_relocs_info *entry = *entryp;
3303 struct _frvfdpic_dynamic_got_plt_info *dinfo = info_;
51532845
AO		 3304
3305 /* If this symbol requires a local function descriptor, allocate
3306 one. */
3307 if (entry->privfd && entry->fd_entry == 0)
3308 {
3309 if (dinfo->got12.fdplt)
3310 {
43850d5b 3311 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->got12);
51532845
AO		 3312 dinfo->got12.fdplt -= 8;
3313 }
3314 else if (dinfo->gotlos.fdplt)
3315 {
43850d5b 3316 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gotlos);
51532845
AO		 3317 dinfo->gotlos.fdplt -= 8;
3318 }
3319 else
3320 {
3321 BFD_ASSERT (dinfo->gothilo.fdplt)
43850d5b 3322 entry->fd_entry = _frvfdpic_get_fd_entry (&dinfo->gothilo);
51532845
AO		 3323 dinfo->gothilo.fdplt -= 8;
3324 }
3325 }
3326
3327 if (entry->plt)
3328 {
3329 int size;
3330
3331 /* We use the section's raw size to mark the location of the
3332 next PLT entry. */
43850d5b 3333 entry->plt_entry = frvfdpic_plt_section (dinfo->g.info)->_raw_size;
51532845
AO		 3334
3335 /* Figure out the length of this PLT entry based on the
3336 addressing mode we need to reach the function descriptor. */
3337 BFD_ASSERT (entry->fd_entry);
3338 if (entry->fd_entry >= -(1 << (12 - 1))
3339 && entry->fd_entry < (1 << (12 - 1)))
3340 size = 8;
3341 else if (entry->fd_entry >= -(1 << (16 - 1))
3342 && entry->fd_entry < (1 << (16 - 1)))
3343 size = 12;
3344 else
3345 size = 16;
3346
43850d5b 3347 frvfdpic_plt_section (dinfo->g.info)->_raw_size += size;
51532845
AO		 3348 }
3349
3350 if (entry->lazyplt)
3351 {
3352 entry->lzplt_entry = dinfo->g.lzplt;
3353 dinfo->g.lzplt += 8;
3354 /* If this entry is the one that gets the resolver stub, account
3355 for the additional instruction. */
43850d5b
AO		 3356 if (entry->lzplt_entry % FRVFDPIC_LZPLT_BLOCK_SIZE
3357 == FRVFDPIC_LZPLT_RESOLV_LOC)
51532845
AO		 3358 dinfo->g.lzplt += 4;
3359 }
3360
3361 return 1;
3362}
3363
3364/* Follow indirect and warning hash entries so that each got entry
3365 points to the final symbol definition. P must point to a pointer
3366 to the hash table we're traversing. Since this traversal may
3367 modify the hash table, we set this pointer to NULL to indicate
3368 we've made a potentially-destructive change to the hash table, so
3369 the traversal must be restarted. */
3370static int
43850d5b 3371_frvfdpic_resolve_final_relocs_info (void **entryp, void *p)
51532845 3372{
43850d5b 3373 struct frvfdpic_relocs_info *entry = *entryp;
51532845
AO		 3374 htab_t *htab = p;
3375
3376 if (entry->symndx == -1)
3377 {
3378 struct elf_link_hash_entry *h = entry->d.h;
43850d5b 3379 struct frvfdpic_relocs_info *oentry;
51532845
AO		 3380
3381 while (h->root.type == bfd_link_hash_indirect
3382 || h->root.type == bfd_link_hash_warning)
3383 h = (struct elf_link_hash_entry *)h->root.u.i.link;
3384
3385 if (entry->d.h == h)
3386 return 1;
3387
43850d5b
AO		 3388 oentry = frvfdpic_relocs_info_for_global (*htab, 0, h, entry->addend,
3389 NO_INSERT);
3b712a1a
AO		 3390
3391 if (oentry)
3392 {
3393 /* Merge the two entries. */
43850d5b 3394 frvfdpic_pic_merge_early_relocs_info (oentry, entry);
3b712a1a
AO		 3395 htab_clear_slot (*htab, entryp);
3396 return 1;
3397 }
3398
51532845
AO		 3399 entry->d.h = h;
3400
3401 /* If we can't find this entry with the new bfd hash, re-insert
3402 it, and get the traversal restarted. */
3403 if (! htab_find (*htab, entry))
3404 {
3405 htab_clear_slot (*htab, entryp);
3406 entryp = htab_find_slot (*htab, entry, INSERT);
3407 if (! *entryp)
3408 *entryp = entry;
3409 /* Abort the traversal, since the whole table may have
3410 moved, and leave it up to the parent to restart the
3411 process. */
3412 *(htab_t *)p = NULL;
3413 return 0;
3414 }
3415 }
3416
3417 return 1;
3418}
3419
3420/* Set the sizes of the dynamic sections. */
3421
3422static bfd_boolean
43850d5b
AO		 3423elf32_frvfdpic_size_dynamic_sections (bfd *output_bfd,
3424 struct bfd_link_info *info)
51532845
AO		 3425{
3426 bfd *dynobj;
3427 asection *s;
43850d5b 3428 struct _frvfdpic_dynamic_got_plt_info gpinfo;
51532845
AO		 3429 bfd_signed_vma odd;
3430 bfd_vma limit;
3431
3432 dynobj = elf_hash_table (info)->dynobj;
3433 BFD_ASSERT (dynobj != NULL);
3434
3435 if (elf_hash_table (info)->dynamic_sections_created)
3436 {
3437 /* Set the contents of the .interp section to the interpreter. */
3438 if (info->executable)
3439 {
3440 s = bfd_get_section_by_name (dynobj, ".interp");
3441 BFD_ASSERT (s != NULL);
3442 s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
3443 s->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
3444 }
3445 }
3446
3447 memset (&gpinfo, 0, sizeof (gpinfo));
3448 gpinfo.g.info = info;
3449
3450 for (;;)
3451 {
43850d5b 3452 htab_t relocs = frvfdpic_relocs_info (info);
51532845 3453
43850d5b 3454 htab_traverse (relocs, _frvfdpic_resolve_final_relocs_info, &relocs);
51532845 3455
43850d5b 3456 if (relocs == frvfdpic_relocs_info (info))
51532845
AO		 3457 break;
3458 }
3459
43850d5b 3460 htab_traverse (frvfdpic_relocs_info (info), _frvfdpic_count_got_plt_entries,
51532845
AO		 3461 &gpinfo.g);
3462
3463 odd = 12;
3464 /* Compute the total size taken by entries in the 12-bit and 16-bit
3465 ranges, to tell how many PLT function descriptors we can bring
3466 into the 12-bit range without causing the 16-bit range to
3467 overflow. */
3468 limit = odd + gpinfo.g.got12 + gpinfo.g.gotlos
3469 + gpinfo.g.fd12 + gpinfo.g.fdlos;
3470 if (limit < (bfd_vma)1 << 16)
3471 limit = ((bfd_vma)1 << 16) - limit;
3472 else
3473 limit = 0;
3474 if (gpinfo.g.fdplt < limit)
3475 limit = gpinfo.g.fdplt;
3476
3477 /* Determine the ranges of GOT offsets that we can use for each
3478 range of addressing modes. */
43850d5b
AO		 3479 odd = _frvfdpic_compute_got_alloc_data (&gpinfo.got12,
3480 0,
3481 odd,
3482 16,
3483 gpinfo.g.got12,
3484 gpinfo.g.fd12,
3485 limit,
3486 (bfd_vma)1 << (12-1));
3487 odd = _frvfdpic_compute_got_alloc_data (&gpinfo.gotlos,
3488 gpinfo.got12.min,
3489 odd,
3490 gpinfo.got12.max,
3491 gpinfo.g.gotlos,
3492 gpinfo.g.fdlos,
3493 gpinfo.g.fdplt - gpinfo.got12.fdplt,
3494 (bfd_vma)1 << (16-1));
3495 odd = _frvfdpic_compute_got_alloc_data (&gpinfo.gothilo,
3496 gpinfo.gotlos.min,
3497 odd,
3498 gpinfo.gotlos.max,
3499 gpinfo.g.gothilo,
3500 gpinfo.g.fdhilo,
3501 gpinfo.g.fdplt - gpinfo.got12.fdplt
3502 - gpinfo.gotlos.fdplt,
3503 (bfd_vma)1 << (32-1));
51532845
AO		 3504
3505 /* Now assign (most) GOT offsets. */
43850d5b
AO		 3506 htab_traverse (frvfdpic_relocs_info (info), _frvfdpic_assign_got_entries,
3507 &gpinfo);
51532845 3508
43850d5b
AO		 3509 frvfdpic_got_section (info)->_raw_size = gpinfo.gothilo.max
3510 - gpinfo.gothilo.min
51532845
AO		 3511 /* If an odd word is the last word of the GOT, we don't need this
3512 word to be part of the GOT. */
3513 - (odd + 4 == gpinfo.gothilo.max ? 4 : 0);
43850d5b
AO		 3514 if (frvfdpic_got_section (info)->_raw_size == 0)
3515 frvfdpic_got_section (info)->flags |= SEC_EXCLUDE;
3516 else if (frvfdpic_got_section (info)->_raw_size == 12
51532845
AO		 3517 && ! elf_hash_table (info)->dynamic_sections_created)
3518 {
43850d5b
AO		 3519 frvfdpic_got_section (info)->flags |= SEC_EXCLUDE;
3520 frvfdpic_got_section (info)->_raw_size = 0;
51532845
AO		 3521 }
3522 else
3523 {
43850d5b
AO		 3524 frvfdpic_got_section (info)->contents =
3525 (bfd_byte *) bfd_zalloc (dynobj,
3526 frvfdpic_got_section (info)->_raw_size);
3527 if (frvfdpic_got_section (info)->contents == NULL)
51532845
AO		 3528 return FALSE;
3529 }
3530
3531 if (elf_hash_table (info)->dynamic_sections_created)
3532 /* Subtract the number of lzplt entries, since those will generate
3533 relocations in the pltrel section. */
43850d5b 3534 frvfdpic_gotrel_section (info)->_raw_size =
51532845
AO		 3535 (gpinfo.g.relocs - gpinfo.g.lzplt / 8)
3536 * get_elf_backend_data (output_bfd)->s->sizeof_rel;
3537 else
3538 BFD_ASSERT (gpinfo.g.relocs == 0);
43850d5b
AO		 3539 if (frvfdpic_gotrel_section (info)->_raw_size == 0)
3540 frvfdpic_gotrel_section (info)->flags |= SEC_EXCLUDE;
51532845
AO		 3541 else
3542 {
43850d5b
AO		 3543 frvfdpic_gotrel_section (info)->contents =
3544 (bfd_byte *) bfd_zalloc (dynobj,
3545 frvfdpic_gotrel_section (info)->_raw_size);
3546 if (frvfdpic_gotrel_section (info)->contents == NULL)
51532845
AO		 3547 return FALSE;
3548 }
3549
43850d5b
AO		 3550 frvfdpic_gotfixup_section (info)->_raw_size = (gpinfo.g.fixups + 1) * 4;
3551 if (frvfdpic_gotfixup_section (info)->_raw_size == 0)
3552 frvfdpic_gotfixup_section (info)->flags |= SEC_EXCLUDE;
51532845
AO		 3553 else
3554 {
43850d5b 3555 frvfdpic_gotfixup_section (info)->contents =
51532845 3556 (bfd_byte *) bfd_zalloc (dynobj,
43850d5b
AO		 3557 frvfdpic_gotfixup_section (info)->_raw_size);
3558 if (frvfdpic_gotfixup_section (info)->contents == NULL)
51532845
AO		 3559 return FALSE;
3560 }
3561
3562 if (elf_hash_table (info)->dynamic_sections_created)
3563 {
43850d5b 3564 frvfdpic_pltrel_section (info)->_raw_size =
51532845 3565 gpinfo.g.lzplt / 8 * get_elf_backend_data (output_bfd)->s->sizeof_rel;
43850d5b
AO		 3566 if (frvfdpic_pltrel_section (info)->_raw_size == 0)
3567 frvfdpic_pltrel_section (info)->flags |= SEC_EXCLUDE;
51532845
AO		 3568 else
3569 {
43850d5b 3570 frvfdpic_pltrel_section (info)->contents =
51532845 3571 (bfd_byte *) bfd_zalloc (dynobj,
43850d5b
AO		 3572 frvfdpic_pltrel_section (info)
3573 ->_raw_size);
3574 if (frvfdpic_pltrel_section (info)->contents == NULL)
51532845
AO		 3575 return FALSE;
3576 }
3577 }
3578
3579 /* Add 4 bytes for every block of at most 65535 lazy PLT entries,
3580 such that there's room for the additional instruction needed to
43850d5b
AO		 3581 call the resolver. Since _frvfdpic_assign_got_entries didn't
3582 account for them, our block size is 4 bytes smaller than the real
3583 block size. */
51532845
AO		 3584 if (elf_hash_table (info)->dynamic_sections_created)
3585 {
43850d5b
AO		 3586 frvfdpic_plt_section (info)->_raw_size = gpinfo.g.lzplt
3587 + ((gpinfo.g.lzplt + (FRVFDPIC_LZPLT_BLOCK_SIZE - 4) - 8)
3588 / (FRVFDPIC_LZPLT_BLOCK_SIZE - 4) * 4);
51532845 3589 }
b34976b6 3590
43850d5b 3591 /* Reset it, such that _frvfdpic_assign_plt_entries() can use it to
51532845
AO		 3592 actually assign lazy PLT entries addresses. */
3593 gpinfo.g.lzplt = 0;
b34976b6 3594
51532845
AO		 3595 /* Save information that we're going to need to generate GOT and PLT
3596 entries. */
43850d5b 3597 frvfdpic_got_initial_offset (info) = -gpinfo.gothilo.min;
b34976b6 3598
51532845
AO		 3599 if (get_elf_backend_data (output_bfd)->want_got_sym)
3600 elf_hash_table (info)->hgot->root.u.def.value
43850d5b 3601 += frvfdpic_got_initial_offset (info);
b34976b6 3602
51532845 3603 if (elf_hash_table (info)->dynamic_sections_created)
43850d5b
AO		 3604 frvfdpic_plt_initial_offset (info) =
3605 frvfdpic_plt_section (info)->_raw_size;
b34976b6 3606
43850d5b
AO		 3607 htab_traverse (frvfdpic_relocs_info (info), _frvfdpic_assign_plt_entries,
3608 &gpinfo);
51532845
AO		 3609
3610 /* Allocate the PLT section contents only after
43850d5b 3611 _frvfdpic_assign_plt_entries has a chance to add the size of the
51532845
AO		 3612 non-lazy PLT entries. */
3613 if (elf_hash_table (info)->dynamic_sections_created)
3614 {
43850d5b
AO		 3615 if (frvfdpic_plt_section (info)->_raw_size == 0)
3616 frvfdpic_plt_section (info)->flags |= SEC_EXCLUDE;
4e5ba5b7
DB		 3617 else
3618 {
43850d5b
AO		 3619 frvfdpic_plt_section (info)->contents =
3620 (bfd_byte *) bfd_zalloc (dynobj,
3621 frvfdpic_plt_section (info)->_raw_size);
3622 if (frvfdpic_plt_section (info)->contents == NULL)
51532845
AO		 3623 return FALSE;
3624 }
3625 }
b34976b6 3626
51532845
AO		 3627 if (elf_hash_table (info)->dynamic_sections_created)
3628 {
43850d5b 3629 if (frvfdpic_got_section (info)->_raw_size)
5a580b3a 3630 if (!_bfd_elf_add_dynamic_entry (info, DT_PLTGOT, 0))
51532845
AO		 3631 return FALSE;
3632
43850d5b 3633 if (frvfdpic_pltrel_section (info)->_raw_size)
5a580b3a
AM		 3634 if (!_bfd_elf_add_dynamic_entry (info, DT_PLTRELSZ, 0)
3635 || !_bfd_elf_add_dynamic_entry (info, DT_PLTREL, DT_REL)
3636 || !_bfd_elf_add_dynamic_entry (info, DT_JMPREL, 0))
51532845
AO		 3637 return FALSE;
3638
43850d5b 3639 if (frvfdpic_gotrel_section (info)->_raw_size)
5a580b3a
AM		 3640 if (!_bfd_elf_add_dynamic_entry (info, DT_REL, 0)
3641 || !_bfd_elf_add_dynamic_entry (info, DT_RELSZ, 0)
3642 || !_bfd_elf_add_dynamic_entry (info, DT_RELENT,
3643 sizeof (Elf32_External_Rel)))
51532845
AO		 3644 return FALSE;
3645 }
4e5ba5b7 3646
51532845
AO		 3647 return TRUE;
3648}
b34976b6 3649
51532845 3650static bfd_boolean
43850d5b
AO		 3651elf32_frvfdpic_always_size_sections (bfd *output_bfd,
3652 struct bfd_link_info *info)
51532845 3653{
43850d5b 3654 if (!info->relocatable)
51532845
AO		 3655 {
3656 struct elf_link_hash_entry *h;
3657 asection *sec;
b34976b6 3658
51532845
AO		 3659 /* Force a PT_GNU_STACK segment to be created. */
3660 if (! elf_tdata (output_bfd)->stack_flags)
3661 elf_tdata (output_bfd)->stack_flags = PF_R | PF_W | PF_X;
4e5ba5b7 3662
51532845
AO		 3663 /* Define __stacksize if it's not defined yet. */
3664 h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
3665 FALSE, FALSE, FALSE);
3666 if (! h || h->root.type != bfd_link_hash_defined
3667 || h->type != STT_OBJECT
3668 || !(h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR))
3669 {
ea01195e 3670 struct bfd_link_hash_entry *bh = NULL;
4e5ba5b7 3671
51532845
AO		 3672 if (!(_bfd_generic_link_add_one_symbol
3673 (info, output_bfd, "__stacksize",
3674 BSF_GLOBAL, bfd_abs_section_ptr, DEFAULT_STACK_SIZE,
3675 (const char *) NULL, FALSE,
3676 get_elf_backend_data (output_bfd)->collect, &bh)))
3677 return FALSE;
4e5ba5b7 3678
51532845
AO		 3679 h = (struct elf_link_hash_entry *) bh;
3680 h->elf_link_hash_flags |= ELF_LINK_HASH_DEF_REGULAR;
3681 h->type = STT_OBJECT;
3682 }
4e5ba5b7 3683
51532845
AO		 3684 /* Create a stack section, and set its alignment. */
3685 sec = bfd_make_section (output_bfd, ".stack");
4e5ba5b7 3686
51532845
AO		 3687 if (sec == NULL
3688 || ! bfd_set_section_alignment (output_bfd, sec, 3))
3689 return FALSE;
3690 }
4e5ba5b7 3691
51532845
AO		 3692 return TRUE;
3693}
4e5ba5b7 3694
51532845 3695static bfd_boolean
43850d5b
AO		 3696elf32_frvfdpic_modify_segment_map (bfd *output_bfd,
3697 struct bfd_link_info *info)
51532845 3698{
43850d5b 3699 struct elf_segment_map *m;
4e5ba5b7 3700
7e9f3bd6
AO		 3701 /* objcopy and strip preserve what's already there using
3702 elf32_frvfdpic_copy_private_bfd_data (). */
3703 if (! info)
3704 return TRUE;
3705
43850d5b
AO		 3706 for (m = elf_tdata (output_bfd)->segment_map; m != NULL; m = m->next)
3707 if (m->p_type == PT_GNU_STACK)
3708 break;
3709
3710 if (m)
3711 {
3712 asection *sec = bfd_get_section_by_name (output_bfd, ".stack");
3713 struct elf_link_hash_entry *h;
51532845 3714
43850d5b 3715 if (sec)
4e5ba5b7 3716 {
43850d5b
AO		 3717 /* Obtain the pointer to the __stacksize symbol. */
3718 h = elf_link_hash_lookup (elf_hash_table (info), "__stacksize",
3719 FALSE, FALSE, FALSE);
3720 while (h->root.type == bfd_link_hash_indirect
3721 || h->root.type == bfd_link_hash_warning)
3722 h = (struct elf_link_hash_entry *)h->root.u.i.link;
3723 BFD_ASSERT (h->root.type == bfd_link_hash_defined);
4e5ba5b7 3724
43850d5b
AO		 3725 /* Set the section size from the symbol value. We
3726 intentionally ignore the symbol section. */
3727 if (h->root.type == bfd_link_hash_defined)
3728 sec->_raw_size = h->root.u.def.value;
3729 else
3730 sec->_raw_size = DEFAULT_STACK_SIZE;
51532845 3731
43850d5b
AO		 3732 /* Add the stack section to the PT_GNU_STACK segment,
3733 such that its size and alignment requirements make it
3734 to the segment. */
3735 m->sections[m->count] = sec;
3736 m->count++;
51532845
AO		 3737 }
3738 }
b34976b6 3739
51532845
AO		 3740 return TRUE;
3741}
b34976b6 3742
51532845 3743/* Fill in code and data in dynamic sections. */
4e5ba5b7 3744
51532845 3745static bfd_boolean
43850d5b
AO		 3746elf32_frv_finish_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
3747 struct bfd_link_info *info ATTRIBUTE_UNUSED)
3748{
3749 /* Nothing to be done for non-FDPIC. */
3750 return TRUE;
3751}
3752
3753static bfd_boolean
3754elf32_frvfdpic_finish_dynamic_sections (bfd *output_bfd,
3755 struct bfd_link_info *info)
51532845
AO		 3756{
3757 bfd *dynobj;
3758 asection *sdyn;
4e5ba5b7 3759
51532845 3760 dynobj = elf_hash_table (info)->dynobj;
4e5ba5b7 3761
43850d5b 3762 if (frvfdpic_got_section (info))
51532845 3763 {
43850d5b
AO		 3764 BFD_ASSERT (frvfdpic_gotrel_section (info)->_raw_size
3765 == (frvfdpic_gotrel_section (info)->reloc_count
51532845 3766 * sizeof (Elf32_External_Rel)));
4e5ba5b7 3767
43850d5b 3768 if (frvfdpic_gotfixup_section (info))
51532845 3769 {
43850d5b
AO		 3770 struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
3771 bfd_vma got_value = hgot->root.u.def.value
3772 + hgot->root.u.def.section->output_section->vma
3773 + hgot->root.u.def.section->output_offset;
4e5ba5b7 3774
43850d5b
AO		 3775 _frvfdpic_add_rofixup (output_bfd, frvfdpic_gotfixup_section (info),
3776 got_value, 0);
51532845 3777
43850d5b
AO		 3778 if (frvfdpic_gotfixup_section (info)->_raw_size
3779 != (frvfdpic_gotfixup_section (info)->reloc_count * 4))
51532845 3780 {
43850d5b
AO		 3781 (*_bfd_error_handler)
3782 ("LINKER BUG: .rofixup section size mismatch");
3783 return FALSE;
51532845 3784 }
4e5ba5b7
DB		 3785 }
3786 }
51532845
AO		 3787 if (elf_hash_table (info)->dynamic_sections_created)
3788 {
43850d5b
AO		 3789 BFD_ASSERT (frvfdpic_pltrel_section (info)->_raw_size
3790 == (frvfdpic_pltrel_section (info)->reloc_count
51532845
AO		 3791 * sizeof (Elf32_External_Rel)));
3792 }
4e5ba5b7 3793
51532845 3794 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4e5ba5b7 3795
51532845 3796 if (elf_hash_table (info)->dynamic_sections_created)
4e5ba5b7 3797 {
51532845
AO		 3798 Elf32_External_Dyn * dyncon;
3799 Elf32_External_Dyn * dynconend;
3800
3801 BFD_ASSERT (sdyn != NULL);
3802
3803 dyncon = (Elf32_External_Dyn *) sdyn->contents;
3804 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
3805
3806 for (; dyncon < dynconend; dyncon++)
4e5ba5b7 3807 {
51532845 3808 Elf_Internal_Dyn dyn;
4e5ba5b7 3809
51532845
AO		 3810 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
3811
3812 switch (dyn.d_tag)
4e5ba5b7
DB		 3813 {
3814 default:
3815 break;
3816
51532845 3817 case DT_PLTGOT:
43850d5b
AO		 3818 dyn.d_un.d_ptr = frvfdpic_got_section (info)->output_section->vma
3819 + frvfdpic_got_section (info)->output_offset
3820 + frvfdpic_got_initial_offset (info);
51532845
AO		 3821 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3822 break;
4e5ba5b7 3823
51532845 3824 case DT_JMPREL:
43850d5b
AO		 3825 dyn.d_un.d_ptr = frvfdpic_pltrel_section (info)
3826 ->output_section->vma
3827 + frvfdpic_pltrel_section (info)->output_offset;
51532845
AO		 3828 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3829 break;
3830
3831 case DT_PLTRELSZ:
43850d5b
AO		 3832 if (frvfdpic_pltrel_section (info)->_cooked_size != 0)
3833 dyn.d_un.d_val = frvfdpic_pltrel_section (info)->_cooked_size;
51532845 3834 else
43850d5b 3835 dyn.d_un.d_val = frvfdpic_pltrel_section (info)->_raw_size;
51532845
AO		 3836 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3837 break;
4e5ba5b7
DB		 3838 }
3839 }
3840 }
4e5ba5b7 3841
51532845 3842 return TRUE;
4e5ba5b7
DB		 3843}
3844
51532845
AO		 3845/* Adjust a symbol defined by a dynamic object and referenced by a
3846 regular object. */
4e5ba5b7 3847
b34976b6 3848static bfd_boolean
43850d5b
AO		 3849elf32_frvfdpic_adjust_dynamic_symbol
3850(struct bfd_link_info *info ATTRIBUTE_UNUSED,
3851 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED)
4e5ba5b7 3852{
51532845
AO		 3853 bfd * dynobj;
3854
3855 dynobj = elf_hash_table (info)->dynobj;
3856
3857 /* Make sure we know what is going on here. */
3858 BFD_ASSERT (dynobj != NULL
3859 && (h->weakdef != NULL
3860 || ((h->elf_link_hash_flags
3861 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
3862 && (h->elf_link_hash_flags
3863 & ELF_LINK_HASH_REF_REGULAR) != 0
3864 && (h->elf_link_hash_flags
3865 & ELF_LINK_HASH_DEF_REGULAR) == 0)));
3866
3867 /* If this is a weak symbol, and there is a real definition, the
3868 processor independent code will have arranged for us to see the
3869 real definition first, and we can just use the same value. */
3870 if (h->weakdef != NULL)
3871 {
3872 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
3873 || h->weakdef->root.type == bfd_link_hash_defweak);
3874 h->root.u.def.section = h->weakdef->root.u.def.section;
3875 h->root.u.def.value = h->weakdef->root.u.def.value;
3876 }
3877
b34976b6 3878 return TRUE;
4e5ba5b7
DB		 3879}
3880
51532845 3881/* Perform any actions needed for dynamic symbols. */
4e5ba5b7 3882
b34976b6 3883static bfd_boolean
43850d5b
AO		 3884elf32_frvfdpic_finish_dynamic_symbol
3885(bfd *output_bfd ATTRIBUTE_UNUSED,
3886 struct bfd_link_info *info ATTRIBUTE_UNUSED,
3887 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED,
3888 Elf_Internal_Sym *sym ATTRIBUTE_UNUSED)
4e5ba5b7 3889{
b34976b6 3890 return TRUE;
4e5ba5b7 3891}
51532845 3892
ec3391e7
AO		 3893/* Decide whether to attempt to turn absptr or lsda encodings in
3894 shared libraries into pcrel within the given input section. */
3895
3896static bfd_boolean
43850d5b
AO		 3897frvfdpic_elf_use_relative_eh_frame
3898(bfd *input_bfd ATTRIBUTE_UNUSED,
3899 struct bfd_link_info *info ATTRIBUTE_UNUSED,
3900 asection *eh_frame_section ATTRIBUTE_UNUSED)
ec3391e7
AO		 3901{
3902 /* We can't use PC-relative encodings in FDPIC binaries, in general. */
43850d5b 3903 return FALSE;
ec3391e7
AO		 3904}
3905
3906/* Adjust the contents of an eh_frame_hdr section before they're output. */
3907
3908static bfd_byte
43850d5b
AO		 3909frvfdpic_elf_encode_eh_address (bfd *abfd,
3910 struct bfd_link_info *info,
3911 asection *osec, bfd_vma offset,
3912 asection *loc_sec, bfd_vma loc_offset,
3913 bfd_vma *encoded)
ec3391e7
AO		 3914{
3915 struct elf_link_hash_entry *h;
3916
ec3391e7
AO		 3917 h = elf_hash_table (info)->hgot;
3918 BFD_ASSERT (h && h->root.type == bfd_link_hash_defined);
3919
43850d5b
AO		 3920 if (! h || (_frvfdpic_osec_to_segment (abfd, osec)
3921 == _frvfdpic_osec_to_segment (abfd, loc_sec->output_section)))
ec3391e7
AO		 3922 return _bfd_elf_encode_eh_address (abfd, info, osec, offset,
3923 loc_sec, loc_offset, encoded);
3924
43850d5b
AO		 3925 BFD_ASSERT (_frvfdpic_osec_to_segment (abfd, osec)
3926 == (_frvfdpic_osec_to_segment
3927 (abfd, h->root.u.def.section->output_section)));
ec3391e7
AO		 3928
3929 *encoded = osec->vma + offset
3930 - (h->root.u.def.value
3931 + h->root.u.def.section->output_section->vma
3932 + h->root.u.def.section->output_offset);
3933
3934 return DW_EH_PE_datarel | DW_EH_PE_sdata4;
3935}
3936
4e5ba5b7 3937/* Look through the relocs for a section during the first phase.
51532845
AO		 3938
3939 Besides handling virtual table relocs for gc, we have to deal with
3940 all sorts of PIC-related relocations. We describe below the
3941 general plan on how to handle such relocations, even though we only
3942 collect information at this point, storing them in hash tables for
3943 perusal of later passes.
3944
3945 32 relocations are propagated to the linker output when creating
3946 position-independent output. LO16 and HI16 relocations are not
3947 supposed to be encountered in this case.
3948
3949 LABEL16 should always be resolvable by the linker, since it's only
3950 used by branches.
3951
3952 LABEL24, on the other hand, is used by calls. If it turns out that
3953 the target of a call is a dynamic symbol, a PLT entry must be
3954 created for it, which triggers the creation of a private function
3955 descriptor and, unless lazy binding is disabled, a lazy PLT entry.
3956
3957 GPREL relocations require the referenced symbol to be in the same
3958 segment as _gp, but this can only be checked later.
3959
3960 All GOT, GOTOFF and FUNCDESC relocations require a .got section to
3961 exist. LABEL24 might as well, since it may require a PLT entry,
3962 that will require a got.
3963
3964 Non-FUNCDESC GOT relocations require a GOT entry to be created
3965 regardless of whether the symbol is dynamic. However, since a
3966 global symbol that turns out to not be exported may have the same
3967 address of a non-dynamic symbol, we don't assign GOT entries at
3968 this point, such that we can share them in this case. A relocation
3969 for the GOT entry always has to be created, be it to offset a
3970 private symbol by the section load address, be it to get the symbol
3971 resolved dynamically.
3972
3973 FUNCDESC GOT relocations require a GOT entry to be created, and
3974 handled as if a FUNCDESC relocation was applied to the GOT entry in
3975 an object file.
3976
3977 FUNCDESC relocations referencing a symbol that turns out to NOT be
3978 dynamic cause a private function descriptor to be created. The
3979 FUNCDESC relocation then decays to a 32 relocation that points at
3980 the private descriptor. If the symbol is dynamic, the FUNCDESC
3981 relocation is propagated to the linker output, such that the
3982 dynamic linker creates the canonical descriptor, pointing to the
3983 dynamically-resolved definition of the function.
3984
3985 Non-FUNCDESC GOTOFF relocations must always refer to non-dynamic
3986 symbols that are assigned to the same segment as the GOT, but we
3987 can only check this later, after we know the complete set of
3988 symbols defined and/or exported.
3989
3990 FUNCDESC GOTOFF relocations require a function descriptor to be
3991 created and, unless lazy binding is disabled or the symbol is not
3992 dynamic, a lazy PLT entry. Since we can't tell at this point
3993 whether a symbol is going to be dynamic, we have to decide later
3994 whether to create a lazy PLT entry or bind the descriptor directly
3995 to the private function.
3996
3997 FUNCDESC_VALUE relocations are not supposed to be present in object
3998 files, but they may very well be simply propagated to the linker
3999 output, since they have no side effect.
4000
4001
4002 A function descriptor always requires a FUNCDESC_VALUE relocation.
4003 Whether it's in .plt.rel or not depends on whether lazy binding is
4004 enabled and on whether the referenced symbol is dynamic.
4005
4006 The existence of a lazy PLT requires the resolverStub lazy PLT
4007 entry to be present.
4008
4009
4010 As for assignment of GOT, PLT and lazy PLT entries, and private
4011 descriptors, we might do them all sequentially, but we can do
4012 better than that. For example, we can place GOT entries and
4013 private function descriptors referenced using 12-bit operands
4014 closer to the PIC register value, such that these relocations don't
4015 overflow. Those that are only referenced with LO16 relocations
4016 could come next, but we may as well place PLT-required function
4017 descriptors in the 12-bit range to make them shorter. Symbols
4018 referenced with LO16/HI16 may come next, but we may place
4019 additional function descriptors in the 16-bit range if we can
4020 reliably tell that we've already placed entries that are ever
4021 referenced with only LO16. PLT entries are therefore generated as
4022 small as possible, while not introducing relocation overflows in
4023 GOT or FUNCDESC_GOTOFF relocations. Lazy PLT entries could be
4024 generated before or after PLT entries, but not intermingled with
4025 them, such that we can have more lazy PLT entries in range for a
4026 branch to the resolverStub. The resolverStub should be emitted at
4027 the most distant location from the first lazy PLT entry such that
4028 it's still in range for a branch, or closer, if there isn't a need
4029 for so many lazy PLT entries. Additional lazy PLT entries may be
4030 emitted after the resolverStub, as long as branches are still in
4031 range. If the branch goes out of range, longer lazy PLT entries
4032 are emitted.
4033
4034 We could further optimize PLT and lazy PLT entries by giving them
4035 priority in assignment to closer-to-gr17 locations depending on the
4036 number of occurrences of references to them (assuming a function
4037 that's called more often is more important for performance, so its
4038 PLT entry should be faster), or taking hints from the compiler.
4039 Given infinite time and money... :-) */
b34976b6
AM		 4040
4041static bfd_boolean
4e5ba5b7
DB		 4042elf32_frv_check_relocs (abfd, info, sec, relocs)
4043 bfd *abfd;
4044 struct bfd_link_info *info;
4045 asection *sec;
4046 const Elf_Internal_Rela *relocs;
4047{
4048 Elf_Internal_Shdr *symtab_hdr;
4049 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
4050 const Elf_Internal_Rela *rel;
4051 const Elf_Internal_Rela *rel_end;
51532845 4052 bfd *dynobj;
43850d5b 4053 struct frvfdpic_relocs_info *picrel;
b34976b6 4054
1049f94e 4055 if (info->relocatable)
b34976b6
AM		 4056 return TRUE;
4057
4e5ba5b7
DB		 4058 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
4059 sym_hashes = elf_sym_hashes (abfd);
4060 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof(Elf32_External_Sym);
4061 if (!elf_bad_symtab (abfd))
4062 sym_hashes_end -= symtab_hdr->sh_info;
b34976b6 4063
51532845 4064 dynobj = elf_hash_table (info)->dynobj;
4e5ba5b7
DB		 4065 rel_end = relocs + sec->reloc_count;
4066 for (rel = relocs; rel < rel_end; rel++)
4067 {
4068 struct elf_link_hash_entry *h;
4069 unsigned long r_symndx;
b34976b6 4070
4e5ba5b7
DB		 4071 r_symndx = ELF32_R_SYM (rel->r_info);
4072 if (r_symndx < symtab_hdr->sh_info)
4073 h = NULL;
4074 else
4075 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
b34976b6 4076
51532845
AO		 4077 switch (ELF32_R_TYPE (rel->r_info))
4078 {
51532845
AO		 4079 case R_FRV_GOT12:
4080 case R_FRV_GOTHI:
4081 case R_FRV_GOTLO:
4082 case R_FRV_FUNCDESC_GOT12:
4083 case R_FRV_FUNCDESC_GOTHI:
4084 case R_FRV_FUNCDESC_GOTLO:
4085 case R_FRV_GOTOFF12:
4086 case R_FRV_GOTOFFHI:
4087 case R_FRV_GOTOFFLO:
4088 case R_FRV_FUNCDESC_GOTOFF12:
4089 case R_FRV_FUNCDESC_GOTOFFHI:
4090 case R_FRV_FUNCDESC_GOTOFFLO:
4091 case R_FRV_FUNCDESC:
4092 case R_FRV_FUNCDESC_VALUE:
43850d5b
AO		 4093 if (! IS_FDPIC (abfd))
4094 goto bad_reloc;
4095 /* Fall through. */
4096 case R_FRV_GPREL12:
4097 case R_FRV_GPRELU12:
4098 case R_FRV_GPRELHI:
4099 case R_FRV_GPRELLO:
4100 case R_FRV_LABEL24:
4101 case R_FRV_32:
51532845
AO		 4102 if (! dynobj)
4103 {
4104 elf_hash_table (info)->dynobj = dynobj = abfd;
4105 if (! _frv_create_got_section (abfd, info))
4106 return FALSE;
4107 }
43850d5b
AO		 4108 if (! IS_FDPIC (abfd))
4109 {
4110 picrel = NULL;
4111 break;
4112 }
51532845
AO		 4113 if (h != NULL)
4114 {
4115 if (h->dynindx == -1)
4116 switch (ELF_ST_VISIBILITY (h->other))
4117 {
4118 case STV_INTERNAL:
4119 case STV_HIDDEN:
4120 break;
4121 default:
c152c796 4122 bfd_elf_link_record_dynamic_symbol (info, h);
51532845
AO		 4123 break;
4124 }
4125 picrel
43850d5b
AO		 4126 = frvfdpic_relocs_info_for_global (frvfdpic_relocs_info (info),
4127 abfd, h,
4128 rel->r_addend, INSERT);
51532845
AO		 4129 }
4130 else
43850d5b
AO		 4131 picrel = frvfdpic_relocs_info_for_local (frvfdpic_relocs_info
4132 (info), abfd, r_symndx,
4133 rel->r_addend, INSERT);
51532845
AO		 4134 if (! picrel)
4135 return FALSE;
4136 break;
4137
4138 default:
4139 picrel = NULL;
4140 break;
4141 }
4142
4e5ba5b7
DB		 4143 switch (ELF32_R_TYPE (rel->r_info))
4144 {
51532845 4145 case R_FRV_LABEL24:
43850d5b
AO		 4146 if (IS_FDPIC (abfd))
4147 picrel->call = 1;
51532845
AO		 4148 break;
4149
4150 case R_FRV_FUNCDESC_VALUE:
4151 picrel->relocsfdv++;
4152 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4153 picrel->relocs32--;
4154 /* Fall through. */
43850d5b 4155
51532845 4156 case R_FRV_32:
43850d5b
AO		 4157 if (! IS_FDPIC (abfd))
4158 break;
4159
51532845
AO		 4160 picrel->sym = 1;
4161 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4162 picrel->relocs32++;
4163 break;
4164
4165 case R_FRV_GOT12:
4166 picrel->got12 = 1;
4167 break;
4168
4169 case R_FRV_GOTHI:
4170 case R_FRV_GOTLO:
4171 picrel->gothilo = 1;
4172 break;
4173
4174 case R_FRV_FUNCDESC_GOT12:
4175 picrel->fdgot12 = 1;
4176 break;
4177
4178 case R_FRV_FUNCDESC_GOTHI:
4179 case R_FRV_FUNCDESC_GOTLO:
4180 picrel->fdgothilo = 1;
4181 break;
4182
4183 case R_FRV_GOTOFF12:
4184 case R_FRV_GOTOFFHI:
4185 case R_FRV_GOTOFFLO:
4186 picrel->gotoff = 1;
4187 break;
4188
4189 case R_FRV_FUNCDESC_GOTOFF12:
4190 picrel->fdgoff12 = 1;
4191 break;
4192
4193 case R_FRV_FUNCDESC_GOTOFFHI:
4194 case R_FRV_FUNCDESC_GOTOFFLO:
4195 picrel->fdgoffhilo = 1;
4196 break;
4197
4198 case R_FRV_FUNCDESC:
4199 picrel->fd = 1;
4200 picrel->relocsfd++;
4201 break;
4202
4e5ba5b7
DB		 4203 /* This relocation describes the C++ object vtable hierarchy.
4204 Reconstruct it for later use during GC. */
4205 case R_FRV_GNU_VTINHERIT:
c152c796 4206 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
b34976b6 4207 return FALSE;
4e5ba5b7 4208 break;
b34976b6 4209
4e5ba5b7
DB		 4210 /* This relocation describes which C++ vtable entries are actually
4211 used. Record for later use during GC. */
4212 case R_FRV_GNU_VTENTRY:
c152c796 4213 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
b34976b6 4214 return FALSE;
4e5ba5b7 4215 break;
43850d5b
AO		 4216
4217 case R_FRV_LABEL16:
4218 case R_FRV_LO16:
4219 case R_FRV_HI16:
4220 case R_FRV_GPREL12:
4221 case R_FRV_GPRELU12:
4222 case R_FRV_GPREL32:
4223 case R_FRV_GPRELHI:
4224 case R_FRV_GPRELLO:
4225 break;
4226
4227 default:
4228 bad_reloc:
4229 (*_bfd_error_handler)
4230 (_("%s: unsupported relocation type %i"),
4231 bfd_archive_filename (abfd), ELF32_R_TYPE (rel->r_info));
4232 return FALSE;
4e5ba5b7
DB		 4233 }
4234 }
b34976b6
AM		 4235
4236 return TRUE;
4e5ba5b7
DB		 4237}
4238
4239\f
4240/* Return the machine subcode from the ELF e_flags header. */
4241
4242static int
4243elf32_frv_machine (abfd)
4244 bfd *abfd;
4245{
4246 switch (elf_elfheader (abfd)->e_flags & EF_FRV_CPU_MASK)
4247 {
4248 default: break;
9c8ee639 4249 case EF_FRV_CPU_FR550: return bfd_mach_fr550;
4e5ba5b7 4250 case EF_FRV_CPU_FR500: return bfd_mach_fr500;
676a64f4
RS		 4251 case EF_FRV_CPU_FR450: return bfd_mach_fr450;
4252 case EF_FRV_CPU_FR405: return bfd_mach_fr400;
4e5ba5b7
DB		 4253 case EF_FRV_CPU_FR400: return bfd_mach_fr400;
4254 case EF_FRV_CPU_FR300: return bfd_mach_fr300;
4255 case EF_FRV_CPU_SIMPLE: return bfd_mach_frvsimple;
4256 case EF_FRV_CPU_TOMCAT: return bfd_mach_frvtomcat;
4257 }
4258
4259 return bfd_mach_frv;
4260}
4261
4262/* Set the right machine number for a FRV ELF file. */
4263
b34976b6 4264static bfd_boolean
4e5ba5b7
DB		 4265elf32_frv_object_p (abfd)
4266 bfd *abfd;
4267{
4268 bfd_default_set_arch_mach (abfd, bfd_arch_frv, elf32_frv_machine (abfd));
43850d5b
AO		 4269 return (((elf_elfheader (abfd)->e_flags & EF_FRV_FDPIC) != 0)
4270 == (IS_FDPIC (abfd)));
4e5ba5b7
DB		 4271}
4272\f
4273/* Function to set the ELF flag bits. */
4274
b34976b6 4275static bfd_boolean
4e5ba5b7
DB		 4276frv_elf_set_private_flags (abfd, flags)
4277 bfd *abfd;
4278 flagword flags;
4279{
4280 elf_elfheader (abfd)->e_flags = flags;
b34976b6
AM		 4281 elf_flags_init (abfd) = TRUE;
4282 return TRUE;
4e5ba5b7
DB		 4283}
4284
4285/* Copy backend specific data from one object module to another. */
4286
b34976b6 4287static bfd_boolean
4e5ba5b7
DB		 4288frv_elf_copy_private_bfd_data (ibfd, obfd)
4289 bfd *ibfd;
4290 bfd *obfd;
4291{
4292 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4293 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
b34976b6 4294 return TRUE;
4e5ba5b7
DB		 4295
4296 BFD_ASSERT (!elf_flags_init (obfd)
4297 || elf_elfheader (obfd)->e_flags == elf_elfheader (ibfd)->e_flags);
4298
4299 elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
b34976b6
AM		 4300 elf_flags_init (obfd) = TRUE;
4301 return TRUE;
4e5ba5b7
DB		 4302}
4303
676a64f4
RS		 4304/* Return true if the architecture described by elf header flag
4305 EXTENSION is an extension of the architecture described by BASE. */
4306
4307static bfd_boolean
4308frv_elf_arch_extension_p (flagword base, flagword extension)
4309{
4310 if (base == extension)
4311 return TRUE;
4312
4313 /* CPU_GENERIC code can be merged with code for a specific
4314 architecture, in which case the result is marked as being
4315 for the specific architecture. Everything is therefore
4316 an extension of CPU_GENERIC. */
4317 if (base == EF_FRV_CPU_GENERIC)
4318 return TRUE;
4319
4320 if (extension == EF_FRV_CPU_FR450)
4321 if (base == EF_FRV_CPU_FR400 || base == EF_FRV_CPU_FR405)
4322 return TRUE;
4323
4324 if (extension == EF_FRV_CPU_FR405)
4325 if (base == EF_FRV_CPU_FR400)
4326 return TRUE;
4327
4328 return FALSE;
4329}
4330
7e9f3bd6
AO		 4331static bfd_boolean
4332elf32_frvfdpic_copy_private_bfd_data (bfd *ibfd, bfd *obfd)
4333{
4334 unsigned i;
4335
4336 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4337 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
4338 return TRUE;
4339
4340 if (! frv_elf_copy_private_bfd_data (ibfd, obfd))
4341 return FALSE;
4342
4343 if (! elf_tdata (ibfd) || ! elf_tdata (ibfd)->phdr
4344 || ! elf_tdata (obfd) || ! elf_tdata (obfd)->phdr)
4345 return TRUE;
4346
4347 /* Copy the stack size. */
4348 for (i = 0; i < elf_elfheader (ibfd)->e_phnum; i++)
4349 if (elf_tdata (ibfd)->phdr[i].p_type == PT_GNU_STACK)
4350 {
4351 Elf_Internal_Phdr *iphdr = &elf_tdata (ibfd)->phdr[i];
4352
4353 for (i = 0; i < elf_elfheader (obfd)->e_phnum; i++)
4354 if (elf_tdata (obfd)->phdr[i].p_type == PT_GNU_STACK)
4355 {
4356 memcpy (&elf_tdata (obfd)->phdr[i], iphdr, sizeof (*iphdr));
4357
4358 /* Rewrite the phdrs, since we're only called after they
4359 were first written. */
4360 if (bfd_seek (obfd, (bfd_signed_vma) get_elf_backend_data (obfd)
4361 ->s->sizeof_ehdr, SEEK_SET) != 0
4362 || get_elf_backend_data (obfd)->s
4363 ->write_out_phdrs (obfd, elf_tdata (obfd)->phdr,
4364 elf_elfheader (obfd)->e_phnum) != 0)
4365 return FALSE;
4366 break;
4367 }
4368
4369 break;
4370 }
4371
4372 return TRUE;
4373}
4374
4e5ba5b7
DB		 4375/* Merge backend specific data from an object file to the output
4376 object file when linking. */
4377
b34976b6 4378static bfd_boolean
4e5ba5b7
DB		 4379frv_elf_merge_private_bfd_data (ibfd, obfd)
4380 bfd *ibfd;
4381 bfd *obfd;
4382{
4383 flagword old_flags, old_partial;
4384 flagword new_flags, new_partial;
b34976b6 4385 bfd_boolean error = FALSE;
4e5ba5b7
DB		 4386 char new_opt[80];
4387 char old_opt[80];
4388
4389 new_opt[0] = old_opt[0] = '\0';
4390 new_flags = elf_elfheader (ibfd)->e_flags;
4391 old_flags = elf_elfheader (obfd)->e_flags;
4392
51532845
AO		 4393 if (new_flags & EF_FRV_FDPIC)
4394 new_flags &= ~EF_FRV_PIC;
4395
4e5ba5b7
DB		 4396#ifdef DEBUG
4397 (*_bfd_error_handler) ("old_flags = 0x%.8lx, new_flags = 0x%.8lx, init = %s, filename = %s",
4398 old_flags, new_flags, elf_flags_init (obfd) ? "yes" : "no",
4399 bfd_get_filename (ibfd));
4400#endif
4401
4402 if (!elf_flags_init (obfd)) /* First call, no flags set. */
4403 {
b34976b6 4404 elf_flags_init (obfd) = TRUE;
4e5ba5b7
DB		 4405 old_flags = new_flags;
4406 }
4407
4408 else if (new_flags == old_flags) /* Compatible flags are ok. */
4409 ;
4410
4411 else /* Possibly incompatible flags. */
4412 {
4413 /* Warn if different # of gprs are used. Note, 0 means nothing is
4414 said about the size of gprs. */
4415 new_partial = (new_flags & EF_FRV_GPR_MASK);
4416 old_partial = (old_flags & EF_FRV_GPR_MASK);
4417 if (new_partial == old_partial)
4418 ;
4419
4420 else if (new_partial == 0)
4421 ;
4422
4423 else if (old_partial == 0)
4424 old_flags |= new_partial;
4425
4426 else
4427 {
4428 switch (new_partial)
4429 {
4430 default: strcat (new_opt, " -mgpr-??"); break;
4431 case EF_FRV_GPR_32: strcat (new_opt, " -mgpr-32"); break;
4432 case EF_FRV_GPR_64: strcat (new_opt, " -mgpr-64"); break;
4433 }
4434
4435 switch (old_partial)
4436 {
4437 default: strcat (old_opt, " -mgpr-??"); break;
4438 case EF_FRV_GPR_32: strcat (old_opt, " -mgpr-32"); break;
4439 case EF_FRV_GPR_64: strcat (old_opt, " -mgpr-64"); break;
4440 }
4441 }
4442
4443 /* Warn if different # of fprs are used. Note, 0 means nothing is
4444 said about the size of fprs. */
4445 new_partial = (new_flags & EF_FRV_FPR_MASK);
4446 old_partial = (old_flags & EF_FRV_FPR_MASK);
4447 if (new_partial == old_partial)
4448 ;
4449
4450 else if (new_partial == 0)
4451 ;
4452
4453 else if (old_partial == 0)
4454 old_flags |= new_partial;
4455
4456 else
4457 {
4458 switch (new_partial)
4459 {
4460 default: strcat (new_opt, " -mfpr-?"); break;
4461 case EF_FRV_FPR_32: strcat (new_opt, " -mfpr-32"); break;
4462 case EF_FRV_FPR_64: strcat (new_opt, " -mfpr-64"); break;
4463 case EF_FRV_FPR_NONE: strcat (new_opt, " -msoft-float"); break;
4464 }
4465
4466 switch (old_partial)
4467 {
4468 default: strcat (old_opt, " -mfpr-?"); break;
4469 case EF_FRV_FPR_32: strcat (old_opt, " -mfpr-32"); break;
4470 case EF_FRV_FPR_64: strcat (old_opt, " -mfpr-64"); break;
4471 case EF_FRV_FPR_NONE: strcat (old_opt, " -msoft-float"); break;
4472 }
4473 }
4474
4475 /* Warn if different dword support was used. Note, 0 means nothing is
4476 said about the dword support. */
4477 new_partial = (new_flags & EF_FRV_DWORD_MASK);
4478 old_partial = (old_flags & EF_FRV_DWORD_MASK);
4479 if (new_partial == old_partial)
4480 ;
4481
4482 else if (new_partial == 0)
4483 ;
4484
4485 else if (old_partial == 0)
4486 old_flags |= new_partial;
4487
4488 else
4489 {
4490 switch (new_partial)
4491 {
4492 default: strcat (new_opt, " -mdword-?"); break;
4493 case EF_FRV_DWORD_YES: strcat (new_opt, " -mdword"); break;
4494 case EF_FRV_DWORD_NO: strcat (new_opt, " -mno-dword"); break;
4495 }
4496
4497 switch (old_partial)
4498 {
4499 default: strcat (old_opt, " -mdword-?"); break;
4500 case EF_FRV_DWORD_YES: strcat (old_opt, " -mdword"); break;
4501 case EF_FRV_DWORD_NO: strcat (old_opt, " -mno-dword"); break;
4502 }
4503 }
4504
4505 /* Or in flags that accumulate (ie, if one module uses it, mark that the
4506 feature is used. */
4507 old_flags |= new_flags & (EF_FRV_DOUBLE
4508 | EF_FRV_MEDIA
4509 | EF_FRV_MULADD
4510 | EF_FRV_NON_PIC_RELOCS);
4511
4512 /* If any module was compiled without -G0, clear the G0 bit. */
4513 old_flags = ((old_flags & ~ EF_FRV_G0)
4514 | (old_flags & new_flags & EF_FRV_G0));
4515
4516 /* If any module was compiled without -mnopack, clear the mnopack bit. */
4517 old_flags = ((old_flags & ~ EF_FRV_NOPACK)
4518 | (old_flags & new_flags & EF_FRV_NOPACK));
4519
4520 /* We don't have to do anything if the pic flags are the same, or the new
4521 module(s) were compiled with -mlibrary-pic. */
4522 new_partial = (new_flags & EF_FRV_PIC_FLAGS);
4523 old_partial = (old_flags & EF_FRV_PIC_FLAGS);
4524 if ((new_partial == old_partial) || ((new_partial & EF_FRV_LIBPIC) != 0))
4525 ;
4526
4527 /* If the old module(s) were compiled with -mlibrary-pic, copy in the pic
4528 flags if any from the new module. */
4529 else if ((old_partial & EF_FRV_LIBPIC) != 0)
4530 old_flags = (old_flags & ~ EF_FRV_PIC_FLAGS) | new_partial;
4531
4532 /* If we have mixtures of -fpic and -fPIC, or in both bits. */
4533 else if (new_partial != 0 && old_partial != 0)
4534 old_flags |= new_partial;
4535
4536 /* One module was compiled for pic and the other was not, see if we have
4537 had any relocations that are not pic-safe. */
4538 else
4539 {
4540 if ((old_flags & EF_FRV_NON_PIC_RELOCS) == 0)
4541 old_flags |= new_partial;
4542 else
4543 {
4544 old_flags &= ~ EF_FRV_PIC_FLAGS;
4545#ifndef FRV_NO_PIC_ERROR
b34976b6 4546 error = TRUE;
4e5ba5b7
DB		 4547 (*_bfd_error_handler)
4548 (_("%s: compiled with %s and linked with modules that use non-pic relocations"),
4549 bfd_get_filename (ibfd),
4550 (new_flags & EF_FRV_BIGPIC) ? "-fPIC" : "-fpic");
4551#endif
4552 }
4553 }
4554
4555 /* Warn if different cpu is used (allow a specific cpu to override
4556 the generic cpu). */
4557 new_partial = (new_flags & EF_FRV_CPU_MASK);
4558 old_partial = (old_flags & EF_FRV_CPU_MASK);
676a64f4 4559 if (frv_elf_arch_extension_p (new_partial, old_partial))
4e5ba5b7
DB		 4560 ;
4561
676a64f4 4562 else if (frv_elf_arch_extension_p (old_partial, new_partial))
4e5ba5b7
DB		 4563 old_flags = (old_flags & ~EF_FRV_CPU_MASK) | new_partial;
4564
4565 else
4566 {
4567 switch (new_partial)
4568 {
4569 default: strcat (new_opt, " -mcpu=?"); break;
4570 case EF_FRV_CPU_GENERIC: strcat (new_opt, " -mcpu=frv"); break;
4571 case EF_FRV_CPU_SIMPLE: strcat (new_opt, " -mcpu=simple"); break;
9c8ee639 4572 case EF_FRV_CPU_FR550: strcat (new_opt, " -mcpu=fr550"); break;
4e5ba5b7 4573 case EF_FRV_CPU_FR500: strcat (new_opt, " -mcpu=fr500"); break;
676a64f4
RS		 4574 case EF_FRV_CPU_FR450: strcat (new_opt, " -mcpu=fr450"); break;
4575 case EF_FRV_CPU_FR405: strcat (new_opt, " -mcpu=fr405"); break;
4e5ba5b7
DB		 4576 case EF_FRV_CPU_FR400: strcat (new_opt, " -mcpu=fr400"); break;
4577 case EF_FRV_CPU_FR300: strcat (new_opt, " -mcpu=fr300"); break;
4578 case EF_FRV_CPU_TOMCAT: strcat (new_opt, " -mcpu=tomcat"); break;
4579 }
4580
4581 switch (old_partial)
4582 {
4583 default: strcat (old_opt, " -mcpu=?"); break;
4584 case EF_FRV_CPU_GENERIC: strcat (old_opt, " -mcpu=frv"); break;
4585 case EF_FRV_CPU_SIMPLE: strcat (old_opt, " -mcpu=simple"); break;
9c8ee639 4586 case EF_FRV_CPU_FR550: strcat (old_opt, " -mcpu=fr550"); break;
4e5ba5b7 4587 case EF_FRV_CPU_FR500: strcat (old_opt, " -mcpu=fr500"); break;
676a64f4
RS		 4588 case EF_FRV_CPU_FR450: strcat (old_opt, " -mcpu=fr450"); break;
4589 case EF_FRV_CPU_FR405: strcat (old_opt, " -mcpu=fr405"); break;
4e5ba5b7
DB		 4590 case EF_FRV_CPU_FR400: strcat (old_opt, " -mcpu=fr400"); break;
4591 case EF_FRV_CPU_FR300: strcat (old_opt, " -mcpu=fr300"); break;
4592 case EF_FRV_CPU_TOMCAT: strcat (old_opt, " -mcpu=tomcat"); break;
4593 }
4594 }
b34976b6 4595
4e5ba5b7
DB		 4596 /* Print out any mismatches from above. */
4597 if (new_opt[0])
4598 {
b34976b6 4599 error = TRUE;
4e5ba5b7
DB		 4600 (*_bfd_error_handler)
4601 (_("%s: compiled with %s and linked with modules compiled with %s"),
4602 bfd_get_filename (ibfd), new_opt, old_opt);
4603 }
4604
4605 /* Warn about any other mismatches */
4606 new_partial = (new_flags & ~ EF_FRV_ALL_FLAGS);
4607 old_partial = (old_flags & ~ EF_FRV_ALL_FLAGS);
4608 if (new_partial != old_partial)
4609 {
4610 old_flags |= new_partial;
b34976b6 4611 error = TRUE;
4e5ba5b7
DB		 4612 (*_bfd_error_handler)
4613 (_("%s: uses different unknown e_flags (0x%lx) fields than previous modules (0x%lx)"),
4614 bfd_get_filename (ibfd), (long)new_partial, (long)old_partial);
4615 }
4616 }
4617
4618 /* If the cpu is -mcpu=simple, then set the -mnopack bit. */
4619 if ((old_flags & EF_FRV_CPU_MASK) == EF_FRV_CPU_SIMPLE)
4620 old_flags |= EF_FRV_NOPACK;
4621
4622 /* Update the old flags now with changes made above. */
4623 old_partial = elf_elfheader (obfd)->e_flags & EF_FRV_CPU_MASK;
4624 elf_elfheader (obfd)->e_flags = old_flags;
4625 if (old_partial != (old_flags & EF_FRV_CPU_MASK))
4626 bfd_default_set_arch_mach (obfd, bfd_arch_frv, elf32_frv_machine (obfd));
4627
43850d5b
AO		 4628 if (((new_flags & EF_FRV_FDPIC) == 0)
4629 != (! IS_FDPIC (ibfd)))
4630 {
4631 error = TRUE;
4632 if (IS_FDPIC (obfd))
4633 (*_bfd_error_handler)
4634 (_("%s: cannot link non-fdpic object file into fdpic executable"),
4635 bfd_get_filename (ibfd));
4636 else
4637 (*_bfd_error_handler)
4638 (_("%s: cannot link fdpic object file into non-fdpic executable"),
4639 bfd_get_filename (ibfd));
4640 }
4641
4e5ba5b7
DB		 4642 if (error)
4643 bfd_set_error (bfd_error_bad_value);
4644
4645 return !error;
4646}
4647
4648\f
b34976b6 4649bfd_boolean
4e5ba5b7
DB		 4650frv_elf_print_private_bfd_data (abfd, ptr)
4651 bfd *abfd;
4652 PTR ptr;
4653{
4654 FILE *file = (FILE *) ptr;
4655 flagword flags;
4656
4657 BFD_ASSERT (abfd != NULL && ptr != NULL);
4658
4659 /* Print normal ELF private data. */
4660 _bfd_elf_print_private_bfd_data (abfd, ptr);
4661
4662 flags = elf_elfheader (abfd)->e_flags;
4663 fprintf (file, _("private flags = 0x%lx:"), (long)flags);
4664
4665 switch (flags & EF_FRV_CPU_MASK)
4666 {
4667 default: break;
4668 case EF_FRV_CPU_SIMPLE: fprintf (file, " -mcpu=simple"); break;
9c8ee639 4669 case EF_FRV_CPU_FR550: fprintf (file, " -mcpu=fr550"); break;
4e5ba5b7 4670 case EF_FRV_CPU_FR500: fprintf (file, " -mcpu=fr500"); break;
676a64f4
RS		 4671 case EF_FRV_CPU_FR450: fprintf (file, " -mcpu=fr450"); break;
4672 case EF_FRV_CPU_FR405: fprintf (file, " -mcpu=fr405"); break;
4e5ba5b7
DB		 4673 case EF_FRV_CPU_FR400: fprintf (file, " -mcpu=fr400"); break;
4674 case EF_FRV_CPU_FR300: fprintf (file, " -mcpu=fr300"); break;
4675 case EF_FRV_CPU_TOMCAT: fprintf (file, " -mcpu=tomcat"); break;
4676 }
4677
4678 switch (flags & EF_FRV_GPR_MASK)
4679 {
4680 default: break;
4681 case EF_FRV_GPR_32: fprintf (file, " -mgpr-32"); break;
4682 case EF_FRV_GPR_64: fprintf (file, " -mgpr-64"); break;
4683 }
4684
4685 switch (flags & EF_FRV_FPR_MASK)
4686 {
4687 default: break;
4688 case EF_FRV_FPR_32: fprintf (file, " -mfpr-32"); break;
4689 case EF_FRV_FPR_64: fprintf (file, " -mfpr-64"); break;
4690 case EF_FRV_FPR_NONE: fprintf (file, " -msoft-float"); break;
4691 }
4692
4693 switch (flags & EF_FRV_DWORD_MASK)
4694 {
4695 default: break;
4696 case EF_FRV_DWORD_YES: fprintf (file, " -mdword"); break;
4697 case EF_FRV_DWORD_NO: fprintf (file, " -mno-dword"); break;
4698 }
4699
4700 if (flags & EF_FRV_DOUBLE)
4701 fprintf (file, " -mdouble");
4702
4703 if (flags & EF_FRV_MEDIA)
4704 fprintf (file, " -mmedia");
4705
4706 if (flags & EF_FRV_MULADD)
4707 fprintf (file, " -mmuladd");
4708
4709 if (flags & EF_FRV_PIC)
4710 fprintf (file, " -fpic");
4711
4712 if (flags & EF_FRV_BIGPIC)
4713 fprintf (file, " -fPIC");
4714
51532845
AO		 4715 if (flags & EF_FRV_LIBPIC)
4716 fprintf (file, " -mlibrary-pic");
4717
4718 if (flags & EF_FRV_FDPIC)
4719 fprintf (file, " -mfdpic");
4720
4e5ba5b7
DB		 4721 if (flags & EF_FRV_NON_PIC_RELOCS)
4722 fprintf (file, " non-pic relocations");
4723
4724 if (flags & EF_FRV_G0)
4725 fprintf (file, " -G0");
4726
4727 fputc ('\n', file);
b34976b6 4728 return TRUE;
4e5ba5b7
DB		 4729}
4730
4731\f
4732#define ELF_ARCH bfd_arch_frv
4733#define ELF_MACHINE_CODE EM_CYGNUS_FRV
4734#define ELF_MAXPAGESIZE 0x1000
4735
4736#define TARGET_BIG_SYM bfd_elf32_frv_vec
4737#define TARGET_BIG_NAME "elf32-frv"
4738
4e5ba5b7
DB		 4739#define elf_info_to_howto frv_info_to_howto_rela
4740#define elf_backend_relocate_section elf32_frv_relocate_section
4741#define elf_backend_gc_mark_hook elf32_frv_gc_mark_hook
4742#define elf_backend_gc_sweep_hook elf32_frv_gc_sweep_hook
4743#define elf_backend_check_relocs elf32_frv_check_relocs
4744#define elf_backend_object_p elf32_frv_object_p
4745#define elf_backend_add_symbol_hook elf32_frv_add_symbol_hook
4746
4747#define elf_backend_can_gc_sections 1
de2d743e 4748#define elf_backend_rela_normal 1
4e5ba5b7
DB		 4749
4750#define bfd_elf32_bfd_reloc_type_lookup frv_reloc_type_lookup
4751#define bfd_elf32_bfd_set_private_flags frv_elf_set_private_flags
4752#define bfd_elf32_bfd_copy_private_bfd_data frv_elf_copy_private_bfd_data
4753#define bfd_elf32_bfd_merge_private_bfd_data frv_elf_merge_private_bfd_data
4754#define bfd_elf32_bfd_print_private_bfd_data frv_elf_print_private_bfd_data
4755
43850d5b
AO		 4756#define elf_backend_want_got_sym 1
4757#define elf_backend_got_header_size 0
4758#define elf_backend_want_got_plt 0
4759#define elf_backend_plt_readonly 1
4760#define elf_backend_want_plt_sym 0
4761#define elf_backend_plt_header_size 0
4762
4763#define elf_backend_finish_dynamic_sections \
4764 elf32_frv_finish_dynamic_sections
4765
4766#include "elf32-target.h"
4767
4768#undef ELF_MAXPAGESIZE
4769#define ELF_MAXPAGESIZE 0x4000
4770
4771#undef TARGET_BIG_SYM
4772#define TARGET_BIG_SYM bfd_elf32_frvfdpic_vec
4773#undef TARGET_BIG_NAME
4774#define TARGET_BIG_NAME "elf32-frvfdpic"
4775#undef elf32_bed
4776#define elf32_bed elf32_frvfdpic_bed
4777
4778#undef elf_info_to_howto_rel
4779#define elf_info_to_howto_rel frvfdpic_info_to_howto_rel
4780
4781#undef bfd_elf32_bfd_link_hash_table_create
4782#define bfd_elf32_bfd_link_hash_table_create \
4783 frvfdpic_elf_link_hash_table_create
4784#undef elf_backend_always_size_sections
51532845 4785#define elf_backend_always_size_sections \
43850d5b
AO		 4786 elf32_frvfdpic_always_size_sections
4787#undef elf_backend_modify_segment_map
51532845 4788#define elf_backend_modify_segment_map \
43850d5b 4789 elf32_frvfdpic_modify_segment_map
7e9f3bd6
AO		 4790#undef bfd_elf32_bfd_copy_private_bfd_data
4791#define bfd_elf32_bfd_copy_private_bfd_data \
4792 elf32_frvfdpic_copy_private_bfd_data
51532845 4793
43850d5b 4794#undef elf_backend_create_dynamic_sections
51532845 4795#define elf_backend_create_dynamic_sections \
43850d5b
AO		 4796 elf32_frvfdpic_create_dynamic_sections
4797#undef elf_backend_adjust_dynamic_symbol
51532845 4798#define elf_backend_adjust_dynamic_symbol \
43850d5b
AO		 4799 elf32_frvfdpic_adjust_dynamic_symbol
4800#undef elf_backend_size_dynamic_sections
51532845 4801#define elf_backend_size_dynamic_sections \
43850d5b
AO		 4802 elf32_frvfdpic_size_dynamic_sections
4803#undef elf_backend_finish_dynamic_symbol
51532845 4804#define elf_backend_finish_dynamic_symbol \
43850d5b
AO		 4805 elf32_frvfdpic_finish_dynamic_symbol
4806#undef elf_backend_finish_dynamic_sections
51532845 4807#define elf_backend_finish_dynamic_sections \
43850d5b 4808 elf32_frvfdpic_finish_dynamic_sections
51532845 4809
43850d5b 4810#undef elf_backend_can_make_relative_eh_frame
ec3391e7 4811#define elf_backend_can_make_relative_eh_frame \
43850d5b
AO		 4812 frvfdpic_elf_use_relative_eh_frame
4813#undef elf_backend_can_make_lsda_relative_eh_frame
ec3391e7 4814#define elf_backend_can_make_lsda_relative_eh_frame \
43850d5b
AO		 4815 frvfdpic_elf_use_relative_eh_frame
4816#undef elf_backend_encode_eh_address
4817#define elf_backend_encode_eh_address \
4818 frvfdpic_elf_encode_eh_address
ec3391e7 4819
43850d5b 4820#undef elf_backend_may_use_rel_p
51532845 4821#define elf_backend_may_use_rel_p 1
43850d5b 4822#undef elf_backend_may_use_rela_p
51532845
AO		 4823#define elf_backend_may_use_rela_p 1
4824/* We use REL for dynamic relocations only. */
43850d5b 4825#undef elf_backend_default_use_rela_p
51532845
AO		 4826#define elf_backend_default_use_rela_p 1
4827
4e5ba5b7 4828#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.330906 seconds and 4 git commands to generate.