(Ada) Fix resolving of homonym components in tagged types
[binutils-gdb.git] / bfd / elf32-sparc.c
blob4378b6177c5cf9dd98428d09e7c77aacc3ca757e
1 /* SPARC-specific support for 32-bit ELF
2 Copyright (C) 1993-2018 Free Software Foundation, Inc.
4 This file is part of BFD, the Binary File Descriptor library.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "bfdlink.h"
24 #include "libbfd.h"
25 #include "elf-bfd.h"
26 #include "elf/sparc.h"
27 #include "opcode/sparc.h"
28 #include "elfxx-sparc.h"
29 #include "elf-vxworks.h"
31 /* Support for core dump NOTE sections. */
33 static bfd_boolean
34 elf32_sparc_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
36 switch (note->descsz)
38 default:
39 return FALSE;
41 case 260: /* Solaris prpsinfo_t. */
42 elf_tdata (abfd)->core->program
43 = _bfd_elfcore_strndup (abfd, note->descdata + 84, 16);
44 elf_tdata (abfd)->core->command
45 = _bfd_elfcore_strndup (abfd, note->descdata + 100, 80);
46 break;
48 case 336: /* Solaris psinfo_t. */
49 elf_tdata (abfd)->core->program
50 = _bfd_elfcore_strndup (abfd, note->descdata + 88, 16);
51 elf_tdata (abfd)->core->command
52 = _bfd_elfcore_strndup (abfd, note->descdata + 104, 80);
53 break;
56 return TRUE;
59 /* Functions for dealing with the e_flags field.
61 We don't define set_private_flags or copy_private_bfd_data because
62 the only currently defined values are based on the bfd mach number,
63 so we use the latter instead and defer setting e_flags until the
64 file is written out. */
66 /* Merge backend specific data from an object file to the output
67 object file when linking. */
69 static bfd_boolean
70 elf32_sparc_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
72 bfd *obfd = info->output_bfd;
73 bfd_boolean error;
74 unsigned long ibfd_mach;
75 /* FIXME: This should not be static. */
76 static unsigned long previous_ibfd_e_flags = (unsigned long) -1;
78 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
79 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
80 return TRUE;
82 error = FALSE;
84 ibfd_mach = bfd_get_mach (ibfd);
85 if (bfd_mach_sparc_64bit_p (ibfd_mach))
87 error = TRUE;
88 _bfd_error_handler
89 (_("%pB: compiled for a 64 bit system and target is 32 bit"), ibfd);
91 else if ((ibfd->flags & DYNAMIC) == 0)
93 if (bfd_get_mach (obfd) < ibfd_mach)
94 bfd_set_arch_mach (obfd, bfd_arch_sparc, ibfd_mach);
97 if (((elf_elfheader (ibfd)->e_flags & EF_SPARC_LEDATA)
98 != previous_ibfd_e_flags)
99 && previous_ibfd_e_flags != (unsigned long) -1)
101 _bfd_error_handler
102 (_("%pB: linking little endian files with big endian files"), ibfd);
103 error = TRUE;
105 previous_ibfd_e_flags = elf_elfheader (ibfd)->e_flags & EF_SPARC_LEDATA;
107 if (error)
109 bfd_set_error (bfd_error_bad_value);
110 return FALSE;
113 return _bfd_sparc_elf_merge_private_bfd_data (ibfd, info);
116 /* The final processing done just before writing out the object file.
117 We need to set the e_machine field appropriately. */
119 static void
120 elf32_sparc_final_write_processing (bfd *abfd,
121 bfd_boolean linker ATTRIBUTE_UNUSED)
123 switch (bfd_get_mach (abfd))
125 case bfd_mach_sparc :
126 case bfd_mach_sparc_sparclet :
127 case bfd_mach_sparc_sparclite :
128 break; /* nothing to do */
129 case bfd_mach_sparc_v8plus :
130 elf_elfheader (abfd)->e_machine = EM_SPARC32PLUS;
131 elf_elfheader (abfd)->e_flags &=~ EF_SPARC_32PLUS_MASK;
132 elf_elfheader (abfd)->e_flags |= EF_SPARC_32PLUS;
133 break;
134 case bfd_mach_sparc_v8plusa :
135 elf_elfheader (abfd)->e_machine = EM_SPARC32PLUS;
136 elf_elfheader (abfd)->e_flags &=~ EF_SPARC_32PLUS_MASK;
137 elf_elfheader (abfd)->e_flags |= EF_SPARC_32PLUS | EF_SPARC_SUN_US1;
138 break;
139 case bfd_mach_sparc_v8plusb :
140 case bfd_mach_sparc_v8plusc :
141 case bfd_mach_sparc_v8plusd :
142 case bfd_mach_sparc_v8pluse :
143 case bfd_mach_sparc_v8plusv :
144 case bfd_mach_sparc_v8plusm :
145 case bfd_mach_sparc_v8plusm8 :
146 elf_elfheader (abfd)->e_machine = EM_SPARC32PLUS;
147 elf_elfheader (abfd)->e_flags &=~ EF_SPARC_32PLUS_MASK;
148 elf_elfheader (abfd)->e_flags |= EF_SPARC_32PLUS | EF_SPARC_SUN_US1
149 | EF_SPARC_SUN_US3;
150 break;
151 case bfd_mach_sparc_sparclite_le :
152 elf_elfheader (abfd)->e_flags |= EF_SPARC_LEDATA;
153 break;
154 default :
155 abort ();
156 break;
160 static enum elf_reloc_type_class
161 elf32_sparc_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
162 const asection *rel_sec ATTRIBUTE_UNUSED,
163 const Elf_Internal_Rela *rela)
165 switch ((int) ELF32_R_TYPE (rela->r_info))
167 case R_SPARC_RELATIVE:
168 return reloc_class_relative;
169 case R_SPARC_JMP_SLOT:
170 return reloc_class_plt;
171 case R_SPARC_COPY:
172 return reloc_class_copy;
173 default:
174 return reloc_class_normal;
178 #define TARGET_BIG_SYM sparc_elf32_vec
179 #define TARGET_BIG_NAME "elf32-sparc"
180 #define ELF_ARCH bfd_arch_sparc
181 #define ELF_TARGET_ID SPARC_ELF_DATA
182 #define ELF_MACHINE_CODE EM_SPARC
183 #define ELF_MACHINE_ALT1 EM_SPARC32PLUS
184 #define ELF_MAXPAGESIZE 0x10000
185 #define ELF_COMMONPAGESIZE 0x2000
187 #define bfd_elf32_bfd_merge_private_bfd_data \
188 elf32_sparc_merge_private_bfd_data
189 #define elf_backend_final_write_processing \
190 elf32_sparc_final_write_processing
191 #define elf_backend_grok_psinfo elf32_sparc_grok_psinfo
192 #define elf_backend_reloc_type_class elf32_sparc_reloc_type_class
194 #define elf_info_to_howto _bfd_sparc_elf_info_to_howto
195 #define bfd_elf32_bfd_reloc_type_lookup _bfd_sparc_elf_reloc_type_lookup
196 #define bfd_elf32_bfd_reloc_name_lookup \
197 _bfd_sparc_elf_reloc_name_lookup
198 #define bfd_elf32_bfd_link_hash_table_create \
199 _bfd_sparc_elf_link_hash_table_create
200 #define bfd_elf32_bfd_relax_section _bfd_sparc_elf_relax_section
201 #define bfd_elf32_new_section_hook _bfd_sparc_elf_new_section_hook
202 #define elf_backend_copy_indirect_symbol \
203 _bfd_sparc_elf_copy_indirect_symbol
204 #define elf_backend_create_dynamic_sections \
205 _bfd_sparc_elf_create_dynamic_sections
206 #define elf_backend_check_relocs _bfd_sparc_elf_check_relocs
207 #define elf_backend_adjust_dynamic_symbol \
208 _bfd_sparc_elf_adjust_dynamic_symbol
209 #define elf_backend_omit_section_dynsym _bfd_sparc_elf_omit_section_dynsym
210 #define elf_backend_size_dynamic_sections \
211 _bfd_sparc_elf_size_dynamic_sections
212 #define elf_backend_relocate_section _bfd_sparc_elf_relocate_section
213 #define elf_backend_finish_dynamic_symbol \
214 _bfd_sparc_elf_finish_dynamic_symbol
215 #define elf_backend_finish_dynamic_sections \
216 _bfd_sparc_elf_finish_dynamic_sections
217 #define bfd_elf32_mkobject _bfd_sparc_elf_mkobject
218 #define elf_backend_object_p _bfd_sparc_elf_object_p
219 #define elf_backend_gc_mark_hook _bfd_sparc_elf_gc_mark_hook
220 #define elf_backend_plt_sym_val _bfd_sparc_elf_plt_sym_val
221 #define elf_backend_init_index_section _bfd_elf_init_1_index_section
222 #define elf_backend_fixup_symbol _bfd_sparc_elf_fixup_symbol
224 #define elf_backend_can_gc_sections 1
225 #define elf_backend_can_refcount 1
226 #define elf_backend_want_got_plt 0
227 #define elf_backend_plt_readonly 0
228 #define elf_backend_want_plt_sym 1
229 #define elf_backend_got_header_size 4
230 #define elf_backend_want_dynrelro 1
231 #define elf_backend_rela_normal 1
233 #define elf_backend_linux_prpsinfo32_ugid16 TRUE
235 #include "elf32-target.h"
237 /* Solaris 2. */
239 #undef TARGET_BIG_SYM
240 #define TARGET_BIG_SYM sparc_elf32_sol2_vec
241 #undef TARGET_BIG_NAME
242 #define TARGET_BIG_NAME "elf32-sparc-sol2"
244 #undef elf32_bed
245 #define elf32_bed elf32_sparc_sol2_bed
247 /* The 32-bit static TLS arena size is rounded to the nearest 8-byte
248 boundary. */
249 #undef elf_backend_static_tls_alignment
250 #define elf_backend_static_tls_alignment 8
252 #undef elf_backend_strtab_flags
253 #define elf_backend_strtab_flags SHF_STRINGS
255 static bfd_boolean
256 elf32_sparc_copy_solaris_special_section_fields (const bfd *ibfd ATTRIBUTE_UNUSED,
257 bfd *obfd ATTRIBUTE_UNUSED,
258 const Elf_Internal_Shdr *isection ATTRIBUTE_UNUSED,
259 Elf_Internal_Shdr *osection ATTRIBUTE_UNUSED)
261 /* PR 19938: FIXME: Need to add code for setting the sh_info
262 and sh_link fields of Solaris specific section types. */
263 return FALSE;
266 #undef elf_backend_copy_special_section_fields
267 #define elf_backend_copy_special_section_fields elf32_sparc_copy_solaris_special_section_fields
269 #include "elf32-target.h"
271 /* A wrapper around _bfd_sparc_elf_link_hash_table_create that identifies
272 the target system as VxWorks. */
274 static struct bfd_link_hash_table *
275 elf32_sparc_vxworks_link_hash_table_create (bfd *abfd)
277 struct bfd_link_hash_table *ret;
279 ret = _bfd_sparc_elf_link_hash_table_create (abfd);
280 if (ret)
282 struct _bfd_sparc_elf_link_hash_table *htab;
284 htab = (struct _bfd_sparc_elf_link_hash_table *) ret;
285 htab->is_vxworks = 1;
287 return ret;
290 /* A final_write_processing hook that does both the SPARC- and VxWorks-
291 specific handling. */
293 static void
294 elf32_sparc_vxworks_final_write_processing (bfd *abfd, bfd_boolean linker)
296 elf32_sparc_final_write_processing (abfd, linker);
297 elf_vxworks_final_write_processing (abfd, linker);
300 #undef TARGET_BIG_SYM
301 #define TARGET_BIG_SYM sparc_elf32_vxworks_vec
302 #undef TARGET_BIG_NAME
303 #define TARGET_BIG_NAME "elf32-sparc-vxworks"
305 #undef ELF_MINPAGESIZE
306 #define ELF_MINPAGESIZE 0x1000
308 #undef bfd_elf32_bfd_link_hash_table_create
309 #define bfd_elf32_bfd_link_hash_table_create \
310 elf32_sparc_vxworks_link_hash_table_create
312 #undef elf_backend_want_got_plt
313 #define elf_backend_want_got_plt 1
314 #undef elf_backend_plt_readonly
315 #define elf_backend_plt_readonly 1
316 #undef elf_backend_got_header_size
317 #define elf_backend_got_header_size 12
318 #undef elf_backend_dtrel_excludes_plt
319 #define elf_backend_dtrel_excludes_plt 1
320 #undef elf_backend_add_symbol_hook
321 #define elf_backend_add_symbol_hook \
322 elf_vxworks_add_symbol_hook
323 #undef elf_backend_link_output_symbol_hook
324 #define elf_backend_link_output_symbol_hook \
325 elf_vxworks_link_output_symbol_hook
326 #undef elf_backend_emit_relocs
327 #define elf_backend_emit_relocs \
328 elf_vxworks_emit_relocs
329 #undef elf_backend_final_write_processing
330 #define elf_backend_final_write_processing \
331 elf32_sparc_vxworks_final_write_processing
332 #undef elf_backend_static_tls_alignment
333 #undef elf_backend_strtab_flags
334 #undef elf_backend_copy_special_section_fields
336 #undef elf32_bed
337 #define elf32_bed sparc_elf_vxworks_bed
339 #include "elf32-target.h"