1 /* ARC-specific support for 32-bit ELF
2 Copyright (C) 1994-2018 Free Software Foundation, Inc.
3 Contributed by Cupertino Miranda (cmiranda@synopsys.com).
5 This file is part of BFD, the Binary File Descriptor library.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
27 #define align_power(addr, align) \
28 (((addr) + ((bfd_vma) 1 << (align)) - 1) & (-((bfd_vma) 1 << (align))))
49 struct got_entry
*next
;
52 bfd_boolean processed
;
53 bfd_boolean created_dyn_relocation
;
54 enum tls_got_entries existing_entries
;
57 /* Return the local got list, if not defined, create an empty one. */
59 static struct got_entry
**
60 arc_get_local_got_ents (bfd
* abfd
)
62 if (elf_local_got_ents (abfd
) == NULL
)
64 bfd_size_type amt
= (elf_tdata (abfd
)->symtab_hdr
.sh_info
65 * sizeof (*elf_local_got_ents (abfd
)));
66 elf_local_got_ents (abfd
) = bfd_zmalloc (amt
);
67 if (elf_local_got_ents (abfd
) == NULL
)
69 _bfd_error_handler (_("%pB: cannot allocate memory for local "
70 "GOT entries"), abfd
);
71 bfd_set_error (bfd_error_bad_value
);
76 return elf_local_got_ents (abfd
);
79 static struct got_entry
*
80 got_entry_for_type (struct got_entry
**list
,
83 struct got_entry
**p
= list
;
87 if ((*p
)->type
== type
)
95 new_got_entry_to_list (struct got_entry
**list
,
98 enum tls_got_entries existing_entries
)
100 /* Find list end. Avoid having multiple entries of the same
102 struct got_entry
**p
= list
;
103 struct got_entry
*entry
;
107 if ((*p
)->type
== type
)
112 entry
= (struct got_entry
*) xmalloc (sizeof (struct got_entry
));
115 entry
->offset
= offset
;
117 entry
->processed
= FALSE
;
118 entry
->created_dyn_relocation
= FALSE
;
119 entry
->existing_entries
= existing_entries
;
121 ARC_DEBUG ("New GOT got entry added to list: "
122 "type: %d, offset: %ld, existing_entries: %d\n",
123 type
, (long) offset
, existing_entries
);
125 /* Add the entry to the end of the list. */
129 static enum tls_type_e
130 tls_type_for_reloc (reloc_howto_type
*howto
)
132 enum tls_type_e ret
= GOT_UNKNOWN
;
134 if (is_reloc_for_GOT (howto
))
139 case R_ARC_TLS_GD_GOT
:
142 case R_ARC_TLS_IE_GOT
:
145 case R_ARC_TLS_LE_32
:
156 static struct got_entry
**
157 get_got_entry_list_for_symbol (bfd
*abfd
,
158 unsigned long r_symndx
,
159 struct elf_link_hash_entry
*h
)
161 struct elf_arc_link_hash_entry
*h1
=
162 ((struct elf_arc_link_hash_entry
*) h
);
165 return &h1
->got_ents
;
169 return arc_get_local_got_ents (abfd
) + r_symndx
;
174 static enum tls_type_e
175 arc_got_entry_type_for_reloc (reloc_howto_type
*howto
)
177 enum tls_type_e type
= GOT_UNKNOWN
;
179 if (is_reloc_for_GOT (howto
))
182 if (is_reloc_for_TLS (howto
))
186 case R_ARC_TLS_GD_GOT
:
189 case R_ARC_TLS_IE_GOT
:
199 #define ADD_SYMBOL_REF_SEC_AND_RELOC(SECNAME, COND_FOR_RELOC, H) \
200 htab->s##SECNAME->size; \
202 if (COND_FOR_RELOC) \
204 htab->srel##SECNAME->size += sizeof (Elf32_External_Rela); \
205 ARC_DEBUG ("arc_info: Added reloc space in " \
206 #SECNAME " section at " __FILE__ \
207 ":%d for symbol %s\n", \
208 __LINE__, name_for_global_symbol (H)); \
211 if (h->dynindx == -1 && !h->forced_local) \
212 if (! bfd_elf_link_record_dynamic_symbol (info, H)) \
214 htab->s##SECNAME->size += 4; \
218 arc_fill_got_info_for_reloc (enum tls_type_e type
,
219 struct got_entry
**list
,
220 struct bfd_link_info
* info
,
221 struct elf_link_hash_entry
*h
)
223 struct elf_link_hash_table
*htab
= elf_hash_table (info
);
225 if (got_entry_for_type (list
, type
) != NULL
)
233 = ADD_SYMBOL_REF_SEC_AND_RELOC (got
, bfd_link_pic (info
)
235 new_got_entry_to_list (list
, type
, offset
, TLS_GOT_NONE
);
243 = ADD_SYMBOL_REF_SEC_AND_RELOC (got
, TRUE
, h
);
244 bfd_vma ATTRIBUTE_UNUSED notneeded
245 = ADD_SYMBOL_REF_SEC_AND_RELOC (got
, TRUE
, h
);
246 new_got_entry_to_list (list
, type
, offset
, TLS_GOT_MOD_AND_OFF
);
253 = ADD_SYMBOL_REF_SEC_AND_RELOC (got
, TRUE
, h
);
254 new_got_entry_to_list (list
, type
, offset
, TLS_GOT_OFF
);
267 relocate_fix_got_relocs_for_got_info (struct got_entry
** list_p
,
268 enum tls_type_e type
,
269 struct bfd_link_info
* info
,
271 unsigned long r_symndx
,
272 Elf_Internal_Sym
* local_syms
,
273 asection
** local_sections
,
274 struct elf_link_hash_entry
* h
,
275 struct arc_relocation_data
* reloc_data
)
277 struct elf_link_hash_table
*htab
= elf_hash_table (info
);
278 struct got_entry
*entry
= NULL
;
280 if (list_p
== NULL
|| type
== GOT_UNKNOWN
|| type
== GOT_TLS_LE
)
283 entry
= got_entry_for_type (list_p
, type
);
287 || (! elf_hash_table (info
)->dynamic_sections_created
288 || (bfd_link_pic (info
)
289 && SYMBOL_REFERENCES_LOCAL (info
, h
))))
291 const char ATTRIBUTE_UNUSED
*symbol_name
;
292 static const char local_name
[] = "(local)";
293 asection
*tls_sec
= NULL
;
294 bfd_vma sym_value
= 0;
298 // TODO: This should not be here.
299 reloc_data
->sym_value
= h
->root
.u
.def
.value
;
300 reloc_data
->sym_section
= h
->root
.u
.def
.section
;
302 sym_value
= h
->root
.u
.def
.value
303 + h
->root
.u
.def
.section
->output_section
->vma
304 + h
->root
.u
.def
.section
->output_offset
;
306 tls_sec
= elf_hash_table (info
)->tls_sec
;
308 symbol_name
= h
->root
.root
.string
;
312 Elf_Internal_Sym
*sym
= local_syms
+ r_symndx
;
313 asection
*sec
= local_sections
[r_symndx
];
315 sym_value
= sym
->st_value
316 + sec
->output_section
->vma
317 + sec
->output_offset
;
319 tls_sec
= elf_hash_table (info
)->tls_sec
;
321 symbol_name
= local_name
;
325 if (entry
&& !entry
->processed
)
331 BFD_ASSERT (tls_sec
&& tls_sec
->output_section
);
332 bfd_vma sec_vma
= tls_sec
->output_section
->vma
;
334 bfd_put_32 (output_bfd
,
336 + (elf_hash_table (info
)->dynamic_sections_created
338 : (align_power (TCB_SIZE
,
339 tls_sec
->alignment_power
))),
340 htab
->sgot
->contents
+ entry
->offset
341 + (entry
->existing_entries
== TLS_GOT_MOD_AND_OFF
344 ARC_DEBUG ("arc_info: FIXED -> %s value = %#lx "
345 "@ %lx, for symbol %s\n",
346 (entry
->type
== GOT_TLS_GD
? "GOT_TLS_GD" :
348 (long) (sym_value
- sec_vma
),
349 (long) (htab
->sgot
->output_section
->vma
350 + htab
->sgot
->output_offset
352 + (entry
->existing_entries
== TLS_GOT_MOD_AND_OFF
360 BFD_ASSERT (tls_sec
&& tls_sec
->output_section
);
361 bfd_vma ATTRIBUTE_UNUSED sec_vma
362 = tls_sec
->output_section
->vma
;
364 bfd_put_32 (output_bfd
,
366 + (elf_hash_table (info
)->dynamic_sections_created
368 : (align_power (TCB_SIZE
,
369 tls_sec
->alignment_power
))),
370 htab
->sgot
->contents
+ entry
->offset
371 + (entry
->existing_entries
== TLS_GOT_MOD_AND_OFF
374 ARC_DEBUG ("arc_info: FIXED -> %s value = %#lx "
375 "@ %p, for symbol %s\n",
376 (entry
->type
== GOT_TLS_GD
? "GOT_TLS_GD" :
378 (long) (sym_value
- sec_vma
),
379 (long) (htab
->sgot
->output_section
->vma
380 + htab
->sgot
->output_offset
382 + (entry
->existing_entries
== TLS_GOT_MOD_AND_OFF
391 = reloc_data
->sym_section
->output_section
->vma
392 + reloc_data
->sym_section
->output_offset
;
395 && h
->root
.type
== bfd_link_hash_undefweak
)
396 ARC_DEBUG ("arc_info: PATCHED: NOT_PATCHED "
397 "@ %#08lx for sym %s in got offset %#lx "
399 (long) (htab
->sgot
->output_section
->vma
400 + htab
->sgot
->output_offset
403 (long) entry
->offset
);
406 bfd_put_32 (output_bfd
,
407 reloc_data
->sym_value
+ sec_vma
,
408 htab
->sgot
->contents
+ entry
->offset
);
409 ARC_DEBUG ("arc_info: PATCHED: %#08lx "
410 "@ %#08lx for sym %s in got offset %#lx\n",
411 (long) (reloc_data
->sym_value
+ sec_vma
),
412 (long) (htab
->sgot
->output_section
->vma
413 + htab
->sgot
->output_offset
+ entry
->offset
),
415 (long) entry
->offset
);
423 entry
->processed
= TRUE
;
427 return entry
->offset
;
431 create_got_dynrelocs_for_single_entry (struct got_entry
*list
,
433 struct bfd_link_info
* info
,
434 struct elf_link_hash_entry
*h
)
439 bfd_vma got_offset
= list
->offset
;
441 if (list
->type
== GOT_NORMAL
442 && !list
->created_dyn_relocation
)
444 if (bfd_link_pic (info
)
446 && (info
->symbolic
|| h
->dynindx
== -1)
449 ADD_RELA (output_bfd
, got
, got_offset
, 0, R_ARC_RELATIVE
, 0);
451 /* Do not fully understand the side effects of this condition.
452 The relocation space might still being reserved. Perhaps
453 I should clear its value. */
454 else if (h
!= NULL
&& h
->dynindx
!= -1)
456 ADD_RELA (output_bfd
, got
, got_offset
, h
->dynindx
, R_ARC_GLOB_DAT
, 0);
458 list
->created_dyn_relocation
= TRUE
;
460 else if (list
->existing_entries
!= TLS_GOT_NONE
461 && !list
->created_dyn_relocation
)
463 /* TODO TLS: This is not called for local symbols.
464 In order to correctly implement TLS, this should also
465 be called for all local symbols with tls got entries.
466 Should be moved to relocate_section in order to make it
467 work for local symbols. */
468 struct elf_link_hash_table
*htab
= elf_hash_table (info
);
469 enum tls_got_entries e
= list
->existing_entries
;
471 BFD_ASSERT (list
->type
!= GOT_TLS_GD
472 || list
->existing_entries
== TLS_GOT_MOD_AND_OFF
);
474 bfd_vma dynindx
= (h
== NULL
|| h
->dynindx
== -1) ? 0 : h
->dynindx
;
476 if (e
== TLS_GOT_MOD_AND_OFF
|| e
== TLS_GOT_MOD
)
478 ADD_RELA (output_bfd
, got
, got_offset
, dynindx
,
479 R_ARC_TLS_DTPMOD
, 0);
480 ARC_DEBUG ("arc_info: TLS_DYNRELOC: type = %d, \
481 GOT_OFFSET = %#lx, GOT_VMA = %#lx, INDEX = %ld, ADDEND = 0x0\n",
484 (long) (htab
->sgot
->output_section
->vma
485 + htab
->sgot
->output_offset
+ got_offset
),
489 if (e
== TLS_GOT_MOD_AND_OFF
|| e
== TLS_GOT_OFF
)
492 if (list
->type
== GOT_TLS_IE
)
494 addend
= bfd_get_32 (output_bfd
,
495 htab
->sgot
->contents
+ got_offset
);
498 ADD_RELA (output_bfd
, got
,
499 got_offset
+ (e
== TLS_GOT_MOD_AND_OFF
? 4 : 0),
501 (list
->type
== GOT_TLS_IE
? R_ARC_TLS_TPOFF
505 ARC_DEBUG ("arc_info: TLS_DYNRELOC: type = %d, \
506 GOT_OFFSET = %#lx, GOT_VMA = %#lx, INDEX = %ld, ADDEND = %#lx\n",
509 (long) (htab
->sgot
->output_section
->vma
510 + htab
->sgot
->output_offset
+ got_offset
),
511 (long) dynindx
, (long) addend
);
513 list
->created_dyn_relocation
= TRUE
;
518 create_got_dynrelocs_for_got_info (struct got_entry
**list_p
,
520 struct bfd_link_info
* info
,
521 struct elf_link_hash_entry
*h
)
526 struct got_entry
*list
= *list_p
;
527 /* Traverse the list of got entries for this symbol. */
530 create_got_dynrelocs_for_single_entry (list
, output_bfd
, info
, h
);
535 #undef ADD_SYMBOL_REF_SEC_AND_RELOC
537 #endif /* ARC_GOT_H */