?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Note that if '@' is a comment character then another symbol is used to prefix
[binutils.git] / bfd / elf32-cris.c
blob8eff52dd5ade384bb1f16f6f700854f5fa4c53e4
1 /* CRIS-specific support for 32-bit ELF.
2 Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
3 Contributed by Axis Communications AB.
4 Written by Hans-Peter Nilsson, based on elf32-fr30.c
5 PIC and shlib bits based primarily on elf32-m68k.c and elf32-i386.c.
6
7 This file is part of BFD, the Binary File Descriptor library.
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22
23 #include "bfd.h"
24 #include "sysdep.h"
25 #include "libbfd.h"
26 #include "elf-bfd.h"
27 #include "elf/cris.h"
28
29 /* Forward declarations. */
30 static reloc_howto_type * cris_reloc_type_lookup
31 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
32
33 static void cris_info_to_howto_rela
34 PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *));
35
36 static boolean cris_elf_grok_prstatus
37 PARAMS ((bfd *abfd, Elf_Internal_Note *note));
38
39 static boolean cris_elf_grok_psinfo
40 PARAMS ((bfd *abfd, Elf_Internal_Note *note));
41
42 static boolean cris_elf_relocate_section
43 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
44 Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
45
46 static bfd_reloc_status_type cris_final_link_relocate
47 PARAMS ((reloc_howto_type *, bfd *, asection *, bfd_byte *,
48 Elf_Internal_Rela *, bfd_vma));
49
50 static boolean cris_elf_gc_sweep_hook
51 PARAMS ((bfd *, struct bfd_link_info *, asection *,
52 const Elf_Internal_Rela *));
53
54 static asection * cris_elf_gc_mark_hook
55 PARAMS ((asection *, struct bfd_link_info *, Elf_Internal_Rela *,
56 struct elf_link_hash_entry *, Elf_Internal_Sym *));
57
58 static boolean cris_elf_object_p PARAMS ((bfd *));
59
60 static void cris_elf_final_write_processing PARAMS ((bfd *, boolean));
61
62 static boolean cris_elf_print_private_bfd_data PARAMS ((bfd *, PTR));
63
64 static boolean cris_elf_merge_private_bfd_data PARAMS ((bfd *, bfd *));
65
66 struct elf_cris_link_hash_entry;
67 static boolean elf_cris_discard_excess_dso_dynamics
68 PARAMS ((struct elf_cris_link_hash_entry *, PTR));
69 static boolean elf_cris_discard_excess_program_dynamics
70 PARAMS ((struct elf_cris_link_hash_entry *, PTR));
71 static boolean elf_cris_adjust_gotplt_to_got
72 PARAMS ((struct elf_cris_link_hash_entry *, PTR));
73 static boolean elf_cris_try_fold_plt_to_got
74 PARAMS ((struct elf_cris_link_hash_entry *, PTR));
75 static struct bfd_hash_entry *elf_cris_link_hash_newfunc
76 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
77 static struct bfd_link_hash_table *elf_cris_link_hash_table_create
78 PARAMS ((bfd *));
79 static boolean elf_cris_adjust_dynamic_symbol
80 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *));
81 static boolean cris_elf_check_relocs
82 PARAMS ((bfd *, struct bfd_link_info *, asection *,
83 const Elf_Internal_Rela *));
84
85 static boolean elf_cris_size_dynamic_sections
86 PARAMS ((bfd *, struct bfd_link_info *));
87 static boolean elf_cris_finish_dynamic_symbol
88 PARAMS ((bfd *, struct bfd_link_info *, struct elf_link_hash_entry *,
89 Elf_Internal_Sym *));
90 static boolean elf_cris_finish_dynamic_sections
91 PARAMS ((bfd *, struct bfd_link_info *));
92 static void elf_cris_hide_symbol
93 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *, boolean));
94 static enum elf_reloc_type_class elf_cris_reloc_type_class
95 PARAMS ((const Elf_Internal_Rela *));
96
97 static reloc_howto_type cris_elf_howto_table [] =
98 {
99 /* This reloc does nothing. */
100 HOWTO (R_CRIS_NONE, /* type */
101 0, /* rightshift */
102 2, /* size (0 = byte, 1 = short, 2 = long) */
103 32, /* bitsize */
104 false, /* pc_relative */
105 0, /* bitpos */
106 complain_overflow_bitfield, /* complain_on_overflow */
107 bfd_elf_generic_reloc, /* special_function */
108 "R_CRIS_NONE", /* name */
109 false, /* partial_inplace */
110 0, /* src_mask */
111 0, /* dst_mask */
112 false), /* pcrel_offset */
113
114 /* An 8 bit absolute relocation. */
115 HOWTO (R_CRIS_8, /* type */
116 0, /* rightshift */
117 0, /* size (0 = byte, 1 = short, 2 = long) */
118 8, /* bitsize */
119 false, /* pc_relative */
120 0, /* bitpos */
121 complain_overflow_bitfield, /* complain_on_overflow */
122 bfd_elf_generic_reloc, /* special_function */
123 "R_CRIS_8", /* name */
124 false, /* partial_inplace */
125 0x0000, /* src_mask */
126 0x00ff, /* dst_mask */
127 false), /* pcrel_offset */
128
129 /* A 16 bit absolute relocation. */
130 HOWTO (R_CRIS_16, /* type */
131 0, /* rightshift */
132 1, /* size (0 = byte, 1 = short, 2 = long) */
133 16, /* bitsize */
134 false, /* pc_relative */
135 0, /* bitpos */
136 complain_overflow_bitfield, /* complain_on_overflow */
137 bfd_elf_generic_reloc, /* special_function */
138 "R_CRIS_16", /* name */
139 false, /* partial_inplace */
140 0x00000000, /* src_mask */
141 0x0000ffff, /* dst_mask */
142 false), /* pcrel_offset */
143
144 /* A 32 bit absolute relocation. */
145 HOWTO (R_CRIS_32, /* type */
146 0, /* rightshift */
147 2, /* size (0 = byte, 1 = short, 2 = long) */
148 32, /* bitsize */
149 false, /* pc_relative */
150 0, /* bitpos */
151 complain_overflow_bitfield, /* complain_on_overflow */
152 bfd_elf_generic_reloc, /* special_function */
153 "R_CRIS_32", /* name */
154 false, /* partial_inplace */
155 0x00000000, /* src_mask */
156 0xffffffff, /* dst_mask */
157 false), /* pcrel_offset */
158
159 /* An 8 bit PC-relative relocation. */
160 HOWTO (R_CRIS_8_PCREL, /* type */
161 0, /* rightshift */
162 0, /* size (0 = byte, 1 = short, 2 = long) */
163 8, /* bitsize */
164 true, /* pc_relative */
165 0, /* bitpos */
166 complain_overflow_bitfield, /* complain_on_overflow */
167 bfd_elf_generic_reloc, /* special_function */
168 "R_CRIS_8_PCREL", /* name */
169 false, /* partial_inplace */
170 0x0000, /* src_mask */
171 0x00ff, /* dst_mask */
172 true), /* pcrel_offset */
173
174 /* A 16 bit PC-relative relocation. */
175 HOWTO (R_CRIS_16_PCREL, /* type */
176 0, /* rightshift */
177 1, /* size (0 = byte, 1 = short, 2 = long) */
178 16, /* bitsize */
179 true, /* pc_relative */
180 0, /* bitpos */
181 complain_overflow_bitfield, /* complain_on_overflow */
182 bfd_elf_generic_reloc, /* special_function */
183 "R_CRIS_16_PCREL", /* name */
184 false, /* partial_inplace */
185 0x00000000, /* src_mask */
186 0x0000ffff, /* dst_mask */
187 true), /* pcrel_offset */
188
189 /* A 32 bit PC-relative relocation. */
190 HOWTO (R_CRIS_32_PCREL, /* type */
191 0, /* rightshift */
192 2, /* size (0 = byte, 1 = short, 2 = long) */
193 32, /* bitsize */
194 true, /* pc_relative */
195 0, /* bitpos */
196 complain_overflow_bitfield, /* complain_on_overflow */
197 bfd_elf_generic_reloc, /* special_function */
198 "R_CRIS_32_PCREL", /* name */
199 false, /* partial_inplace */
200 0x00000000, /* src_mask */
201 0xffffffff, /* dst_mask */
202 true), /* pcrel_offset */
203
204 /* GNU extension to record C++ vtable hierarchy. */
205 HOWTO (R_CRIS_GNU_VTINHERIT, /* type */
206 0, /* rightshift */
207 2, /* size (0 = byte, 1 = short, 2 = long) */
208 0, /* bitsize */
209 false, /* pc_relative */
210 0, /* bitpos */
211 complain_overflow_dont, /* complain_on_overflow */
212 NULL, /* special_function */
213 "R_CRIS_GNU_VTINHERIT", /* name */
214 false, /* partial_inplace */
215 0, /* src_mask */
216 0, /* dst_mask */
217 false), /* pcrel_offset */
218
219 /* GNU extension to record C++ vtable member usage. */
220 HOWTO (R_CRIS_GNU_VTENTRY, /* type */
221 0, /* rightshift */
222 2, /* size (0 = byte, 1 = short, 2 = long) */
223 0, /* bitsize */
224 false, /* pc_relative */
225 0, /* bitpos */
226 complain_overflow_dont, /* complain_on_overflow */
227 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
228 "R_CRIS_GNU_VTENTRY", /* name */
229 false, /* partial_inplace */
230 0, /* src_mask */
231 0, /* dst_mask */
232 false), /* pcrel_offset */
233
234 /* This is used only by the dynamic linker. The symbol should exist
235 both in the object being run and in some shared library. The
236 dynamic linker copies the data addressed by the symbol from the
237 shared library into the object, because the object being
238 run has to have the data at some particular address. */
239 HOWTO (R_CRIS_COPY, /* type */
240 0, /* rightshift */
241 2, /* size (0 = byte, 1 = short, 2 = long) */
242 32, /* bitsize */
243 false, /* pc_relative */
244 0, /* bitpos */
245 complain_overflow_bitfield, /* complain_on_overflow */
246 bfd_elf_generic_reloc, /* special_function */
247 "R_CRIS_COPY", /* name */
248 false, /* partial_inplace */
249 0, /* src_mask */
250 0, /* dst_mask */
251 false), /* pcrel_offset */
252
253 /* Like R_CRIS_32, but used when setting global offset table entries. */
254 HOWTO (R_CRIS_GLOB_DAT, /* type */
255 0, /* rightshift */
256 2, /* size (0 = byte, 1 = short, 2 = long) */
257 32, /* bitsize */
258 false, /* pc_relative */
259 0, /* bitpos */
260 complain_overflow_bitfield, /* complain_on_overflow */
261 bfd_elf_generic_reloc, /* special_function */
262 "R_CRIS_GLOB_DAT", /* name */
263 false, /* partial_inplace */
264 0, /* src_mask */
265 0xffffffff, /* dst_mask */
266 false), /* pcrel_offset */
267
268 /* Marks a procedure linkage table entry for a symbol. */
269 HOWTO (R_CRIS_JUMP_SLOT, /* type */
270 0, /* rightshift */
271 2, /* size (0 = byte, 1 = short, 2 = long) */
272 32, /* bitsize */
273 false, /* pc_relative */
274 0, /* bitpos */
275 complain_overflow_bitfield, /* complain_on_overflow */
276 bfd_elf_generic_reloc, /* special_function */
277 "R_CRIS_JUMP_SLOT", /* name */
278 false, /* partial_inplace */
279 0, /* src_mask */
280 0, /* dst_mask */
281 false), /* pcrel_offset */
282
283 /* Used only by the dynamic linker. When the object is run, this
284 longword is set to the load address of the object, plus the
285 addend. */
286 HOWTO (R_CRIS_RELATIVE, /* type */
287 0, /* rightshift */
288 2, /* size (0 = byte, 1 = short, 2 = long) */
289 32, /* bitsize */
290 false, /* pc_relative */
291 0, /* bitpos */
292 complain_overflow_bitfield, /* complain_on_overflow */
293 bfd_elf_generic_reloc, /* special_function */
294 "R_CRIS_RELATIVE", /* name */
295 false, /* partial_inplace */
296 0, /* src_mask */
297 0xffffffff, /* dst_mask */
298 false), /* pcrel_offset */
299
300 /* Like R_CRIS_32, but referring to the GOT table entry for the symbol. */
301 HOWTO (R_CRIS_16_GOT, /* type */
302 0, /* rightshift */
303 1, /* size (0 = byte, 1 = short, 2 = long) */
304 16, /* bitsize */
305 false, /* pc_relative */
306 0, /* bitpos */
307 complain_overflow_bitfield, /* complain_on_overflow */
308 bfd_elf_generic_reloc, /* special_function */
309 "R_CRIS_16_GOT", /* name */
310 false, /* partial_inplace */
311 0, /* src_mask */
312 0xffff, /* dst_mask */
313 false), /* pcrel_offset */
314
315 HOWTO (R_CRIS_32_GOT, /* type */
316 0, /* rightshift */
317 2, /* size (0 = byte, 1 = short, 2 = long) */
318 32, /* bitsize */
319 false, /* pc_relative */
320 0, /* bitpos */
321 complain_overflow_bitfield, /* complain_on_overflow */
322 bfd_elf_generic_reloc, /* special_function */
323 "R_CRIS_32_GOT", /* name */
324 false, /* partial_inplace */
325 0, /* src_mask */
326 0xffffffff, /* dst_mask */
327 false), /* pcrel_offset */
328
329 /* Like R_CRIS_32_GOT, but referring to (and requesting a) PLT part of
330 the GOT table for the symbol. */
331 HOWTO (R_CRIS_16_GOTPLT, /* type */
332 0, /* rightshift */
333 1, /* size (0 = byte, 1 = short, 2 = long) */
334 16, /* bitsize */
335 false, /* pc_relative */
336 0, /* bitpos */
337 complain_overflow_bitfield, /* complain_on_overflow */
338 bfd_elf_generic_reloc, /* special_function */
339 "R_CRIS_16_GOTPLT", /* name */
340 false, /* partial_inplace */
341 0, /* src_mask */
342 0xffff, /* dst_mask */
343 false), /* pcrel_offset */
344
345 HOWTO (R_CRIS_32_GOTPLT, /* type */
346 0, /* rightshift */
347 2, /* size (0 = byte, 1 = short, 2 = long) */
348 32, /* bitsize */
349 false, /* pc_relative */
350 0, /* bitpos */
351 complain_overflow_bitfield, /* complain_on_overflow */
352 bfd_elf_generic_reloc, /* special_function */
353 "R_CRIS_32_GOTPLT", /* name */
354 false, /* partial_inplace */
355 0, /* src_mask */
356 0xffffffff, /* dst_mask */
357 false), /* pcrel_offset */
358
359 /* A 32-bit offset from GOT to (local const) symbol: no GOT entry should
360 be necessary. */
361 HOWTO (R_CRIS_32_GOTREL, /* type */
362 0, /* rightshift */
363 2, /* size (0 = byte, 1 = short, 2 = long) */
364 32, /* bitsize */
365 false, /* pc_relative */
366 0, /* bitpos */
367 complain_overflow_bitfield, /* complain_on_overflow */
368 bfd_elf_generic_reloc, /* special_function */
369 "R_CRIS_32_GOTREL", /* name */
370 false, /* partial_inplace */
371 0, /* src_mask */
372 0xffffffff, /* dst_mask */
373 false), /* pcrel_offset */
374
375 /* A 32-bit offset from GOT to entry for this symbol in PLT and request
376 to create PLT entry for symbol. */
377 HOWTO (R_CRIS_32_PLT_GOTREL, /* type */
378 0, /* rightshift */
379 2, /* size (0 = byte, 1 = short, 2 = long) */
380 32, /* bitsize */
381 false, /* pc_relative */
382 0, /* bitpos */
383 complain_overflow_bitfield, /* complain_on_overflow */
384 bfd_elf_generic_reloc, /* special_function */
385 "R_CRIS_32_PLT_GOTREL", /* name */
386 false, /* partial_inplace */
387 0, /* src_mask */
388 0xffffffff, /* dst_mask */
389 false), /* pcrel_offset */
390
391 /* A 32-bit offset from PC (location after the relocation) + addend to
392 entry for this symbol in PLT and request to create PLT entry for
393 symbol. */
394 HOWTO (R_CRIS_32_PLT_PCREL, /* type */
395 0, /* rightshift */
396 2, /* size (0 = byte, 1 = short, 2 = long) */
397 32, /* bitsize */
398 true, /* pc_relative */
399 0, /* bitpos */
400 complain_overflow_bitfield, /* complain_on_overflow */
401 bfd_elf_generic_reloc, /* special_function */
402 "R_CRIS_32_PLT_PCREL", /* name */
403 false, /* partial_inplace */
404 0, /* src_mask */
405 0xffffffff, /* dst_mask */
406 true) /* pcrel_offset */
407 };
408 \f
409 /* Map BFD reloc types to CRIS ELF reloc types. */
410
411 struct cris_reloc_map
412 {
413 bfd_reloc_code_real_type bfd_reloc_val;
414 unsigned int cris_reloc_val;
415 };
416
417 static const struct cris_reloc_map cris_reloc_map [] =
418 {
419 { BFD_RELOC_NONE, R_CRIS_NONE },
420 { BFD_RELOC_8, R_CRIS_8 },
421 { BFD_RELOC_16, R_CRIS_16 },
422 { BFD_RELOC_32, R_CRIS_32 },
423 { BFD_RELOC_8_PCREL, R_CRIS_8_PCREL },
424 { BFD_RELOC_16_PCREL, R_CRIS_16_PCREL },
425 { BFD_RELOC_32_PCREL, R_CRIS_32_PCREL },
426 { BFD_RELOC_VTABLE_INHERIT, R_CRIS_GNU_VTINHERIT },
427 { BFD_RELOC_VTABLE_ENTRY, R_CRIS_GNU_VTENTRY },
428 { BFD_RELOC_CRIS_COPY, R_CRIS_COPY },
429 { BFD_RELOC_CRIS_GLOB_DAT, R_CRIS_GLOB_DAT },
430 { BFD_RELOC_CRIS_JUMP_SLOT, R_CRIS_JUMP_SLOT },
431 { BFD_RELOC_CRIS_RELATIVE, R_CRIS_RELATIVE },
432 { BFD_RELOC_CRIS_16_GOT, R_CRIS_16_GOT },
433 { BFD_RELOC_CRIS_32_GOT, R_CRIS_32_GOT },
434 { BFD_RELOC_CRIS_16_GOTPLT, R_CRIS_16_GOTPLT },
435 { BFD_RELOC_CRIS_32_GOTPLT, R_CRIS_32_GOTPLT },
436 { BFD_RELOC_CRIS_32_GOTREL, R_CRIS_32_GOTREL },
437 { BFD_RELOC_CRIS_32_PLT_GOTREL, R_CRIS_32_PLT_GOTREL },
438 { BFD_RELOC_CRIS_32_PLT_PCREL, R_CRIS_32_PLT_PCREL }
439 };
440
441 static reloc_howto_type *
442 cris_reloc_type_lookup (abfd, code)
443 bfd * abfd ATTRIBUTE_UNUSED;
444 bfd_reloc_code_real_type code;
445 {
446 unsigned int i;
447
448 for (i = 0; i < sizeof (cris_reloc_map) / sizeof (cris_reloc_map[0]); i++)
449 if (cris_reloc_map [i].bfd_reloc_val == code)
450 return & cris_elf_howto_table [cris_reloc_map[i].cris_reloc_val];
451
452 return NULL;
453 }
454
455 /* Set the howto pointer for an CRIS ELF reloc. */
456
457 static void
458 cris_info_to_howto_rela (abfd, cache_ptr, dst)
459 bfd * abfd ATTRIBUTE_UNUSED;
460 arelent * cache_ptr;
461 Elf32_Internal_Rela * dst;
462 {
463 unsigned int r_type;
464
465 r_type = ELF32_R_TYPE (dst->r_info);
466 BFD_ASSERT (r_type < (unsigned int) R_CRIS_max);
467 cache_ptr->howto = & cris_elf_howto_table [r_type];
468 }
469 \f
470 /* Support for core dump NOTE sections. */
471
472 static boolean
473 cris_elf_grok_prstatus (abfd, note)
474 bfd *abfd;
475 Elf_Internal_Note *note;
476 {
477 int offset;
478 size_t raw_size;
479
480 switch (note->descsz)
481 {
482 default:
483 return false;
484
485 case 214: /* Linux/CRIS */
486 /* pr_cursig */
487 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
488
489 /* pr_pid */
490 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 22);
491
492 /* pr_reg */
493 offset = 70;
494 raw_size = 140;
495
496 break;
497 }
498
499 /* Make a ".reg/999" section. */
500 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
501 raw_size, note->descpos + offset);
502 }
503
504 static boolean
505 cris_elf_grok_psinfo (abfd, note)
506 bfd *abfd;
507 Elf_Internal_Note *note;
508 {
509 switch (note->descsz)
510 {
511 default:
512 return false;
513
514 case 124: /* Linux/CRIS elf_prpsinfo */
515 elf_tdata (abfd)->core_program
516 = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
517 elf_tdata (abfd)->core_command
518 = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
519 }
520
521 /* Note that for some reason, a spurious space is tacked
522 onto the end of the args in some (at least one anyway)
523 implementations, so strip it off if it exists. */
524
525 {
526 char *command = elf_tdata (abfd)->core_command;
527 int n = strlen (command);
528
529 if (0 < n && command[n - 1] == ' ')
530 command[n - 1] = '\0';
531 }
532
533 return true;
534 }
535 \f
536 /* The name of the dynamic interpreter. This is put in the .interp
537 section. */
538
539 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
540
541 /* The size in bytes of an entry in the procedure linkage table. */
542
543 #define PLT_ENTRY_SIZE 20
544
545 /* The first entry in an absolute procedure linkage table looks like this. */
546
547 static const bfd_byte elf_cris_plt0_entry[PLT_ENTRY_SIZE] =
548 {
549 0xfc, 0xe1,
550 0x7e, 0x7e, /* push mof. */
551 0x7f, 0x0d, /* (dip [pc+]) */
552 0, 0, 0, 0, /* Replaced with address of .got + 4. */
553 0x30, 0x7a, /* move [...],mof */
554 0x7f, 0x0d, /* (dip [pc+]) */
555 0, 0, 0, 0, /* Replaced with address of .got + 8. */
556 0x30, 0x09, /* jump [...] */
557 };
558
559 /* Subsequent entries in an absolute procedure linkage table look like
560 this. */
561
562 static const bfd_byte elf_cris_plt_entry[PLT_ENTRY_SIZE] =
563 {
564 0x7f, 0x0d, /* (dip [pc+]) */
565 0, 0, 0, 0, /* Replaced with address of this symbol in .got. */
566 0x30, 0x09, /* jump [...] */
567 0x3f, 0x7e, /* move [pc+],mof */
568 0, 0, 0, 0, /* Replaced with offset into relocation table. */
569 0x2f, 0xfe, /* add.d [pc+],pc */
570 0xec, 0xff,
571 0xff, 0xff /* Replaced with offset to start of .plt. */
572 };
573
574 /* The first entry in a PIC procedure linkage table looks like this. */
575
576 static const bfd_byte elf_cris_pic_plt0_entry[PLT_ENTRY_SIZE] =
577 {
578 0xfc, 0xe1, 0x7e, 0x7e, /* push mof */
579 0x04, 0x01, 0x30, 0x7a, /* move [r0+4],mof */
580 0x08, 0x01, 0x30, 0x09, /* jump [r0+8] */
581 0, 0, 0, 0, 0, 0, 0, 0, /* Pad out to 20 bytes. */
582 };
583
584 /* Subsequent entries in a PIC procedure linkage table look like this. */
585
586 static const bfd_byte elf_cris_pic_plt_entry[PLT_ENTRY_SIZE] =
587 {
588 0x6f, 0x0d, /* (bdap [pc+].d,r0) */
589 0, 0, 0, 0, /* Replaced with offset of this symbol in .got. */
590 0x30, 0x09, /* jump [...] */
591 0x3f, 0x7e, /* move [pc+],mof */
592 0, 0, 0, 0, /* Replaced with offset into relocation table. */
593 0x2f, 0xfe, /* add.d [pc+],pc */
594 0xec, 0xff, /* Replaced with offset to start of .plt. */
595 0xff, 0xff
596 };
597 \f
598 /* We copy elf32-m68k.c and elf32-i386.c for the basic linker hash bits
599 (and most other PIC/shlib stuff). Check that we don't drift away
600 without reason.
601
602 The CRIS linker, like the m68k and i386 linkers (and probably the rest
603 too) needs to keep track of the number of relocs that it decides to
604 copy in check_relocs for each symbol. This is so that it can discard
605 PC relative relocs if it doesn't need them when linking with
606 -Bsymbolic. We store the information in a field extending the regular
607 ELF linker hash table. */
608
609 /* This structure keeps track of the number of PC relative relocs we have
610 copied for a given symbol. */
611
612 struct elf_cris_pcrel_relocs_copied
613 {
614 /* Next section. */
615 struct elf_cris_pcrel_relocs_copied *next;
616 /* A section in dynobj. */
617 asection *section;
618 /* Number of relocs copied in this section. */
619 bfd_size_type count;
620 };
621
622 /* CRIS ELF linker hash entry. */
623
624 struct elf_cris_link_hash_entry
625 {
626 struct elf_link_hash_entry root;
627
628 /* Number of PC relative relocs copied for this symbol. */
629 struct elf_cris_pcrel_relocs_copied *pcrel_relocs_copied;
630
631 /* The GOTPLT references are CRIS-specific; the goal is to avoid having
632 both a general GOT and a PLT-specific GOT entry for the same symbol,
633 when it is referenced both as a function and as a function pointer.
634
635 Number of GOTPLT references for a function. */
636 bfd_signed_vma gotplt_refcount;
637
638 /* Actual GOTPLT index for this symbol, if applicable, or zero if not
639 (zero is never used as an index). FIXME: We should be able to fold
640 this with gotplt_refcount in a union, like the got and plt unions in
641 elf_link_hash_entry. */
642 bfd_size_type gotplt_offset;
643 };
644
645 /* CRIS ELF linker hash table. */
646
647 struct elf_cris_link_hash_table
648 {
649 struct elf_link_hash_table root;
650
651 /* We can't use the PLT offset and calculate to get the GOTPLT offset,
652 since we try and avoid creating GOTPLT:s when there's already a GOT.
653 Instead, we keep and update the next available index here. */
654 bfd_size_type next_gotplt_entry;
655 };
656
657 /* Traverse a CRIS ELF linker hash table. */
658
659 #define elf_cris_link_hash_traverse(table, func, info) \
660 (elf_link_hash_traverse \
661 (&(table)->root, \
662 (boolean (*) PARAMS ((struct elf_link_hash_entry *, PTR))) (func), \
663 (info)))
664
665 /* Get the CRIS ELF linker hash table from a link_info structure. */
666
667 #define elf_cris_hash_table(p) \
668 ((struct elf_cris_link_hash_table *) (p)->hash)
669
670 /* Create an entry in a CRIS ELF linker hash table. */
671
672 static struct bfd_hash_entry *
673 elf_cris_link_hash_newfunc (entry, table, string)
674 struct bfd_hash_entry *entry;
675 struct bfd_hash_table *table;
676 const char *string;
677 {
678 struct elf_cris_link_hash_entry *ret =
679 (struct elf_cris_link_hash_entry *) entry;
680
681 /* Allocate the structure if it has not already been allocated by a
682 subclass. */
683 if (ret == (struct elf_cris_link_hash_entry *) NULL)
684 ret = ((struct elf_cris_link_hash_entry *)
685 bfd_hash_allocate (table,
686 sizeof (struct elf_cris_link_hash_entry)));
687 if (ret == (struct elf_cris_link_hash_entry *) NULL)
688 return (struct bfd_hash_entry *) ret;
689
690 /* Call the allocation method of the superclass. */
691 ret = ((struct elf_cris_link_hash_entry *)
692 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
693 table, string));
694 if (ret != (struct elf_cris_link_hash_entry *) NULL)
695 {
696 ret->pcrel_relocs_copied = NULL;
697 ret->gotplt_refcount = 0;
698 ret->gotplt_offset = 0;
699 }
700
701 return (struct bfd_hash_entry *) ret;
702 }
703
704 /* Create a CRIS ELF linker hash table. */
705
706 static struct bfd_link_hash_table *
707 elf_cris_link_hash_table_create (abfd)
708 bfd *abfd;
709 {
710 struct elf_cris_link_hash_table *ret;
711 bfd_size_type amt = sizeof (struct elf_cris_link_hash_table);
712
713 ret = ((struct elf_cris_link_hash_table *) bfd_malloc (amt));
714 if (ret == (struct elf_cris_link_hash_table *) NULL)
715 return NULL;
716
717 if (! _bfd_elf_link_hash_table_init (&ret->root, abfd,
718 elf_cris_link_hash_newfunc))
719 {
720 free (ret);
721 return NULL;
722 }
723
724 /* Initialize to skip over the first three entries in the gotplt; they
725 are used for run-time symbol evaluation. */
726 ret->next_gotplt_entry = 12;
727
728 return &ret->root.root;
729 }
730 \f
731 /* Perform a single relocation. By default we use the standard BFD
732 routines, with a few tweaks. */
733
734 static bfd_reloc_status_type
735 cris_final_link_relocate (howto, input_bfd, input_section, contents, rel,
736 relocation)
737 reloc_howto_type * howto;
738 bfd * input_bfd;
739 asection * input_section;
740 bfd_byte * contents;
741 Elf_Internal_Rela * rel;
742 bfd_vma relocation;
743 {
744 bfd_reloc_status_type r;
745
746 /* PC-relative relocations are relative to the position *after*
747 the reloc. Note that for R_CRIS_8_PCREL the adjustment is
748 not a single byte, since PC must be 16-bit-aligned. */
749 switch (ELF32_R_TYPE (rel->r_info))
750 {
751 /* Check that the 16-bit GOT relocs are positive. */
752 case R_CRIS_16_GOTPLT:
753 case R_CRIS_16_GOT:
754 if ((bfd_signed_vma) relocation < 0)
755 return bfd_reloc_overflow;
756 break;
757
758 case R_CRIS_32_PLT_PCREL:
759 case R_CRIS_32_PCREL:
760 relocation -= 2;
761 /* Fall through. */
762 case R_CRIS_8_PCREL:
763 case R_CRIS_16_PCREL:
764 relocation -= 2;
765 break;
766
767 default:
768 break;
769 }
770
771 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
772 contents, rel->r_offset,
773 relocation, rel->r_addend);
774 return r;
775 }
776 \f
777 /* Relocate an CRIS ELF section. See elf32-fr30.c, from where this was
778 copied, for further comments. */
779
780 static boolean
781 cris_elf_relocate_section (output_bfd, info, input_bfd, input_section,
782 contents, relocs, local_syms, local_sections)
783 bfd * output_bfd ATTRIBUTE_UNUSED;
784 struct bfd_link_info * info;
785 bfd * input_bfd;
786 asection * input_section;
787 bfd_byte * contents;
788 Elf_Internal_Rela * relocs;
789 Elf_Internal_Sym * local_syms;
790 asection ** local_sections;
791 {
792 bfd *dynobj;
793 Elf_Internal_Shdr * symtab_hdr;
794 struct elf_link_hash_entry ** sym_hashes;
795 bfd_vma *local_got_offsets;
796 asection *sgot;
797 asection *splt;
798 asection *sreloc;
799 Elf_Internal_Rela * rel;
800 Elf_Internal_Rela * relend;
801
802 if (info->relocateable)
803 return true;
804
805 dynobj = elf_hash_table (info)->dynobj;
806 local_got_offsets = elf_local_got_offsets (input_bfd);
807 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
808 sym_hashes = elf_sym_hashes (input_bfd);
809 relend = relocs + input_section->reloc_count;
810
811 sgot = NULL;
812 splt = NULL;
813 sreloc = NULL;
814
815 if (dynobj != NULL)
816 {
817 splt = bfd_get_section_by_name (dynobj, ".plt");
818 sgot = bfd_get_section_by_name (dynobj, ".got");
819 }
820
821 for (rel = relocs; rel < relend; rel ++)
822 {
823 reloc_howto_type * howto;
824 unsigned long r_symndx;
825 Elf_Internal_Sym * sym;
826 asection * sec;
827 struct elf_link_hash_entry * h;
828 bfd_vma relocation;
829 bfd_reloc_status_type r;
830 const char * symname = NULL;
831 int r_type;
832
833 r_type = ELF32_R_TYPE (rel->r_info);
834
835 if ( r_type == R_CRIS_GNU_VTINHERIT
836 || r_type == R_CRIS_GNU_VTENTRY)
837 continue;
838
839 /* This is a final link. */
840 r_symndx = ELF32_R_SYM (rel->r_info);
841 howto = cris_elf_howto_table + r_type;
842 h = NULL;
843 sym = NULL;
844 sec = NULL;
845
846 if (r_symndx < symtab_hdr->sh_info)
847 {
848 sym = local_syms + r_symndx;
849 sec = local_sections [r_symndx];
850 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, sec, rel);
851
852 symname = (bfd_elf_string_from_elf_section
853 (input_bfd, symtab_hdr->sh_link, sym->st_name));
854 if (symname == NULL)
855 symname = bfd_section_name (input_bfd, sec);
856 }
857 else
858 {
859 /* It seems this can happen with erroneous or unsupported input
860 (mixing a.out and elf in an archive, for example.) */
861 if (sym_hashes == NULL)
862 return false;
863
864 h = sym_hashes [r_symndx - symtab_hdr->sh_info];
865
866 while (h->root.type == bfd_link_hash_indirect
867 || h->root.type == bfd_link_hash_warning)
868 h = (struct elf_link_hash_entry *) h->root.u.i.link;
869
870 symname = h->root.root.string;
871
872 if (h->root.type == bfd_link_hash_defined
873 || h->root.type == bfd_link_hash_defweak)
874 {
875 sec = h->root.u.def.section;
876
877 /* Perhaps we should detect the cases that
878 sec->output_section is expected to be NULL like i386 and
879 m68k, but apparently (and according to elfxx-ia64.c) all
880 valid cases are where the symbol is defined in a shared
881 object which we link dynamically against. This includes
882 PLT relocs for which we've created a PLT entry and other
883 relocs for which we're prepared to create dynamic
884 relocations.
885
886 For now, new situations cause us to just err when
887 sec->output_offset is NULL but the object with the symbol
888 is *not* dynamically linked against. Thus this will
889 automatically remind us so we can see if there are other
890 valid cases we need to revisit. */
891 if ((sec->output_section == NULL
892 && (sec->owner->flags & DYNAMIC) != 0)
893
894 /* Here follow the cases where the relocation value must
895 be zero (or when further handling is simplified when
896 zero). I can't claim to understand the various
897 conditions and they weren't described in the files
898 where I copied them from (elf32-m68k.c and
899 elf32-i386.c), but let's mention examples of where
900 they happen. FIXME: Perhaps define and use a
901 dynamic_symbol_p function like ia64.
902
903 - When creating a shared library, we can have an
904 ordinary relocation for a symbol defined in a shared
905 library (perhaps the one we create). We then make
906 the relocation value zero, as the value seen now will
907 be added into the relocation addend in this shared
908 library, but must be handled only at dynamic-link
909 time. FIXME: Not sure this example covers the
910 h->elf_link_hash_flags test, though it's there in
911 other targets. */
912 || (info->shared
913 && ((! info->symbolic && h->dynindx != -1)
914 || (h->elf_link_hash_flags
915 & ELF_LINK_HASH_DEF_REGULAR) == 0)
916 && (input_section->flags & SEC_ALLOC) != 0
917 && (r_type == R_CRIS_8
918 || r_type == R_CRIS_16
919 || r_type == R_CRIS_32
920 || r_type == R_CRIS_8_PCREL
921 || r_type == R_CRIS_16_PCREL
922 || r_type == R_CRIS_32_PCREL)))
923 relocation = 0;
924 else if (sec->output_section != NULL)
925 relocation = (h->root.u.def.value
926 + sec->output_section->vma
927 + sec->output_offset);
928 else
929 {
930 (*_bfd_error_handler)
931 (_("%s: unresolvable relocation %s against symbol `%s' from %s section"),
932 bfd_archive_filename (input_bfd),
933 cris_elf_howto_table[r_type].name,
934 symname,
935 bfd_get_section_name (input_bfd, input_section));
936 bfd_set_error (bfd_error_bad_value);
937 return false;
938 }
939 }
940 else if (h->root.type == bfd_link_hash_undefweak)
941 relocation = 0;
942 else if (info->shared
943 && (!info->symbolic || info->allow_shlib_undefined)
944 && !info->no_undefined
945 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
946 relocation = 0;
947 else
948 {
949 if (!(info->callbacks->undefined_symbol
950 (info, symname, input_bfd,
951 input_section, rel->r_offset,
952 (!info->shared || info->no_undefined
953 || ELF_ST_VISIBILITY (h->other)))))
954 return false;
955 relocation = 0;
956 }
957 }
958
959 switch (r_type)
960 {
961 case R_CRIS_16_GOTPLT:
962 case R_CRIS_32_GOTPLT:
963 /* This is like the case for R_CRIS_32_GOT and R_CRIS_16_GOT,
964 but we require a PLT, and the PLT handling will take care of
965 filling in the PLT-specific GOT entry. For the GOT offset,
966 calculate it as we do when filling it in for the .got.plt
967 section. If we don't have a PLT, punt to GOT handling. */
968 if (h != NULL
969 && ((struct elf_cris_link_hash_entry *) h)->gotplt_offset != 0)
970 {
971 asection *sgotplt
972 = bfd_get_section_by_name (dynobj, ".got.plt");
973 bfd_vma got_offset;
974
975 BFD_ASSERT (h->dynindx != -1);
976 BFD_ASSERT (sgotplt != NULL);
977
978 got_offset
979 = ((struct elf_cris_link_hash_entry *) h)->gotplt_offset;
980
981 relocation = got_offset;
982 break;
983 }
984
985 /* We didn't make a PLT entry for this symbol. Maybe everything is
986 folded into the GOT. Other than folding, this happens when
987 statically linking PIC code, or when using -Bsymbolic. Check
988 that we instead have a GOT entry as done for us by
989 elf_cris_adjust_dynamic_symbol, and drop through into the
990 ordinary GOT cases. */
991 if (h != NULL && h->got.offset == (bfd_vma) -1)
992 {
993 (*_bfd_error_handler)
994 (_("%s: No PLT nor GOT for relocation %s against symbol `%s' from %s section"),
995 bfd_archive_filename (input_bfd),
996 cris_elf_howto_table[r_type].name,
997 symname[0] != '\0' ? symname : _("[whose name is lost]"),
998 bfd_get_section_name (input_bfd, input_section));
999
1000 /* FIXME: Perhaps blaming input is not the right thing to
1001 do; this is probably an internal error. But it is true
1002 that we didn't like that particular input. */
1003 bfd_set_error (bfd_error_bad_value);
1004 return false;
1005 }
1006 /* Fall through. */
1007
1008 /* The size of the actual relocation is not used here; we only
1009 fill in the GOT table here. */
1010 case R_CRIS_16_GOT:
1011 case R_CRIS_32_GOT:
1012 {
1013 bfd_vma off;
1014
1015 /* Note that despite using RELA relocations, the .got contents
1016 is always filled in with the link-relative relocation
1017 value; the addend. */
1018
1019 if (h != NULL)
1020 {
1021 off = h->got.offset;
1022 BFD_ASSERT (off != (bfd_vma) -1);
1023
1024 if (!elf_hash_table (info)->dynamic_sections_created
1025 || (! info->shared && h->dynindx == -1)
1026 || (info->shared
1027 && (info->symbolic || h->dynindx == -1)
1028 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
1029 {
1030 /* This wasn't checked above for ! info->shared, but
1031 must hold there if we get here; the symbol must be
1032 defined in the regular program, or be undefweak. */
1033 BFD_ASSERT (!elf_hash_table (info)->dynamic_sections_created
1034 || info->shared
1035 || (h->elf_link_hash_flags
1036 & ELF_LINK_HASH_DEF_REGULAR) != 0
1037 || h->root.type == bfd_link_hash_undefweak);
1038
1039 /* This is actually a static link, or it is a
1040 -Bsymbolic link and the symbol is defined locally,
1041 or is undefweak, or the symbol was forced to be
1042 local because of a version file, or we're not
1043 creating a dynamic object. We must initialize this
1044 entry in the global offset table. Since the offset
1045 must always be a multiple of 4, we use the least
1046 significant bit to record whether we have
1047 initialized it already.
1048
1049 If this GOT entry should be runtime-initialized, we
1050 will create a .rela.got relocation entry to
1051 initialize the value. This is done in the
1052 finish_dynamic_symbol routine. */
1053 if ((off & 1) != 0)
1054 off &= ~1;
1055 else
1056 {
1057 bfd_put_32 (output_bfd, relocation,
1058 sgot->contents + off);
1059 h->got.offset |= 1;
1060 }
1061 }
1062 }
1063 else
1064 {
1065 BFD_ASSERT (local_got_offsets != NULL
1066 && local_got_offsets[r_symndx] != (bfd_vma) -1);
1067
1068 off = local_got_offsets[r_symndx];
1069
1070 /* The offset must always be a multiple of 4. We use
1071 the least significant bit to record whether we have
1072 already generated the necessary reloc. */
1073 if ((off & 1) != 0)
1074 off &= ~1;
1075 else
1076 {
1077 bfd_put_32 (output_bfd, relocation, sgot->contents + off);
1078
1079 if (info->shared)
1080 {
1081 asection *srelgot;
1082 Elf_Internal_Rela outrel;
1083
1084 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1085 BFD_ASSERT (srelgot != NULL);
1086
1087 outrel.r_offset = (sgot->output_section->vma
1088 + sgot->output_offset
1089 + off);
1090 outrel.r_info = ELF32_R_INFO (0, R_CRIS_RELATIVE);
1091 outrel.r_addend = relocation;
1092 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1093 (((Elf32_External_Rela *)
1094 srelgot->contents)
1095 + srelgot->reloc_count));
1096 ++srelgot->reloc_count;
1097 }
1098
1099 local_got_offsets[r_symndx] |= 1;
1100 }
1101 }
1102
1103 relocation = sgot->output_offset + off;
1104 if (rel->r_addend != 0)
1105 {
1106 /* We can't do anything for a relocation which is against
1107 a symbol *plus offset*. GOT holds relocations for
1108 symbols. Make this an error; the compiler isn't
1109 allowed to pass us these kinds of things. */
1110 if (h == NULL)
1111 (*_bfd_error_handler)
1112 (_("%s: relocation %s with non-zero addend %d against local symbol from %s section"),
1113 bfd_archive_filename (input_bfd),
1114 cris_elf_howto_table[r_type].name,
1115 rel->r_addend,
1116 bfd_get_section_name (input_bfd, input_section));
1117 else
1118 (*_bfd_error_handler)
1119 (_("%s: relocation %s with non-zero addend %d against symbol `%s' from %s section"),
1120 bfd_archive_filename (input_bfd),
1121 cris_elf_howto_table[r_type].name,
1122 rel->r_addend,
1123 symname[0] != '\0' ? symname : _("[whose name is lost]"),
1124 bfd_get_section_name (input_bfd, input_section));
1125
1126 bfd_set_error (bfd_error_bad_value);
1127 return false;
1128 }
1129 }
1130 break;
1131
1132 case R_CRIS_32_GOTREL:
1133 /* This relocation must only be performed against local symbols. */
1134 if (h != NULL && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
1135 {
1136 (*_bfd_error_handler)
1137 (_("%s: relocation %s is not allowed for global symbol: `%s' from %s section"),
1138 bfd_archive_filename (input_bfd),
1139 cris_elf_howto_table[r_type].name,
1140 symname,
1141 bfd_get_section_name (input_bfd, input_section));
1142 bfd_set_error (bfd_error_bad_value);
1143 return false;
1144 }
1145
1146 /* This can happen if we get a link error with the input ELF
1147 variant mismatching the output variant. Emit an error so
1148 it's noticed if it happens elsewhere. */
1149 if (sgot == NULL)
1150 {
1151 (*_bfd_error_handler)
1152 (_("%s: relocation %s in section %s with no GOT created"),
1153 bfd_archive_filename (input_bfd),
1154 cris_elf_howto_table[r_type].name,
1155 bfd_get_section_name (input_bfd, input_section));
1156 bfd_set_error (bfd_error_bad_value);
1157 return false;
1158 }
1159
1160 /* This relocation is like a PC-relative one, except the
1161 reference point is the location of GOT. Note that
1162 sgot->output_offset is not involved in this calculation. We
1163 always want the start of entire .got section, not the
1164 position after the reserved header. */
1165 relocation -= sgot->output_section->vma;
1166 break;
1167
1168 case R_CRIS_32_PLT_PCREL:
1169 /* Relocation is to the entry for this symbol in the
1170 procedure linkage table. */
1171
1172 /* Resolve a PLT_PCREL reloc against a local symbol directly,
1173 without using the procedure linkage table. */
1174 if (h == NULL || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
1175 break;
1176
1177 if (h->plt.offset == (bfd_vma) -1
1178 || splt == NULL)
1179 {
1180 /* We didn't make a PLT entry for this symbol. This
1181 happens when statically linking PIC code, or when
1182 using -Bsymbolic. */
1183 break;
1184 }
1185
1186 relocation = (splt->output_section->vma
1187 + splt->output_offset
1188 + h->plt.offset);
1189 break;
1190
1191 case R_CRIS_32_PLT_GOTREL:
1192 /* Like R_CRIS_32_PLT_PCREL, but the reference point is the
1193 start of the .got section. See also comment at
1194 R_CRIS_32_GOT. */
1195 relocation -= sgot->output_section->vma;
1196
1197 /* Resolve a PLT_GOTREL reloc against a local symbol directly,
1198 without using the procedure linkage table. */
1199 if (h == NULL || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
1200 break;
1201
1202 if (h->plt.offset == (bfd_vma) -1
1203 || splt == NULL)
1204 {
1205 /* We didn't make a PLT entry for this symbol. This
1206 happens when statically linking PIC code, or when
1207 using -Bsymbolic. */
1208 break;
1209 }
1210
1211 relocation = (splt->output_section->vma
1212 + splt->output_offset
1213 + h->plt.offset
1214 - sgot->output_section->vma);
1215 break;
1216
1217 case R_CRIS_8_PCREL:
1218 case R_CRIS_16_PCREL:
1219 case R_CRIS_32_PCREL:
1220 /* If the symbol was local, we need no shlib-specific handling. */
1221 if (h == NULL || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
1222 break;
1223
1224 /* Fall through. */
1225 case R_CRIS_8:
1226 case R_CRIS_16:
1227 case R_CRIS_32:
1228 if (info->shared
1229 && r_symndx != 0
1230 && (input_section->flags & SEC_ALLOC) != 0
1231 && ((r_type != R_CRIS_8_PCREL
1232 && r_type != R_CRIS_16_PCREL
1233 && r_type != R_CRIS_32_PCREL)
1234 || (!info->symbolic
1235 || (h->elf_link_hash_flags
1236 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
1237 {
1238 Elf_Internal_Rela outrel;
1239 boolean skip, relocate;
1240
1241 /* When generating a shared object, these relocations
1242 are copied into the output file to be resolved at run
1243 time. */
1244
1245 if (sreloc == NULL)
1246 {
1247 const char *name;
1248
1249 name = (bfd_elf_string_from_elf_section
1250 (input_bfd,
1251 elf_elfheader (input_bfd)->e_shstrndx,
1252 elf_section_data (input_section)->rel_hdr.sh_name));
1253 if (name == NULL)
1254 return false;
1255
1256 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
1257 && strcmp (bfd_get_section_name (input_bfd,
1258 input_section),
1259 name + 5) == 0);
1260
1261 sreloc = bfd_get_section_by_name (dynobj, name);
1262
1263 /* That section should have been created in
1264 cris_elf_check_relocs, but that function will not be
1265 called for objects which fail in
1266 cris_elf_merge_private_bfd_data. */
1267 if (sreloc == NULL)
1268 {
1269 (*_bfd_error_handler)
1270 (_("%s: Internal inconsistency; no relocation section %s"),
1271 bfd_archive_filename (input_bfd),
1272 name);
1273
1274 bfd_set_error (bfd_error_bad_value);
1275 return false;
1276 }
1277 }
1278
1279 skip = false;
1280 relocate = false;
1281
1282 outrel.r_offset =
1283 _bfd_elf_section_offset (output_bfd, info, input_section,
1284 rel->r_offset);
1285 if (outrel.r_offset == (bfd_vma) -1)
1286 skip = true;
1287 else if (outrel.r_offset == (bfd_vma) -2)
1288 skip = true, relocate = true;
1289 outrel.r_offset += (input_section->output_section->vma
1290 + input_section->output_offset);
1291
1292 if (skip)
1293 memset (&outrel, 0, sizeof outrel);
1294 /* h->dynindx may be -1 if the symbol was marked to
1295 become local. */
1296 else if (h != NULL
1297 && ((! info->symbolic && h->dynindx != -1)
1298 || (h->elf_link_hash_flags
1299 & ELF_LINK_HASH_DEF_REGULAR) == 0))
1300 {
1301 BFD_ASSERT (h->dynindx != -1);
1302 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
1303 outrel.r_addend = relocation + rel->r_addend;
1304 }
1305 else
1306 {
1307 if (r_type == R_CRIS_32)
1308 {
1309 relocate = true;
1310 outrel.r_info = ELF32_R_INFO (0, R_CRIS_RELATIVE);
1311 outrel.r_addend = relocation + rel->r_addend;
1312 }
1313 else
1314 {
1315 long indx;
1316
1317 if (h == NULL)
1318 sec = local_sections[r_symndx];
1319 else
1320 {
1321 BFD_ASSERT (h->root.type == bfd_link_hash_defined
1322 || (h->root.type
1323 == bfd_link_hash_defweak));
1324 sec = h->root.u.def.section;
1325 }
1326 if (sec != NULL && bfd_is_abs_section (sec))
1327 indx = 0;
1328 else if (sec == NULL || sec->owner == NULL)
1329 {
1330 bfd_set_error (bfd_error_bad_value);
1331 return false;
1332 }
1333 else
1334 {
1335 asection *osec;
1336
1337 osec = sec->output_section;
1338 indx = elf_section_data (osec)->dynindx;
1339 BFD_ASSERT (indx > 0);
1340 }
1341
1342 outrel.r_info = ELF32_R_INFO (indx, r_type);
1343 outrel.r_addend = relocation + rel->r_addend;
1344 }
1345 }
1346
1347 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1348 (((Elf32_External_Rela *)
1349 sreloc->contents)
1350 + sreloc->reloc_count));
1351 ++sreloc->reloc_count;
1352
1353 /* This reloc will be computed at runtime, so there's no
1354 need to do anything now, except for R_CRIS_32 relocations
1355 that have been turned into R_CRIS_RELATIVE. */
1356 if (!relocate)
1357 continue;
1358 }
1359
1360 break;
1361 }
1362
1363 r = cris_final_link_relocate (howto, input_bfd, input_section,
1364 contents, rel, relocation);
1365
1366 if (r != bfd_reloc_ok)
1367 {
1368 const char * msg = (const char *) NULL;
1369
1370 switch (r)
1371 {
1372 case bfd_reloc_overflow:
1373 r = info->callbacks->reloc_overflow
1374 (info, symname, howto->name, (bfd_vma) 0,
1375 input_bfd, input_section, rel->r_offset);
1376 break;
1377
1378 case bfd_reloc_undefined:
1379 r = info->callbacks->undefined_symbol
1380 (info, symname, input_bfd, input_section, rel->r_offset,
1381 true);
1382 break;
1383
1384 case bfd_reloc_outofrange:
1385 msg = _("internal error: out of range error");
1386 break;
1387
1388 case bfd_reloc_notsupported:
1389 msg = _("internal error: unsupported relocation error");
1390 break;
1391
1392 case bfd_reloc_dangerous:
1393 msg = _("internal error: dangerous relocation");
1394 break;
1395
1396 default:
1397 msg = _("internal error: unknown error");
1398 break;
1399 }
1400
1401 if (msg)
1402 r = info->callbacks->warning
1403 (info, msg, symname, input_bfd, input_section, rel->r_offset);
1404
1405 if (! r)
1406 return false;
1407 }
1408 }
1409
1410 return true;
1411 }
1412 \f
1413 /* Finish up dynamic symbol handling. We set the contents of various
1414 dynamic sections here. */
1415
1416 static boolean
1417 elf_cris_finish_dynamic_symbol (output_bfd, info, h, sym)
1418 bfd *output_bfd;
1419 struct bfd_link_info *info;
1420 struct elf_link_hash_entry *h;
1421 Elf_Internal_Sym *sym;
1422 {
1423 bfd *dynobj;
1424 int plt_off1 = 2, plt_off2 = 10, plt_off3 = 16;
1425
1426 dynobj = elf_hash_table (info)->dynobj;
1427
1428 if (h->plt.offset != (bfd_vma) -1)
1429 {
1430 asection *splt;
1431 asection *sgotplt;
1432 asection *sgot;
1433 asection *srela;
1434 bfd_vma got_base;
1435
1436 bfd_vma gotplt_offset
1437 = ((struct elf_cris_link_hash_entry *) h)->gotplt_offset;
1438 Elf_Internal_Rela rela;
1439 boolean has_gotplt = gotplt_offset != 0;
1440
1441 /* Get the index in the procedure linkage table which
1442 corresponds to this symbol. This is the index of this symbol
1443 in all the symbols for which we are making plt entries. The
1444 first entry in the procedure linkage table is reserved. */
1445 /* We have to count backwards here, and the result is only valid as
1446 an index into .got.plt and its relocations. FIXME: Constants... */
1447 bfd_vma gotplt_index = gotplt_offset/4 - 3;
1448
1449 /* Get the offset into the .got table of the entry that corresponds
1450 to this function. Note that we embed knowledge that "incoming"
1451 .got goes after .got.plt in the output without padding (pointer
1452 aligned). However, that knowledge is present in several other
1453 places too, here and in elflink.h at least. */
1454 bfd_vma got_offset
1455 = (has_gotplt
1456 ? gotplt_offset
1457 : h->got.offset + elf_cris_hash_table(info)->next_gotplt_entry);
1458
1459 /* This symbol has an entry in the procedure linkage table. Set it
1460 up. */
1461
1462 BFD_ASSERT (h->dynindx != -1);
1463
1464 splt = bfd_get_section_by_name (dynobj, ".plt");
1465 sgot = bfd_get_section_by_name (dynobj, ".got");
1466 sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
1467 srela = bfd_get_section_by_name (dynobj, ".rela.plt");
1468 BFD_ASSERT (splt != NULL && sgotplt != NULL
1469 && (! has_gotplt || srela != NULL));
1470
1471 got_base = sgotplt->output_section->vma + sgotplt->output_offset;
1472
1473 /* Fill in the entry in the procedure linkage table. */
1474 if (! info->shared)
1475 {
1476 memcpy (splt->contents + h->plt.offset, elf_cris_plt_entry,
1477 PLT_ENTRY_SIZE);
1478
1479 /* We need to enter the absolute address of the GOT entry here. */
1480 bfd_put_32 (output_bfd, got_base + got_offset,
1481 splt->contents + h->plt.offset + plt_off1);
1482 }
1483 else
1484 {
1485 memcpy (splt->contents + h->plt.offset, elf_cris_pic_plt_entry,
1486 PLT_ENTRY_SIZE);
1487 bfd_put_32 (output_bfd, got_offset,
1488 splt->contents + h->plt.offset + plt_off1);
1489 }
1490
1491 /* Fill in the plt entry and make a relocation, if this is a "real"
1492 PLT entry. */
1493 if (has_gotplt)
1494 {
1495 /* Fill in the offset into the reloc table. */
1496 bfd_put_32 (output_bfd,
1497 gotplt_index * sizeof (Elf32_External_Rela),
1498 splt->contents + h->plt.offset + plt_off2);
1499
1500 /* Fill in the offset to the first PLT entry, where to "jump". */
1501 bfd_put_32 (output_bfd, - (h->plt.offset + plt_off3 + 4),
1502 splt->contents + h->plt.offset + plt_off3);
1503
1504 /* Fill in the entry in the global offset table with the address of
1505 the relocating stub. */
1506 bfd_put_32 (output_bfd,
1507 (splt->output_section->vma
1508 + splt->output_offset
1509 + h->plt.offset
1510 + 8),
1511 sgotplt->contents + got_offset);
1512
1513 /* Fill in the entry in the .rela.plt section. */
1514 rela.r_offset = (sgotplt->output_section->vma
1515 + sgotplt->output_offset
1516 + got_offset);
1517 rela.r_info = ELF32_R_INFO (h->dynindx, R_CRIS_JUMP_SLOT);
1518 rela.r_addend = 0;
1519 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1520 ((Elf32_External_Rela *) srela->contents
1521 + gotplt_index));
1522 }
1523
1524 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1525 {
1526 /* Mark the symbol as undefined, rather than as defined in
1527 the .plt section. Leave the value alone. */
1528 sym->st_shndx = SHN_UNDEF;
1529
1530 /* FIXME: From elf32-sparc.c 2001-02-19 (1.18). I still don't
1531 know whether resetting the value is significant; if it really
1532 is, rather than a quirk or bug in the sparc port, then I
1533 believe we'd see this elsewhere. */
1534 /* If the symbol is weak, we do need to clear the value.
1535 Otherwise, the PLT entry would provide a definition for
1536 the symbol even if the symbol wasn't defined anywhere,
1537 and so the symbol would never be NULL. */
1538 if ((h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR_NONWEAK)
1539 == 0)
1540 sym->st_value = 0;
1541 }
1542 }
1543
1544 /* We don't emit .got relocs for symbols that aren't in the
1545 dynamic-symbols table for an ordinary program and are either defined
1546 by the program or are undefined weak symbols. */
1547 if (h->got.offset != (bfd_vma) -1
1548 && (info->shared
1549 || (h->dynindx != -1
1550 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0
1551 && h->root.type != bfd_link_hash_undefweak)))
1552 {
1553 asection *sgot;
1554 asection *srela;
1555 Elf_Internal_Rela rela;
1556 bfd_byte *where;
1557
1558 /* This symbol has an entry in the global offset table. Set it up. */
1559
1560 sgot = bfd_get_section_by_name (dynobj, ".got");
1561 srela = bfd_get_section_by_name (dynobj, ".rela.got");
1562 BFD_ASSERT (sgot != NULL && srela != NULL);
1563
1564 rela.r_offset = (sgot->output_section->vma
1565 + sgot->output_offset
1566 + (h->got.offset &~ (bfd_vma) 1));
1567
1568 /* If this is a static link, or it is a -Bsymbolic link and the
1569 symbol is defined locally or was forced to be local because
1570 of a version file, we just want to emit a RELATIVE reloc.
1571 The entry in the global offset table will already have been
1572 initialized in the relocate_section function. */
1573 where = sgot->contents + (h->got.offset &~ (bfd_vma) 1);
1574 if (! elf_hash_table (info)->dynamic_sections_created
1575 || (info->shared
1576 && (info->symbolic || h->dynindx == -1)
1577 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
1578 {
1579 rela.r_info = ELF32_R_INFO (0, R_CRIS_RELATIVE);
1580 rela.r_addend = bfd_get_signed_32 (output_bfd, where);
1581 }
1582 else
1583 {
1584 bfd_put_32 (output_bfd, (bfd_vma) 0, where);
1585 rela.r_info = ELF32_R_INFO (h->dynindx, R_CRIS_GLOB_DAT);
1586 rela.r_addend = 0;
1587 }
1588
1589 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1590 ((Elf32_External_Rela *) srela->contents
1591 + srela->reloc_count));
1592 ++srela->reloc_count;
1593 }
1594
1595 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
1596 {
1597 asection *s;
1598 Elf_Internal_Rela rela;
1599
1600 /* This symbol needs a copy reloc. Set it up. */
1601
1602 BFD_ASSERT (h->dynindx != -1
1603 && (h->root.type == bfd_link_hash_defined
1604 || h->root.type == bfd_link_hash_defweak));
1605
1606 s = bfd_get_section_by_name (h->root.u.def.section->owner,
1607 ".rela.bss");
1608 BFD_ASSERT (s != NULL);
1609
1610 rela.r_offset = (h->root.u.def.value
1611 + h->root.u.def.section->output_section->vma
1612 + h->root.u.def.section->output_offset);
1613 rela.r_info = ELF32_R_INFO (h->dynindx, R_CRIS_COPY);
1614 rela.r_addend = 0;
1615 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1616 ((Elf32_External_Rela *) s->contents
1617 + s->reloc_count));
1618 ++s->reloc_count;
1619 }
1620
1621 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */
1622 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
1623 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
1624 sym->st_shndx = SHN_ABS;
1625
1626 return true;
1627 }
1628 \f
1629 /* Finish up the dynamic sections. */
1630
1631 static boolean
1632 elf_cris_finish_dynamic_sections (output_bfd, info)
1633 bfd *output_bfd;
1634 struct bfd_link_info *info;
1635 {
1636 bfd *dynobj;
1637 asection *sgot;
1638 asection *sdyn;
1639
1640 dynobj = elf_hash_table (info)->dynobj;
1641
1642 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
1643 BFD_ASSERT (sgot != NULL);
1644 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
1645
1646 if (elf_hash_table (info)->dynamic_sections_created)
1647 {
1648 asection *splt;
1649 Elf32_External_Dyn *dyncon, *dynconend;
1650
1651 splt = bfd_get_section_by_name (dynobj, ".plt");
1652 BFD_ASSERT (splt != NULL && sdyn != NULL);
1653
1654 dyncon = (Elf32_External_Dyn *) sdyn->contents;
1655 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
1656 for (; dyncon < dynconend; dyncon++)
1657 {
1658 Elf_Internal_Dyn dyn;
1659 asection *s;
1660
1661 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
1662
1663 switch (dyn.d_tag)
1664 {
1665 default:
1666 break;
1667
1668 case DT_PLTGOT:
1669 s = bfd_get_section_by_name (output_bfd, ".got");
1670 BFD_ASSERT (s != NULL);
1671 dyn.d_un.d_ptr = s->vma;
1672 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1673 break;
1674
1675 case DT_JMPREL:
1676 /* Yes, we *can* have a .plt and no .plt.rela, for instance
1677 if all symbols are found in the .got (not .got.plt). */
1678 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1679 dyn.d_un.d_ptr = s != NULL ? s->vma : 0;
1680 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1681 break;
1682
1683 case DT_PLTRELSZ:
1684 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1685 if (s == NULL)
1686 dyn.d_un.d_val = 0;
1687 else if (s->_cooked_size != 0)
1688 dyn.d_un.d_val = s->_cooked_size;
1689 else
1690 dyn.d_un.d_val = s->_raw_size;
1691 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1692 break;
1693
1694 case DT_RELASZ:
1695 /* The procedure linkage table relocs (DT_JMPREL) should
1696 not be included in the overall relocs (DT_RELA).
1697 Therefore, we override the DT_RELASZ entry here to
1698 make it not include the JMPREL relocs. Since the
1699 linker script arranges for .rela.plt to follow all
1700 other relocation sections, we don't have to worry
1701 about changing the DT_RELA entry. */
1702 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1703 if (s != NULL)
1704 {
1705 if (s->_cooked_size != 0)
1706 dyn.d_un.d_val -= s->_cooked_size;
1707 else
1708 dyn.d_un.d_val -= s->_raw_size;
1709 }
1710 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1711 break;
1712 }
1713 }
1714
1715 /* Fill in the first entry in the procedure linkage table. */
1716 if (splt->_raw_size > 0)
1717 {
1718 if (info->shared)
1719 memcpy (splt->contents, elf_cris_pic_plt0_entry, PLT_ENTRY_SIZE);
1720 else
1721 {
1722 memcpy (splt->contents, elf_cris_plt0_entry, PLT_ENTRY_SIZE);
1723 bfd_put_32 (output_bfd,
1724 sgot->output_section->vma + sgot->output_offset + 4,
1725 splt->contents + 6);
1726 bfd_put_32 (output_bfd,
1727 sgot->output_section->vma + sgot->output_offset + 8,
1728 splt->contents + 14);
1729
1730 elf_section_data (splt->output_section)->this_hdr.sh_entsize
1731 = PLT_ENTRY_SIZE;
1732 }
1733 }
1734 }
1735
1736 /* Fill in the first three entries in the global offset table. */
1737 if (sgot->_raw_size > 0)
1738 {
1739 if (sdyn == NULL)
1740 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
1741 else
1742 bfd_put_32 (output_bfd,
1743 sdyn->output_section->vma + sdyn->output_offset,
1744 sgot->contents);
1745 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
1746 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
1747 }
1748
1749 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
1750
1751 return true;
1752 }
1753 \f
1754 /* Return the section that should be marked against GC for a given
1755 relocation. */
1756
1757 static asection *
1758 cris_elf_gc_mark_hook (sec, info, rel, h, sym)
1759 asection * sec;
1760 struct bfd_link_info * info ATTRIBUTE_UNUSED;
1761 Elf_Internal_Rela * rel;
1762 struct elf_link_hash_entry * h;
1763 Elf_Internal_Sym * sym;
1764 {
1765 if (h != NULL)
1766 {
1767 switch (ELF32_R_TYPE (rel->r_info))
1768 {
1769 case R_CRIS_GNU_VTINHERIT:
1770 case R_CRIS_GNU_VTENTRY:
1771 break;
1772
1773 default:
1774 switch (h->root.type)
1775 {
1776 case bfd_link_hash_defined:
1777 case bfd_link_hash_defweak:
1778 return h->root.u.def.section;
1779
1780 case bfd_link_hash_common:
1781 return h->root.u.c.p->section;
1782
1783 default:
1784 break;
1785 }
1786 }
1787 }
1788 else
1789 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
1790
1791 return NULL;
1792 }
1793
1794 /* Update the got entry reference counts for the section being removed. */
1795
1796 static boolean
1797 cris_elf_gc_sweep_hook (abfd, info, sec, relocs)
1798 bfd * abfd ATTRIBUTE_UNUSED;
1799 struct bfd_link_info * info ATTRIBUTE_UNUSED;
1800 asection * sec ATTRIBUTE_UNUSED;
1801 const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED;
1802 {
1803 Elf_Internal_Shdr *symtab_hdr;
1804 struct elf_link_hash_entry **sym_hashes;
1805 bfd_signed_vma *local_got_refcounts;
1806 const Elf_Internal_Rela *rel, *relend;
1807 unsigned long r_symndx;
1808 struct elf_link_hash_entry *h;
1809 bfd *dynobj;
1810 asection *sgot;
1811 asection *srelgot;
1812
1813 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1814 sym_hashes = elf_sym_hashes (abfd);
1815 local_got_refcounts = elf_local_got_refcounts (abfd);
1816
1817 dynobj = elf_hash_table (info)->dynobj;
1818 if (dynobj == NULL)
1819 return true;
1820
1821 sgot = bfd_get_section_by_name (dynobj, ".got");
1822 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1823
1824 relend = relocs + sec->reloc_count;
1825 for (rel = relocs; rel < relend; rel++)
1826 {
1827 switch (ELF32_R_TYPE (rel->r_info))
1828 {
1829 case R_CRIS_16_GOT:
1830 case R_CRIS_32_GOT:
1831 r_symndx = ELF32_R_SYM (rel->r_info);
1832 if (r_symndx >= symtab_hdr->sh_info)
1833 {
1834 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1835 if (h->got.refcount > 0)
1836 {
1837 --h->got.refcount;
1838 if (h->got.refcount == 0)
1839 {
1840 /* We don't need the .got entry any more. */
1841 sgot->_raw_size -= 4;
1842 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
1843 }
1844 }
1845 break;
1846 }
1847
1848 local_got_reloc:
1849 if (local_got_refcounts != NULL)
1850 {
1851 if (local_got_refcounts[r_symndx] > 0)
1852 {
1853 --local_got_refcounts[r_symndx];
1854 if (local_got_refcounts[r_symndx] == 0)
1855 {
1856 /* We don't need the .got entry any more. */
1857 sgot->_raw_size -= 4;
1858 if (info->shared)
1859 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
1860 }
1861 }
1862 }
1863 break;
1864
1865 case R_CRIS_16_GOTPLT:
1866 case R_CRIS_32_GOTPLT:
1867 /* For local symbols, treat these like GOT relocs. */
1868 r_symndx = ELF32_R_SYM (rel->r_info);
1869 if (r_symndx < symtab_hdr->sh_info)
1870 goto local_got_reloc;
1871
1872 case R_CRIS_32_PLT_GOTREL:
1873 /* FIXME: We don't garbage-collect away the .got section. */
1874 if (local_got_refcounts != NULL)
1875 local_got_refcounts[-1]--;
1876 /* Fall through. */
1877
1878 case R_CRIS_8_PCREL:
1879 case R_CRIS_16_PCREL:
1880 case R_CRIS_32_PCREL:
1881 case R_CRIS_32_PLT_PCREL:
1882 r_symndx = ELF32_R_SYM (rel->r_info);
1883 if (r_symndx >= symtab_hdr->sh_info)
1884 {
1885 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1886 if (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1887 && h->plt.refcount > 0)
1888 --h->plt.refcount;
1889 }
1890 break;
1891
1892 default:
1893 break;
1894 }
1895 }
1896
1897 return true;
1898 }
1899
1900 /* Make sure we emit a GOT entry if the symbol was supposed to have a PLT
1901 entry but we found we will not create any. Called when we find we will
1902 not have any PLT for this symbol, by for example
1903 elf_cris_adjust_dynamic_symbol when we're doing a proper dynamic link,
1904 or elf_cris_size_dynamic_sections if no dynamic sections will be
1905 created (we're only linking static objects). */
1906
1907 static boolean
1908 elf_cris_adjust_gotplt_to_got (h, p)
1909 struct elf_cris_link_hash_entry *h;
1910 PTR p;
1911 {
1912 struct bfd_link_info *info = (struct bfd_link_info *) p;
1913 bfd *dynobj = elf_hash_table (info)->dynobj;
1914
1915 BFD_ASSERT (dynobj != NULL);
1916
1917 if (h->root.root.type == bfd_link_hash_warning)
1918 h = (struct elf_cris_link_hash_entry *) h->root.root.u.i.link;
1919
1920 /* If nobody wanted a GOTPLT with this symbol, we're done. */
1921 if (h->gotplt_refcount <= 0)
1922 return true;
1923
1924 if (h->root.got.refcount > 0)
1925 {
1926 /* There's a GOT entry for this symbol. Just adjust the refcount.
1927 Probably not necessary at this stage, but keeping it accurate
1928 helps avoiding surprises later. */
1929 h->root.got.refcount += h->gotplt_refcount;
1930 h->gotplt_refcount = -1;
1931 }
1932 else
1933 {
1934 /* No GOT entry for this symbol. We need to create one. */
1935 asection *sgot = bfd_get_section_by_name (dynobj, ".got");
1936 asection *srelgot
1937 = bfd_get_section_by_name (dynobj, ".rela.got");
1938
1939 /* Put an accurate refcount there. */
1940 h->root.got.refcount = h->gotplt_refcount;
1941
1942 h->gotplt_refcount = -1;
1943
1944 /* We always have a .got and a .rela.got section if there were
1945 GOTPLT relocs in input. */
1946 BFD_ASSERT (sgot != NULL && srelgot != NULL);
1947
1948 /* Allocate space in the .got section. */
1949 sgot->_raw_size += 4;
1950
1951 /* Allocate relocation space. */
1952 srelgot->_raw_size += sizeof (Elf32_External_Rela);
1953 }
1954
1955 return true;
1956 }
1957
1958 /* Try to fold PLT entries with GOT entries. There are two cases when we
1959 want to do this:
1960
1961 - When all PLT references are GOTPLT references, and there are GOT
1962 references. We don't have to generate a PLT at all.
1963
1964 - When there are both (ordinary) PLT references and GOT references.
1965 We want to make the PLT reference use the ordinary GOT entry rather
1966 than a run-time dynamically resolved GOTPLT entry (since the GOT
1967 entry will have to be resolved at startup anyway).
1968
1969 Though the latter case is handled when room for the PLT is allocated,
1970 not here.
1971
1972 Note that this function is called before symbols are forced local by
1973 version scripts. The differing cases are handled by
1974 elf_cris_hide_symbol. */
1975
1976 static boolean
1977 elf_cris_try_fold_plt_to_got (h, p)
1978 struct elf_cris_link_hash_entry *h;
1979 PTR p;
1980 {
1981 struct bfd_link_info *info = (struct bfd_link_info *) p;
1982
1983 /* If there are no GOT references for this symbol, we can't fold any
1984 other reference so there's nothing to do. Likewise if there are no
1985 PLT references; GOTPLT references included. */
1986 if (h->root.got.refcount <= 0 || h->root.plt.refcount <= 0)
1987 return true;
1988
1989 /* GOTPLT relocs are supposed to be included into the PLT refcount. */
1990 BFD_ASSERT (h->gotplt_refcount <= h->root.plt.refcount);
1991
1992 if (h->gotplt_refcount == h->root.plt.refcount)
1993 {
1994 /* The only PLT references are GOTPLT references, and there are GOT
1995 references. Convert PLT to GOT references. */
1996 if (! elf_cris_adjust_gotplt_to_got (h, info))
1997 return false;
1998
1999 /* Clear the PLT references, so no PLT will be created. */
2000 h->root.plt.offset = (bfd_vma) -1;
2001 }
2002
2003 return true;
2004 }
2005
2006 /* Our own version of hide_symbol, so that we can adjust a GOTPLT reloc
2007 to use a GOT entry (and create one) rather than requiring a GOTPLT
2008 entry. */
2009
2010 static void
2011 elf_cris_hide_symbol (info, h, force_local)
2012 struct bfd_link_info *info;
2013 struct elf_link_hash_entry *h;
2014 boolean force_local;
2015 {
2016 elf_cris_adjust_gotplt_to_got ((struct elf_cris_link_hash_entry *) h, info);
2017
2018 _bfd_elf_link_hash_hide_symbol (info, h, force_local);
2019 }
2020
2021 /* Adjust a symbol defined by a dynamic object and referenced by a
2022 regular object. The current definition is in some section of the
2023 dynamic object, but we're not including those sections. We have to
2024 change the definition to something the rest of the link can
2025 understand. */
2026
2027 static boolean
2028 elf_cris_adjust_dynamic_symbol (info, h)
2029 struct bfd_link_info *info;
2030 struct elf_link_hash_entry *h;
2031 {
2032 bfd *dynobj;
2033 asection *s;
2034 unsigned int power_of_two;
2035
2036 dynobj = elf_hash_table (info)->dynobj;
2037
2038 /* Make sure we know what is going on here. */
2039 BFD_ASSERT (dynobj != NULL
2040 && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
2041 || h->weakdef != NULL
2042 || ((h->elf_link_hash_flags
2043 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
2044 && (h->elf_link_hash_flags
2045 & ELF_LINK_HASH_REF_REGULAR) != 0
2046 && (h->elf_link_hash_flags
2047 & ELF_LINK_HASH_DEF_REGULAR) == 0)));
2048
2049 /* If this is a function, put it in the procedure linkage table. We
2050 will fill in the contents of the procedure linkage table later,
2051 when we know the address of the .got section. */
2052 if (h->type == STT_FUNC
2053 || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
2054 {
2055 /* If we link a program (not a DSO), we'll get rid of unnecessary
2056 PLT entries; we point to the actual symbols -- even for pic
2057 relocs, because a program built with -fpic should have the same
2058 result as one built without -fpic, specifically considering weak
2059 symbols.
2060 FIXME: m68k and i386 differ here, for unclear reasons. */
2061 if (! info->shared
2062 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0)
2063 {
2064 /* This case can occur if we saw a PLT reloc in an input file,
2065 but the symbol was not defined by a dynamic object. In such
2066 a case, we don't actually need to build a procedure linkage
2067 table, and we can just do an absolute or PC reloc instead, or
2068 change a .got.plt index to a .got index for GOTPLT relocs. */
2069 BFD_ASSERT ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0);
2070 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
2071 h->plt.offset = (bfd_vma) -1;
2072 return
2073 elf_cris_adjust_gotplt_to_got ((struct
2074 elf_cris_link_hash_entry *) h,
2075 info);
2076 }
2077
2078 /* If there are only GOT references and GOTPLT references to this
2079 PLT entry, get rid of the PLT. */
2080 if (! elf_cris_try_fold_plt_to_got ((struct elf_cris_link_hash_entry *)
2081 h, info))
2082 return false;
2083
2084 /* GC or folding may have rendered this entry unused. */
2085 if (h->plt.refcount <= 0)
2086 {
2087 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
2088 h->plt.offset = (bfd_vma) -1;
2089 return true;
2090 }
2091
2092 /* Make sure this symbol is output as a dynamic symbol. */
2093 if (h->dynindx == -1)
2094 {
2095 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
2096 return false;
2097 }
2098
2099 s = bfd_get_section_by_name (dynobj, ".plt");
2100 BFD_ASSERT (s != NULL);
2101
2102 /* If this is the first .plt entry, make room for the special
2103 first entry. */
2104 if (s->_raw_size == 0)
2105 s->_raw_size += PLT_ENTRY_SIZE;
2106
2107 /* If this symbol is not defined in a regular file, and we are
2108 not generating a shared library, then set the symbol to this
2109 location in the .plt. */
2110 if (!info->shared
2111 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
2112 {
2113 h->root.u.def.section = s;
2114 h->root.u.def.value = s->_raw_size;
2115 }
2116
2117 /* If there's already a GOT entry, use that, not a .got.plt. A
2118 GOT field still has a reference count when we get here; it's
2119 not yet changed to an offset. */
2120 if (h->got.refcount > 0)
2121 {
2122 h->got.refcount += h->plt.refcount;
2123
2124 /* Mark the PLT offset to use the GOT entry by setting the low
2125 bit in the plt offset; it is always a multiple of
2126 pointer-size. */
2127 BFD_ASSERT ((s->_raw_size & 3) == 0);
2128
2129 /* Change the PLT refcount to an offset. */
2130 h->plt.offset = s->_raw_size;
2131
2132 /* By not setting gotplt_offset (i.e. it remains at 0), we signal
2133 that the got entry should be used instead. */
2134 BFD_ASSERT (((struct elf_cris_link_hash_entry *)
2135 h)->gotplt_offset == 0);
2136
2137 /* Make room for this entry. */
2138 s->_raw_size += PLT_ENTRY_SIZE;
2139
2140 return true;
2141 }
2142
2143 /* No GOT reference for this symbol; prepare for an ordinary PLT. */
2144 h->plt.offset = s->_raw_size;
2145
2146 /* Make room for this entry. */
2147 s->_raw_size += PLT_ENTRY_SIZE;
2148
2149 /* We also need to make an entry in the .got.plt section, which
2150 will be placed in the .got section by the linker script. */
2151 ((struct elf_cris_link_hash_entry *) h)->gotplt_offset
2152 = elf_cris_hash_table (info)->next_gotplt_entry;
2153 elf_cris_hash_table (info)->next_gotplt_entry += 4;
2154
2155 s = bfd_get_section_by_name (dynobj, ".got.plt");
2156 BFD_ASSERT (s != NULL);
2157 s->_raw_size += 4;
2158
2159 /* We also need to make an entry in the .rela.plt section. */
2160
2161 s = bfd_get_section_by_name (dynobj, ".rela.plt");
2162 BFD_ASSERT (s != NULL);
2163 s->_raw_size += sizeof (Elf32_External_Rela);
2164
2165 return true;
2166 }
2167
2168 /* Reinitialize the plt offset now that it is not used as a reference
2169 count any more. */
2170 h->plt.offset = (bfd_vma) -1;
2171
2172 /* If this is a weak symbol, and there is a real definition, the
2173 processor independent code will have arranged for us to see the
2174 real definition first, and we can just use the same value. */
2175 if (h->weakdef != NULL)
2176 {
2177 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
2178 || h->weakdef->root.type == bfd_link_hash_defweak);
2179 h->root.u.def.section = h->weakdef->root.u.def.section;
2180 h->root.u.def.value = h->weakdef->root.u.def.value;
2181 return true;
2182 }
2183
2184 /* This is a reference to a symbol defined by a dynamic object which
2185 is not a function. */
2186
2187 /* If we are creating a shared library, we must presume that the
2188 only references to the symbol are via the global offset table.
2189 For such cases we need not do anything here; the relocations will
2190 be handled correctly by relocate_section. */
2191 if (info->shared)
2192 return true;
2193
2194 /* If there are no references to this symbol that do not use the
2195 GOT, we don't need to generate a copy reloc. */
2196 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0)
2197 return true;
2198
2199 /* We must allocate the symbol in our .dynbss section, which will
2200 become part of the .bss section of the executable. There will be
2201 an entry for this symbol in the .dynsym section. The dynamic
2202 object will contain position independent code, so all references
2203 from the dynamic object to this symbol will go through the global
2204 offset table. The dynamic linker will use the .dynsym entry to
2205 determine the address it must put in the global offset table, so
2206 both the dynamic object and the regular object will refer to the
2207 same memory location for the variable. */
2208
2209 s = bfd_get_section_by_name (dynobj, ".dynbss");
2210 BFD_ASSERT (s != NULL);
2211
2212 /* We must generate a R_CRIS_COPY reloc to tell the dynamic linker to
2213 copy the initial value out of the dynamic object and into the
2214 runtime process image. We need to remember the offset into the
2215 .rela.bss section we are going to use. */
2216 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
2217 {
2218 asection *srel;
2219
2220 srel = bfd_get_section_by_name (dynobj, ".rela.bss");
2221 BFD_ASSERT (srel != NULL);
2222 srel->_raw_size += sizeof (Elf32_External_Rela);
2223 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
2224 }
2225
2226 /* Historic precedent: m68k and i386 allow max 8-byte alignment for the
2227 thing to copy; so do we. */
2228
2229 /* We need to figure out the alignment required for this symbol. I
2230 have no idea how ELF linkers handle this. */
2231 power_of_two = bfd_log2 (h->size);
2232 if (power_of_two > 3)
2233 power_of_two = 3;
2234
2235 /* Apply the required alignment. */
2236 s->_raw_size = BFD_ALIGN (s->_raw_size,
2237 (bfd_size_type) (1 << power_of_two));
2238 if (power_of_two > bfd_get_section_alignment (dynobj, s))
2239 {
2240 if (!bfd_set_section_alignment (dynobj, s, power_of_two))
2241 return false;
2242 }
2243
2244 /* Define the symbol as being at this point in the section. */
2245 h->root.u.def.section = s;
2246 h->root.u.def.value = s->_raw_size;
2247
2248 /* Increment the section size to make room for the symbol. */
2249 s->_raw_size += h->size;
2250
2251 return true;
2252 }
2253
2254 /* Look through the relocs for a section during the first phase. */
2255
2256 static boolean
2257 cris_elf_check_relocs (abfd, info, sec, relocs)
2258 bfd *abfd;
2259 struct bfd_link_info *info;
2260 asection *sec;
2261 const Elf_Internal_Rela *relocs;
2262 {
2263 bfd *dynobj;
2264 Elf_Internal_Shdr *symtab_hdr;
2265 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
2266 bfd_signed_vma *local_got_refcounts;
2267 const Elf_Internal_Rela *rel;
2268 const Elf_Internal_Rela *rel_end;
2269 asection *sgot;
2270 asection *srelgot;
2271 asection *sreloc;
2272
2273 if (info->relocateable)
2274 return true;
2275
2276 dynobj = elf_hash_table (info)->dynobj;
2277 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2278 sym_hashes = elf_sym_hashes (abfd);
2279 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
2280 local_got_refcounts = elf_local_got_refcounts (abfd);
2281
2282 sgot = NULL;
2283 srelgot = NULL;
2284 sreloc = NULL;
2285
2286 if (!elf_bad_symtab (abfd))
2287 sym_hashes_end -= symtab_hdr->sh_info;
2288
2289 rel_end = relocs + sec->reloc_count;
2290 for (rel = relocs; rel < rel_end; rel++)
2291 {
2292 struct elf_link_hash_entry *h;
2293 unsigned long r_symndx;
2294 enum elf_cris_reloc_type r_type;
2295
2296 r_symndx = ELF32_R_SYM (rel->r_info);
2297 if (r_symndx < symtab_hdr->sh_info)
2298 h = NULL;
2299 else
2300 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2301
2302 r_type = ELF32_R_TYPE (rel->r_info);
2303
2304 /* Some relocs require linker-created sections; we need to hang them
2305 on the first input bfd we found that contained dynamic relocs. */
2306 switch (r_type)
2307 {
2308 case R_CRIS_16_GOT:
2309 case R_CRIS_32_GOT:
2310 case R_CRIS_32_GOTREL:
2311 case R_CRIS_32_PLT_GOTREL:
2312 case R_CRIS_32_PLT_PCREL:
2313 case R_CRIS_16_GOTPLT:
2314 case R_CRIS_32_GOTPLT:
2315 if (dynobj == NULL)
2316 {
2317 elf_hash_table (info)->dynobj = dynobj = abfd;
2318
2319 /* Create the .got section, so we can assume it's always
2320 present whenever there's a dynobj. */
2321 if (!_bfd_elf_create_got_section (dynobj, info))
2322 return false;
2323 }
2324 break;
2325
2326 default:
2327 break;
2328 }
2329
2330 /* Some relocs require a global offset table (but perhaps not a
2331 specific GOT entry). */
2332 switch (r_type)
2333 {
2334 /* For R_CRIS_16_GOTPLT and R_CRIS_32_GOTPLT, we need a GOT
2335 entry only for local symbols. Unfortunately, we don't know
2336 until later on if there's a version script that forces the
2337 symbol local. We must have the .rela.got section in place
2338 before we know if the symbol looks global now, so we need
2339 to treat the reloc just like for R_CRIS_16_GOT and
2340 R_CRIS_32_GOT. */
2341 case R_CRIS_16_GOTPLT:
2342 case R_CRIS_32_GOTPLT:
2343 case R_CRIS_16_GOT:
2344 case R_CRIS_32_GOT:
2345 if (srelgot == NULL
2346 && (h != NULL || info->shared))
2347 {
2348 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2349 if (srelgot == NULL)
2350 {
2351 srelgot = bfd_make_section (dynobj, ".rela.got");
2352 if (srelgot == NULL
2353 || !bfd_set_section_flags (dynobj, srelgot,
2354 (SEC_ALLOC
2355 | SEC_LOAD
2356 | SEC_HAS_CONTENTS
2357 | SEC_IN_MEMORY
2358 | SEC_LINKER_CREATED
2359 | SEC_READONLY))
2360 || !bfd_set_section_alignment (dynobj, srelgot, 2))
2361 return false;
2362 }
2363 }
2364 /* Fall through. */
2365
2366 case R_CRIS_32_GOTREL:
2367 case R_CRIS_32_PLT_GOTREL:
2368 if (sgot == NULL)
2369 sgot = bfd_get_section_by_name (dynobj, ".got");
2370
2371 if (local_got_refcounts == NULL)
2372 {
2373 bfd_size_type amt;
2374
2375 /* We use index local_got_refcounts[-1] to count all
2376 GOT-relative relocations that do not have explicit
2377 GOT entries. */
2378 amt = symtab_hdr->sh_info + 1;
2379 amt *= sizeof (bfd_signed_vma);
2380 local_got_refcounts = ((bfd_signed_vma *) bfd_zalloc (abfd, amt));
2381 if (local_got_refcounts == NULL)
2382 return false;
2383
2384 local_got_refcounts++;
2385 elf_local_got_refcounts (abfd) = local_got_refcounts;
2386 }
2387 break;
2388
2389 default:
2390 break;
2391 }
2392
2393 switch (r_type)
2394 {
2395 case R_CRIS_16_GOTPLT:
2396 case R_CRIS_32_GOTPLT:
2397 /* Mark that we need a GOT entry if the PLT entry (and its GOT
2398 entry) is eliminated. We can only do this for a non-local
2399 symbol. */
2400 if (h != NULL)
2401 {
2402 ((struct elf_cris_link_hash_entry *) h)->gotplt_refcount++;
2403 goto handle_gotplt_reloc;
2404 }
2405 /* If h is NULL then this is a local symbol, and we must make a
2406 GOT entry for it, so handle it like a GOT reloc. */
2407 /* Fall through. */
2408
2409 case R_CRIS_16_GOT:
2410 case R_CRIS_32_GOT:
2411 /* This symbol requires a global offset table entry. */
2412 if (h != NULL)
2413 {
2414 if (h->got.refcount == 0)
2415 {
2416 /* Make sure this symbol is output as a dynamic symbol. */
2417 if (h->dynindx == -1)
2418 {
2419 if (!bfd_elf32_link_record_dynamic_symbol (info, h))
2420 return false;
2421 }
2422
2423 /* Allocate space in the .got section. */
2424 sgot->_raw_size += 4;
2425 /* Allocate relocation space. */
2426 srelgot->_raw_size += sizeof (Elf32_External_Rela);
2427 }
2428 h->got.refcount++;
2429 }
2430 else
2431 {
2432 /* This is a global offset table entry for a local symbol. */
2433 if (local_got_refcounts[r_symndx] == 0)
2434 {
2435 sgot->_raw_size += 4;
2436 if (info->shared)
2437 {
2438 /* If we are generating a shared object, we need to
2439 output a R_CRIS_RELATIVE reloc so that the dynamic
2440 linker can adjust this GOT entry. */
2441 srelgot->_raw_size += sizeof (Elf32_External_Rela);
2442 }
2443 }
2444 local_got_refcounts[r_symndx]++;
2445 }
2446 break;
2447
2448 case R_CRIS_32_GOTREL:
2449 /* This reference requires a global offset table.
2450 FIXME: The actual refcount isn't used currently; the .got
2451 section can't be removed if there were any references in the
2452 input. */
2453 local_got_refcounts[-1]++;
2454 break;
2455
2456 handle_gotplt_reloc:
2457
2458 case R_CRIS_32_PLT_GOTREL:
2459 /* This reference requires a global offset table. */
2460 local_got_refcounts[-1]++;
2461 /* Fall through. */
2462
2463 case R_CRIS_32_PLT_PCREL:
2464 /* This symbol requires a procedure linkage table entry. We
2465 actually build the entry in adjust_dynamic_symbol,
2466 because this might be a case of linking PIC code which is
2467 never referenced by a dynamic object, in which case we
2468 don't need to generate a procedure linkage table entry
2469 after all. */
2470
2471 /* If this is a local symbol, we resolve it directly without
2472 creating a procedure linkage table entry. */
2473 if (h == NULL || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
2474 continue;
2475
2476 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2477 h->plt.refcount++;
2478 break;
2479
2480 case R_CRIS_8:
2481 case R_CRIS_16:
2482 case R_CRIS_32:
2483 /* Let's help debug shared library creation. Any of these
2484 relocs can be used in shared libs, but pages containing them
2485 cannot be shared. Don't warn for sections we don't care
2486 about, such as debug sections or non-constant sections. We
2487 can't help tables of (global) function pointers, for example,
2488 though they must be emitted in a data section to avoid having
2489 impure text sections. */
2490 if (info->shared
2491 && (sec->flags & SEC_ALLOC) != 0
2492 && (sec->flags & SEC_READONLY) != 0)
2493 {
2494 /* FIXME: How do we make this optionally a warning only? */
2495 (*_bfd_error_handler)
2496 (_("%s, section %s:\n relocation %s should not be used in a shared object; recompile with -fPIC"),
2497 bfd_archive_filename (abfd),
2498 sec->name,
2499 cris_elf_howto_table[r_type].name);
2500 }
2501 /* Fall through. */
2502
2503 case R_CRIS_8_PCREL:
2504 case R_CRIS_16_PCREL:
2505 case R_CRIS_32_PCREL:
2506 if (h != NULL)
2507 {
2508 h->elf_link_hash_flags |= ELF_LINK_NON_GOT_REF;
2509
2510 /* Make sure a plt entry is created for this symbol if it
2511 turns out to be a function defined by a dynamic object. */
2512 if (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
2513 h->plt.refcount++;
2514 }
2515
2516 /* If we are creating a shared library and this is not a local
2517 symbol, we need to copy the reloc into the shared library.
2518 However when linking with -Bsymbolic and this is a global
2519 symbol which is defined in an object we are including in the
2520 link (i.e., DEF_REGULAR is set), then we can resolve the
2521 reloc directly. At this point we have not seen all the input
2522 files, so it is possible that DEF_REGULAR is not set now but
2523 will be set later (it is never cleared). In case of a weak
2524 definition, DEF_REGULAR may be cleared later by a strong
2525 definition in a shared library. We account for that
2526 possibility below by storing information in the relocs_copied
2527 field of the hash table entry. A similar situation occurs
2528 when creating shared libraries and symbol visibility changes
2529 render the symbol local. */
2530
2531 /* No need to do anything if we're not creating a shared object. */
2532 if (! info->shared)
2533 break;
2534
2535 /* We don't need to handle relocs into sections not going into
2536 the "real" output. */
2537 if ((sec->flags & SEC_ALLOC) == 0)
2538 break;
2539
2540 /* We can only eliminate PC-relative relocs. */
2541 if (r_type == R_CRIS_8_PCREL
2542 || r_type == R_CRIS_16_PCREL
2543 || r_type == R_CRIS_32_PCREL)
2544 {
2545 /* If the symbol is local, then we can eliminate the reloc. */
2546 if (h == NULL || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
2547 break;
2548
2549 /* If this is with -Bsymbolic and the symbol isn't weak, and
2550 is defined by an ordinary object (the ones we include in
2551 this shared library) then we can also eliminate the
2552 reloc. See comment above for more eliminable cases which
2553 we can't identify at this time. */
2554 if (info->symbolic
2555 && h->root.type != bfd_link_hash_defweak
2556 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0)
2557 break;
2558 }
2559
2560 /* We create a reloc section in dynobj and make room for this
2561 reloc. */
2562 if (sreloc == NULL)
2563 {
2564 const char *name;
2565
2566 name = (bfd_elf_string_from_elf_section
2567 (abfd,
2568 elf_elfheader (abfd)->e_shstrndx,
2569 elf_section_data (sec)->rel_hdr.sh_name));
2570 if (name == NULL)
2571 return false;
2572
2573 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
2574 && strcmp (bfd_get_section_name (abfd, sec),
2575 name + 5) == 0);
2576
2577 sreloc = bfd_get_section_by_name (dynobj, name);
2578 if (sreloc == NULL)
2579 {
2580 sreloc = bfd_make_section (dynobj, name);
2581 if (sreloc == NULL
2582 || !bfd_set_section_flags (dynobj, sreloc,
2583 (SEC_ALLOC
2584 | SEC_LOAD
2585 | SEC_HAS_CONTENTS
2586 | SEC_IN_MEMORY
2587 | SEC_LINKER_CREATED
2588 | SEC_READONLY))
2589 || !bfd_set_section_alignment (dynobj, sreloc, 2))
2590 return false;
2591 }
2592 if (sec->flags & SEC_READONLY)
2593 info->flags |= DF_TEXTREL;
2594 }
2595
2596 sreloc->_raw_size += sizeof (Elf32_External_Rela);
2597
2598 /* If we are linking with -Bsymbolic, we count the number of PC
2599 relative relocations we have entered for this symbol, so that
2600 we can discard them again if the symbol is later defined by a
2601 regular object. We know that h is really a pointer to an
2602 elf_cris_link_hash_entry. */
2603 if ((r_type == R_CRIS_8_PCREL
2604 || r_type == R_CRIS_16_PCREL
2605 || r_type == R_CRIS_32_PCREL)
2606 && info->symbolic)
2607 {
2608 struct elf_cris_link_hash_entry *eh;
2609 struct elf_cris_pcrel_relocs_copied *p;
2610
2611 eh = (struct elf_cris_link_hash_entry *) h;
2612
2613 for (p = eh->pcrel_relocs_copied; p != NULL; p = p->next)
2614 if (p->section == sreloc)
2615 break;
2616
2617 if (p == NULL)
2618 {
2619 p = ((struct elf_cris_pcrel_relocs_copied *)
2620 bfd_alloc (dynobj, (bfd_size_type) sizeof *p));
2621 if (p == NULL)
2622 return false;
2623 p->next = eh->pcrel_relocs_copied;
2624 eh->pcrel_relocs_copied = p;
2625 p->section = sreloc;
2626 p->count = 0;
2627 }
2628
2629 ++p->count;
2630 }
2631 break;
2632
2633 /* This relocation describes the C++ object vtable hierarchy.
2634 Reconstruct it for later use during GC. */
2635 case R_CRIS_GNU_VTINHERIT:
2636 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2637 return false;
2638 break;
2639
2640 /* This relocation describes which C++ vtable entries are actually
2641 used. Record for later use during GC. */
2642 case R_CRIS_GNU_VTENTRY:
2643 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2644 return false;
2645 break;
2646
2647 default:
2648 /* Other relocs do not appear here. */
2649 bfd_set_error (bfd_error_bad_value);
2650 return false;
2651 }
2652 }
2653
2654 return true;
2655 }
2656
2657 /* Set the sizes of the dynamic sections. */
2658
2659 static boolean
2660 elf_cris_size_dynamic_sections (output_bfd, info)
2661 bfd *output_bfd ATTRIBUTE_UNUSED;
2662 struct bfd_link_info *info;
2663 {
2664 bfd *dynobj;
2665 asection *s;
2666 boolean plt;
2667 boolean relocs;
2668
2669 dynobj = elf_hash_table (info)->dynobj;
2670 BFD_ASSERT (dynobj != NULL);
2671
2672 if (elf_hash_table (info)->dynamic_sections_created)
2673 {
2674 /* Set the contents of the .interp section to the interpreter. */
2675 if (!info->shared)
2676 {
2677 s = bfd_get_section_by_name (dynobj, ".interp");
2678 BFD_ASSERT (s != NULL);
2679 s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
2680 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2681 }
2682 }
2683 else
2684 {
2685 /* Adjust all expected GOTPLT uses to use a GOT entry instead. */
2686 elf_cris_link_hash_traverse (elf_cris_hash_table (info),
2687 elf_cris_adjust_gotplt_to_got,
2688 (PTR) info);
2689
2690 /* We may have created entries in the .rela.got section.
2691 However, if we are not creating the dynamic sections, we will
2692 not actually use these entries. Reset the size of .rela.got,
2693 which will cause it to get stripped from the output file
2694 below. */
2695 s = bfd_get_section_by_name (dynobj, ".rela.got");
2696 if (s != NULL)
2697 s->_raw_size = 0;
2698 }
2699
2700 /* If this is a -Bsymbolic shared link, then we need to discard all PC
2701 relative relocs against symbols defined in a regular object. We
2702 allocated space for them in the check_relocs routine, but we will not
2703 fill them in in the relocate_section routine. We also discard space
2704 for relocs that have become for local symbols due to symbol
2705 visibility changes. For programs, we discard space for relocs for
2706 symbols not referenced by any dynamic object. */
2707 if (info->shared)
2708 elf_cris_link_hash_traverse (elf_cris_hash_table (info),
2709 elf_cris_discard_excess_dso_dynamics,
2710 (PTR) info);
2711 else
2712 elf_cris_link_hash_traverse (elf_cris_hash_table (info),
2713 elf_cris_discard_excess_program_dynamics,
2714 (PTR) info);
2715
2716 /* The check_relocs and adjust_dynamic_symbol entry points have
2717 determined the sizes of the various dynamic sections. Allocate
2718 memory for them. */
2719 plt = false;
2720 relocs = false;
2721 for (s = dynobj->sections; s != NULL; s = s->next)
2722 {
2723 const char *name;
2724 boolean strip;
2725
2726 if ((s->flags & SEC_LINKER_CREATED) == 0)
2727 continue;
2728
2729 /* It's OK to base decisions on the section name, because none
2730 of the dynobj section names depend upon the input files. */
2731 name = bfd_get_section_name (dynobj, s);
2732
2733 strip = false;
2734
2735 if (strcmp (name, ".plt") == 0)
2736 {
2737 if (s->_raw_size == 0)
2738 {
2739 /* Strip this section if we don't need it; see the
2740 comment below. */
2741 strip = true;
2742 }
2743 else
2744 {
2745 /* Remember whether there is a PLT. */
2746 plt = true;
2747 }
2748 }
2749 else if (strncmp (name, ".rela", 5) == 0)
2750 {
2751 if (s->_raw_size == 0)
2752 {
2753 /* If we don't need this section, strip it from the
2754 output file. This is mostly to handle .rela.bss and
2755 .rela.plt. We must create both sections in
2756 create_dynamic_sections, because they must be created
2757 before the linker maps input sections to output
2758 sections. The linker does that before
2759 adjust_dynamic_symbol is called, and it is that
2760 function which decides whether anything needs to go
2761 into these sections. */
2762 strip = true;
2763 }
2764 else
2765 {
2766 /* Remember whether there are any reloc sections other
2767 than .rela.plt. */
2768 if (strcmp (name, ".rela.plt") != 0)
2769 relocs = true;
2770
2771 /* We use the reloc_count field as a counter if we need
2772 to copy relocs into the output file. */
2773 s->reloc_count = 0;
2774 }
2775 }
2776 else if (strncmp (name, ".got", 4) != 0)
2777 {
2778 /* It's not one of our sections, so don't allocate space. */
2779 continue;
2780 }
2781
2782 if (strip)
2783 {
2784 _bfd_strip_section_from_output (info, s);
2785 continue;
2786 }
2787
2788 /* Allocate memory for the section contents. We use bfd_zalloc here
2789 in case unused entries are not reclaimed before the section's
2790 contents are written out. This should not happen, but this way
2791 if it does, we will not write out garbage. For reloc sections,
2792 this will make entries have the type R_CRIS_NONE. */
2793 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
2794 if (s->contents == NULL && s->_raw_size != 0)
2795 return false;
2796 }
2797
2798 if (elf_hash_table (info)->dynamic_sections_created)
2799 {
2800 /* Add some entries to the .dynamic section. We fill in the
2801 values later, in elf_cris_finish_dynamic_sections, but we
2802 must add the entries now so that we get the correct size for
2803 the .dynamic section. The DT_DEBUG entry is filled in by the
2804 dynamic linker and used by the debugger. */
2805 #define add_dynamic_entry(TAG, VAL) \
2806 bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
2807
2808 if (!info->shared)
2809 {
2810 if (!add_dynamic_entry (DT_DEBUG, 0))
2811 return false;
2812 }
2813
2814 if (plt)
2815 {
2816 if (!add_dynamic_entry (DT_PLTGOT, 0)
2817 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2818 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2819 || !add_dynamic_entry (DT_JMPREL, 0))
2820 return false;
2821 }
2822
2823 if (relocs)
2824 {
2825 if (!add_dynamic_entry (DT_RELA, 0)
2826 || !add_dynamic_entry (DT_RELASZ, 0)
2827 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
2828 return false;
2829 }
2830
2831 if ((info->flags & DF_TEXTREL) != 0)
2832 {
2833 if (!add_dynamic_entry (DT_TEXTREL, 0))
2834 return false;
2835 info->flags |= DF_TEXTREL;
2836 }
2837 }
2838 #undef add_dynamic_entry
2839
2840 return true;
2841 }
2842
2843 /* This function is called via elf_cris_link_hash_traverse if we are
2844 creating a shared object. In the -Bsymbolic case, it discards the
2845 space allocated to copy PC relative relocs against symbols which
2846 are defined in regular objects. For the normal non-symbolic case,
2847 we also discard space for relocs that have become local due to
2848 symbol visibility changes. We allocated space for them in the
2849 check_relocs routine, but we won't fill them in in the
2850 relocate_section routine. */
2851
2852 static boolean
2853 elf_cris_discard_excess_dso_dynamics (h, inf)
2854 struct elf_cris_link_hash_entry *h;
2855 PTR inf;
2856 {
2857 struct elf_cris_pcrel_relocs_copied *s;
2858 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2859
2860 if (h->root.root.type == bfd_link_hash_warning)
2861 h = (struct elf_cris_link_hash_entry *) h->root.root.u.i.link;
2862
2863 /* If a symbol has been forced local or we have found a regular
2864 definition for the symbolic link case, then we won't be needing
2865 any relocs. */
2866 if ((h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0
2867 && ((h->root.elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0
2868 || info->symbolic))
2869 {
2870 for (s = h->pcrel_relocs_copied; s != NULL; s = s->next)
2871 s->section->_raw_size -= s->count * sizeof (Elf32_External_Rela);
2872 }
2873
2874 return true;
2875 }
2876
2877 /* This function is called via elf_cris_link_hash_traverse if we are *not*
2878 creating a shared object. We discard space for relocs for symbols put
2879 in the .got, but which we found we do not have to resolve at run-time. */
2880
2881 static boolean
2882 elf_cris_discard_excess_program_dynamics (h, inf)
2883 struct elf_cris_link_hash_entry *h;
2884 PTR inf;
2885 {
2886 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2887
2888 if (h->root.root.type == bfd_link_hash_warning)
2889 h = (struct elf_cris_link_hash_entry *) h->root.root.u.i.link;
2890
2891 /* If we're not creating a shared library and have a symbol which is
2892 referred to by .got references, but the symbol is defined locally,
2893 (or rather, not not defined by a DSO) then lose the reloc for the
2894 .got (don't allocate room for it). */
2895 if ((h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0)
2896 {
2897 if (h->root.got.refcount > 0
2898 /* The size of this section is only valid and in sync with the
2899 various reference counts if we do dynamic; don't decrement it
2900 otherwise. */
2901 && elf_hash_table (info)->dynamic_sections_created)
2902 {
2903 bfd *dynobj = elf_hash_table (info)->dynobj;
2904 asection *srelgot;
2905
2906 BFD_ASSERT (dynobj != NULL);
2907
2908 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2909
2910 BFD_ASSERT (srelgot != NULL);
2911
2912 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
2913 }
2914
2915 /* If the locally-defined symbol isn't used by a DSO, then we don't
2916 have to export it as a dynamic symbol. This was already done for
2917 functions; doing this for all symbols would presumably not
2918 introduce new problems. Of course we don't do this if we're
2919 exporting all dynamic symbols. */
2920 if (! info->export_dynamic
2921 && (h->root.elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) == 0)
2922 {
2923 h->root.dynindx = -1;
2924 _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
2925 h->root.dynstr_index);
2926 }
2927 }
2928
2929 return true;
2930 }
2931
2932 /* Reject a file depending on presence and expectation of prefixed
2933 underscores on symbols. */
2934
2935 static boolean
2936 cris_elf_object_p (abfd)
2937 bfd *abfd;
2938 {
2939 if ((elf_elfheader (abfd)->e_flags & EF_CRIS_UNDERSCORE))
2940 return (bfd_get_symbol_leading_char (abfd) == '_');
2941 else
2942 return (bfd_get_symbol_leading_char (abfd) == 0);
2943 }
2944
2945 /* Mark presence or absence of leading underscore. */
2946
2947 static void
2948 cris_elf_final_write_processing (abfd, linker)
2949 bfd *abfd;
2950 boolean linker ATTRIBUTE_UNUSED;
2951 {
2952 if (bfd_get_symbol_leading_char (abfd) == '_')
2953 elf_elfheader (abfd)->e_flags |= EF_CRIS_UNDERSCORE;
2954 else
2955 elf_elfheader (abfd)->e_flags &= ~EF_CRIS_UNDERSCORE;
2956 }
2957
2958 /* Display the flags field. */
2959
2960 static boolean
2961 cris_elf_print_private_bfd_data (abfd, ptr)
2962 bfd *abfd;
2963 PTR ptr;
2964 {
2965 FILE *file = (FILE *) ptr;
2966
2967 BFD_ASSERT (abfd != NULL && ptr != NULL)
2968
2969 _bfd_elf_print_private_bfd_data (abfd, ptr);
2970
2971 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
2972
2973 if (elf_elfheader (abfd)->e_flags & EF_CRIS_UNDERSCORE)
2974 fprintf (file, _(" [symbols have a _ prefix]"));
2975
2976 fputc ('\n', file);
2977 return true;
2978 }
2979
2980 /* Don't mix files with and without a leading underscore. */
2981
2982 static boolean
2983 cris_elf_merge_private_bfd_data (ibfd, obfd)
2984 bfd *ibfd;
2985 bfd *obfd;
2986 {
2987 flagword old_flags, new_flags;
2988
2989 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
2990 return false;
2991
2992 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2993 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
2994 return true;
2995
2996 if (! elf_flags_init (obfd))
2997 {
2998 /* This happens when ld starts out with a 'blank' output file. */
2999 elf_flags_init (obfd) = true;
3000
3001 /* Set flags according to current bfd_target. */
3002 cris_elf_final_write_processing (obfd, false);
3003 }
3004
3005 old_flags = elf_elfheader (obfd)->e_flags;
3006 new_flags = elf_elfheader (ibfd)->e_flags;
3007
3008 /* Is this good or bad? We'll follow with other excluding flags. */
3009 if ((old_flags & EF_CRIS_UNDERSCORE) != (new_flags & EF_CRIS_UNDERSCORE))
3010 {
3011 (*_bfd_error_handler)
3012 ((new_flags & EF_CRIS_UNDERSCORE)
3013 ? _("%s: uses _-prefixed symbols, but writing file with non-prefixed symbols")
3014 : _("%s: uses non-prefixed symbols, but writing file with _-prefixed symbols"),
3015 bfd_archive_filename (ibfd));
3016 bfd_set_error (bfd_error_bad_value);
3017 return false;
3018 }
3019
3020 return true;
3021 }
3022
3023
3024 static enum elf_reloc_type_class
3025 elf_cris_reloc_type_class (rela)
3026 const Elf_Internal_Rela *rela;
3027 {
3028 switch ((int) ELF32_R_TYPE (rela->r_info))
3029 {
3030 case R_CRIS_RELATIVE:
3031 return reloc_class_relative;
3032 case R_CRIS_JUMP_SLOT:
3033 return reloc_class_plt;
3034 case R_CRIS_COPY:
3035 return reloc_class_copy;
3036 default:
3037 return reloc_class_normal;
3038 }
3039 }
3040 \f
3041 #define ELF_ARCH bfd_arch_cris
3042 #define ELF_MACHINE_CODE EM_CRIS
3043 #define ELF_MAXPAGESIZE 0x2000
3044
3045 #define TARGET_LITTLE_SYM bfd_elf32_cris_vec
3046 #define TARGET_LITTLE_NAME "elf32-cris"
3047 #define elf_symbol_leading_char 0
3048
3049 #define elf_info_to_howto_rel NULL
3050 #define elf_info_to_howto cris_info_to_howto_rela
3051 #define elf_backend_relocate_section cris_elf_relocate_section
3052 #define elf_backend_gc_mark_hook cris_elf_gc_mark_hook
3053 #define elf_backend_gc_sweep_hook cris_elf_gc_sweep_hook
3054 #define elf_backend_check_relocs cris_elf_check_relocs
3055 #define elf_backend_grok_prstatus cris_elf_grok_prstatus
3056 #define elf_backend_grok_psinfo cris_elf_grok_psinfo
3057
3058 #define elf_backend_can_gc_sections 1
3059 #define elf_backend_can_refcount 1
3060
3061 #define elf_backend_object_p cris_elf_object_p
3062 #define elf_backend_final_write_processing \
3063 cris_elf_final_write_processing
3064 #define bfd_elf32_bfd_print_private_bfd_data \
3065 cris_elf_print_private_bfd_data
3066 #define bfd_elf32_bfd_merge_private_bfd_data \
3067 cris_elf_merge_private_bfd_data
3068
3069 #define bfd_elf32_bfd_reloc_type_lookup cris_reloc_type_lookup
3070
3071 #define bfd_elf32_bfd_link_hash_table_create \
3072 elf_cris_link_hash_table_create
3073 #define elf_backend_adjust_dynamic_symbol \
3074 elf_cris_adjust_dynamic_symbol
3075 #define elf_backend_size_dynamic_sections \
3076 elf_cris_size_dynamic_sections
3077 #define elf_backend_finish_dynamic_symbol \
3078 elf_cris_finish_dynamic_symbol
3079 #define elf_backend_finish_dynamic_sections \
3080 elf_cris_finish_dynamic_sections
3081 #define elf_backend_create_dynamic_sections \
3082 _bfd_elf_create_dynamic_sections
3083 #define bfd_elf32_bfd_final_link \
3084 _bfd_elf32_gc_common_final_link
3085 #define elf_backend_hide_symbol elf_cris_hide_symbol
3086 #define elf_backend_reloc_type_class elf_cris_reloc_type_class
3087
3088 #define elf_backend_want_got_plt 1
3089 #define elf_backend_plt_readonly 1
3090 #define elf_backend_want_plt_sym 0
3091 #define elf_backend_got_header_size 12
3092 #define elf_backend_plt_header_size PLT_ENTRY_SIZE
3093
3094 /* Later, we my want to optimize RELA entries into REL entries for dynamic
3095 linking and libraries (if it's a win of any significance). Until then,
3096 take the easy route. */
3097 #define elf_backend_may_use_rel_p 0
3098 #define elf_backend_may_use_rela_p 1
3099 #define elf_backend_rela_normal 1
3100
3101 #include "elf32-target.h"
3102
3103 #define INCLUDED_TARGET_FILE
3104
3105 #undef TARGET_LITTLE_SYM
3106 #undef TARGET_LITTLE_NAME
3107 #undef elf_symbol_leading_char
3108
3109 #define TARGET_LITTLE_SYM bfd_elf32_us_cris_vec
3110 #define TARGET_LITTLE_NAME "elf32-us-cris"
3111 #define elf_symbol_leading_char '_'
3112
3113 #include "elf32-target.h"
git-cvsimport of binutils cvsroot