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