?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Add comment
[binutils.git] / bfd / elf32-cris.c
blobc881ee4dc0a218827661298954340db6717e481a
1 /* CRIS-specific support for 32-bit ELF.
2 Copyright 2000, 2001 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 ((bfd *, 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 *));
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", /* 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", /* 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 166: /* 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 = 92;
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_alloc (abfd, 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 bfd_release (abfd, 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 dynobj = elf_hash_table (info)->dynobj;
803 local_got_offsets = elf_local_got_offsets (input_bfd);
804 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
805 sym_hashes = elf_sym_hashes (input_bfd);
806 relend = relocs + input_section->reloc_count;
807
808 /* It seems this can happen with erroneous or unsupported input (mixing
809 a.out and elf in an archive, for example.) */
810 if (sym_hashes == NULL)
811 return false;
812
813 sgot = NULL;
814 splt = NULL;
815 sreloc = NULL;
816
817 if (dynobj != NULL)
818 {
819 splt = bfd_get_section_by_name (dynobj, ".plt");
820 sgot = bfd_get_section_by_name (dynobj, ".got");
821 }
822
823 for (rel = relocs; rel < relend; rel ++)
824 {
825 reloc_howto_type * howto;
826 unsigned long r_symndx;
827 Elf_Internal_Sym * sym;
828 asection * sec;
829 struct elf_link_hash_entry * h;
830 bfd_vma relocation;
831 bfd_reloc_status_type r;
832 const char * symname = NULL;
833 int r_type;
834
835 r_type = ELF32_R_TYPE (rel->r_info);
836
837 if ( r_type == R_CRIS_GNU_VTINHERIT
838 || r_type == R_CRIS_GNU_VTENTRY)
839 continue;
840
841 r_symndx = ELF32_R_SYM (rel->r_info);
842
843 if (info->relocateable)
844 {
845 /* This is a relocateable link. We don't have to change
846 anything, unless the reloc is against a section symbol,
847 in which case we have to adjust according to where the
848 section symbol winds up in the output section. */
849 if (r_symndx < symtab_hdr->sh_info)
850 {
851 sym = local_syms + r_symndx;
852
853 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
854 {
855 sec = local_sections [r_symndx];
856 rel->r_addend += sec->output_offset + sym->st_value;
857 }
858 }
859
860 continue;
861 }
862
863 /* This is a final link. */
864 howto = cris_elf_howto_table + r_type;
865 h = NULL;
866 sym = NULL;
867 sec = NULL;
868
869 if (r_symndx < symtab_hdr->sh_info)
870 {
871 sym = local_syms + r_symndx;
872 sec = local_sections [r_symndx];
873 relocation = (sec->output_section->vma
874 + sec->output_offset
875 + sym->st_value);
876
877 symname = (bfd_elf_string_from_elf_section
878 (input_bfd, symtab_hdr->sh_link, sym->st_name));
879 if (symname == NULL)
880 symname = bfd_section_name (input_bfd, sec);
881 }
882 else
883 {
884 h = sym_hashes [r_symndx - symtab_hdr->sh_info];
885
886 while (h->root.type == bfd_link_hash_indirect
887 || h->root.type == bfd_link_hash_warning)
888 h = (struct elf_link_hash_entry *) h->root.u.i.link;
889
890 symname = h->root.root.string;
891
892 if (h->root.type == bfd_link_hash_defined
893 || h->root.type == bfd_link_hash_defweak)
894 {
895 sec = h->root.u.def.section;
896
897 /* Perhaps we should detect the cases that
898 sec->output_section is expected to be NULL like i386 and
899 m68k, but apparently (and according to elfxx-ia64.c) all
900 valid cases are where the symbol is defined in a shared
901 object which we link dynamically against. This includes
902 PLT relocs for which we've created a PLT entry and other
903 relocs for which we're prepared to create dynamic
904 relocations.
905
906 For now, new situations cause us to just err when
907 sec->output_offset is NULL but the object with the symbol
908 is *not* dynamically linked against. Thus this will
909 automatically remind us so we can see if there are other
910 valid cases we need to revisit. */
911 if ((sec->output_section == NULL
912 && (sec->owner->flags & DYNAMIC) != 0)
913
914 /* Here follow the cases where the relocation value must
915 be zero (or when further handling is simplified when
916 zero). I can't claim to understand the various
917 conditions and they weren't described in the files
918 where I copied them from (elf32-m68k.c and
919 elf32-i386.c), but let's mention examples of where
920 they happen. FIXME: Perhaps define and use a
921 dynamic_symbol_p function like ia64.
922
923 - When creating a shared library, we can have an
924 ordinary relocation for a symbol defined in a shared
925 library (perhaps the one we create). We then make
926 the relocation value zero, as the value seen now will
927 be added into the relocation addend in this shared
928 library, but must be handled only at dynamic-link
929 time. FIXME: Not sure this example covers the
930 h->elf_link_hash_flags test, though it's there in
931 other targets. */
932 || (info->shared
933 && ((! info->symbolic && h->dynindx != -1)
934 || (h->elf_link_hash_flags
935 & ELF_LINK_HASH_DEF_REGULAR) == 0)
936 && (input_section->flags & SEC_ALLOC) != 0
937 && (r_type == R_CRIS_8
938 || r_type == R_CRIS_16
939 || r_type == R_CRIS_32
940 || r_type == R_CRIS_8_PCREL
941 || r_type == R_CRIS_16_PCREL
942 || r_type == R_CRIS_32_PCREL)))
943 relocation = 0;
944 else if (sec->output_section != NULL)
945 relocation = (h->root.u.def.value
946 + sec->output_section->vma
947 + sec->output_offset);
948 else
949 {
950 (*_bfd_error_handler)
951 (_("%s: unresolvable relocation %s against symbol `%s' from %s section"),
952 bfd_archive_filename (input_bfd),
953 cris_elf_howto_table[r_type].name,
954 symname,
955 bfd_get_section_name (input_bfd, input_section));
956 bfd_set_error (bfd_error_bad_value);
957 return false;
958 }
959 }
960 else if (h->root.type == bfd_link_hash_undefweak)
961 relocation = 0;
962 else if (info->shared
963 && (!info->symbolic || info->allow_shlib_undefined)
964 && !info->no_undefined
965 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
966 relocation = 0;
967 else
968 {
969 if (!(info->callbacks->undefined_symbol
970 (info, symname, input_bfd,
971 input_section, rel->r_offset,
972 (!info->shared || info->no_undefined
973 || ELF_ST_VISIBILITY (h->other)))))
974 return false;
975 relocation = 0;
976 }
977 }
978
979 switch (r_type)
980 {
981 case R_CRIS_16_GOTPLT:
982 case R_CRIS_32_GOTPLT:
983 /* This is like the case for R_CRIS_32_GOT and R_CRIS_16_GOT,
984 but we require a PLT, and the PLT handling will take care of
985 filling in the PLT-specific GOT entry. For the GOT offset,
986 calculate it as we do when filling it in for the .got.plt
987 section. If we don't have a PLT, punt to GOT handling. */
988 if (h != NULL
989 && ((struct elf_cris_link_hash_entry *) h)->gotplt_offset != 0)
990 {
991 asection *sgotplt
992 = bfd_get_section_by_name (dynobj, ".got.plt");
993 bfd_vma got_offset;
994
995 BFD_ASSERT (h->dynindx != -1);
996 BFD_ASSERT (sgotplt != NULL);
997
998 got_offset
999 = ((struct elf_cris_link_hash_entry *) h)->gotplt_offset;
1000
1001 relocation = got_offset;
1002 break;
1003 }
1004
1005 /* We didn't make a PLT entry for this symbol. Maybe everything is
1006 folded into the GOT. Other than folding, this happens when
1007 statically linking PIC code, or when using -Bsymbolic. Check
1008 that we instead have a GOT entry as done for us by
1009 elf_cris_adjust_dynamic_symbol, and drop through into the
1010 ordinary GOT cases. */
1011 if (h != NULL && h->got.offset == (bfd_vma) -1)
1012 {
1013 (*_bfd_error_handler)
1014 (_("%s: No PLT nor GOT for relocation %s against symbol `%s' from %s section"),
1015 bfd_archive_filename (input_bfd),
1016 cris_elf_howto_table[r_type].name,
1017 symname[0] != '\0' ? symname : _("[whose name is lost]"),
1018 bfd_get_section_name (input_bfd, input_section));
1019
1020 /* FIXME: Perhaps blaming input is not the right thing to
1021 do; this is probably an internal error. But it is true
1022 that we didn't like that particular input. */
1023 bfd_set_error (bfd_error_bad_value);
1024 return false;
1025 }
1026 /* Fall through. */
1027
1028 /* The size of the actual relocation is not used here; we only
1029 fill in the GOT table here. */
1030 case R_CRIS_16_GOT:
1031 case R_CRIS_32_GOT:
1032 {
1033 bfd_vma off;
1034
1035 /* Note that despite using RELA relocations, the .got contents
1036 is always filled in with the link-relative relocation
1037 value; the addend. */
1038
1039 if (h != NULL)
1040 {
1041 off = h->got.offset;
1042 BFD_ASSERT (off != (bfd_vma) -1);
1043
1044 if (!elf_hash_table (info)->dynamic_sections_created
1045 || (! info->shared && h->dynindx == -1)
1046 || (info->shared
1047 && (info->symbolic || h->dynindx == -1)
1048 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
1049 {
1050 /* This wasn't checked above for ! info->shared, but
1051 must hold there if we get here; the symbol must not
1052 be used in, or defined by a DSO. (Note that
1053 checking for ELF_LINK_HASH_DEF_REGULAR doesn't
1054 catch all cases.) */
1055 BFD_ASSERT (info->shared
1056 || (h->elf_link_hash_flags
1057 & (ELF_LINK_HASH_REF_DYNAMIC
1058 | ELF_LINK_HASH_DEF_DYNAMIC)) == 0);
1059
1060 /* This is actually a static link, or it is a
1061 -Bsymbolic link and the symbol is defined
1062 locally, or the symbol was forced to be local
1063 because of a version file, or we're not creating a
1064 dynamic object and the symbol isn't referred to by
1065 a dynamic object. We must initialize
1066 this entry in the global offset table. Since
1067 the offset must always be a multiple of 4, we
1068 use the least significant bit to record whether
1069 we have initialized it already.
1070
1071 When doing a dynamic link, we create a .rela.got
1072 relocation entry to initialize the value. This
1073 is done in the finish_dynamic_symbol routine. */
1074 if ((off & 1) != 0)
1075 off &= ~1;
1076 else
1077 {
1078 bfd_put_32 (output_bfd, relocation,
1079 sgot->contents + off);
1080 h->got.offset |= 1;
1081 }
1082 }
1083 }
1084 else
1085 {
1086 BFD_ASSERT (local_got_offsets != NULL
1087 && local_got_offsets[r_symndx] != (bfd_vma) -1);
1088
1089 off = local_got_offsets[r_symndx];
1090
1091 /* The offset must always be a multiple of 4. We use
1092 the least significant bit to record whether we have
1093 already generated the necessary reloc. */
1094 if ((off & 1) != 0)
1095 off &= ~1;
1096 else
1097 {
1098 bfd_put_32 (output_bfd, relocation, sgot->contents + off);
1099
1100 if (info->shared)
1101 {
1102 asection *srelgot;
1103 Elf_Internal_Rela outrel;
1104
1105 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1106 BFD_ASSERT (srelgot != NULL);
1107
1108 outrel.r_offset = (sgot->output_section->vma
1109 + sgot->output_offset
1110 + off);
1111 outrel.r_info = ELF32_R_INFO (0, R_CRIS_RELATIVE);
1112 outrel.r_addend = relocation;
1113 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1114 (((Elf32_External_Rela *)
1115 srelgot->contents)
1116 + srelgot->reloc_count));
1117 ++srelgot->reloc_count;
1118 }
1119
1120 local_got_offsets[r_symndx] |= 1;
1121 }
1122 }
1123
1124 relocation = sgot->output_offset + off;
1125 if (rel->r_addend != 0)
1126 {
1127 /* We can't do anything for a relocation which is against
1128 a symbol *plus offset*. GOT holds relocations for
1129 symbols. Make this an error; the compiler isn't
1130 allowed to pass us these kinds of things. */
1131 if (h == NULL)
1132 (*_bfd_error_handler)
1133 (_("%s: relocation %s with non-zero addend %d against local symbol from %s section"),
1134 bfd_archive_filename (input_bfd),
1135 cris_elf_howto_table[r_type].name,
1136 rel->r_addend,
1137 bfd_get_section_name (input_bfd, input_section));
1138 else
1139 (*_bfd_error_handler)
1140 (_("%s: relocation %s with non-zero addend %d against symbol `%s' from %s section"),
1141 bfd_archive_filename (input_bfd),
1142 cris_elf_howto_table[r_type].name,
1143 rel->r_addend,
1144 symname[0] != '\0' ? symname : _("[whose name is lost]"),
1145 bfd_get_section_name (input_bfd, input_section));
1146
1147 bfd_set_error (bfd_error_bad_value);
1148 return false;
1149 }
1150 }
1151 break;
1152
1153 case R_CRIS_32_GOTREL:
1154 /* This relocation must only be performed against local symbols. */
1155 if (h != NULL)
1156 {
1157 (*_bfd_error_handler)
1158 (_("%s: relocation %s is not allowed for global symbol: `%s' from %s section"),
1159 bfd_archive_filename (input_bfd),
1160 cris_elf_howto_table[r_type].name,
1161 symname,
1162 bfd_get_section_name (input_bfd, input_section));
1163 bfd_set_error (bfd_error_bad_value);
1164 return false;
1165 }
1166
1167 /* This relocation is like a PC-relative one, except the
1168 reference point is the location of GOT. Note that
1169 sgot->output_offset is not involved in this calculation. We
1170 always want the start of entire .got section, not the
1171 position after the reserved header. */
1172 relocation -= sgot->output_section->vma;
1173 break;
1174
1175 case R_CRIS_32_PLT_PCREL:
1176 /* Relocation is to the entry for this symbol in the
1177 procedure linkage table. */
1178
1179 /* Resolve a PLT_PCREL reloc against a local symbol directly,
1180 without using the procedure linkage table. */
1181 if (h == NULL)
1182 break;
1183
1184 if (h->plt.offset == (bfd_vma) -1
1185 || splt == NULL)
1186 {
1187 /* We didn't make a PLT entry for this symbol. This
1188 happens when statically linking PIC code, or when
1189 using -Bsymbolic. */
1190 break;
1191 }
1192
1193 relocation = (splt->output_section->vma
1194 + splt->output_offset
1195 + h->plt.offset);
1196 break;
1197
1198 case R_CRIS_32_PLT_GOTREL:
1199 /* Like R_CRIS_32_PLT_PCREL, but the reference point is the
1200 start of the .got section. See also comment at
1201 R_CRIS_32_GOT. */
1202 relocation -= sgot->output_section->vma;
1203
1204 /* Resolve a PLT_GOTREL reloc against a local symbol directly,
1205 without using the procedure linkage table. */
1206 if (h == NULL)
1207 break;
1208
1209 if (h->plt.offset == (bfd_vma) -1
1210 || splt == NULL)
1211 {
1212 /* We didn't make a PLT entry for this symbol. This
1213 happens when statically linking PIC code, or when
1214 using -Bsymbolic. */
1215 break;
1216 }
1217
1218 relocation = (splt->output_section->vma
1219 + splt->output_offset
1220 + h->plt.offset
1221 - sgot->output_section->vma);
1222 break;
1223
1224 case R_CRIS_8_PCREL:
1225 case R_CRIS_16_PCREL:
1226 case R_CRIS_32_PCREL:
1227 /* If the symbol was local, we need no shlib-specific handling. */
1228 if (h == NULL)
1229 break;
1230
1231 /* Fall through. */
1232 case R_CRIS_8:
1233 case R_CRIS_16:
1234 case R_CRIS_32:
1235 if (info->shared
1236 && (input_section->flags & SEC_ALLOC) != 0
1237 && ((r_type != R_CRIS_8_PCREL
1238 && r_type != R_CRIS_16_PCREL
1239 && r_type != R_CRIS_32_PCREL)
1240 || (!info->symbolic
1241 || (h->elf_link_hash_flags
1242 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
1243 {
1244 Elf_Internal_Rela outrel;
1245 boolean skip, relocate;
1246
1247 /* When generating a shared object, these relocations
1248 are copied into the output file to be resolved at run
1249 time. */
1250
1251 if (sreloc == NULL)
1252 {
1253 const char *name;
1254
1255 name = (bfd_elf_string_from_elf_section
1256 (input_bfd,
1257 elf_elfheader (input_bfd)->e_shstrndx,
1258 elf_section_data (input_section)->rel_hdr.sh_name));
1259 if (name == NULL)
1260 return false;
1261
1262 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
1263 && strcmp (bfd_get_section_name (input_bfd,
1264 input_section),
1265 name + 5) == 0);
1266
1267 sreloc = bfd_get_section_by_name (dynobj, name);
1268
1269 /* That section should have been created in
1270 cris_elf_check_relocs, but that function will not be
1271 called for objects which fail in
1272 cris_elf_merge_private_bfd_data. */
1273 if (sreloc == NULL)
1274 {
1275 (*_bfd_error_handler)
1276 (_("%s: Internal inconsistency; no relocation section %s"),
1277 bfd_archive_filename (input_bfd),
1278 name);
1279
1280 bfd_set_error (bfd_error_bad_value);
1281 return false;
1282 }
1283 }
1284
1285 skip = false;
1286
1287 if (elf_section_data (input_section)->stab_info == NULL)
1288 outrel.r_offset = rel->r_offset;
1289 else
1290 {
1291 bfd_vma off;
1292
1293 off = (_bfd_stab_section_offset
1294 (output_bfd, &elf_hash_table (info)->stab_info,
1295 input_section,
1296 &elf_section_data (input_section)->stab_info,
1297 rel->r_offset));
1298 if (off == (bfd_vma) -1)
1299 skip = true;
1300 outrel.r_offset = off;
1301 }
1302
1303 outrel.r_offset += (input_section->output_section->vma
1304 + input_section->output_offset);
1305
1306 if (skip)
1307 {
1308 memset (&outrel, 0, sizeof outrel);
1309 relocate = false;
1310 }
1311 /* h->dynindx may be -1 if the symbol was marked to
1312 become local. */
1313 else if (h != NULL
1314 && ((! info->symbolic && h->dynindx != -1)
1315 || (h->elf_link_hash_flags
1316 & ELF_LINK_HASH_DEF_REGULAR) == 0))
1317 {
1318 BFD_ASSERT (h->dynindx != -1);
1319 relocate = false;
1320 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
1321 outrel.r_addend = relocation + rel->r_addend;
1322 }
1323 else
1324 {
1325 if (r_type == R_CRIS_32)
1326 {
1327 relocate = true;
1328 outrel.r_info = ELF32_R_INFO (0, R_CRIS_RELATIVE);
1329 outrel.r_addend = relocation + rel->r_addend;
1330 }
1331 else
1332 {
1333 long indx;
1334
1335 if (h == NULL)
1336 sec = local_sections[r_symndx];
1337 else
1338 {
1339 BFD_ASSERT (h->root.type == bfd_link_hash_defined
1340 || (h->root.type
1341 == bfd_link_hash_defweak));
1342 sec = h->root.u.def.section;
1343 }
1344 if (sec != NULL && bfd_is_abs_section (sec))
1345 indx = 0;
1346 else if (sec == NULL || sec->owner == NULL)
1347 {
1348 bfd_set_error (bfd_error_bad_value);
1349 return false;
1350 }
1351 else
1352 {
1353 asection *osec;
1354
1355 osec = sec->output_section;
1356 indx = elf_section_data (osec)->dynindx;
1357 BFD_ASSERT (indx > 0);
1358 }
1359
1360 relocate = false;
1361 outrel.r_info = ELF32_R_INFO (indx, r_type);
1362 outrel.r_addend = relocation + rel->r_addend;
1363 }
1364 }
1365
1366 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1367 (((Elf32_External_Rela *)
1368 sreloc->contents)
1369 + sreloc->reloc_count));
1370 ++sreloc->reloc_count;
1371
1372 /* This reloc will be computed at runtime, so there's no
1373 need to do anything now, except for R_CRIS_32 relocations
1374 that have been turned into R_CRIS_RELATIVE. */
1375 if (!relocate)
1376 continue;
1377 }
1378
1379 break;
1380 }
1381
1382 r = cris_final_link_relocate (howto, input_bfd, input_section,
1383 contents, rel, relocation);
1384
1385 if (r != bfd_reloc_ok)
1386 {
1387 const char * msg = (const char *) NULL;
1388
1389 switch (r)
1390 {
1391 case bfd_reloc_overflow:
1392 r = info->callbacks->reloc_overflow
1393 (info, symname, howto->name, (bfd_vma) 0,
1394 input_bfd, input_section, rel->r_offset);
1395 break;
1396
1397 case bfd_reloc_undefined:
1398 r = info->callbacks->undefined_symbol
1399 (info, symname, input_bfd, input_section, rel->r_offset,
1400 true);
1401 break;
1402
1403 case bfd_reloc_outofrange:
1404 msg = _("internal error: out of range error");
1405 break;
1406
1407 case bfd_reloc_notsupported:
1408 msg = _("internal error: unsupported relocation error");
1409 break;
1410
1411 case bfd_reloc_dangerous:
1412 msg = _("internal error: dangerous relocation");
1413 break;
1414
1415 default:
1416 msg = _("internal error: unknown error");
1417 break;
1418 }
1419
1420 if (msg)
1421 r = info->callbacks->warning
1422 (info, msg, symname, input_bfd, input_section, rel->r_offset);
1423
1424 if (! r)
1425 return false;
1426 }
1427 }
1428
1429 return true;
1430 }
1431 \f
1432 /* Finish up dynamic symbol handling. We set the contents of various
1433 dynamic sections here. */
1434
1435 static boolean
1436 elf_cris_finish_dynamic_symbol (output_bfd, info, h, sym)
1437 bfd *output_bfd;
1438 struct bfd_link_info *info;
1439 struct elf_link_hash_entry *h;
1440 Elf_Internal_Sym *sym;
1441 {
1442 bfd *dynobj;
1443 int plt_off1 = 2, plt_off2 = 10, plt_off3 = 16;
1444
1445 dynobj = elf_hash_table (info)->dynobj;
1446
1447 if (h->plt.offset != (bfd_vma) -1)
1448 {
1449 asection *splt;
1450 asection *sgotplt;
1451 asection *sgot;
1452 asection *srela;
1453 bfd_vma got_base;
1454
1455 bfd_vma gotplt_offset
1456 = ((struct elf_cris_link_hash_entry *) h)->gotplt_offset;
1457 Elf_Internal_Rela rela;
1458 boolean has_gotplt = gotplt_offset != 0;
1459
1460 /* Get the index in the procedure linkage table which
1461 corresponds to this symbol. This is the index of this symbol
1462 in all the symbols for which we are making plt entries. The
1463 first entry in the procedure linkage table is reserved. */
1464 /* We have to count backwards here, and the result is only valid as
1465 an index into .got.plt and its relocations. FIXME: Constants... */
1466 bfd_vma gotplt_index = gotplt_offset/4 - 3;
1467
1468 /* Get the offset into the .got table of the entry that corresponds
1469 to this function. Note that we embed knowledge that "incoming"
1470 .got goes after .got.plt in the output without padding (pointer
1471 aligned). However, that knowledge is present in several other
1472 places too, here and in elflink.h at least. */
1473 bfd_vma got_offset
1474 = (has_gotplt
1475 ? gotplt_offset
1476 : h->got.offset + elf_cris_hash_table(info)->next_gotplt_entry);
1477
1478 /* This symbol has an entry in the procedure linkage table. Set it
1479 up. */
1480
1481 BFD_ASSERT (h->dynindx != -1);
1482
1483 splt = bfd_get_section_by_name (dynobj, ".plt");
1484 sgot = bfd_get_section_by_name (dynobj, ".got");
1485 sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
1486 srela = bfd_get_section_by_name (dynobj, ".rela.plt");
1487 BFD_ASSERT (splt != NULL && sgotplt != NULL
1488 && (! has_gotplt || srela != NULL));
1489
1490 got_base = sgotplt->output_section->vma + sgotplt->output_offset;
1491
1492 /* Fill in the entry in the procedure linkage table. */
1493 if (! info->shared)
1494 {
1495 memcpy (splt->contents + h->plt.offset, elf_cris_plt_entry,
1496 PLT_ENTRY_SIZE);
1497
1498 /* We need to enter the absolute address of the GOT entry here. */
1499 bfd_put_32 (output_bfd, got_base + got_offset,
1500 splt->contents + h->plt.offset + plt_off1);
1501 }
1502 else
1503 {
1504 memcpy (splt->contents + h->plt.offset, elf_cris_pic_plt_entry,
1505 PLT_ENTRY_SIZE);
1506 bfd_put_32 (output_bfd, got_offset,
1507 splt->contents + h->plt.offset + plt_off1);
1508 }
1509
1510 /* Fill in the plt entry and make a relocation, if this is a "real"
1511 PLT entry. */
1512 if (has_gotplt)
1513 {
1514 /* Fill in the offset into the reloc table. */
1515 bfd_put_32 (output_bfd,
1516 gotplt_index * sizeof (Elf32_External_Rela),
1517 splt->contents + h->plt.offset + plt_off2);
1518
1519 /* Fill in the offset to the first PLT entry, where to "jump". */
1520 bfd_put_32 (output_bfd, - (h->plt.offset + plt_off3 + 4),
1521 splt->contents + h->plt.offset + plt_off3);
1522
1523 /* Fill in the entry in the global offset table with the address of
1524 the relocating stub. */
1525 bfd_put_32 (output_bfd,
1526 (splt->output_section->vma
1527 + splt->output_offset
1528 + h->plt.offset
1529 + 8),
1530 sgotplt->contents + got_offset);
1531
1532 /* Fill in the entry in the .rela.plt section. */
1533 rela.r_offset = (sgotplt->output_section->vma
1534 + sgotplt->output_offset
1535 + got_offset);
1536 rela.r_info = ELF32_R_INFO (h->dynindx, R_CRIS_JUMP_SLOT);
1537 rela.r_addend = 0;
1538 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1539 ((Elf32_External_Rela *) srela->contents
1540 + gotplt_index));
1541 }
1542
1543 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1544 {
1545 /* Mark the symbol as undefined, rather than as defined in
1546 the .plt section. Leave the value alone. */
1547 sym->st_shndx = SHN_UNDEF;
1548
1549 /* FIXME: From elf32-sparc.c 2001-02-19 (1.18). I still don't
1550 know whether resetting the value is significant; if it really
1551 is, rather than a quirk or bug in the sparc port, then I
1552 believe we'd see this elsewhere. */
1553 /* If the symbol is weak, we do need to clear the value.
1554 Otherwise, the PLT entry would provide a definition for
1555 the symbol even if the symbol wasn't defined anywhere,
1556 and so the symbol would never be NULL. */
1557 if ((h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR_NONWEAK)
1558 == 0)
1559 sym->st_value = 0;
1560 }
1561 }
1562
1563 /* We don't emit .got relocs for symbols that aren't in the
1564 dynamic-symbols table for an ordinary program. */
1565 if (h->got.offset != (bfd_vma) -1
1566 && (info->shared || h->dynindx != -1))
1567 {
1568 asection *sgot;
1569 asection *srela;
1570 Elf_Internal_Rela rela;
1571 bfd_byte *where;
1572
1573 /* This symbol has an entry in the global offset table. Set it up. */
1574
1575 sgot = bfd_get_section_by_name (dynobj, ".got");
1576 srela = bfd_get_section_by_name (dynobj, ".rela.got");
1577 BFD_ASSERT (sgot != NULL && srela != NULL);
1578
1579 rela.r_offset = (sgot->output_section->vma
1580 + sgot->output_offset
1581 + (h->got.offset &~ (bfd_vma) 1));
1582
1583 /* If this is a static link, or it is a -Bsymbolic link and the
1584 symbol is defined locally or was forced to be local because
1585 of a version file, we just want to emit a RELATIVE reloc.
1586 The entry in the global offset table will already have been
1587 initialized in the relocate_section function. */
1588 where = sgot->contents + (h->got.offset &~ (bfd_vma) 1);
1589 if (! elf_hash_table (info)->dynamic_sections_created
1590 || (info->shared
1591 && (info->symbolic || h->dynindx == -1)
1592 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
1593 {
1594 rela.r_info = ELF32_R_INFO (0, R_CRIS_RELATIVE);
1595 rela.r_addend = bfd_get_signed_32 (output_bfd, where);
1596 }
1597 else
1598 {
1599 bfd_put_32 (output_bfd, (bfd_vma) 0, where);
1600 rela.r_info = ELF32_R_INFO (h->dynindx, R_CRIS_GLOB_DAT);
1601 rela.r_addend = 0;
1602 }
1603
1604 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1605 ((Elf32_External_Rela *) srela->contents
1606 + srela->reloc_count));
1607 ++srela->reloc_count;
1608 }
1609
1610 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
1611 {
1612 asection *s;
1613 Elf_Internal_Rela rela;
1614
1615 /* This symbol needs a copy reloc. Set it up. */
1616
1617 BFD_ASSERT (h->dynindx != -1
1618 && (h->root.type == bfd_link_hash_defined
1619 || h->root.type == bfd_link_hash_defweak));
1620
1621 s = bfd_get_section_by_name (h->root.u.def.section->owner,
1622 ".rela.bss");
1623 BFD_ASSERT (s != NULL);
1624
1625 rela.r_offset = (h->root.u.def.value
1626 + h->root.u.def.section->output_section->vma
1627 + h->root.u.def.section->output_offset);
1628 rela.r_info = ELF32_R_INFO (h->dynindx, R_CRIS_COPY);
1629 rela.r_addend = 0;
1630 bfd_elf32_swap_reloca_out (output_bfd, &rela,
1631 ((Elf32_External_Rela *) s->contents
1632 + s->reloc_count));
1633 ++s->reloc_count;
1634 }
1635
1636 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */
1637 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
1638 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
1639 sym->st_shndx = SHN_ABS;
1640
1641 return true;
1642 }
1643 \f
1644 /* Finish up the dynamic sections. */
1645
1646 static boolean
1647 elf_cris_finish_dynamic_sections (output_bfd, info)
1648 bfd *output_bfd;
1649 struct bfd_link_info *info;
1650 {
1651 bfd *dynobj;
1652 asection *sgot;
1653 asection *sdyn;
1654
1655 dynobj = elf_hash_table (info)->dynobj;
1656
1657 sgot = bfd_get_section_by_name (dynobj, ".got.plt");
1658 BFD_ASSERT (sgot != NULL);
1659 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
1660
1661 if (elf_hash_table (info)->dynamic_sections_created)
1662 {
1663 asection *splt;
1664 Elf32_External_Dyn *dyncon, *dynconend;
1665
1666 splt = bfd_get_section_by_name (dynobj, ".plt");
1667 BFD_ASSERT (splt != NULL && sdyn != NULL);
1668
1669 dyncon = (Elf32_External_Dyn *) sdyn->contents;
1670 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
1671 for (; dyncon < dynconend; dyncon++)
1672 {
1673 Elf_Internal_Dyn dyn;
1674 asection *s;
1675
1676 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
1677
1678 switch (dyn.d_tag)
1679 {
1680 default:
1681 break;
1682
1683 case DT_PLTGOT:
1684 s = bfd_get_section_by_name (output_bfd, ".got");
1685 BFD_ASSERT (s != NULL);
1686 dyn.d_un.d_ptr = s->vma;
1687 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1688 break;
1689
1690 case DT_JMPREL:
1691 /* Yes, we *can* have a .plt and no .plt.rela, for instance
1692 if all symbols are found in the .got (not .got.plt). */
1693 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1694 dyn.d_un.d_ptr = s != NULL ? s->vma : 0;
1695 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1696 break;
1697
1698 case DT_PLTRELSZ:
1699 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1700 if (s == NULL)
1701 dyn.d_un.d_val = 0;
1702 else if (s->_cooked_size != 0)
1703 dyn.d_un.d_val = s->_cooked_size;
1704 else
1705 dyn.d_un.d_val = s->_raw_size;
1706 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1707 break;
1708
1709 case DT_RELASZ:
1710 /* The procedure linkage table relocs (DT_JMPREL) should
1711 not be included in the overall relocs (DT_RELA).
1712 Therefore, we override the DT_RELASZ entry here to
1713 make it not include the JMPREL relocs. Since the
1714 linker script arranges for .rela.plt to follow all
1715 other relocation sections, we don't have to worry
1716 about changing the DT_RELA entry. */
1717 s = bfd_get_section_by_name (output_bfd, ".rela.plt");
1718 if (s != NULL)
1719 {
1720 if (s->_cooked_size != 0)
1721 dyn.d_un.d_val -= s->_cooked_size;
1722 else
1723 dyn.d_un.d_val -= s->_raw_size;
1724 }
1725 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
1726 break;
1727 }
1728 }
1729
1730 /* Fill in the first entry in the procedure linkage table. */
1731 if (splt->_raw_size > 0)
1732 {
1733 if (info->shared)
1734 memcpy (splt->contents, elf_cris_pic_plt0_entry, PLT_ENTRY_SIZE);
1735 else
1736 {
1737 memcpy (splt->contents, elf_cris_plt0_entry, PLT_ENTRY_SIZE);
1738 bfd_put_32 (output_bfd,
1739 sgot->output_section->vma + sgot->output_offset + 4,
1740 splt->contents + 6);
1741 bfd_put_32 (output_bfd,
1742 sgot->output_section->vma + sgot->output_offset + 8,
1743 splt->contents + 14);
1744
1745 elf_section_data (splt->output_section)->this_hdr.sh_entsize
1746 = PLT_ENTRY_SIZE;
1747 }
1748 }
1749 }
1750
1751 /* Fill in the first three entries in the global offset table. */
1752 if (sgot->_raw_size > 0)
1753 {
1754 if (sdyn == NULL)
1755 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
1756 else
1757 bfd_put_32 (output_bfd,
1758 sdyn->output_section->vma + sdyn->output_offset,
1759 sgot->contents);
1760 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
1761 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
1762 }
1763
1764 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
1765
1766 return true;
1767 }
1768 \f
1769 /* Return the section that should be marked against GC for a given
1770 relocation. */
1771
1772 static asection *
1773 cris_elf_gc_mark_hook (abfd, info, rel, h, sym)
1774 bfd * abfd;
1775 struct bfd_link_info * info ATTRIBUTE_UNUSED;
1776 Elf_Internal_Rela * rel;
1777 struct elf_link_hash_entry * h;
1778 Elf_Internal_Sym * sym;
1779 {
1780 if (h != NULL)
1781 {
1782 switch (ELF32_R_TYPE (rel->r_info))
1783 {
1784 case R_CRIS_GNU_VTINHERIT:
1785 case R_CRIS_GNU_VTENTRY:
1786 break;
1787
1788 default:
1789 switch (h->root.type)
1790 {
1791 case bfd_link_hash_defined:
1792 case bfd_link_hash_defweak:
1793 return h->root.u.def.section;
1794
1795 case bfd_link_hash_common:
1796 return h->root.u.c.p->section;
1797
1798 default:
1799 break;
1800 }
1801 }
1802 }
1803 else
1804 {
1805 if (!(elf_bad_symtab (abfd)
1806 && ELF_ST_BIND (sym->st_info) != STB_LOCAL)
1807 && ! ((sym->st_shndx <= 0 || sym->st_shndx >= SHN_LORESERVE)
1808 && sym->st_shndx != SHN_COMMON))
1809 {
1810 return bfd_section_from_elf_index (abfd, sym->st_shndx);
1811 }
1812 }
1813
1814 return NULL;
1815 }
1816
1817 /* Update the got entry reference counts for the section being removed. */
1818
1819 static boolean
1820 cris_elf_gc_sweep_hook (abfd, info, sec, relocs)
1821 bfd * abfd ATTRIBUTE_UNUSED;
1822 struct bfd_link_info * info ATTRIBUTE_UNUSED;
1823 asection * sec ATTRIBUTE_UNUSED;
1824 const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED;
1825 {
1826 Elf_Internal_Shdr *symtab_hdr;
1827 struct elf_link_hash_entry **sym_hashes;
1828 bfd_signed_vma *local_got_refcounts;
1829 const Elf_Internal_Rela *rel, *relend;
1830 unsigned long r_symndx;
1831 struct elf_link_hash_entry *h;
1832 bfd *dynobj;
1833 asection *sgot;
1834 asection *srelgot;
1835
1836 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1837 sym_hashes = elf_sym_hashes (abfd);
1838 local_got_refcounts = elf_local_got_refcounts (abfd);
1839
1840 dynobj = elf_hash_table (info)->dynobj;
1841 if (dynobj == NULL)
1842 return true;
1843
1844 sgot = bfd_get_section_by_name (dynobj, ".got");
1845 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1846
1847 relend = relocs + sec->reloc_count;
1848 for (rel = relocs; rel < relend; rel++)
1849 {
1850 switch (ELF32_R_TYPE (rel->r_info))
1851 {
1852 case R_CRIS_16_GOT:
1853 case R_CRIS_32_GOT:
1854 r_symndx = ELF32_R_SYM (rel->r_info);
1855 if (r_symndx >= symtab_hdr->sh_info)
1856 {
1857 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1858 if (h->got.refcount > 0)
1859 {
1860 --h->got.refcount;
1861 if (h->got.refcount == 0)
1862 {
1863 /* We don't need the .got entry any more. */
1864 sgot->_raw_size -= 4;
1865 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
1866 }
1867 }
1868 break;
1869 }
1870
1871 local_got_reloc:
1872 if (local_got_refcounts != NULL)
1873 {
1874 if (local_got_refcounts[r_symndx] > 0)
1875 {
1876 --local_got_refcounts[r_symndx];
1877 if (local_got_refcounts[r_symndx] == 0)
1878 {
1879 /* We don't need the .got entry any more. */
1880 sgot->_raw_size -= 4;
1881 if (info->shared)
1882 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
1883 }
1884 }
1885 }
1886 break;
1887
1888 case R_CRIS_16_GOTPLT:
1889 case R_CRIS_32_GOTPLT:
1890 /* For local symbols, treat these like GOT relocs. */
1891 r_symndx = ELF32_R_SYM (rel->r_info);
1892 if (r_symndx < symtab_hdr->sh_info)
1893 goto local_got_reloc;
1894
1895 case R_CRIS_32_PLT_GOTREL:
1896 /* FIXME: We don't garbage-collect away the .got section. */
1897 if (local_got_refcounts != NULL)
1898 local_got_refcounts[-1]--;
1899 /* Fall through. */
1900
1901 case R_CRIS_8_PCREL:
1902 case R_CRIS_16_PCREL:
1903 case R_CRIS_32_PCREL:
1904 case R_CRIS_32_PLT_PCREL:
1905 r_symndx = ELF32_R_SYM (rel->r_info);
1906 if (r_symndx >= symtab_hdr->sh_info)
1907 {
1908 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1909 if (h->plt.refcount > 0)
1910 --h->plt.refcount;
1911 }
1912 break;
1913
1914 default:
1915 break;
1916 }
1917 }
1918
1919 return true;
1920 }
1921
1922 /* Make sure we emit a GOT entry if the symbol was supposed to have a PLT
1923 entry but we found we will not create any. Called when we find we will
1924 not have any PLT for this symbol, by for example
1925 elf_cris_adjust_dynamic_symbol when we're doing a proper dynamic link,
1926 or elf_cris_size_dynamic_sections if no dynamic sections will be
1927 created (we're only linking static objects). */
1928
1929 static boolean
1930 elf_cris_adjust_gotplt_to_got (h, p)
1931 struct elf_cris_link_hash_entry *h;
1932 PTR p;
1933 {
1934 struct bfd_link_info *info = (struct bfd_link_info *) p;
1935 bfd *dynobj = elf_hash_table (info)->dynobj;
1936
1937 BFD_ASSERT (dynobj != NULL);
1938
1939 /* If nobody wanted a GOTPLT with this symbol, we're done. */
1940 if (h->gotplt_refcount <= 0)
1941 return true;
1942
1943 if (h->root.got.refcount > 0)
1944 {
1945 /* There's a GOT entry for this symbol. Just adjust the refcount.
1946 Probably not necessary at this stage, but keeping it accurate
1947 helps avoiding surprises later. */
1948 h->root.got.refcount += h->gotplt_refcount;
1949 h->gotplt_refcount = -1;
1950 }
1951 else
1952 {
1953 /* No GOT entry for this symbol. We need to create one. */
1954 asection *sgot = bfd_get_section_by_name (dynobj, ".got");
1955 asection *srelgot
1956 = bfd_get_section_by_name (dynobj, ".rela.got");
1957
1958 /* Put an accurate refcount there. */
1959 h->root.got.refcount = h->gotplt_refcount;
1960
1961 h->gotplt_refcount = -1;
1962
1963 /* We always have a .got section when there are dynamic
1964 relocs. */
1965 BFD_ASSERT (sgot != NULL /* Surely have .got section. */);
1966
1967 /* We might have had a PLT but with no GOT entry and
1968 further no GOT reloc section at all needed before.
1969 Add it. */
1970 if (srelgot == NULL)
1971 {
1972 srelgot = bfd_make_section (dynobj, ".rela.got");
1973
1974 if (srelgot == NULL
1975 || !bfd_set_section_flags (dynobj, srelgot,
1976 (SEC_ALLOC
1977 | SEC_LOAD
1978 | SEC_HAS_CONTENTS
1979 | SEC_IN_MEMORY
1980 | SEC_LINKER_CREATED
1981 | SEC_READONLY))
1982 || !bfd_set_section_alignment (dynobj, srelgot, 2))
1983 return false;
1984 }
1985
1986 /* Allocate space in the .got section. */
1987 sgot->_raw_size += 4;
1988
1989 /* Allocate relocation space. */
1990 srelgot->_raw_size += sizeof (Elf32_External_Rela);
1991 }
1992
1993 return true;
1994 }
1995
1996 /* Try to fold PLT entries with GOT entries. There are two cases when we
1997 want to do this:
1998
1999 - When all PLT references are GOTPLT references, and there are GOT
2000 references. We don't have to generate a PLT at all.
2001
2002 - When there are both (ordinary) PLT references and GOT references.
2003 We want to make the PLT reference use the ordinary GOT entry rather
2004 than a run-time dynamically resolved GOTPLT entry (since the GOT
2005 entry will have to be resolved at startup anyway).
2006
2007 Though the latter case is handled when room for the PLT is allocated,
2008 not here.
2009
2010 Note that this function is called before symbols are forced local by
2011 version scripts. The differing cases are handled by
2012 elf_cris_hide_symbol. */
2013
2014 static boolean
2015 elf_cris_try_fold_plt_to_got (h, p)
2016 struct elf_cris_link_hash_entry *h;
2017 PTR p;
2018 {
2019 struct bfd_link_info *info = (struct bfd_link_info *) p;
2020
2021 /* If there are no GOT references for this symbol, we can't fold any
2022 other reference so there's nothing to do. Likewise if there are no
2023 PLT references; GOTPLT references included. */
2024 if (h->root.got.refcount <= 0 || h->root.plt.refcount <= 0)
2025 return true;
2026
2027 /* GOTPLT relocs are supposed to be included into the PLT refcount. */
2028 BFD_ASSERT (h->gotplt_refcount <= h->root.plt.refcount);
2029
2030 if (h->gotplt_refcount == h->root.plt.refcount)
2031 {
2032 /* The only PLT references are GOTPLT references, and there are GOT
2033 references. Convert PLT to GOT references. */
2034 if (! elf_cris_adjust_gotplt_to_got (h, info))
2035 return false;
2036
2037 /* Clear the PLT references, so no PLT will be created. */
2038 h->root.plt.offset = (bfd_vma) -1;
2039 }
2040
2041 return true;
2042 }
2043
2044 /* Our own version of hide_symbol, so that we can adjust a GOTPLT reloc
2045 to use a GOT entry (and create one) rather than requiring a GOTPLT
2046 entry. */
2047
2048 static void
2049 elf_cris_hide_symbol (info, h)
2050 struct bfd_link_info *info;
2051 struct elf_link_hash_entry *h;
2052 {
2053 elf_cris_adjust_gotplt_to_got ((struct elf_cris_link_hash_entry *) h, info);
2054
2055 _bfd_elf_link_hash_hide_symbol (info, h);
2056 }
2057
2058 /* Adjust a symbol defined by a dynamic object and referenced by a
2059 regular object. The current definition is in some section of the
2060 dynamic object, but we're not including those sections. We have to
2061 change the definition to something the rest of the link can
2062 understand. */
2063
2064 static boolean
2065 elf_cris_adjust_dynamic_symbol (info, h)
2066 struct bfd_link_info *info;
2067 struct elf_link_hash_entry *h;
2068 {
2069 bfd *dynobj;
2070 asection *s;
2071 unsigned int power_of_two;
2072
2073 dynobj = elf_hash_table (info)->dynobj;
2074
2075 /* Make sure we know what is going on here. */
2076 BFD_ASSERT (dynobj != NULL
2077 && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
2078 || h->weakdef != NULL
2079 || ((h->elf_link_hash_flags
2080 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
2081 && (h->elf_link_hash_flags
2082 & ELF_LINK_HASH_REF_REGULAR) != 0
2083 && (h->elf_link_hash_flags
2084 & ELF_LINK_HASH_DEF_REGULAR) == 0)));
2085
2086 /* If this is a function, put it in the procedure linkage table. We
2087 will fill in the contents of the procedure linkage table later,
2088 when we know the address of the .got section. */
2089 if (h->type == STT_FUNC
2090 || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
2091 {
2092 if (! info->shared
2093 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0
2094 && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) == 0
2095 /* We must always create the plt entry if it was referenced by a
2096 PLT relocation. In this case we already recorded it as a
2097 dynamic symbol. */
2098 /* FIXME: m68k and i386 differ here, for unclear reasons. */
2099 && h->dynindx == -1)
2100 {
2101 /* This case can occur if we saw a PLT reloc in an input file,
2102 but the symbol was never referred to by a dynamic object. In
2103 such a case, we don't actually need to build a procedure
2104 linkage table, and we can just do a PC reloc instead, or
2105 change a .got.plt index to a .got index for GOTPLT relocs. */
2106 BFD_ASSERT ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0);
2107 h->plt.offset = (bfd_vma) -1;
2108
2109 return
2110 elf_cris_adjust_gotplt_to_got ((struct
2111 elf_cris_link_hash_entry *) h,
2112 info);
2113 }
2114
2115 /* If there are only GOT references and GOTPLT references to this
2116 PLT entry, get rid of the PLT. */
2117 if (! elf_cris_try_fold_plt_to_got ((struct elf_cris_link_hash_entry *)
2118 h, info))
2119 return false;
2120
2121 /* GC or folding may have rendered this entry unused. */
2122 if (h->plt.refcount <= 0)
2123 {
2124 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
2125 h->plt.offset = (bfd_vma) -1;
2126 return true;
2127 }
2128
2129 /* Make sure this symbol is output as a dynamic symbol. */
2130 if (h->dynindx == -1)
2131 {
2132 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
2133 return false;
2134 }
2135
2136 s = bfd_get_section_by_name (dynobj, ".plt");
2137 BFD_ASSERT (s != NULL);
2138
2139 /* If this is the first .plt entry, make room for the special
2140 first entry. */
2141 if (s->_raw_size == 0)
2142 s->_raw_size += PLT_ENTRY_SIZE;
2143
2144 /* If this symbol is not defined in a regular file, and we are
2145 not generating a shared library, then set the symbol to this
2146 location in the .plt. This is required to make function
2147 pointers compare as equal between the normal executable and
2148 the shared library. */
2149 if (!info->shared
2150 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
2151 {
2152 h->root.u.def.section = s;
2153 h->root.u.def.value = s->_raw_size;
2154 }
2155
2156 /* If there's already a GOT entry, use that, not a .got.plt. A
2157 GOT field still has a reference count when we get here; it's
2158 not yet changed to an offset. */
2159 if (h->got.refcount > 0)
2160 {
2161 h->got.refcount += h->plt.refcount;
2162
2163 /* Mark the PLT offset to use the GOT entry by setting the low
2164 bit in the plt offset; it is always a multiple of
2165 pointer-size. */
2166 BFD_ASSERT ((s->_raw_size & 3) == 0);
2167
2168 /* Change the PLT refcount to an offset. */
2169 h->plt.offset = s->_raw_size;
2170
2171 /* By not setting gotplt_offset (i.e. it remains at 0), we signal
2172 that the got entry should be used instead. */
2173 BFD_ASSERT (((struct elf_cris_link_hash_entry *)
2174 h)->gotplt_offset == 0);
2175
2176 /* Make room for this entry. */
2177 s->_raw_size += PLT_ENTRY_SIZE;
2178
2179 return true;
2180 }
2181
2182 /* No GOT reference for this symbol; prepare for an ordinary PLT. */
2183 h->plt.offset = s->_raw_size;
2184
2185 /* Make room for this entry. */
2186 s->_raw_size += PLT_ENTRY_SIZE;
2187
2188 /* We also need to make an entry in the .got.plt section, which
2189 will be placed in the .got section by the linker script. */
2190 ((struct elf_cris_link_hash_entry *) h)->gotplt_offset
2191 = elf_cris_hash_table (info)->next_gotplt_entry;
2192 elf_cris_hash_table (info)->next_gotplt_entry += 4;
2193
2194 s = bfd_get_section_by_name (dynobj, ".got.plt");
2195 BFD_ASSERT (s != NULL);
2196 s->_raw_size += 4;
2197
2198 /* We also need to make an entry in the .rela.plt section. */
2199
2200 s = bfd_get_section_by_name (dynobj, ".rela.plt");
2201 BFD_ASSERT (s != NULL);
2202 s->_raw_size += sizeof (Elf32_External_Rela);
2203
2204 return true;
2205 }
2206
2207 /* Reinitialize the plt offset now that it is not used as a reference
2208 count any more. */
2209 h->plt.offset = (bfd_vma) -1;
2210
2211 /* If this is a weak symbol, and there is a real definition, the
2212 processor independent code will have arranged for us to see the
2213 real definition first, and we can just use the same value. */
2214 if (h->weakdef != NULL)
2215 {
2216 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
2217 || h->weakdef->root.type == bfd_link_hash_defweak);
2218 h->root.u.def.section = h->weakdef->root.u.def.section;
2219 h->root.u.def.value = h->weakdef->root.u.def.value;
2220 return true;
2221 }
2222
2223 /* This is a reference to a symbol defined by a dynamic object which
2224 is not a function. */
2225
2226 /* If we are creating a shared library, we must presume that the
2227 only references to the symbol are via the global offset table.
2228 For such cases we need not do anything here; the relocations will
2229 be handled correctly by relocate_section. */
2230 if (info->shared)
2231 return true;
2232
2233 /* If there are no references to this symbol that do not use the
2234 GOT, we don't need to generate a copy reloc. */
2235 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0)
2236 return true;
2237
2238 /* We must allocate the symbol in our .dynbss section, which will
2239 become part of the .bss section of the executable. There will be
2240 an entry for this symbol in the .dynsym section. The dynamic
2241 object will contain position independent code, so all references
2242 from the dynamic object to this symbol will go through the global
2243 offset table. The dynamic linker will use the .dynsym entry to
2244 determine the address it must put in the global offset table, so
2245 both the dynamic object and the regular object will refer to the
2246 same memory location for the variable. */
2247
2248 s = bfd_get_section_by_name (dynobj, ".dynbss");
2249 BFD_ASSERT (s != NULL);
2250
2251 /* We must generate a R_CRIS_COPY reloc to tell the dynamic linker to
2252 copy the initial value out of the dynamic object and into the
2253 runtime process image. We need to remember the offset into the
2254 .rela.bss section we are going to use. */
2255 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
2256 {
2257 asection *srel;
2258
2259 srel = bfd_get_section_by_name (dynobj, ".rela.bss");
2260 BFD_ASSERT (srel != NULL);
2261 srel->_raw_size += sizeof (Elf32_External_Rela);
2262 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
2263 }
2264
2265 /* Historic precedent: m68k and i386 allow max 8-byte alignment for the
2266 thing to copy; so do we. */
2267
2268 /* We need to figure out the alignment required for this symbol. I
2269 have no idea how ELF linkers handle this. */
2270 power_of_two = bfd_log2 (h->size);
2271 if (power_of_two > 3)
2272 power_of_two = 3;
2273
2274 /* Apply the required alignment. */
2275 s->_raw_size = BFD_ALIGN (s->_raw_size,
2276 (bfd_size_type) (1 << power_of_two));
2277 if (power_of_two > bfd_get_section_alignment (dynobj, s))
2278 {
2279 if (!bfd_set_section_alignment (dynobj, s, power_of_two))
2280 return false;
2281 }
2282
2283 /* Define the symbol as being at this point in the section. */
2284 h->root.u.def.section = s;
2285 h->root.u.def.value = s->_raw_size;
2286
2287 /* Increment the section size to make room for the symbol. */
2288 s->_raw_size += h->size;
2289
2290 return true;
2291 }
2292
2293 /* Look through the relocs for a section during the first phase. */
2294
2295 static boolean
2296 cris_elf_check_relocs (abfd, info, sec, relocs)
2297 bfd *abfd;
2298 struct bfd_link_info *info;
2299 asection *sec;
2300 const Elf_Internal_Rela *relocs;
2301 {
2302 bfd *dynobj;
2303 Elf_Internal_Shdr *symtab_hdr;
2304 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
2305 bfd_signed_vma *local_got_refcounts;
2306 const Elf_Internal_Rela *rel;
2307 const Elf_Internal_Rela *rel_end;
2308 asection *sgot;
2309 asection *srelgot;
2310 asection *sreloc;
2311
2312 if (info->relocateable)
2313 return true;
2314
2315 dynobj = elf_hash_table (info)->dynobj;
2316 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2317 sym_hashes = elf_sym_hashes (abfd);
2318 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
2319 local_got_refcounts = elf_local_got_refcounts (abfd);
2320
2321 sgot = NULL;
2322 srelgot = NULL;
2323 sreloc = NULL;
2324
2325 if (!elf_bad_symtab (abfd))
2326 sym_hashes_end -= symtab_hdr->sh_info;
2327
2328 rel_end = relocs + sec->reloc_count;
2329 for (rel = relocs; rel < rel_end; rel++)
2330 {
2331 struct elf_link_hash_entry *h;
2332 unsigned long r_symndx;
2333 enum elf_cris_reloc_type r_type;
2334
2335 r_symndx = ELF32_R_SYM (rel->r_info);
2336 if (r_symndx < symtab_hdr->sh_info)
2337 h = NULL;
2338 else
2339 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2340
2341 r_type = ELF32_R_TYPE (rel->r_info);
2342
2343 /* Some relocs require linker-created sections; we need to hang them
2344 on the first input bfd we found that contained dynamic relocs. */
2345 switch (r_type)
2346 {
2347 case R_CRIS_16_GOT:
2348 case R_CRIS_32_GOT:
2349 case R_CRIS_32_GOTREL:
2350 case R_CRIS_32_PLT_GOTREL:
2351 case R_CRIS_32_PLT_PCREL:
2352 case R_CRIS_16_GOTPLT:
2353 case R_CRIS_32_GOTPLT:
2354 if (dynobj == NULL)
2355 {
2356 elf_hash_table (info)->dynobj = dynobj = abfd;
2357
2358 /* Create the .got section, so we can assume it's always
2359 present whenever there's a dynobj. */
2360 if (!_bfd_elf_create_got_section (dynobj, info))
2361 return false;
2362 }
2363 break;
2364
2365 default:
2366 break;
2367 }
2368
2369 /* Some relocs require a global offset table (but perhaps not a
2370 specific GOT entry). */
2371 switch (r_type)
2372 {
2373 case R_CRIS_16_GOT:
2374 case R_CRIS_32_GOT:
2375 case R_CRIS_32_GOTREL:
2376 case R_CRIS_32_PLT_GOTREL:
2377 if (sgot == NULL)
2378 sgot = bfd_get_section_by_name (dynobj, ".got");
2379
2380 if (local_got_refcounts == NULL)
2381 {
2382 bfd_size_type amt;
2383
2384 /* We use index local_got_refcounts[-1] to count all
2385 GOT-relative relocations that do not have explicit
2386 GOT entries. */
2387 amt = symtab_hdr->sh_info + 1;
2388 amt *= sizeof (bfd_signed_vma);
2389 local_got_refcounts = ((bfd_signed_vma *) bfd_zalloc (abfd, amt));
2390 if (local_got_refcounts == NULL)
2391 return false;
2392
2393 local_got_refcounts++;
2394 elf_local_got_refcounts (abfd) = local_got_refcounts;
2395 }
2396 break;
2397
2398 default:
2399 break;
2400 }
2401
2402 switch (r_type)
2403 {
2404 case R_CRIS_16_GOTPLT:
2405 case R_CRIS_32_GOTPLT:
2406 /* Mark that we need a GOT entry if the PLT entry (and its GOT
2407 entry) is eliminated. We can only do this for a non-local
2408 symbol. */
2409 if (h != NULL)
2410 {
2411 ((struct elf_cris_link_hash_entry *) h)->gotplt_refcount++;
2412 goto handle_gotplt_reloc;
2413 }
2414 /* If h is NULL then this is a local symbol, and we must make a
2415 GOT entry for it, so handle it like a GOT reloc. */
2416 /* Fall through. */
2417
2418 case R_CRIS_16_GOT:
2419 case R_CRIS_32_GOT:
2420 /* This symbol requires a global offset table entry. */
2421
2422 if (srelgot == NULL
2423 && (h != NULL || info->shared))
2424 {
2425 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2426 if (srelgot == NULL)
2427 {
2428 srelgot = bfd_make_section (dynobj, ".rela.got");
2429 if (srelgot == NULL
2430 || !bfd_set_section_flags (dynobj, srelgot,
2431 (SEC_ALLOC
2432 | SEC_LOAD
2433 | SEC_HAS_CONTENTS
2434 | SEC_IN_MEMORY
2435 | SEC_LINKER_CREATED
2436 | SEC_READONLY))
2437 || !bfd_set_section_alignment (dynobj, srelgot, 2))
2438 return false;
2439 }
2440 }
2441
2442 if (h != NULL)
2443 {
2444 if (h->got.refcount == 0)
2445 {
2446 /* Make sure this symbol is output as a dynamic symbol. */
2447 if (h->dynindx == -1)
2448 {
2449 if (!bfd_elf32_link_record_dynamic_symbol (info, h))
2450 return false;
2451 }
2452
2453 /* Allocate space in the .got section. */
2454 sgot->_raw_size += 4;
2455 /* Allocate relocation space. */
2456 srelgot->_raw_size += sizeof (Elf32_External_Rela);
2457 }
2458 h->got.refcount++;
2459 }
2460 else
2461 {
2462 /* This is a global offset table entry for a local symbol. */
2463 if (local_got_refcounts[r_symndx] == 0)
2464 {
2465 sgot->_raw_size += 4;
2466 if (info->shared)
2467 {
2468 /* If we are generating a shared object, we need to
2469 output a R_CRIS_RELATIVE reloc so that the dynamic
2470 linker can adjust this GOT entry. */
2471 srelgot->_raw_size += sizeof (Elf32_External_Rela);
2472 }
2473 }
2474 local_got_refcounts[r_symndx]++;
2475 }
2476 break;
2477
2478 case R_CRIS_32_GOTREL:
2479 /* This reference requires a global offset table.
2480 FIXME: The actual refcount isn't used currently; the .got
2481 section can't be removed if there were any references in the
2482 input. */
2483 local_got_refcounts[-1]++;
2484 break;
2485
2486 handle_gotplt_reloc:
2487
2488 case R_CRIS_32_PLT_GOTREL:
2489 /* This reference requires a global offset table. */
2490 local_got_refcounts[-1]++;
2491 /* Fall through. */
2492
2493 case R_CRIS_32_PLT_PCREL:
2494 /* This symbol requires a procedure linkage table entry. We
2495 actually build the entry in adjust_dynamic_symbol,
2496 because this might be a case of linking PIC code which is
2497 never referenced by a dynamic object, in which case we
2498 don't need to generate a procedure linkage table entry
2499 after all. */
2500
2501 /* If this is a local symbol, we resolve it directly without
2502 creating a procedure linkage table entry. */
2503 if (h == NULL)
2504 continue;
2505
2506 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2507 h->plt.refcount++;
2508 break;
2509
2510 case R_CRIS_8:
2511 case R_CRIS_16:
2512 case R_CRIS_32:
2513 /* Let's help debug shared library creation. Any of these
2514 relocs can be used in shared libs, but pages containing them
2515 cannot be shared. Don't warn for sections we don't care
2516 about, such as debug sections or non-constant sections. We
2517 can't help tables of (global) function pointers, for example,
2518 though they must be emitted in a data section to avoid having
2519 impure text sections. */
2520 if (info->shared
2521 && (sec->flags & SEC_ALLOC) != 0
2522 && (sec->flags & SEC_READONLY) != 0)
2523 {
2524 /* FIXME: How do we make this optionally a warning only? */
2525 (*_bfd_error_handler)
2526 (_("%s, section %s:\n relocation %s should not be used in a shared object; recompile with -fPIC"),
2527 bfd_archive_filename (abfd),
2528 sec->name,
2529 cris_elf_howto_table[r_type].name);
2530 }
2531 /* Fall through. */
2532
2533 case R_CRIS_8_PCREL:
2534 case R_CRIS_16_PCREL:
2535 case R_CRIS_32_PCREL:
2536 if (h != NULL)
2537 {
2538 h->elf_link_hash_flags |= ELF_LINK_NON_GOT_REF;
2539
2540 /* Make sure a plt entry is created for this symbol if it
2541 turns out to be a function defined by a dynamic object. */
2542 h->plt.refcount++;
2543 }
2544
2545 /* If we are creating a shared library and this is not a local
2546 symbol, we need to copy the reloc into the shared library.
2547 However when linking with -Bsymbolic and this is a global
2548 symbol which is defined in an object we are including in the
2549 link (i.e., DEF_REGULAR is set), then we can resolve the
2550 reloc directly. At this point we have not seen all the input
2551 files, so it is possible that DEF_REGULAR is not set now but
2552 will be set later (it is never cleared). In case of a weak
2553 definition, DEF_REGULAR may be cleared later by a strong
2554 definition in a shared library. We account for that
2555 possibility below by storing information in the relocs_copied
2556 field of the hash table entry. A similar situation occurs
2557 when creating shared libraries and symbol visibility changes
2558 render the symbol local. */
2559
2560 /* No need to do anything if we're not creating a shared object. */
2561 if (! info->shared)
2562 break;
2563
2564 /* We don't need to handle relocs into sections not going into
2565 the "real" output. */
2566 if ((sec->flags & SEC_ALLOC) == 0)
2567 break;
2568
2569 /* We can only eliminate PC-relative relocs. */
2570 if (r_type == R_CRIS_8_PCREL
2571 || r_type == R_CRIS_16_PCREL
2572 || r_type == R_CRIS_32_PCREL)
2573 {
2574 /* If the symbol is local, then we can eliminate the reloc. */
2575 if (h == NULL)
2576 break;
2577
2578 /* If this is with -Bsymbolic and the symbol isn't weak, and
2579 is defined by an ordinary object (the ones we include in
2580 this shared library) then we can also eliminate the
2581 reloc. See comment above for more eliminable cases which
2582 we can't identify at this time. */
2583 if (info->symbolic
2584 && h->root.type != bfd_link_hash_defweak
2585 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0)
2586 break;
2587 }
2588
2589 /* We create a reloc section in dynobj and make room for this
2590 reloc. */
2591 if (sreloc == NULL)
2592 {
2593 const char *name;
2594
2595 name = (bfd_elf_string_from_elf_section
2596 (abfd,
2597 elf_elfheader (abfd)->e_shstrndx,
2598 elf_section_data (sec)->rel_hdr.sh_name));
2599 if (name == NULL)
2600 return false;
2601
2602 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
2603 && strcmp (bfd_get_section_name (abfd, sec),
2604 name + 5) == 0);
2605
2606 sreloc = bfd_get_section_by_name (dynobj, name);
2607 if (sreloc == NULL)
2608 {
2609 sreloc = bfd_make_section (dynobj, name);
2610 if (sreloc == NULL
2611 || !bfd_set_section_flags (dynobj, sreloc,
2612 (SEC_ALLOC
2613 | SEC_LOAD
2614 | SEC_HAS_CONTENTS
2615 | SEC_IN_MEMORY
2616 | SEC_LINKER_CREATED
2617 | SEC_READONLY))
2618 || !bfd_set_section_alignment (dynobj, sreloc, 2))
2619 return false;
2620 }
2621 if (sec->flags & SEC_READONLY)
2622 info->flags |= DF_TEXTREL;
2623 }
2624
2625 sreloc->_raw_size += sizeof (Elf32_External_Rela);
2626
2627 /* If we are linking with -Bsymbolic, we count the number of PC
2628 relative relocations we have entered for this symbol, so that
2629 we can discard them again if the symbol is later defined by a
2630 regular object. We know that h is really a pointer to an
2631 elf_cris_link_hash_entry. */
2632 if ((r_type == R_CRIS_8_PCREL
2633 || r_type == R_CRIS_16_PCREL
2634 || r_type == R_CRIS_32_PCREL)
2635 && info->symbolic)
2636 {
2637 struct elf_cris_link_hash_entry *eh;
2638 struct elf_cris_pcrel_relocs_copied *p;
2639
2640 eh = (struct elf_cris_link_hash_entry *) h;
2641
2642 for (p = eh->pcrel_relocs_copied; p != NULL; p = p->next)
2643 if (p->section == sreloc)
2644 break;
2645
2646 if (p == NULL)
2647 {
2648 p = ((struct elf_cris_pcrel_relocs_copied *)
2649 bfd_alloc (dynobj, (bfd_size_type) sizeof *p));
2650 if (p == NULL)
2651 return false;
2652 p->next = eh->pcrel_relocs_copied;
2653 eh->pcrel_relocs_copied = p;
2654 p->section = sreloc;
2655 p->count = 0;
2656 }
2657
2658 ++p->count;
2659 }
2660 break;
2661
2662 /* This relocation describes the C++ object vtable hierarchy.
2663 Reconstruct it for later use during GC. */
2664 case R_CRIS_GNU_VTINHERIT:
2665 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2666 return false;
2667 break;
2668
2669 /* This relocation describes which C++ vtable entries are actually
2670 used. Record for later use during GC. */
2671 case R_CRIS_GNU_VTENTRY:
2672 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2673 return false;
2674 break;
2675
2676 default:
2677 /* Other relocs do not appear here. */
2678 bfd_set_error (bfd_error_bad_value);
2679 return false;
2680 }
2681 }
2682
2683 return true;
2684 }
2685
2686 /* Set the sizes of the dynamic sections. */
2687
2688 static boolean
2689 elf_cris_size_dynamic_sections (output_bfd, info)
2690 bfd *output_bfd ATTRIBUTE_UNUSED;
2691 struct bfd_link_info *info;
2692 {
2693 bfd *dynobj;
2694 asection *s;
2695 boolean plt;
2696 boolean relocs;
2697
2698 dynobj = elf_hash_table (info)->dynobj;
2699 BFD_ASSERT (dynobj != NULL);
2700
2701 if (elf_hash_table (info)->dynamic_sections_created)
2702 {
2703 /* Set the contents of the .interp section to the interpreter. */
2704 if (!info->shared)
2705 {
2706 s = bfd_get_section_by_name (dynobj, ".interp");
2707 BFD_ASSERT (s != NULL);
2708 s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
2709 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2710 }
2711 }
2712 else
2713 {
2714 /* Adjust all expected GOTPLT uses to use a GOT entry instead. */
2715 elf_cris_link_hash_traverse (elf_cris_hash_table (info),
2716 elf_cris_adjust_gotplt_to_got,
2717 (PTR) info);
2718
2719 /* We may have created entries in the .rela.got section.
2720 However, if we are not creating the dynamic sections, we will
2721 not actually use these entries. Reset the size of .rela.got,
2722 which will cause it to get stripped from the output file
2723 below. */
2724 s = bfd_get_section_by_name (dynobj, ".rela.got");
2725 if (s != NULL)
2726 s->_raw_size = 0;
2727 }
2728
2729 /* If this is a -Bsymbolic shared link, then we need to discard all PC
2730 relative relocs against symbols defined in a regular object. We
2731 allocated space for them in the check_relocs routine, but we will not
2732 fill them in in the relocate_section routine. We also discard space
2733 for relocs that have become for local symbols due to symbol
2734 visibility changes. For programs, we discard space for relocs for
2735 symbols not referenced by any dynamic object. */
2736 if (info->shared)
2737 elf_cris_link_hash_traverse (elf_cris_hash_table (info),
2738 elf_cris_discard_excess_dso_dynamics,
2739 (PTR) info);
2740 else
2741 elf_cris_link_hash_traverse (elf_cris_hash_table (info),
2742 elf_cris_discard_excess_program_dynamics,
2743 (PTR) info);
2744
2745 /* The check_relocs and adjust_dynamic_symbol entry points have
2746 determined the sizes of the various dynamic sections. Allocate
2747 memory for them. */
2748 plt = false;
2749 relocs = false;
2750 for (s = dynobj->sections; s != NULL; s = s->next)
2751 {
2752 const char *name;
2753 boolean strip;
2754
2755 if ((s->flags & SEC_LINKER_CREATED) == 0)
2756 continue;
2757
2758 /* It's OK to base decisions on the section name, because none
2759 of the dynobj section names depend upon the input files. */
2760 name = bfd_get_section_name (dynobj, s);
2761
2762 strip = false;
2763
2764 if (strcmp (name, ".plt") == 0)
2765 {
2766 if (s->_raw_size == 0)
2767 {
2768 /* Strip this section if we don't need it; see the
2769 comment below. */
2770 strip = true;
2771 }
2772 else
2773 {
2774 /* Remember whether there is a PLT. */
2775 plt = true;
2776 }
2777 }
2778 else if (strncmp (name, ".rela", 5) == 0)
2779 {
2780 if (s->_raw_size == 0)
2781 {
2782 /* If we don't need this section, strip it from the
2783 output file. This is mostly to handle .rela.bss and
2784 .rela.plt. We must create both sections in
2785 create_dynamic_sections, because they must be created
2786 before the linker maps input sections to output
2787 sections. The linker does that before
2788 adjust_dynamic_symbol is called, and it is that
2789 function which decides whether anything needs to go
2790 into these sections. */
2791 strip = true;
2792 }
2793 else
2794 {
2795 /* Remember whether there are any reloc sections other
2796 than .rela.plt. */
2797 if (strcmp (name, ".rela.plt") != 0)
2798 relocs = true;
2799
2800 /* We use the reloc_count field as a counter if we need
2801 to copy relocs into the output file. */
2802 s->reloc_count = 0;
2803 }
2804 }
2805 else if (strncmp (name, ".got", 4) != 0)
2806 {
2807 /* It's not one of our sections, so don't allocate space. */
2808 continue;
2809 }
2810
2811 if (strip)
2812 {
2813 _bfd_strip_section_from_output (info, s);
2814 continue;
2815 }
2816
2817 /* Allocate memory for the section contents. We use bfd_zalloc here
2818 in case unused entries are not reclaimed before the section's
2819 contents are written out. This should not happen, but this way
2820 if it does, we will not write out garbage. For reloc sections,
2821 this will make entries have the type R_CRIS_NONE. */
2822 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
2823 if (s->contents == NULL && s->_raw_size != 0)
2824 return false;
2825 }
2826
2827 if (elf_hash_table (info)->dynamic_sections_created)
2828 {
2829 /* Add some entries to the .dynamic section. We fill in the
2830 values later, in elf_cris_finish_dynamic_sections, but we
2831 must add the entries now so that we get the correct size for
2832 the .dynamic section. The DT_DEBUG entry is filled in by the
2833 dynamic linker and used by the debugger. */
2834 #define add_dynamic_entry(TAG, VAL) \
2835 bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
2836
2837 if (!info->shared)
2838 {
2839 if (!add_dynamic_entry (DT_DEBUG, 0))
2840 return false;
2841 }
2842
2843 if (plt)
2844 {
2845 if (!add_dynamic_entry (DT_PLTGOT, 0)
2846 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2847 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2848 || !add_dynamic_entry (DT_JMPREL, 0))
2849 return false;
2850 }
2851
2852 if (relocs)
2853 {
2854 if (!add_dynamic_entry (DT_RELA, 0)
2855 || !add_dynamic_entry (DT_RELASZ, 0)
2856 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
2857 return false;
2858 }
2859
2860 if ((info->flags & DF_TEXTREL) != 0)
2861 {
2862 if (!add_dynamic_entry (DT_TEXTREL, 0))
2863 return false;
2864 info->flags |= DF_TEXTREL;
2865 }
2866 }
2867 #undef add_dynamic_entry
2868
2869 return true;
2870 }
2871
2872 /* This function is called via elf_cris_link_hash_traverse if we are
2873 creating a shared object. In the -Bsymbolic case, it discards the
2874 space allocated to copy PC relative relocs against symbols which
2875 are defined in regular objects. For the normal non-symbolic case,
2876 we also discard space for relocs that have become local due to
2877 symbol visibility changes. We allocated space for them in the
2878 check_relocs routine, but we won't fill them in in the
2879 relocate_section routine. */
2880
2881 static boolean
2882 elf_cris_discard_excess_dso_dynamics (h, inf)
2883 struct elf_cris_link_hash_entry *h;
2884 PTR inf;
2885 {
2886 struct elf_cris_pcrel_relocs_copied *s;
2887 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2888
2889 /* If a symbol has been forced local or we have found a regular
2890 definition for the symbolic link case, then we won't be needing
2891 any relocs. */
2892 if ((h->root.elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0
2893 && ((h->root.elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0
2894 || info->symbolic))
2895 {
2896 for (s = h->pcrel_relocs_copied; s != NULL; s = s->next)
2897 s->section->_raw_size -= s->count * sizeof (Elf32_External_Rela);
2898 }
2899
2900 return true;
2901 }
2902
2903 /* This function is called via elf_cris_link_hash_traverse if we are *not*
2904 creating a shared object. We discard space for relocs for symbols put
2905 in the .got, but which we found we do not have to resolve at run-time. */
2906
2907 static boolean
2908 elf_cris_discard_excess_program_dynamics (h, inf)
2909 struct elf_cris_link_hash_entry *h;
2910 PTR inf;
2911 {
2912 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2913
2914 /* If we're not creating a shared library and have a symbol which is
2915 referred to by .got references, but the symbol is defined locally,
2916 (or rather, not referred to by a DSO and not defined by a DSO) then
2917 lose the reloc for the .got (don't allocate room for it). */
2918 if ((h->root.elf_link_hash_flags
2919 & (ELF_LINK_HASH_REF_DYNAMIC | ELF_LINK_HASH_DEF_DYNAMIC)) == 0)
2920 {
2921 if (h->root.got.refcount > 0
2922 /* The size of this section is only valid and in sync with the
2923 various reference counts if we do dynamic; don't decrement it
2924 otherwise. */
2925 && elf_hash_table (info)->dynamic_sections_created)
2926 {
2927 bfd *dynobj = elf_hash_table (info)->dynobj;
2928 asection *srelgot;
2929
2930 BFD_ASSERT (dynobj != NULL);
2931
2932 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2933
2934 BFD_ASSERT (srelgot != NULL);
2935
2936 srelgot->_raw_size -= sizeof (Elf32_External_Rela);
2937 }
2938
2939 /* If the locally-defined symbol isn't used by a DSO, then we don't
2940 have to export it as a dynamic symbol. This was already done for
2941 functions; doing this for all symbols would presumably not
2942 introduce new problems. */
2943 h->root.dynindx = -1;
2944 }
2945
2946 return true;
2947 }
2948
2949 /* Reject a file depending on presence and expectation of prefixed
2950 underscores on symbols. */
2951
2952 static boolean
2953 cris_elf_object_p (abfd)
2954 bfd *abfd;
2955 {
2956 if ((elf_elfheader (abfd)->e_flags & EF_CRIS_UNDERSCORE))
2957 return (bfd_get_symbol_leading_char (abfd) == '_');
2958 else
2959 return (bfd_get_symbol_leading_char (abfd) == 0);
2960 }
2961
2962 /* Mark presence or absence of leading underscore. */
2963
2964 static void
2965 cris_elf_final_write_processing (abfd, linker)
2966 bfd *abfd;
2967 boolean linker ATTRIBUTE_UNUSED;
2968 {
2969 if (bfd_get_symbol_leading_char (abfd) == '_')
2970 elf_elfheader (abfd)->e_flags |= EF_CRIS_UNDERSCORE;
2971 else
2972 elf_elfheader (abfd)->e_flags &= ~EF_CRIS_UNDERSCORE;
2973 }
2974
2975 /* Display the flags field. */
2976
2977 static boolean
2978 cris_elf_print_private_bfd_data (abfd, ptr)
2979 bfd *abfd;
2980 PTR ptr;
2981 {
2982 FILE *file = (FILE *) ptr;
2983
2984 BFD_ASSERT (abfd != NULL && ptr != NULL)
2985
2986 _bfd_elf_print_private_bfd_data (abfd, ptr);
2987
2988 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
2989
2990 if (elf_elfheader (abfd)->e_flags & EF_CRIS_UNDERSCORE)
2991 fprintf (file, _(" [symbols have a _ prefix]"));
2992
2993 fputc ('\n', file);
2994 return true;
2995 }
2996
2997 /* Don't mix files with and without a leading underscore. */
2998
2999 static boolean
3000 cris_elf_merge_private_bfd_data (ibfd, obfd)
3001 bfd *ibfd;
3002 bfd *obfd;
3003 {
3004 flagword old_flags, new_flags;
3005
3006 if (_bfd_generic_verify_endian_match (ibfd, obfd) == false)
3007 return false;
3008
3009 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
3010 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
3011 return true;
3012
3013 if (! elf_flags_init (obfd))
3014 {
3015 /* This happens when ld starts out with a 'blank' output file. */
3016 elf_flags_init (obfd) = true;
3017
3018 /* Set flags according to current bfd_target. */
3019 cris_elf_final_write_processing (obfd, false);
3020 }
3021
3022 old_flags = elf_elfheader (obfd)->e_flags;
3023 new_flags = elf_elfheader (ibfd)->e_flags;
3024
3025 /* Is this good or bad? We'll follow with other excluding flags. */
3026 if ((old_flags & EF_CRIS_UNDERSCORE) != (new_flags & EF_CRIS_UNDERSCORE))
3027 {
3028 (*_bfd_error_handler)
3029 ((new_flags & EF_CRIS_UNDERSCORE)
3030 ? _("%s: uses _-prefixed symbols, but writing file with non-prefixed symbols")
3031 : _("%s: uses non-prefixed symbols, but writing file with _-prefixed symbols"),
3032 bfd_archive_filename (ibfd));
3033 bfd_set_error (bfd_error_bad_value);
3034 return false;
3035 }
3036
3037 return true;
3038 }
3039
3040
3041 static enum elf_reloc_type_class
3042 elf_cris_reloc_type_class (rela)
3043 const Elf_Internal_Rela *rela;
3044 {
3045 switch ((int) ELF32_R_TYPE (rela->r_info))
3046 {
3047 case R_CRIS_RELATIVE:
3048 return reloc_class_relative;
3049 case R_CRIS_JUMP_SLOT:
3050 return reloc_class_plt;
3051 case R_CRIS_COPY:
3052 return reloc_class_copy;
3053 default:
3054 return reloc_class_normal;
3055 }
3056 }
3057 \f
3058 #define ELF_ARCH bfd_arch_cris
3059 #define ELF_MACHINE_CODE EM_CRIS
3060 #define ELF_MAXPAGESIZE 0x2000
3061
3062 #define TARGET_LITTLE_SYM bfd_elf32_cris_vec
3063 #define TARGET_LITTLE_NAME "elf32-cris"
3064 #define elf_symbol_leading_char 0
3065
3066 #define elf_info_to_howto_rel NULL
3067 #define elf_info_to_howto cris_info_to_howto_rela
3068 #define elf_backend_relocate_section cris_elf_relocate_section
3069 #define elf_backend_gc_mark_hook cris_elf_gc_mark_hook
3070 #define elf_backend_gc_sweep_hook cris_elf_gc_sweep_hook
3071 #define elf_backend_check_relocs cris_elf_check_relocs
3072 #define elf_backend_grok_prstatus cris_elf_grok_prstatus
3073 #define elf_backend_grok_psinfo cris_elf_grok_psinfo
3074
3075 #define elf_backend_can_gc_sections 1
3076 #define elf_backend_can_refcount 1
3077
3078 #define elf_backend_object_p cris_elf_object_p
3079 #define elf_backend_final_write_processing \
3080 cris_elf_final_write_processing
3081 #define bfd_elf32_bfd_print_private_bfd_data \
3082 cris_elf_print_private_bfd_data
3083 #define bfd_elf32_bfd_merge_private_bfd_data \
3084 cris_elf_merge_private_bfd_data
3085
3086 #define bfd_elf32_bfd_reloc_type_lookup cris_reloc_type_lookup
3087
3088 #define bfd_elf32_bfd_link_hash_table_create \
3089 elf_cris_link_hash_table_create
3090 #define elf_backend_adjust_dynamic_symbol \
3091 elf_cris_adjust_dynamic_symbol
3092 #define elf_backend_size_dynamic_sections \
3093 elf_cris_size_dynamic_sections
3094 #define elf_backend_finish_dynamic_symbol \
3095 elf_cris_finish_dynamic_symbol
3096 #define elf_backend_finish_dynamic_sections \
3097 elf_cris_finish_dynamic_sections
3098 #define elf_backend_create_dynamic_sections \
3099 _bfd_elf_create_dynamic_sections
3100 #define bfd_elf32_bfd_final_link \
3101 _bfd_elf32_gc_common_final_link
3102 #define elf_backend_hide_symbol elf_cris_hide_symbol
3103 #define elf_backend_reloc_type_class elf_cris_reloc_type_class
3104
3105 #define elf_backend_want_got_plt 1
3106 #define elf_backend_plt_readonly 1
3107 #define elf_backend_want_plt_sym 0
3108 #define elf_backend_got_header_size 12
3109 #define elf_backend_plt_header_size PLT_ENTRY_SIZE
3110
3111 /* Later, we my want to optimize RELA entries into REL entries for dynamic
3112 linking and libraries (if it's a win of any significance). Until then,
3113 take the easy route. */
3114 #define elf_backend_may_use_rel_p 0
3115 #define elf_backend_may_use_rela_p 1
3116
3117 #include "elf32-target.h"
3118
3119 #define INCLUDED_TARGET_FILE
3120
3121 #undef TARGET_LITTLE_SYM
3122 #undef TARGET_LITTLE_NAME
3123 #undef elf_symbol_leading_char
3124
3125 #define TARGET_LITTLE_SYM bfd_elf32_us_cris_vec
3126 #define TARGET_LITTLE_NAME "elf32-us-cris"
3127 #define elf_symbol_leading_char '_'
3128
3129 #include "elf32-target.h"
git-cvsimport of binutils cvsroot