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