1/* SPARC-specific support for 32-bit ELF
2   Copyright (C) 1993-2022 Free Software Foundation, Inc.
3
4   This file is part of BFD, the Binary File Descriptor library.
5
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.
10
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.
15
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.  */
20
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"
30
31/* Support for core dump NOTE sections.  */
32
33static bool
34elf32_sparc_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
35{
36  switch (note->descsz)
37    {
38    default:
39      return false;
40
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;
47
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;
54    }
55
56  return true;
57}
58
59/* Functions for dealing with the e_flags field.
60
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.  */
65
66/* Merge backend specific data from an object file to the output
67   object file when linking.  */
68
69static bool
70elf32_sparc_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
71{
72  bfd *obfd = info->output_bfd;
73  bool error;
74  unsigned long ibfd_mach;
75  /* FIXME: This should not be static.  */
76  static unsigned long previous_ibfd_e_flags = (unsigned long) -1;
77
78  if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
79      || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
80    return true;
81
82  error = false;
83
84  ibfd_mach = bfd_get_mach (ibfd);
85  if (bfd_mach_sparc_64bit_p (ibfd_mach))
86    {
87      error = true;
88      _bfd_error_handler
89	(_("%pB: compiled for a 64 bit system and target is 32 bit"), ibfd);
90    }
91  else if ((ibfd->flags & DYNAMIC) == 0)
92    {
93      if (bfd_get_mach (obfd) < ibfd_mach)
94	bfd_set_arch_mach (obfd, bfd_arch_sparc, ibfd_mach);
95    }
96
97  if (((elf_elfheader (ibfd)->e_flags & EF_SPARC_LEDATA)
98       != previous_ibfd_e_flags)
99      && previous_ibfd_e_flags != (unsigned long) -1)
100    {
101      _bfd_error_handler
102	(_("%pB: linking little endian files with big endian files"), ibfd);
103      error = true;
104    }
105  previous_ibfd_e_flags = elf_elfheader (ibfd)->e_flags & EF_SPARC_LEDATA;
106
107  if (error)
108    {
109      bfd_set_error (bfd_error_bad_value);
110      return false;
111    }
112
113  return _bfd_sparc_elf_merge_private_bfd_data (ibfd, info);
114}
115
116/* The final processing done just before writing out the object file.
117   We need to set the e_machine field appropriately.  */
118
119static void
120sparc_final_write_processing (bfd *abfd)
121{
122  switch (bfd_get_mach (abfd))
123    {
124    case bfd_mach_sparc:
125    case bfd_mach_sparc_sparclet:
126    case bfd_mach_sparc_sparclite:
127      break; /* nothing to do */
128    case bfd_mach_sparc_v8plus:
129      elf_elfheader (abfd)->e_machine = EM_SPARC32PLUS;
130      elf_elfheader (abfd)->e_flags &=~ EF_SPARC_32PLUS_MASK;
131      elf_elfheader (abfd)->e_flags |= EF_SPARC_32PLUS;
132      break;
133    case bfd_mach_sparc_v8plusa:
134      elf_elfheader (abfd)->e_machine = EM_SPARC32PLUS;
135      elf_elfheader (abfd)->e_flags &=~ EF_SPARC_32PLUS_MASK;
136      elf_elfheader (abfd)->e_flags |= EF_SPARC_32PLUS | EF_SPARC_SUN_US1;
137      break;
138    case bfd_mach_sparc_v8plusb:
139    case bfd_mach_sparc_v8plusc:
140    case bfd_mach_sparc_v8plusd:
141    case bfd_mach_sparc_v8pluse:
142    case bfd_mach_sparc_v8plusv:
143    case bfd_mach_sparc_v8plusm:
144    case bfd_mach_sparc_v8plusm8:
145      elf_elfheader (abfd)->e_machine = EM_SPARC32PLUS;
146      elf_elfheader (abfd)->e_flags &=~ EF_SPARC_32PLUS_MASK;
147      elf_elfheader (abfd)->e_flags |= EF_SPARC_32PLUS | EF_SPARC_SUN_US1
148				       | EF_SPARC_SUN_US3;
149      break;
150    case bfd_mach_sparc_sparclite_le:
151      elf_elfheader (abfd)->e_flags |= EF_SPARC_LEDATA;
152      break;
153    case 0: /* A non-sparc architecture - ignore.  */
154      break;
155    default:
156      _bfd_error_handler
157	(_("%pB: unhandled sparc machine value '%lu' detected during write processing"),
158	 abfd, (long) bfd_get_mach (abfd));
159      break;
160    }
161}
162
163static bool
164elf32_sparc_final_write_processing (bfd *abfd)
165{
166  sparc_final_write_processing (abfd);
167  return _bfd_elf_final_write_processing (abfd);
168}
169
170/* Used to decide how to sort relocs in an optimal manner for the
171   dynamic linker, before writing them out.  */
172
173static enum elf_reloc_type_class
174elf32_sparc_reloc_type_class (const struct bfd_link_info *info,
175			      const asection *rel_sec ATTRIBUTE_UNUSED,
176			      const Elf_Internal_Rela *rela)
177{
178  bfd *abfd = info->output_bfd;
179  const struct elf_backend_data *bed = get_elf_backend_data (abfd);
180  struct _bfd_sparc_elf_link_hash_table *htab
181    = _bfd_sparc_elf_hash_table (info);
182  BFD_ASSERT (htab != NULL);
183
184  if (htab->elf.dynsym != NULL
185      && htab->elf.dynsym->contents != NULL)
186    {
187      /* Check relocation against STT_GNU_IFUNC symbol if there are
188	 dynamic symbols.  */
189      unsigned long r_symndx = htab->r_symndx (rela->r_info);
190      if (r_symndx != STN_UNDEF)
191	{
192	  Elf_Internal_Sym sym;
193	  if (!bed->s->swap_symbol_in (abfd,
194				       (htab->elf.dynsym->contents
195					+ r_symndx * bed->s->sizeof_sym),
196				       0, &sym))
197	    abort ();
198
199	  if (ELF_ST_TYPE (sym.st_info) == STT_GNU_IFUNC)
200	    return reloc_class_ifunc;
201	}
202    }
203
204  switch ((int) ELF32_R_TYPE (rela->r_info))
205    {
206    case R_SPARC_IRELATIVE:
207      return reloc_class_ifunc;
208    case R_SPARC_RELATIVE:
209      return reloc_class_relative;
210    case R_SPARC_JMP_SLOT:
211      return reloc_class_plt;
212    case R_SPARC_COPY:
213      return reloc_class_copy;
214    default:
215      return reloc_class_normal;
216    }
217}
218
219#define TARGET_BIG_SYM	sparc_elf32_vec
220#define TARGET_BIG_NAME	"elf32-sparc"
221#define ELF_ARCH	bfd_arch_sparc
222#define ELF_TARGET_ID	SPARC_ELF_DATA
223#define ELF_MACHINE_CODE EM_SPARC
224#define ELF_MACHINE_ALT1 EM_SPARC32PLUS
225#define ELF_MAXPAGESIZE 0x10000
226#define ELF_COMMONPAGESIZE 0x2000
227
228#define bfd_elf32_bfd_merge_private_bfd_data \
229					elf32_sparc_merge_private_bfd_data
230#define elf_backend_final_write_processing \
231					elf32_sparc_final_write_processing
232#define elf_backend_grok_psinfo		elf32_sparc_grok_psinfo
233#define elf_backend_reloc_type_class	elf32_sparc_reloc_type_class
234
235#define elf_info_to_howto		_bfd_sparc_elf_info_to_howto
236#define bfd_elf32_bfd_reloc_type_lookup	_bfd_sparc_elf_reloc_type_lookup
237#define bfd_elf32_bfd_reloc_name_lookup \
238  _bfd_sparc_elf_reloc_name_lookup
239#define bfd_elf32_bfd_link_hash_table_create \
240					_bfd_sparc_elf_link_hash_table_create
241#define bfd_elf32_bfd_relax_section	_bfd_sparc_elf_relax_section
242#define bfd_elf32_new_section_hook	_bfd_sparc_elf_new_section_hook
243#define elf_backend_copy_indirect_symbol \
244					_bfd_sparc_elf_copy_indirect_symbol
245#define elf_backend_create_dynamic_sections \
246					_bfd_sparc_elf_create_dynamic_sections
247#define elf_backend_check_relocs	_bfd_sparc_elf_check_relocs
248#define elf_backend_adjust_dynamic_symbol \
249					_bfd_sparc_elf_adjust_dynamic_symbol
250#define elf_backend_omit_section_dynsym	_bfd_sparc_elf_omit_section_dynsym
251#define elf_backend_size_dynamic_sections \
252					_bfd_sparc_elf_size_dynamic_sections
253#define elf_backend_relocate_section	_bfd_sparc_elf_relocate_section
254#define elf_backend_finish_dynamic_symbol \
255					_bfd_sparc_elf_finish_dynamic_symbol
256#define elf_backend_finish_dynamic_sections \
257					_bfd_sparc_elf_finish_dynamic_sections
258#define bfd_elf32_mkobject		_bfd_sparc_elf_mkobject
259#define elf_backend_object_p		_bfd_sparc_elf_object_p
260#define elf_backend_gc_mark_hook	_bfd_sparc_elf_gc_mark_hook
261#define elf_backend_plt_sym_val		_bfd_sparc_elf_plt_sym_val
262#define elf_backend_init_index_section	_bfd_elf_init_1_index_section
263#define elf_backend_fixup_symbol	_bfd_sparc_elf_fixup_symbol
264
265#define elf_backend_can_gc_sections 1
266#define elf_backend_can_refcount 1
267#define elf_backend_want_got_plt 0
268#define elf_backend_plt_readonly 0
269#define elf_backend_want_plt_sym 1
270#define elf_backend_got_header_size 4
271#define elf_backend_want_dynrelro 1
272#define elf_backend_rela_normal 1
273
274#define elf_backend_linux_prpsinfo32_ugid16	true
275
276#include "elf32-target.h"
277
278/* Solaris 2.  */
279
280#undef	TARGET_BIG_SYM
281#define	TARGET_BIG_SYM				sparc_elf32_sol2_vec
282#undef	TARGET_BIG_NAME
283#define	TARGET_BIG_NAME				"elf32-sparc-sol2"
284
285#undef elf32_bed
286#define elf32_bed				elf32_sparc_sol2_bed
287
288/* The 32-bit static TLS arena size is rounded to the nearest 8-byte
289   boundary.  */
290#undef	elf_backend_static_tls_alignment
291#define elf_backend_static_tls_alignment	8
292
293#undef	elf_backend_strtab_flags
294#define elf_backend_strtab_flags	SHF_STRINGS
295
296static bool
297elf32_sparc_copy_solaris_special_section_fields (const bfd *ibfd ATTRIBUTE_UNUSED,
298						 bfd *obfd ATTRIBUTE_UNUSED,
299						 const Elf_Internal_Shdr *isection ATTRIBUTE_UNUSED,
300						 Elf_Internal_Shdr *osection ATTRIBUTE_UNUSED)
301{
302  /* PR 19938: FIXME: Need to add code for setting the sh_info
303     and sh_link fields of Solaris specific section types.  */
304  return false;
305}
306
307#undef  elf_backend_copy_special_section_fields
308#define elf_backend_copy_special_section_fields elf32_sparc_copy_solaris_special_section_fields
309
310#include "elf32-target.h"
311
312/* A final_write_processing hook that does both the SPARC- and VxWorks-
313   specific handling.  */
314
315static bool
316elf32_sparc_vxworks_final_write_processing (bfd *abfd)
317{
318  sparc_final_write_processing (abfd);
319  return elf_vxworks_final_write_processing (abfd);
320}
321
322#undef  TARGET_BIG_SYM
323#define TARGET_BIG_SYM	sparc_elf32_vxworks_vec
324#undef  TARGET_BIG_NAME
325#define TARGET_BIG_NAME	"elf32-sparc-vxworks"
326
327#undef  ELF_MINPAGESIZE
328#define ELF_MINPAGESIZE	0x1000
329
330#undef	ELF_TARGET_OS
331#define	ELF_TARGET_OS	is_vxworks
332
333#undef  elf_backend_want_got_plt
334#define elf_backend_want_got_plt		1
335#undef  elf_backend_plt_readonly
336#define elf_backend_plt_readonly		1
337#undef  elf_backend_got_header_size
338#define elf_backend_got_header_size		12
339#undef  elf_backend_dtrel_excludes_plt
340#define elf_backend_dtrel_excludes_plt		1
341#undef  elf_backend_add_symbol_hook
342#define elf_backend_add_symbol_hook \
343  elf_vxworks_add_symbol_hook
344#undef  elf_backend_link_output_symbol_hook
345#define elf_backend_link_output_symbol_hook \
346  elf_vxworks_link_output_symbol_hook
347#undef  elf_backend_emit_relocs
348#define elf_backend_emit_relocs \
349  elf_vxworks_emit_relocs
350#undef  elf_backend_final_write_processing
351#define elf_backend_final_write_processing \
352  elf32_sparc_vxworks_final_write_processing
353#undef  elf_backend_static_tls_alignment
354#undef  elf_backend_strtab_flags
355#undef  elf_backend_copy_special_section_fields
356
357#undef  elf32_bed
358#define elf32_bed				sparc_elf_vxworks_bed
359
360#include "elf32-target.h"
361