1/* BFD back-end for TMS320C30 a.out binaries.
2   Copyright (C) 1998-2017 Free Software Foundation, Inc.
3   Contributed by Steven Haworth (steve@pm.cse.rmit.edu.au)
4
5   This file is part of BFD, the Binary File Descriptor library.
6
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.
11
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.
16
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, MA
20   02110-1301, USA.  */
21
22#define TARGET_IS_BIG_ENDIAN_P
23#define N_HEADER_IN_TEXT(x)	1
24#define TEXT_START_ADDR 	1024
25#define TARGET_PAGE_SIZE 	128
26#define SEGMENT_SIZE   		TARGET_PAGE_SIZE
27#define DEFAULT_ARCH 		bfd_arch_tic30
28#define ARCH_SIZE 32
29
30/* Do not "beautify" the CONCAT* macro args.  Traditional C will not
31   remove whitespace added here, and thus will fail to concatenate
32   the tokens.  */
33#define MY(OP) CONCAT2 (tic30_aout_,OP)
34#define TARGETNAME "a.out-tic30"
35#define NAME(x,y) CONCAT3 (tic30_aout,_32_,y)
36
37#include "sysdep.h"
38#include "bfd.h"
39#include "libaout.h"
40#include "aout/aout64.h"
41#include "aout/stab_gnu.h"
42#include "aout/ar.h"
43
44#define MY_reloc_howto(BFD, REL, IN, EX, PC)   tic30_aout_reloc_howto (BFD, REL, & IN, & EX, & PC)
45
46#define MY_final_link_relocate    tic30_aout_final_link_relocate
47#define MY_object_p               tic30_aout_object_p
48#define MY_mkobject               NAME (aout,mkobject)
49#define MY_write_object_contents  tic30_aout_write_object_contents
50#define MY_set_sizes              tic30_aout_set_sizes
51
52#ifndef MY_exec_hdr_flags
53#define MY_exec_hdr_flags 1
54#endif
55
56#ifndef MY_backend_data
57
58#ifndef MY_zmagic_contiguous
59#define MY_zmagic_contiguous 0
60#endif
61#ifndef MY_text_includes_header
62#define MY_text_includes_header 0
63#endif
64#ifndef MY_entry_is_text_address
65#define MY_entry_is_text_address 0
66#endif
67#ifndef MY_exec_header_not_counted
68#define MY_exec_header_not_counted 1
69#endif
70#ifndef MY_add_dynamic_symbols
71#define MY_add_dynamic_symbols 0
72#endif
73#ifndef MY_add_one_symbol
74#define MY_add_one_symbol 0
75#endif
76#ifndef MY_link_dynamic_object
77#define MY_link_dynamic_object 0
78#endif
79#ifndef MY_write_dynamic_symbol
80#define MY_write_dynamic_symbol 0
81#endif
82#ifndef MY_check_dynamic_reloc
83#define MY_check_dynamic_reloc 0
84#endif
85#ifndef MY_finish_dynamic_link
86#define MY_finish_dynamic_link 0
87#endif
88
89static bfd_boolean
90tic30_aout_set_sizes (bfd *abfd)
91{
92  adata (abfd).page_size = TARGET_PAGE_SIZE;
93
94#ifdef SEGMENT_SIZE
95  adata (abfd).segment_size = SEGMENT_SIZE;
96#else
97  adata (abfd).segment_size = TARGET_PAGE_SIZE;
98#endif
99
100#ifdef ZMAGIC_DISK_BLOCK_SIZE
101  adata (abfd).zmagic_disk_block_size = ZMAGIC_DISK_BLOCK_SIZE;
102#else
103  adata (abfd).zmagic_disk_block_size = TARGET_PAGE_SIZE;
104#endif
105
106  adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
107
108  return TRUE;
109}
110
111static const struct aout_backend_data tic30_aout_backend_data =
112{
113  MY_zmagic_contiguous,
114  MY_text_includes_header,
115  MY_entry_is_text_address,
116  MY_exec_hdr_flags,
117  0,				/* Text vma?  */
118  MY_set_sizes,
119  MY_exec_header_not_counted,
120  MY_add_dynamic_symbols,
121  MY_add_one_symbol,
122  MY_link_dynamic_object,
123  MY_write_dynamic_symbol,
124  MY_check_dynamic_reloc,
125  MY_finish_dynamic_link
126};
127#define MY_backend_data &tic30_aout_backend_data
128#endif
129
130static reloc_howto_type *
131  tic30_aout_reloc_howto (bfd *, struct reloc_std_external *, int *, int *, int *);
132static bfd_reloc_status_type
133  tic30_aout_final_link_relocate
134    (reloc_howto_type *, bfd *, asection *, bfd_byte *, bfd_vma, bfd_vma, bfd_vma);
135
136/* FIXME: This is wrong.  aoutx.h should really only be included by
137   aout32.c.  */
138
139#include "aoutx.h"
140
141/* This function is used to work out pc-relative offsets for the
142   TMS320C30.  The data already placed by md_pcrel_from within gas is
143   useless for a relocation, so we just get the offset value and place
144   a version of this within the object code.
145   tic30_aout_final_link_relocate will then calculate the required
146   relocation to add on to the value in the object code.  */
147
148static bfd_reloc_status_type
149tic30_aout_fix_pcrel_16 (bfd *abfd,
150			 arelent *reloc_entry,
151			 asymbol *symbol ATTRIBUTE_UNUSED,
152			 void * data,
153			 asection *input_section ATTRIBUTE_UNUSED,
154			 bfd *output_bfd ATTRIBUTE_UNUSED,
155			 char **error_message ATTRIBUTE_UNUSED)
156{
157  bfd_vma relocation = 1;
158  bfd_byte offset_data = bfd_get_8 (abfd, (bfd_byte *) data + reloc_entry->address - 1);
159
160  /* The byte before the location of the fix contains bits 23-16 of
161     the pcrel instruction.  Bit 21 is set for a delayed instruction
162     which requires on offset of 3 instead of 1.  */
163  if (offset_data & 0x20)
164    relocation -= 3;
165  else
166    relocation -= 1;
167  bfd_put_16 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
168  return bfd_reloc_ok;
169}
170
171/* This function is used as a callback for 16-bit relocs.  This is
172   required for relocations between segments.  A line in aoutx.h
173   requires that any relocations for the data section should point to
174   the end of the aligned text section, plus an offset.  By default,
175   this does not happen, therefore this function takes care of
176   that.  */
177
178static bfd_reloc_status_type
179tic30_aout_fix_16 (bfd *abfd,
180		   arelent *reloc_entry,
181		   asymbol *symbol,
182		   void * data,
183		   asection *input_section ATTRIBUTE_UNUSED,
184		   bfd *output_bfd,
185		   char **error_message ATTRIBUTE_UNUSED)
186{
187  bfd_vma relocation;
188
189  /* Make sure that the symbol's section is defined.  */
190  if (bfd_is_und_section (symbol->section) && (symbol->flags & BSF_WEAK) == 0)
191    return output_bfd ? bfd_reloc_ok : bfd_reloc_undefined;
192  /* Get the size of the input section and turn it into the TMS320C30
193     32-bit address format.  */
194  relocation = (symbol->section->vma >> 2);
195  relocation += bfd_get_16 (abfd, (bfd_byte *) data + reloc_entry->address);
196  bfd_put_16 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
197  return bfd_reloc_ok;
198}
199
200/* This function does the same thing as tic30_aout_fix_16 except for 32
201   bit relocations.  */
202
203static bfd_reloc_status_type
204tic30_aout_fix_32 (bfd *abfd,
205		   arelent *reloc_entry,
206		   asymbol *symbol,
207		   void * data,
208		   asection *input_section ATTRIBUTE_UNUSED,
209		   bfd *output_bfd,
210		   char **error_message ATTRIBUTE_UNUSED)
211{
212  bfd_vma relocation;
213
214  /* Make sure that the symbol's section is defined.  */
215  if (bfd_is_und_section (symbol->section) && (symbol->flags & BSF_WEAK) == 0)
216    return output_bfd ? bfd_reloc_ok : bfd_reloc_undefined;
217  /* Get the size of the input section and turn it into the TMS320C30
218     32-bit address format.  */
219  relocation = (symbol->section->vma >> 2);
220  relocation += bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
221  bfd_put_32 (abfd, relocation, (bfd_byte *) data + reloc_entry->address);
222  return bfd_reloc_ok;
223}
224
225/* This table lists the relocation types for the TMS320C30.  There are
226   only a few relocations required, and all must be divided by 4 (>>
227   2) to get the 32-bit addresses in the format the TMS320C30 likes
228   it.  */
229reloc_howto_type tic30_aout_howto_table[] =
230{
231  EMPTY_HOWTO (-1),
232  HOWTO (1, 2, 1, 16, FALSE, 0, 0, tic30_aout_fix_16,
233	 "16", FALSE, 0x0000FFFF, 0x0000FFFF, FALSE),
234  HOWTO (2, 2, 2, 24, FALSE, 0, complain_overflow_bitfield, NULL,
235	 "24", FALSE, 0x00FFFFFF, 0x00FFFFFF, FALSE),
236  HOWTO (3, 18, 3, 24, FALSE, 0, complain_overflow_bitfield, NULL,
237	 "LDP", FALSE, 0x00FF0000, 0x000000FF, FALSE),
238  HOWTO (4, 2, 4, 32, FALSE, 0, complain_overflow_bitfield, tic30_aout_fix_32,
239	 "32", FALSE, 0xFFFFFFFF, 0xFFFFFFFF, FALSE),
240  HOWTO (5, 2, 1, 16, TRUE, 0, complain_overflow_signed,
241	 tic30_aout_fix_pcrel_16, "PCREL", TRUE, 0x0000FFFF, 0x0000FFFF, TRUE),
242  EMPTY_HOWTO (-1),
243  EMPTY_HOWTO (-1),
244  EMPTY_HOWTO (-1),
245  EMPTY_HOWTO (-1),
246  EMPTY_HOWTO (-1)
247};
248
249
250static reloc_howto_type *
251tic30_aout_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
252			      bfd_reloc_code_real_type code)
253{
254  switch (code)
255    {
256    case BFD_RELOC_8:
257    case BFD_RELOC_TIC30_LDP:
258      return &tic30_aout_howto_table[3];
259    case BFD_RELOC_16:
260      return &tic30_aout_howto_table[1];
261    case BFD_RELOC_24:
262      return &tic30_aout_howto_table[2];
263    case BFD_RELOC_16_PCREL:
264      return &tic30_aout_howto_table[5];
265    case BFD_RELOC_32:
266      return &tic30_aout_howto_table[4];
267    default:
268      return NULL;
269    }
270}
271
272static reloc_howto_type *
273tic30_aout_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
274			      const char *r_name)
275{
276  unsigned int i;
277
278  for (i = 0;
279       i < (sizeof (tic30_aout_howto_table)
280	    / sizeof (tic30_aout_howto_table[0]));
281       i++)
282    if (tic30_aout_howto_table[i].name != NULL
283	&& strcasecmp (tic30_aout_howto_table[i].name, r_name) == 0)
284      return &tic30_aout_howto_table[i];
285
286  return NULL;
287}
288
289static reloc_howto_type *
290tic30_aout_reloc_howto (bfd *abfd,
291			struct reloc_std_external *relocs,
292			int *r_index,
293			int *r_extern,
294			int *r_pcrel)
295{
296  unsigned int r_length;
297  unsigned int r_pcrel_done;
298  int howto_index;
299
300  *r_pcrel = 0;
301  if (bfd_header_big_endian (abfd))
302    {
303      *r_index = ((relocs->r_index[0] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[2]);
304      *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_BIG));
305      r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_BIG));
306      r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_BIG) >> RELOC_STD_BITS_LENGTH_SH_BIG);
307    }
308  else
309    {
310      *r_index = ((relocs->r_index[2] << 16) | (relocs->r_index[1] << 8) | relocs->r_index[0]);
311      *r_extern = (0 != (relocs->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
312      r_pcrel_done = (0 != (relocs->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
313      r_length = ((relocs->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE) >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
314    }
315  howto_index = r_length + 4 * r_pcrel_done;
316  return tic30_aout_howto_table + howto_index;
317}
318
319/* These macros will get 24-bit values from the bfd definition.
320   Big-endian only.  */
321#define bfd_getb_24(BFD,ADDR)			\
322 (bfd_get_8 (BFD, ADDR    ) << 16) |		\
323 (bfd_get_8 (BFD, ADDR + 1) <<  8) |		\
324 (bfd_get_8 (BFD, ADDR + 2)      )
325
326#define bfd_putb_24(BFD,DATA,ADDR)				\
327 bfd_put_8 (BFD, (bfd_byte) ((DATA >> 16) & 0xFF), ADDR    );	\
328 bfd_put_8 (BFD, (bfd_byte) ((DATA >>  8) & 0xFF), ADDR + 1);	\
329 bfd_put_8 (BFD, (bfd_byte) ( DATA        & 0xFF), ADDR + 2)
330
331/* Set parameters about this a.out file that are machine-dependent.
332   This routine is called from some_aout_object_p just before it returns.  */
333
334static const bfd_target *
335tic30_aout_callback (bfd *abfd)
336{
337  struct internal_exec *execp = exec_hdr (abfd);
338  unsigned int arch_align_power;
339  unsigned long arch_align;
340
341  /* Calculate the file positions of the parts of a newly read aout header.  */
342  obj_textsec (abfd)->size = N_TXTSIZE (execp);
343
344  /* The virtual memory addresses of the sections.  */
345  obj_textsec (abfd)->vma = N_TXTADDR (execp);
346  obj_datasec (abfd)->vma = N_DATADDR (execp);
347  obj_bsssec (abfd)->vma = N_BSSADDR (execp);
348
349  obj_textsec (abfd)->lma = obj_textsec (abfd)->vma;
350  obj_datasec (abfd)->lma = obj_datasec (abfd)->vma;
351  obj_bsssec (abfd)->lma = obj_bsssec (abfd)->vma;
352
353  /* The file offsets of the sections.  */
354  obj_textsec (abfd)->filepos = N_TXTOFF (execp);
355  obj_datasec (abfd)->filepos = N_DATOFF (execp);
356
357  /* The file offsets of the relocation info.  */
358  obj_textsec (abfd)->rel_filepos = N_TRELOFF (execp);
359  obj_datasec (abfd)->rel_filepos = N_DRELOFF (execp);
360
361  /* The file offsets of the string table and symbol table.  */
362  obj_sym_filepos (abfd) = N_SYMOFF (execp);
363  obj_str_filepos (abfd) = N_STROFF (execp);
364
365  /* Determine the architecture and machine type of the object file.  */
366#ifdef SET_ARCH_MACH
367  SET_ARCH_MACH (abfd, execp);
368#else
369  bfd_default_set_arch_mach (abfd, DEFAULT_ARCH, 0L);
370#endif
371
372  /* Now that we know the architecture, set the alignments of the
373     sections.  This is normally done by NAME (aout,new_section_hook),
374     but when the initial sections were created the architecture had
375     not yet been set.  However, for backward compatibility, we don't
376     set the alignment power any higher than as required by the size
377     of the section.  */
378  arch_align_power = bfd_get_arch_info (abfd)->section_align_power;
379  arch_align = 1 << arch_align_power;
380  if ((BFD_ALIGN (obj_textsec (abfd)->size, arch_align)
381       == obj_textsec (abfd)->size)
382      && (BFD_ALIGN (obj_datasec (abfd)->size, arch_align)
383	  == obj_datasec (abfd)->size)
384      && (BFD_ALIGN (obj_bsssec (abfd)->size, arch_align)
385	  == obj_bsssec (abfd)->size))
386    {
387      obj_textsec (abfd)->alignment_power = arch_align_power;
388      obj_datasec (abfd)->alignment_power = arch_align_power;
389      obj_bsssec (abfd)->alignment_power = arch_align_power;
390    }
391  return abfd->xvec;
392}
393
394static bfd_reloc_status_type
395tic30_aout_relocate_contents (reloc_howto_type *howto,
396			      bfd *input_bfd,
397			      bfd_vma relocation,
398			      bfd_byte *location)
399{
400  bfd_vma x;
401  bfd_boolean overflow;
402
403  if (howto->size < 0)
404    relocation = -relocation;
405
406  switch (howto->size)
407    {
408    default:
409    case 0:
410      abort ();
411      break;
412    case 1:
413      x = bfd_get_16 (input_bfd, location);
414      break;
415    case 2:
416      x = bfd_getb_24 (input_bfd, location);
417      break;
418    case 3:
419      x = bfd_get_8 (input_bfd, location);
420      break;
421    case 4:
422      x = bfd_get_32 (input_bfd, location);
423      break;
424    }
425
426  overflow = FALSE;
427
428  if (howto->complain_on_overflow != complain_overflow_dont)
429    {
430      bfd_vma check;
431      bfd_signed_vma signed_check;
432      bfd_vma add;
433      bfd_signed_vma signed_add;
434
435      if (howto->rightshift == 0)
436	{
437	  check = relocation;
438	  signed_check = (bfd_signed_vma) relocation;
439	}
440      else
441	{
442	  check = relocation >> howto->rightshift;
443	  if ((bfd_signed_vma) relocation >= 0)
444	    signed_check = check;
445	  else
446	    signed_check = (check | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->rightshift)));
447	}
448      add = x & howto->src_mask;
449      signed_add = add;
450      if ((add & (((~howto->src_mask) >> 1) & howto->src_mask)) != 0)
451	signed_add -= (((~howto->src_mask) >> 1) & howto->src_mask) << 1;
452      if (howto->bitpos == 0)
453	{
454	  check += add;
455	  signed_check += signed_add;
456	}
457      else
458	{
459	  check += add >> howto->bitpos;
460	  if (signed_add >= 0)
461	    signed_check += add >> howto->bitpos;
462	  else
463	    signed_check += ((add >> howto->bitpos) | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->bitpos)));
464	}
465      switch (howto->complain_on_overflow)
466	{
467	case complain_overflow_signed:
468	  {
469	    bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
470	    bfd_signed_vma reloc_signed_min = ~reloc_signed_max;
471
472	    if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
473	      overflow = TRUE;
474	  }
475	  break;
476	case complain_overflow_unsigned:
477	  {
478	    bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
479
480	    if (check > reloc_unsigned_max)
481	      overflow = TRUE;
482	  }
483	  break;
484	case complain_overflow_bitfield:
485	  {
486	    bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
487
488	    if ((check & ~reloc_bits) != 0
489		&& (((bfd_vma) signed_check & ~reloc_bits)
490		    != ((bfd_vma) -1 & ~reloc_bits)))
491	      overflow = TRUE;
492	  }
493	  break;
494	default:
495	  abort ();
496	}
497    }
498  relocation >>= (bfd_vma) howto->rightshift;
499  relocation <<= (bfd_vma) howto->bitpos;
500  x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask));
501  switch (howto->size)
502    {
503    default:
504    case 0:
505      abort ();
506      break;
507    case 1:
508      bfd_put_16 (input_bfd, x, location);
509      break;
510    case 2:
511      bfd_putb_24 (input_bfd, x, location);
512      break;
513    case 3:
514      bfd_put_8 (input_bfd, x, location);
515      break;
516    case 4:
517      bfd_put_32 (input_bfd, x, location);
518      break;
519    }
520  return overflow ? bfd_reloc_overflow : bfd_reloc_ok;
521}
522
523static bfd_reloc_status_type
524tic30_aout_final_link_relocate (reloc_howto_type *howto,
525				bfd *input_bfd,
526				asection *input_section,
527				bfd_byte *contents,
528				bfd_vma address,
529				bfd_vma value,
530				bfd_vma addend)
531{
532  bfd_vma relocation;
533
534  if (address > bfd_get_section_limit (input_bfd, input_section))
535    return bfd_reloc_outofrange;
536
537  relocation = value + addend;
538  if (howto->pc_relative)
539    {
540      relocation -= (input_section->output_section->vma + input_section->output_offset);
541      if (howto->pcrel_offset)
542	relocation -= address;
543    }
544  return tic30_aout_relocate_contents (howto, input_bfd, relocation,
545				       contents + address);
546}
547
548/* Finish up the reading of an a.out file header.  */
549
550static const bfd_target *
551tic30_aout_object_p (bfd *abfd)
552{
553  struct external_exec exec_bytes;	/* Raw exec header from file.  */
554  struct internal_exec exec;		/* Cleaned-up exec header.  */
555  const bfd_target *target;
556  bfd_size_type amt = EXEC_BYTES_SIZE;
557
558  if (bfd_bread (& exec_bytes, amt, abfd) != amt)
559    {
560      if (bfd_get_error () != bfd_error_system_call)
561	bfd_set_error (bfd_error_wrong_format);
562      return 0;
563    }
564
565#ifdef SWAP_MAGIC
566  exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
567#else
568  exec.a_info = H_GET_32 (abfd, exec_bytes.e_info);
569#endif /* SWAP_MAGIC */
570
571  if (N_BADMAG (&exec))
572    return 0;
573#ifdef MACHTYPE_OK
574  if (!(MACHTYPE_OK (N_MACHTYPE (&exec))))
575    return 0;
576#endif
577
578  NAME (aout, swap_exec_header_in) (abfd, &exec_bytes, &exec);
579
580#ifdef SWAP_MAGIC
581  /* Swap_exec_header_in read in a_info with the wrong byte order.  */
582  exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
583#endif
584
585  target = NAME (aout, some_aout_object_p) (abfd, &exec, tic30_aout_callback);
586
587#ifdef ENTRY_CAN_BE_ZERO
588  /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
589     means that it isn't obvious if EXEC_P should be set.
590     All of the following must be true for an executable:
591     There must be no relocations, the bfd can be neither an
592     archive nor an archive element, and the file must be executable.  */
593
594  if (exec.a_trsize + exec.a_drsize == 0
595      && bfd_get_format (abfd) == bfd_object && abfd->my_archive == NULL)
596    {
597      struct stat buf;
598#ifndef S_IXUSR
599#define S_IXUSR 0100		/* Execute by owner.  */
600#endif
601      if (stat (abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR))
602	abfd->flags |= EXEC_P;
603    }
604#endif
605
606  return target;
607}
608
609/* Copy private section data.  This actually does nothing with the
610   sections.  It copies the subformat field.  We copy it here, because
611   we need to know whether this is a QMAGIC file before we set the
612   section contents, and copy_private_bfd_data is not called until
613   after the section contents have been set.  */
614
615static bfd_boolean
616MY_bfd_copy_private_section_data (bfd *ibfd,
617				  asection *isec ATTRIBUTE_UNUSED,
618				  bfd *obfd,
619				  asection *osec ATTRIBUTE_UNUSED)
620{
621  if (bfd_get_flavour (obfd) == bfd_target_aout_flavour)
622    obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
623  return TRUE;
624}
625
626/* Write an object file.
627   Section contents have already been written.  We write the
628   file header, symbols, and relocation.  */
629
630static bfd_boolean
631tic30_aout_write_object_contents (bfd *abfd)
632{
633  struct external_exec exec_bytes;
634  struct internal_exec *execp = exec_hdr (abfd);
635
636  obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
637
638  {
639    if (adata (abfd).magic == undecided_magic)
640      NAME (aout, adjust_sizes_and_vmas) (abfd);
641
642    execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;
643    execp->a_entry = bfd_get_start_address (abfd);
644
645    execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
646    execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
647    NAME (aout, swap_exec_header_out) (abfd, execp, &exec_bytes);
648
649    if (adata (abfd).exec_bytes_size > 0)
650      {
651	bfd_size_type amt;
652
653	if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
654	  return FALSE;
655	amt = adata (abfd).exec_bytes_size;
656	if (bfd_bwrite (& exec_bytes, amt, abfd) != amt)
657	  return FALSE;
658      }
659
660    /* Now write out reloc info, followed by syms and strings.  */
661    if (bfd_get_outsymbols (abfd) != (asymbol **) NULL
662	&& bfd_get_symcount (abfd) != 0)
663      {
664	if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (execp)), SEEK_SET) != 0)
665	  return FALSE;
666
667	if (!NAME (aout, write_syms) (abfd))
668	  return FALSE;
669      }
670
671    if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (execp)), SEEK_SET) != 0)
672      return FALSE;
673    if (!NAME (aout, squirt_out_relocs) (abfd, obj_textsec (abfd)))
674      return FALSE;
675
676    if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (execp)), SEEK_SET) != 0)
677      return FALSE;
678    if (!NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))
679      return FALSE;
680  }
681
682  return TRUE;
683}
684
685#ifndef MY_final_link_callback
686
687/* Callback for the final_link routine to set the section offsets.  */
688
689static void
690MY_final_link_callback (bfd *abfd,
691			file_ptr *ptreloff,
692			file_ptr *pdreloff,
693			file_ptr *psymoff)
694{
695  struct internal_exec *execp = exec_hdr (abfd);
696
697  *ptreloff = obj_datasec (abfd)->filepos + execp->a_data;
698  *pdreloff = *ptreloff + execp->a_trsize;
699  *psymoff = *pdreloff + execp->a_drsize;
700}
701
702#endif
703
704#ifndef MY_bfd_final_link
705
706/* Final link routine.  We need to use a call back to get the correct
707   offsets in the output file.  */
708
709static bfd_boolean
710MY_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
711{
712  struct internal_exec *execp = exec_hdr (abfd);
713  file_ptr pos;
714  bfd_vma vma = 0;
715  int pad;
716
717  /* Set the executable header size to 0, as we don't want one for an
718     output.  */
719  adata (abfd).exec_bytes_size = 0;
720  pos = adata (abfd).exec_bytes_size;
721  /* Text.  */
722  vma = info->create_object_symbols_section->vma;
723  pos += vma;
724  obj_textsec (abfd)->filepos = pos;
725  obj_textsec (abfd)->vma = vma;
726  obj_textsec (abfd)->user_set_vma = 1;
727  pos += obj_textsec (abfd)->size;
728  vma += obj_textsec (abfd)->size;
729
730  /* Data.  */
731  if (abfd->flags & D_PAGED)
732    {
733      if (info->create_object_symbols_section->next->vma > 0)
734	obj_datasec (abfd)->vma = info->create_object_symbols_section->next->vma;
735      else
736	obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
737    }
738  else
739    obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
740
741  if (obj_datasec (abfd)->vma < vma)
742    obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
743
744  obj_datasec (abfd)->user_set_vma = 1;
745  vma = obj_datasec (abfd)->vma;
746  obj_datasec (abfd)->filepos = vma + adata (abfd).exec_bytes_size;
747  execp->a_text = vma - obj_textsec (abfd)->vma;
748  obj_textsec (abfd)->size = execp->a_text;
749
750  /* Since BSS follows data immediately, see if it needs alignment.  */
751  vma += obj_datasec (abfd)->size;
752  pad = align_power (vma, obj_bsssec (abfd)->alignment_power) - vma;
753  obj_datasec (abfd)->size += pad;
754  pos += obj_datasec (abfd)->size;
755  execp->a_data = obj_datasec (abfd)->size;
756
757  /* BSS.  */
758  obj_bsssec (abfd)->vma = vma;
759  obj_bsssec (abfd)->user_set_vma = 1;
760
761  /* We are fully resized, so don't readjust in final_link.  */
762  adata (abfd).magic = z_magic;
763
764  return NAME (aout, final_link) (abfd, info, MY_final_link_callback);
765}
766
767#endif
768
769static enum machine_type
770tic30_aout_machine_type (enum bfd_architecture arch,
771			 unsigned long machine ATTRIBUTE_UNUSED,
772			 bfd_boolean *unknown)
773{
774  enum machine_type arch_flags;
775
776  arch_flags = M_UNKNOWN;
777  *unknown = TRUE;
778
779  switch (arch)
780    {
781    case bfd_arch_tic30:
782      *unknown = FALSE;
783      break;
784    default:
785      arch_flags = M_UNKNOWN;
786    }
787  if (arch_flags != M_UNKNOWN)
788    *unknown = FALSE;
789  return arch_flags;
790}
791
792static bfd_boolean
793tic30_aout_set_arch_mach (bfd *abfd,
794			  enum bfd_architecture arch,
795			  unsigned long machine)
796{
797  if (!bfd_default_set_arch_mach (abfd, arch, machine))
798    return FALSE;
799  if (arch != bfd_arch_unknown)
800    {
801      bfd_boolean unknown;
802      tic30_aout_machine_type (arch, machine, &unknown);
803      if (unknown)
804	return FALSE;
805    }
806  obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
807  return (*aout_backend_info (abfd)->set_sizes) (abfd);
808}
809
810/* We assume BFD generic archive files.  */
811#ifndef	MY_openr_next_archived_file
812#define	MY_openr_next_archived_file	bfd_generic_openr_next_archived_file
813#endif
814#ifndef MY_get_elt_at_index
815#define MY_get_elt_at_index		_bfd_generic_get_elt_at_index
816#endif
817#ifndef	MY_generic_stat_arch_elt
818#define	MY_generic_stat_arch_elt	bfd_generic_stat_arch_elt
819#endif
820#ifndef	MY_slurp_armap
821#define	MY_slurp_armap			bfd_slurp_bsd_armap
822#endif
823#ifndef	MY_slurp_extended_name_table
824#define	MY_slurp_extended_name_table	_bfd_slurp_extended_name_table
825#endif
826#ifndef MY_construct_extended_name_table
827#define MY_construct_extended_name_table \
828  _bfd_archive_bsd_construct_extended_name_table
829#endif
830#ifndef	MY_write_armap
831#define	MY_write_armap			bsd_write_armap
832#endif
833#ifndef MY_read_ar_hdr
834#define MY_read_ar_hdr			_bfd_generic_read_ar_hdr
835#endif
836#ifndef MY_write_ar_hdr
837#define MY_write_ar_hdr			_bfd_generic_write_ar_hdr
838#endif
839#ifndef	MY_truncate_arname
840#define	MY_truncate_arname		bfd_bsd_truncate_arname
841#endif
842#ifndef MY_update_armap_timestamp
843#define MY_update_armap_timestamp 	_bfd_archive_bsd_update_armap_timestamp
844#endif
845
846/* No core file defined here -- configure in trad-core.c separately.  */
847#ifndef	MY_core_file_failing_command
848#define	MY_core_file_failing_command 	_bfd_nocore_core_file_failing_command
849#endif
850#ifndef	MY_core_file_failing_signal
851#define	MY_core_file_failing_signal	_bfd_nocore_core_file_failing_signal
852#endif
853#ifndef	MY_core_file_matches_executable_p
854#define	MY_core_file_matches_executable_p	\
855				_bfd_nocore_core_file_matches_executable_p
856#endif
857#ifndef	MY_core_file_pid
858#define	MY_core_file_pid  		_bfd_nocore_core_file_pid
859#endif
860#ifndef	MY_core_file_p
861#define	MY_core_file_p			_bfd_dummy_target
862#endif
863
864#ifndef MY_bfd_debug_info_start
865#define MY_bfd_debug_info_start		bfd_void
866#endif
867#ifndef MY_bfd_debug_info_end
868#define MY_bfd_debug_info_end		bfd_void
869#endif
870#ifndef MY_bfd_debug_info_accumulate
871#define MY_bfd_debug_info_accumulate	\
872		(void (*) (bfd*, struct bfd_section *)) bfd_void
873#endif
874
875#ifndef MY_core_file_failing_command
876#define MY_core_file_failing_command NAME (aout, core_file_failing_command)
877#endif
878#ifndef MY_core_file_failing_signal
879#define MY_core_file_failing_signal NAME (aout, core_file_failing_signal)
880#endif
881#ifndef MY_core_file_matches_executable_p
882#define MY_core_file_matches_executable_p NAME (aout, core_file_matches_executable_p)
883#endif
884#ifndef MY_set_section_contents
885#define MY_set_section_contents NAME (aout, set_section_contents)
886#endif
887#ifndef MY_get_section_contents
888#define MY_get_section_contents aout_32_get_section_contents
889#endif
890#ifndef MY_get_section_contents_in_window
891#define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
892#endif
893#ifndef MY_new_section_hook
894#define MY_new_section_hook NAME (aout, new_section_hook)
895#endif
896#ifndef MY_get_symtab_upper_bound
897#define MY_get_symtab_upper_bound NAME (aout, get_symtab_upper_bound)
898#endif
899#ifndef MY_canonicalize_symtab
900#define MY_canonicalize_symtab NAME (aout, canonicalize_symtab)
901#endif
902#ifndef MY_get_reloc_upper_bound
903#define MY_get_reloc_upper_bound NAME (aout, get_reloc_upper_bound)
904#endif
905#ifndef MY_canonicalize_reloc
906#define MY_canonicalize_reloc NAME (aout, canonicalize_reloc)
907#endif
908#ifndef MY_make_empty_symbol
909#define MY_make_empty_symbol NAME (aout, make_empty_symbol)
910#endif
911#ifndef MY_print_symbol
912#define MY_print_symbol NAME (aout, print_symbol)
913#endif
914#ifndef MY_get_symbol_info
915#define MY_get_symbol_info NAME (aout, get_symbol_info)
916#endif
917#ifndef MY_get_symbol_version_string
918#define MY_get_symbol_version_string \
919  _bfd_nosymbols_get_symbol_version_string
920#endif
921#ifndef MY_get_lineno
922#define MY_get_lineno NAME (aout, get_lineno)
923#endif
924#ifndef MY_set_arch_mach
925#define MY_set_arch_mach tic30_aout_set_arch_mach
926#endif
927#ifndef MY_find_nearest_line
928#define MY_find_nearest_line NAME (aout, find_nearest_line)
929#endif
930#ifndef MY_find_line
931#define MY_find_line _bfd_nosymbols_find_line
932#endif
933#ifndef MY_find_inliner_info
934#define MY_find_inliner_info _bfd_nosymbols_find_inliner_info
935#endif
936#ifndef MY_sizeof_headers
937#define MY_sizeof_headers NAME (aout, sizeof_headers)
938#endif
939#ifndef MY_bfd_get_relocated_section_contents
940#define MY_bfd_get_relocated_section_contents \
941			bfd_generic_get_relocated_section_contents
942#endif
943#ifndef MY_bfd_relax_section
944#define MY_bfd_relax_section bfd_generic_relax_section
945#endif
946#ifndef MY_bfd_gc_sections
947#define MY_bfd_gc_sections bfd_generic_gc_sections
948#endif
949#ifndef MY_bfd_lookup_section_flags
950#define MY_bfd_lookup_section_flags bfd_generic_lookup_section_flags
951#endif
952#ifndef MY_bfd_merge_sections
953#define MY_bfd_merge_sections bfd_generic_merge_sections
954#endif
955#ifndef MY_bfd_is_group_section
956#define MY_bfd_is_group_section bfd_generic_is_group_section
957#endif
958#ifndef MY_bfd_discard_group
959#define MY_bfd_discard_group bfd_generic_discard_group
960#endif
961#ifndef MY_section_already_linked
962#define MY_section_already_linked \
963  _bfd_generic_section_already_linked
964#endif
965#ifndef MY_bfd_define_common_symbol
966#define MY_bfd_define_common_symbol bfd_generic_define_common_symbol
967#endif
968#ifndef MY_bfd_reloc_type_lookup
969#define MY_bfd_reloc_type_lookup tic30_aout_reloc_type_lookup
970#endif
971#ifndef MY_bfd_reloc_name_lookup
972#define MY_bfd_reloc_name_lookup tic30_aout_reloc_name_lookup
973#endif
974#ifndef MY_bfd_make_debug_symbol
975#define MY_bfd_make_debug_symbol 0
976#endif
977#ifndef MY_read_minisymbols
978#define MY_read_minisymbols NAME (aout, read_minisymbols)
979#endif
980#ifndef MY_minisymbol_to_symbol
981#define MY_minisymbol_to_symbol NAME (aout, minisymbol_to_symbol)
982#endif
983#ifndef MY_bfd_link_hash_table_create
984#define MY_bfd_link_hash_table_create NAME (aout, link_hash_table_create)
985#endif
986#ifndef MY_bfd_link_add_symbols
987#define MY_bfd_link_add_symbols NAME (aout, link_add_symbols)
988#endif
989#ifndef MY_bfd_link_just_syms
990#define MY_bfd_link_just_syms _bfd_generic_link_just_syms
991#endif
992#ifndef MY_bfd_copy_link_hash_symbol_type
993#define MY_bfd_copy_link_hash_symbol_type \
994  _bfd_generic_copy_link_hash_symbol_type
995#endif
996#ifndef MY_bfd_link_split_section
997#define MY_bfd_link_split_section  _bfd_generic_link_split_section
998#endif
999
1000#ifndef MY_bfd_link_check_relocs
1001#define MY_bfd_link_check_relocs   _bfd_generic_link_check_relocs
1002#endif
1003
1004#ifndef MY_bfd_copy_private_bfd_data
1005#define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
1006#endif
1007
1008#ifndef MY_bfd_merge_private_bfd_data
1009#define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
1010#endif
1011
1012#ifndef MY_bfd_copy_private_symbol_data
1013#define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
1014#endif
1015
1016#ifndef MY_bfd_copy_private_header_data
1017#define MY_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
1018#endif
1019
1020#ifndef MY_bfd_print_private_bfd_data
1021#define MY_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
1022#endif
1023
1024#ifndef MY_bfd_set_private_flags
1025#define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
1026#endif
1027
1028#ifndef MY_bfd_is_local_label_name
1029#define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
1030#endif
1031
1032#ifndef MY_bfd_is_target_special_symbol
1033#define MY_bfd_is_target_special_symbol  \
1034  ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
1035#endif
1036
1037#ifndef MY_bfd_free_cached_info
1038#define MY_bfd_free_cached_info NAME (aout, bfd_free_cached_info)
1039#endif
1040
1041#ifndef MY_close_and_cleanup
1042#define MY_close_and_cleanup MY_bfd_free_cached_info
1043#endif
1044
1045#ifndef MY_get_dynamic_symtab_upper_bound
1046#define MY_get_dynamic_symtab_upper_bound \
1047  _bfd_nodynamic_get_dynamic_symtab_upper_bound
1048#endif
1049#ifndef MY_canonicalize_dynamic_symtab
1050#define MY_canonicalize_dynamic_symtab \
1051  _bfd_nodynamic_canonicalize_dynamic_symtab
1052#endif
1053#ifndef MY_get_synthetic_symtab
1054#define MY_get_synthetic_symtab \
1055  _bfd_nodynamic_get_synthetic_symtab
1056#endif
1057#ifndef MY_get_dynamic_reloc_upper_bound
1058#define MY_get_dynamic_reloc_upper_bound \
1059  _bfd_nodynamic_get_dynamic_reloc_upper_bound
1060#endif
1061#ifndef MY_canonicalize_dynamic_reloc
1062#define MY_canonicalize_dynamic_reloc \
1063  _bfd_nodynamic_canonicalize_dynamic_reloc
1064#endif
1065
1066/* Aout symbols normally have leading underscores.  */
1067#ifndef MY_symbol_leading_char
1068#define MY_symbol_leading_char '_'
1069#endif
1070
1071/* Aout archives normally use spaces for padding.  */
1072#ifndef AR_PAD_CHAR
1073#define AR_PAD_CHAR ' '
1074#endif
1075
1076#ifndef MY_BFD_TARGET
1077const bfd_target tic30_aout_vec =
1078{
1079  TARGETNAME,			/* Name.  */
1080  bfd_target_aout_flavour,
1081  BFD_ENDIAN_BIG,		/* Target byte order (big).  */
1082  BFD_ENDIAN_BIG,		/* Target headers byte order (big).  */
1083  (HAS_RELOC |			/* Object flags.  */
1084   HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1085  (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC),	/* Section flags.  */
1086  MY_symbol_leading_char,
1087  AR_PAD_CHAR,			/* AR_pad_char.  */
1088  15,				/* AR_max_namelen.  */
1089  0,				/* match priority.  */
1090  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1091  bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1092  bfd_getb16, bfd_getb_signed_16, bfd_putb16,	/* Data.  */
1093  bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1094  bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1095  bfd_getb16, bfd_getb_signed_16, bfd_putb16,	/* Headers.  */
1096  {_bfd_dummy_target, MY_object_p,		/* bfd_check_format.  */
1097   bfd_generic_archive_p, MY_core_file_p},
1098  {bfd_false, MY_mkobject,			/* bfd_set_format.  */
1099   _bfd_generic_mkarchive, bfd_false},
1100  {bfd_false, MY_write_object_contents,		/* bfd_write_contents.  */
1101   _bfd_write_archive_contents, bfd_false},
1102
1103  BFD_JUMP_TABLE_GENERIC (MY),
1104  BFD_JUMP_TABLE_COPY (MY),
1105  BFD_JUMP_TABLE_CORE (MY),
1106  BFD_JUMP_TABLE_ARCHIVE (MY),
1107  BFD_JUMP_TABLE_SYMBOLS (MY),
1108  BFD_JUMP_TABLE_RELOCS (MY),
1109  BFD_JUMP_TABLE_WRITE (MY),
1110  BFD_JUMP_TABLE_LINK (MY),
1111  BFD_JUMP_TABLE_DYNAMIC (MY),
1112
1113  NULL,
1114
1115  MY_backend_data
1116};
1117#endif /* MY_BFD_TARGET */
1118