OSDN Git Service

Implement a new BFD API function: bfd_is_target_special_symbol. Use this in nm
[pf3gnuchains/pf3gnuchains4x.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
406   if (address > bfd_get_section_limit (input_bfd, input_section))
407     return bfd_reloc_outofrange;
408
409   relocation = value + addend;
410   if (howto->pc_relative)
411     {
412       relocation -= (input_section->output_section->vma + input_section->output_offset);
413       if (howto->pcrel_offset)
414         relocation -= address;
415     }
416   return tic30_aout_relocate_contents (howto, input_bfd, relocation,
417                                        contents + address);
418 }
419
420 bfd_reloc_status_type
421 tic30_aout_relocate_contents (howto, input_bfd, relocation, location)
422      reloc_howto_type *howto;
423      bfd *input_bfd;
424      bfd_vma relocation;
425      bfd_byte *location;
426 {
427   bfd_vma x;
428   bfd_boolean overflow;
429
430   if (howto->size < 0)
431     relocation = -relocation;
432
433   switch (howto->size)
434     {
435     default:
436     case 0:
437       abort ();
438       break;
439     case 1:
440       x = bfd_get_16 (input_bfd, location);
441       break;
442     case 2:
443       x = bfd_getb_24 (input_bfd, location);
444       break;
445     case 3:
446       x = bfd_get_8 (input_bfd, location);
447       break;
448     case 4:
449       x = bfd_get_32 (input_bfd, location);
450       break;
451     }
452
453   overflow = FALSE;
454
455   if (howto->complain_on_overflow != complain_overflow_dont)
456     {
457       bfd_vma check;
458       bfd_signed_vma signed_check;
459       bfd_vma add;
460       bfd_signed_vma signed_add;
461
462       if (howto->rightshift == 0)
463         {
464           check = relocation;
465           signed_check = (bfd_signed_vma) relocation;
466         }
467       else
468         {
469           check = relocation >> howto->rightshift;
470           if ((bfd_signed_vma) relocation >= 0)
471             signed_check = check;
472           else
473             signed_check = (check | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->rightshift)));
474         }
475       add = x & howto->src_mask;
476       signed_add = add;
477       if ((add & (((~howto->src_mask) >> 1) & howto->src_mask)) != 0)
478         signed_add -= (((~howto->src_mask) >> 1) & howto->src_mask) << 1;
479       if (howto->bitpos == 0)
480         {
481           check += add;
482           signed_check += signed_add;
483         }
484       else
485         {
486           check += add >> howto->bitpos;
487           if (signed_add >= 0)
488             signed_check += add >> howto->bitpos;
489           else
490             signed_check += ((add >> howto->bitpos) | ((bfd_vma) - 1 & ~((bfd_vma) - 1 >> howto->bitpos)));
491         }
492       switch (howto->complain_on_overflow)
493         {
494         case complain_overflow_signed:
495           {
496             bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
497             bfd_signed_vma reloc_signed_min = ~reloc_signed_max;
498             if (signed_check > reloc_signed_max || signed_check < reloc_signed_min)
499               overflow = TRUE;
500           }
501           break;
502         case complain_overflow_unsigned:
503           {
504             bfd_vma reloc_unsigned_max = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
505             if (check > reloc_unsigned_max)
506               overflow = TRUE;
507           }
508           break;
509         case complain_overflow_bitfield:
510           {
511             bfd_vma reloc_bits = (((1 << (howto->bitsize - 1)) - 1) << 1) | 1;
512             if ((check & ~reloc_bits) != 0
513                 && (((bfd_vma) signed_check & ~reloc_bits)
514                     != ((bfd_vma) -1 & ~reloc_bits)))
515               overflow = TRUE;
516           }
517           break;
518         default:
519           abort ();
520         }
521     }
522   relocation >>= (bfd_vma) howto->rightshift;
523   relocation <<= (bfd_vma) howto->bitpos;
524   x = ((x & ~howto->dst_mask) | (((x & howto->src_mask) + relocation) & howto->dst_mask));
525   switch (howto->size)
526     {
527     default:
528     case 0:
529       abort ();
530       break;
531     case 1:
532       bfd_put_16 (input_bfd, x, location);
533       break;
534     case 2:
535       bfd_putb_24 (input_bfd, x, location);
536       break;
537     case 3:
538       bfd_put_8 (input_bfd, x, location);
539       break;
540     case 4:
541       bfd_put_32 (input_bfd, x, location);
542       break;
543     }
544   return overflow ? bfd_reloc_overflow : bfd_reloc_ok;
545 }
546
547 /* Finish up the reading of an a.out file header.  */
548
549 static const bfd_target *
550 tic30_aout_object_p (abfd)
551      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 ((PTR) &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 /* SWAP_MAGIC */
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 /* ENTRY_CAN_BE_ZERO */
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
615 static bfd_boolean
616 MY_bfd_copy_private_section_data (ibfd, isec, obfd, osec)
617      bfd *ibfd;
618      asection *isec ATTRIBUTE_UNUSED;
619      bfd *obfd;
620      asection *osec ATTRIBUTE_UNUSED;
621 {
622   if (bfd_get_flavour (obfd) == bfd_target_aout_flavour)
623     obj_aout_subformat (obfd) = obj_aout_subformat (ibfd);
624   return TRUE;
625 }
626
627 /* Write an object file.
628    Section contents have already been written.  We write the
629    file header, symbols, and relocation.  */
630
631 static bfd_boolean
632 tic30_aout_write_object_contents (abfd)
633      bfd *abfd;
634 {
635   struct external_exec exec_bytes;
636   struct internal_exec *execp = exec_hdr (abfd);
637
638   obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
639
640   {
641     bfd_size_type text_size;    /* Dummy vars.  */
642     file_ptr text_end;
643
644     if (adata (abfd).magic == undecided_magic)
645       NAME (aout, adjust_sizes_and_vmas) (abfd, &text_size, &text_end);
646
647     execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE;
648     execp->a_entry = bfd_get_start_address (abfd);
649
650     execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
651     execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * obj_reloc_entry_size (abfd));
652     NAME (aout, swap_exec_header_out) (abfd, execp, &exec_bytes);
653
654     if (adata (abfd).exec_bytes_size > 0)
655       {
656         bfd_size_type amt;
657         if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
658           return FALSE;
659         amt = adata (abfd).exec_bytes_size;
660         if (bfd_bwrite ((PTR) &exec_bytes, amt, abfd) != amt)
661           return FALSE;
662       }
663
664     /* Now write out reloc info, followed by syms and strings.  */
665     if (bfd_get_outsymbols (abfd) != (asymbol **) NULL
666         && bfd_get_symcount (abfd) != 0)
667       {
668         if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (*execp)), SEEK_SET) != 0)
669           return FALSE;
670
671         if (!NAME (aout, write_syms) (abfd))
672           return FALSE;
673       }
674
675     if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (*execp)), SEEK_SET) != 0)
676       return FALSE;
677     if (!NAME (aout, squirt_out_relocs) (abfd, obj_textsec (abfd)))
678       return FALSE;
679
680     if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (*execp)), SEEK_SET) != 0)
681       return FALSE;
682     if (!NAME (aout, squirt_out_relocs) (abfd, obj_datasec (abfd)))
683       return FALSE;
684   }
685
686   return TRUE;
687 }
688
689 static bfd_boolean
690 tic30_aout_set_sizes (abfd)
691      bfd *abfd;
692 {
693   adata (abfd).page_size = TARGET_PAGE_SIZE;
694
695 #ifdef SEGMENT_SIZE
696   adata (abfd).segment_size = SEGMENT_SIZE;
697 #else
698   adata (abfd).segment_size = TARGET_PAGE_SIZE;
699 #endif
700
701 #ifdef ZMAGIC_DISK_BLOCK_SIZE
702   adata (abfd).zmagic_disk_block_size = ZMAGIC_DISK_BLOCK_SIZE;
703 #else
704   adata (abfd).zmagic_disk_block_size = TARGET_PAGE_SIZE;
705 #endif
706
707   adata (abfd).exec_bytes_size = EXEC_BYTES_SIZE;
708
709   return TRUE;
710 }
711
712 #ifndef MY_final_link_callback
713
714 /* Callback for the final_link routine to set the section offsets.  */
715
716 static void MY_final_link_callback
717   PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *));
718
719 static void
720 MY_final_link_callback (abfd, ptreloff, pdreloff, psymoff)
721      bfd *abfd;
722      file_ptr *ptreloff;
723      file_ptr *pdreloff;
724      file_ptr *psymoff;
725 {
726   struct internal_exec *execp = exec_hdr (abfd);
727
728   *ptreloff = obj_datasec (abfd)->filepos + execp->a_data;
729   *pdreloff = *ptreloff + execp->a_trsize;
730   *psymoff = *pdreloff + execp->a_drsize;;
731 }
732
733 #endif
734
735 #ifndef MY_bfd_final_link
736
737 /* Final link routine.  We need to use a call back to get the correct
738    offsets in the output file.  */
739
740 static bfd_boolean
741 MY_bfd_final_link (abfd, info)
742      bfd *abfd;
743      struct bfd_link_info *info;
744 {
745   struct internal_exec *execp = exec_hdr (abfd);
746   file_ptr pos;
747   bfd_vma vma = 0;
748   int pad;
749
750   /* Set the executable header size to 0, as we don't want one for an
751      output.  */
752   adata (abfd).exec_bytes_size = 0;
753   pos = adata (abfd).exec_bytes_size;
754   /* Text.  */
755   vma = info->create_object_symbols_section->vma;
756   pos += vma;
757   obj_textsec (abfd)->filepos = pos;
758   obj_textsec (abfd)->vma = vma;
759   obj_textsec (abfd)->user_set_vma = 1;
760   pos += obj_textsec (abfd)->size;
761   vma += obj_textsec (abfd)->size;
762
763   /* Data.  */
764   if (abfd->flags & D_PAGED)
765     {
766       if (info->create_object_symbols_section->next->vma > 0)
767         obj_datasec (abfd)->vma = info->create_object_symbols_section->next->vma;
768       else
769         obj_datasec (abfd)->vma = BFD_ALIGN (vma, adata (abfd).segment_size);
770     }
771   else
772     {
773       obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
774     }
775
776   if (obj_datasec (abfd)->vma < vma)
777     obj_datasec (abfd)->vma = BFD_ALIGN (vma, 4);
778
779   obj_datasec (abfd)->user_set_vma = 1;
780   vma = obj_datasec (abfd)->vma;
781   obj_datasec (abfd)->filepos = vma + adata (abfd).exec_bytes_size;
782   execp->a_text = vma - obj_textsec (abfd)->vma;
783   obj_textsec (abfd)->size = execp->a_text;
784
785   /* Since BSS follows data immediately, see if it needs alignment.  */
786   vma += obj_datasec (abfd)->size;
787   pad = align_power (vma, obj_bsssec (abfd)->alignment_power) - vma;
788   obj_datasec (abfd)->size += pad;
789   pos += obj_datasec (abfd)->size;
790   execp->a_data = obj_datasec (abfd)->size;
791
792   /* BSS.  */
793   obj_bsssec (abfd)->vma = vma;
794   obj_bsssec (abfd)->user_set_vma = 1;
795
796   /* We are fully resized, so don't readjust in final_link.  */
797   adata (abfd).magic = z_magic;
798
799   return NAME (aout, final_link) (abfd, info, MY_final_link_callback);
800 }
801
802 #endif
803
804 enum machine_type
805 tic30_aout_machine_type (arch, machine, unknown)
806      enum bfd_architecture arch;
807      unsigned long machine ATTRIBUTE_UNUSED;
808      bfd_boolean *unknown;
809 {
810   enum machine_type arch_flags;
811
812   arch_flags = M_UNKNOWN;
813   *unknown = TRUE;
814
815   switch (arch)
816     {
817     case bfd_arch_tic30:
818       *unknown = FALSE;
819       break;
820     default:
821       arch_flags = M_UNKNOWN;
822     }
823   if (arch_flags != M_UNKNOWN)
824     *unknown = FALSE;
825   return arch_flags;
826 }
827
828 bfd_boolean
829 tic30_aout_set_arch_mach (abfd, arch, machine)
830      bfd *abfd;
831      enum bfd_architecture arch;
832      unsigned long machine;
833 {
834   if (!bfd_default_set_arch_mach (abfd, arch, machine))
835     return FALSE;
836   if (arch != bfd_arch_unknown)
837     {
838       bfd_boolean unknown;
839       tic30_aout_machine_type (arch, machine, &unknown);
840       if (unknown)
841         return FALSE;
842     }
843   obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
844   return (*aout_backend_info (abfd)->set_sizes) (abfd);
845 }
846
847 /* We assume BFD generic archive files.  */
848 #ifndef MY_openr_next_archived_file
849 #define MY_openr_next_archived_file     bfd_generic_openr_next_archived_file
850 #endif
851 #ifndef MY_get_elt_at_index
852 #define MY_get_elt_at_index             _bfd_generic_get_elt_at_index
853 #endif
854 #ifndef MY_generic_stat_arch_elt
855 #define MY_generic_stat_arch_elt        bfd_generic_stat_arch_elt
856 #endif
857 #ifndef MY_slurp_armap
858 #define MY_slurp_armap                  bfd_slurp_bsd_armap
859 #endif
860 #ifndef MY_slurp_extended_name_table
861 #define MY_slurp_extended_name_table    _bfd_slurp_extended_name_table
862 #endif
863 #ifndef MY_construct_extended_name_table
864 #define MY_construct_extended_name_table \
865   _bfd_archive_bsd_construct_extended_name_table
866 #endif
867 #ifndef MY_write_armap
868 #define MY_write_armap          bsd_write_armap
869 #endif
870 #ifndef MY_read_ar_hdr
871 #define MY_read_ar_hdr          _bfd_generic_read_ar_hdr
872 #endif
873 #ifndef MY_truncate_arname
874 #define MY_truncate_arname              bfd_bsd_truncate_arname
875 #endif
876 #ifndef MY_update_armap_timestamp
877 #define MY_update_armap_timestamp _bfd_archive_bsd_update_armap_timestamp
878 #endif
879
880 /* No core file defined here -- configure in trad-core.c separately.  */
881 #ifndef MY_core_file_failing_command
882 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
883 #endif
884 #ifndef MY_core_file_failing_signal
885 #define MY_core_file_failing_signal     _bfd_nocore_core_file_failing_signal
886 #endif
887 #ifndef MY_core_file_matches_executable_p
888 #define MY_core_file_matches_executable_p       \
889                                 _bfd_nocore_core_file_matches_executable_p
890 #endif
891 #ifndef MY_core_file_p
892 #define MY_core_file_p          _bfd_dummy_target
893 #endif
894
895 #ifndef MY_bfd_debug_info_start
896 #define MY_bfd_debug_info_start         bfd_void
897 #endif
898 #ifndef MY_bfd_debug_info_end
899 #define MY_bfd_debug_info_end           bfd_void
900 #endif
901 #ifndef MY_bfd_debug_info_accumulate
902 #define MY_bfd_debug_info_accumulate    \
903                 (void (*) PARAMS ((bfd*, struct bfd_section *))) bfd_void
904 #endif
905
906 #ifndef MY_core_file_failing_command
907 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
908 #endif
909 #ifndef MY_core_file_failing_signal
910 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
911 #endif
912 #ifndef MY_core_file_matches_executable_p
913 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
914 #endif
915 #ifndef MY_set_section_contents
916 #define MY_set_section_contents NAME(aout,set_section_contents)
917 #endif
918 #ifndef MY_get_section_contents
919 #define MY_get_section_contents aout_32_get_section_contents
920 #endif
921 #ifndef MY_get_section_contents_in_window
922 #define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
923 #endif
924 #ifndef MY_new_section_hook
925 #define MY_new_section_hook NAME(aout,new_section_hook)
926 #endif
927 #ifndef MY_get_symtab_upper_bound
928 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
929 #endif
930 #ifndef MY_canonicalize_symtab
931 #define MY_canonicalize_symtab NAME(aout,canonicalize_symtab)
932 #endif
933 #ifndef MY_get_reloc_upper_bound
934 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
935 #endif
936 #ifndef MY_canonicalize_reloc
937 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
938 #endif
939 #ifndef MY_make_empty_symbol
940 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
941 #endif
942 #ifndef MY_print_symbol
943 #define MY_print_symbol NAME(aout,print_symbol)
944 #endif
945 #ifndef MY_get_symbol_info
946 #define MY_get_symbol_info NAME(aout,get_symbol_info)
947 #endif
948 #ifndef MY_get_lineno
949 #define MY_get_lineno NAME(aout,get_lineno)
950 #endif
951 #ifndef MY_set_arch_mach
952 #define MY_set_arch_mach tic30_aout_set_arch_mach
953 #endif
954 #ifndef MY_find_nearest_line
955 #define MY_find_nearest_line NAME(aout,find_nearest_line)
956 #endif
957 #ifndef MY_sizeof_headers
958 #define MY_sizeof_headers NAME(aout,sizeof_headers)
959 #endif
960 #ifndef MY_bfd_get_relocated_section_contents
961 #define MY_bfd_get_relocated_section_contents \
962                         bfd_generic_get_relocated_section_contents
963 #endif
964 #ifndef MY_bfd_relax_section
965 #define MY_bfd_relax_section bfd_generic_relax_section
966 #endif
967 #ifndef MY_bfd_gc_sections
968 #define MY_bfd_gc_sections bfd_generic_gc_sections
969 #endif
970 #ifndef MY_bfd_merge_sections
971 #define MY_bfd_merge_sections bfd_generic_merge_sections
972 #endif
973 #ifndef MY_bfd_is_group_section
974 #define MY_bfd_is_group_section bfd_generic_is_group_section
975 #endif
976 #ifndef MY_bfd_discard_group
977 #define MY_bfd_discard_group bfd_generic_discard_group
978 #endif
979 #ifndef MY_section_already_linked
980 #define MY_section_already_linked \
981   _bfd_generic_section_already_linked
982 #endif
983 #ifndef MY_bfd_reloc_type_lookup
984 #define MY_bfd_reloc_type_lookup tic30_aout_reloc_type_lookup
985 #endif
986 #ifndef MY_bfd_make_debug_symbol
987 #define MY_bfd_make_debug_symbol 0
988 #endif
989 #ifndef MY_read_minisymbols
990 #define MY_read_minisymbols NAME(aout,read_minisymbols)
991 #endif
992 #ifndef MY_minisymbol_to_symbol
993 #define MY_minisymbol_to_symbol NAME(aout,minisymbol_to_symbol)
994 #endif
995 #ifndef MY_bfd_link_hash_table_create
996 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
997 #endif
998 #ifndef MY_bfd_link_hash_table_free
999 #define MY_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
1000 #endif
1001 #ifndef MY_bfd_link_add_symbols
1002 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
1003 #endif
1004 #ifndef MY_bfd_link_just_syms
1005 #define MY_bfd_link_just_syms _bfd_generic_link_just_syms
1006 #endif
1007 #ifndef MY_bfd_link_split_section
1008 #define MY_bfd_link_split_section  _bfd_generic_link_split_section
1009 #endif
1010
1011 #ifndef MY_bfd_copy_private_bfd_data
1012 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
1013 #endif
1014
1015 #ifndef MY_bfd_merge_private_bfd_data
1016 #define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
1017 #endif
1018
1019 #ifndef MY_bfd_copy_private_symbol_data
1020 #define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
1021 #endif
1022
1023 #ifndef MY_bfd_copy_private_header_data
1024 #define MY_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
1025 #endif
1026
1027 #ifndef MY_bfd_print_private_bfd_data
1028 #define MY_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
1029 #endif
1030
1031 #ifndef MY_bfd_set_private_flags
1032 #define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
1033 #endif
1034
1035 #ifndef MY_bfd_is_local_label_name
1036 #define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
1037 #endif
1038
1039 #ifndef MY_bfd_is_target_special_symbol
1040 #define MY_bfd_is_target_special_symbol  \
1041   ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
1042 #endif
1043
1044 #ifndef MY_bfd_free_cached_info
1045 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
1046 #endif
1047
1048 #ifndef MY_close_and_cleanup
1049 #define MY_close_and_cleanup MY_bfd_free_cached_info
1050 #endif
1051
1052 #ifndef MY_get_dynamic_symtab_upper_bound
1053 #define MY_get_dynamic_symtab_upper_bound \
1054   _bfd_nodynamic_get_dynamic_symtab_upper_bound
1055 #endif
1056 #ifndef MY_canonicalize_dynamic_symtab
1057 #define MY_canonicalize_dynamic_symtab \
1058   _bfd_nodynamic_canonicalize_dynamic_symtab
1059 #endif
1060 #ifndef MY_get_synthetic_symtab
1061 #define MY_get_synthetic_symtab \
1062   _bfd_nodynamic_get_synthetic_symtab
1063 #endif
1064 #ifndef MY_get_dynamic_reloc_upper_bound
1065 #define MY_get_dynamic_reloc_upper_bound \
1066   _bfd_nodynamic_get_dynamic_reloc_upper_bound
1067 #endif
1068 #ifndef MY_canonicalize_dynamic_reloc
1069 #define MY_canonicalize_dynamic_reloc \
1070   _bfd_nodynamic_canonicalize_dynamic_reloc
1071 #endif
1072
1073 /* Aout symbols normally have leading underscores */
1074 #ifndef MY_symbol_leading_char
1075 #define MY_symbol_leading_char '_'
1076 #endif
1077
1078 /* Aout archives normally use spaces for padding */
1079 #ifndef AR_PAD_CHAR
1080 #define AR_PAD_CHAR ' '
1081 #endif
1082
1083 #ifndef MY_BFD_TARGET
1084 const bfd_target tic30_aout_vec =
1085 {
1086   TARGETNAME,                   /* name */
1087   bfd_target_aout_flavour,
1088   BFD_ENDIAN_BIG,               /* target byte order (big) */
1089   BFD_ENDIAN_BIG,               /* target headers byte order (big) */
1090   (HAS_RELOC |                  /* object flags */
1091    HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
1092   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC),        /* section flags */
1093   MY_symbol_leading_char,
1094   AR_PAD_CHAR,                  /* ar_pad_char */
1095   15,                           /* ar_max_namelen */
1096   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1097   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1098   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* data */
1099   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
1100   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
1101   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* hdrs */
1102   {_bfd_dummy_target, MY_object_p,      /* bfd_check_format */
1103    bfd_generic_archive_p, MY_core_file_p},
1104   {bfd_false, MY_mkobject,      /* bfd_set_format */
1105    _bfd_generic_mkarchive, bfd_false},
1106   {bfd_false, MY_write_object_contents,         /* bfd_write_contents */
1107    _bfd_write_archive_contents, bfd_false},
1108
1109   BFD_JUMP_TABLE_GENERIC (MY),
1110   BFD_JUMP_TABLE_COPY (MY),
1111   BFD_JUMP_TABLE_CORE (MY),
1112   BFD_JUMP_TABLE_ARCHIVE (MY),
1113   BFD_JUMP_TABLE_SYMBOLS (MY),
1114   BFD_JUMP_TABLE_RELOCS (MY),
1115   BFD_JUMP_TABLE_WRITE (MY),
1116   BFD_JUMP_TABLE_LINK (MY),
1117   BFD_JUMP_TABLE_DYNAMIC (MY),
1118
1119   NULL,
1120
1121   (PTR) MY_backend_data
1122 };
1123 #endif /* MY_BFD_TARGET */