1 /* Define a target vector and some small routines for a variant of a.out.
2 Copyright (C) 1990, 91, 92, 93, 94, 95, 96, 97, 98, 99, 2000
3 Free Software Foundation, Inc.
5 This file is part of BFD, the Binary File Descriptor library.
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.
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.
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 02111-1307, USA. */
21 #include "aout/aout64.h"
22 #include "aout/stab_gnu.h"
24 /*#include "libaout.h"*/
27 #define SEGMENT_SIZE TARGET_PAGE_SIZE
30 extern reloc_howto_type
* NAME(aout
,reloc_type_lookup
)
31 PARAMS ((bfd
*, bfd_reloc_code_real_type
));
33 /* Set parameters about this a.out file that are machine-dependent.
34 This routine is called from some_aout_object_p just before it returns. */
37 static const bfd_target
*MY(callback
) PARAMS ((bfd
*));
39 static const bfd_target
*
43 struct internal_exec
*execp
= exec_hdr (abfd
);
44 unsigned int arch_align_power
;
45 unsigned long arch_align
;
47 /* Calculate the file positions of the parts of a newly read aout header */
48 obj_textsec (abfd
)->_raw_size
= N_TXTSIZE(*execp
);
50 /* The virtual memory addresses of the sections */
51 obj_textsec (abfd
)->vma
= N_TXTADDR(*execp
);
52 obj_datasec (abfd
)->vma
= N_DATADDR(*execp
);
53 obj_bsssec (abfd
)->vma
= N_BSSADDR(*execp
);
55 /* For some targets, if the entry point is not in the same page
56 as the start of the text, then adjust the VMA so that it is.
57 FIXME: Do this with a macro like SET_ARCH_MACH instead? */
58 if (aout_backend_info (abfd
)->entry_is_text_address
59 && execp
->a_entry
> obj_textsec (abfd
)->vma
)
63 adjust
= execp
->a_entry
- obj_textsec (abfd
)->vma
;
64 /* Adjust only by whole pages. */
65 adjust
&= ~(TARGET_PAGE_SIZE
- 1);
66 obj_textsec (abfd
)->vma
+= adjust
;
67 obj_datasec (abfd
)->vma
+= adjust
;
68 obj_bsssec (abfd
)->vma
+= adjust
;
71 /* Set the load addresses to be the same as the virtual addresses. */
72 obj_textsec (abfd
)->lma
= obj_textsec (abfd
)->vma
;
73 obj_datasec (abfd
)->lma
= obj_datasec (abfd
)->vma
;
74 obj_bsssec (abfd
)->lma
= obj_bsssec (abfd
)->vma
;
76 /* The file offsets of the sections */
77 obj_textsec (abfd
)->filepos
= N_TXTOFF (*execp
);
78 obj_datasec (abfd
)->filepos
= N_DATOFF (*execp
);
80 /* The file offsets of the relocation info */
81 obj_textsec (abfd
)->rel_filepos
= N_TRELOFF(*execp
);
82 obj_datasec (abfd
)->rel_filepos
= N_DRELOFF(*execp
);
84 /* The file offsets of the string table and symbol table. */
85 obj_sym_filepos (abfd
) = N_SYMOFF (*execp
);
86 obj_str_filepos (abfd
) = N_STROFF (*execp
);
88 /* Determine the architecture and machine type of the object file. */
90 SET_ARCH_MACH(abfd
, *execp
);
92 bfd_default_set_arch_mach(abfd
, DEFAULT_ARCH
, 0);
95 /* The number of relocation records. This must be called after
96 SET_ARCH_MACH. It assumes that SET_ARCH_MACH will set
97 obj_reloc_entry_size correctly, if the reloc size is not
99 obj_textsec (abfd
)->reloc_count
=
100 execp
->a_trsize
/ obj_reloc_entry_size (abfd
);
101 obj_datasec (abfd
)->reloc_count
=
102 execp
->a_drsize
/ obj_reloc_entry_size (abfd
);
104 /* Now that we know the architecture, set the alignments of the
105 sections. This is normally done by NAME(aout,new_section_hook),
106 but when the initial sections were created the architecture had
107 not yet been set. However, for backward compatibility, we don't
108 set the alignment power any higher than as required by the size
110 arch_align_power
= bfd_get_arch_info (abfd
)->section_align_power
;
111 arch_align
= 1 << arch_align_power
;
112 if ((BFD_ALIGN (obj_textsec (abfd
)->_raw_size
, arch_align
)
113 == obj_textsec (abfd
)->_raw_size
)
114 && (BFD_ALIGN (obj_datasec (abfd
)->_raw_size
, arch_align
)
115 == obj_datasec (abfd
)->_raw_size
)
116 && (BFD_ALIGN (obj_bsssec (abfd
)->_raw_size
, arch_align
)
117 == obj_bsssec (abfd
)->_raw_size
))
119 obj_textsec (abfd
)->alignment_power
= arch_align_power
;
120 obj_datasec (abfd
)->alignment_power
= arch_align_power
;
121 obj_bsssec (abfd
)->alignment_power
= arch_align_power
;
124 /* Don't set sizes now -- can't be sure until we know arch & mach.
125 Sizes get set in set_sizes callback, later. */
127 adata(abfd
).page_size
= TARGET_PAGE_SIZE
;
128 adata(abfd
).segment_size
= SEGMENT_SIZE
;
129 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
137 /* Finish up the reading of an a.out file header */
139 static const bfd_target
*MY(object_p
) PARAMS ((bfd
*));
141 static const bfd_target
*
145 struct external_exec exec_bytes
; /* Raw exec header from file */
146 struct internal_exec exec
; /* Cleaned-up exec header */
147 const bfd_target
*target
;
149 if (bfd_read ((PTR
) &exec_bytes
, 1, EXEC_BYTES_SIZE
, abfd
)
150 != EXEC_BYTES_SIZE
) {
151 if (bfd_get_error () != bfd_error_system_call
)
152 bfd_set_error (bfd_error_wrong_format
);
157 exec
.a_info
= SWAP_MAGIC (exec_bytes
.e_info
);
159 exec
.a_info
= bfd_h_get_32 (abfd
, exec_bytes
.e_info
);
160 #endif /* SWAP_MAGIC */
162 if (N_BADMAG (exec
)) return 0;
164 if (!(MACHTYPE_OK (N_MACHTYPE (exec
)))) return 0;
167 NAME(aout
,swap_exec_header_in
) (abfd
, &exec_bytes
, &exec
);
170 /* swap_exec_header_in read in a_info with the wrong byte order */
171 exec
.a_info
= SWAP_MAGIC (exec_bytes
.e_info
);
172 #endif /* SWAP_MAGIC */
174 target
= NAME(aout
,some_aout_object_p
) (abfd
, &exec
, MY(callback
));
176 #ifdef ENTRY_CAN_BE_ZERO
177 /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
178 * means that it isn't obvious if EXEC_P should be set.
179 * All of the following must be true for an executable:
180 * There must be no relocations, the bfd can be neither an
181 * archive nor an archive element, and the file must be executable. */
183 if (exec
.a_trsize
+ exec
.a_drsize
== 0
184 && bfd_get_format(abfd
) == bfd_object
&& abfd
->my_archive
== NULL
)
188 #define S_IXUSR 0100 /* Execute by owner. */
190 if (stat(abfd
->filename
, &buf
) == 0 && (buf
.st_mode
& S_IXUSR
))
191 abfd
->flags
|= EXEC_P
;
193 #endif /* ENTRY_CAN_BE_ZERO */
197 #define MY_object_p MY(object_p)
202 static boolean
MY(mkobject
) PARAMS ((bfd
*));
208 if (NAME(aout
,mkobject
) (abfd
) == false)
210 #if 0 /* Sizes get set in set_sizes callback, later, after we know
211 the architecture and machine. */
212 adata(abfd
).page_size
= TARGET_PAGE_SIZE
;
213 adata(abfd
).segment_size
= SEGMENT_SIZE
;
214 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
218 #define MY_mkobject MY(mkobject)
221 #ifndef MY_bfd_copy_private_section_data
223 /* Copy private section data. This actually does nothing with the
224 sections. It copies the subformat field. We copy it here, because
225 we need to know whether this is a QMAGIC file before we set the
226 section contents, and copy_private_bfd_data is not called until
227 after the section contents have been set. */
229 static boolean MY_bfd_copy_private_section_data
230 PARAMS ((bfd
*, asection
*, bfd
*, asection
*));
233 MY_bfd_copy_private_section_data (ibfd
, isec
, obfd
, osec
)
235 asection
*isec ATTRIBUTE_UNUSED
;
237 asection
*osec ATTRIBUTE_UNUSED
;
239 if (bfd_get_flavour (ibfd
) == bfd_target_aout_flavour
240 && bfd_get_flavour (obfd
) == bfd_target_aout_flavour
)
241 obj_aout_subformat (obfd
) = obj_aout_subformat (ibfd
);
247 /* Write an object file.
248 Section contents have already been written. We write the
249 file header, symbols, and relocation. */
251 #ifndef MY_write_object_contents
253 MY(write_object_contents
) (abfd
)
256 struct external_exec exec_bytes
;
257 struct internal_exec
*execp
= exec_hdr (abfd
);
259 obj_reloc_entry_size (abfd
) = RELOC_STD_SIZE
;
261 WRITE_HEADERS(abfd
, execp
);
265 #define MY_write_object_contents MY(write_object_contents)
270 static boolean
MY(set_sizes
) PARAMS ((bfd
*));
276 adata(abfd
).page_size
= TARGET_PAGE_SIZE
;
277 adata(abfd
).segment_size
= SEGMENT_SIZE
;
279 #ifdef ZMAGIC_DISK_BLOCK_SIZE
280 adata(abfd
).zmagic_disk_block_size
= ZMAGIC_DISK_BLOCK_SIZE
;
282 adata(abfd
).zmagic_disk_block_size
= TARGET_PAGE_SIZE
;
285 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
288 #define MY_set_sizes MY(set_sizes)
291 #ifndef MY_exec_hdr_flags
292 #define MY_exec_hdr_flags 0
295 #ifndef MY_backend_data
297 #ifndef MY_zmagic_contiguous
298 #define MY_zmagic_contiguous 0
300 #ifndef MY_text_includes_header
301 #define MY_text_includes_header 0
303 #ifndef MY_entry_is_text_address
304 #define MY_entry_is_text_address 0
306 #ifndef MY_exec_header_not_counted
307 #define MY_exec_header_not_counted 0
309 #ifndef MY_add_dynamic_symbols
310 #define MY_add_dynamic_symbols 0
312 #ifndef MY_add_one_symbol
313 #define MY_add_one_symbol 0
315 #ifndef MY_link_dynamic_object
316 #define MY_link_dynamic_object 0
318 #ifndef MY_write_dynamic_symbol
319 #define MY_write_dynamic_symbol 0
321 #ifndef MY_check_dynamic_reloc
322 #define MY_check_dynamic_reloc 0
324 #ifndef MY_finish_dynamic_link
325 #define MY_finish_dynamic_link 0
328 static CONST
struct aout_backend_data
MY(backend_data
) = {
329 MY_zmagic_contiguous
,
330 MY_text_includes_header
,
331 MY_entry_is_text_address
,
335 MY_exec_header_not_counted
,
336 MY_add_dynamic_symbols
,
338 MY_link_dynamic_object
,
339 MY_write_dynamic_symbol
,
340 MY_check_dynamic_reloc
,
341 MY_finish_dynamic_link
343 #define MY_backend_data &MY(backend_data)
346 #ifndef MY_final_link_callback
348 /* Callback for the final_link routine to set the section offsets. */
350 static void MY_final_link_callback
351 PARAMS ((bfd
*, file_ptr
*, file_ptr
*, file_ptr
*));
354 MY_final_link_callback (abfd
, ptreloff
, pdreloff
, psymoff
)
360 struct internal_exec
*execp
= exec_hdr (abfd
);
362 *ptreloff
= N_TRELOFF (*execp
);
363 *pdreloff
= N_DRELOFF (*execp
);
364 *psymoff
= N_SYMOFF (*execp
);
369 #ifndef MY_bfd_final_link
371 /* Final link routine. We need to use a call back to get the correct
372 offsets in the output file. */
374 static boolean MY_bfd_final_link
PARAMS ((bfd
*, struct bfd_link_info
*));
377 MY_bfd_final_link (abfd
, info
)
379 struct bfd_link_info
*info
;
381 return NAME(aout
,final_link
) (abfd
, info
, MY_final_link_callback
);
386 /* We assume BFD generic archive files. */
387 #ifndef MY_openr_next_archived_file
388 #define MY_openr_next_archived_file bfd_generic_openr_next_archived_file
390 #ifndef MY_get_elt_at_index
391 #define MY_get_elt_at_index _bfd_generic_get_elt_at_index
393 #ifndef MY_generic_stat_arch_elt
394 #define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt
396 #ifndef MY_slurp_armap
397 #define MY_slurp_armap bfd_slurp_bsd_armap
399 #ifndef MY_slurp_extended_name_table
400 #define MY_slurp_extended_name_table _bfd_slurp_extended_name_table
402 #ifndef MY_construct_extended_name_table
403 #define MY_construct_extended_name_table \
404 _bfd_archive_bsd_construct_extended_name_table
406 #ifndef MY_write_armap
407 #define MY_write_armap bsd_write_armap
409 #ifndef MY_read_ar_hdr
410 #define MY_read_ar_hdr _bfd_generic_read_ar_hdr
412 #ifndef MY_truncate_arname
413 #define MY_truncate_arname bfd_bsd_truncate_arname
415 #ifndef MY_update_armap_timestamp
416 #define MY_update_armap_timestamp _bfd_archive_bsd_update_armap_timestamp
419 /* No core file defined here -- configure in trad-core.c separately. */
420 #ifndef MY_core_file_failing_command
421 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
423 #ifndef MY_core_file_failing_signal
424 #define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal
426 #ifndef MY_core_file_matches_executable_p
427 #define MY_core_file_matches_executable_p \
428 _bfd_nocore_core_file_matches_executable_p
430 #ifndef MY_core_file_p
431 #define MY_core_file_p _bfd_dummy_target
434 #ifndef MY_bfd_debug_info_start
435 #define MY_bfd_debug_info_start bfd_void
437 #ifndef MY_bfd_debug_info_end
438 #define MY_bfd_debug_info_end bfd_void
440 #ifndef MY_bfd_debug_info_accumulate
441 #define MY_bfd_debug_info_accumulate \
442 (void (*) PARAMS ((bfd*, struct sec *))) bfd_void
445 #ifndef MY_core_file_failing_command
446 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
448 #ifndef MY_core_file_failing_signal
449 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
451 #ifndef MY_core_file_matches_executable_p
452 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
454 #ifndef MY_set_section_contents
455 #define MY_set_section_contents NAME(aout,set_section_contents)
457 #ifndef MY_get_section_contents
458 #define MY_get_section_contents NAME(aout,get_section_contents)
460 #ifndef MY_get_section_contents_in_window
461 #define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
463 #ifndef MY_new_section_hook
464 #define MY_new_section_hook NAME(aout,new_section_hook)
466 #ifndef MY_get_symtab_upper_bound
467 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
469 #ifndef MY_get_symtab
470 #define MY_get_symtab NAME(aout,get_symtab)
472 #ifndef MY_get_reloc_upper_bound
473 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
475 #ifndef MY_canonicalize_reloc
476 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
478 #ifndef MY_make_empty_symbol
479 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
481 #ifndef MY_print_symbol
482 #define MY_print_symbol NAME(aout,print_symbol)
484 #ifndef MY_get_symbol_info
485 #define MY_get_symbol_info NAME(aout,get_symbol_info)
487 #ifndef MY_get_lineno
488 #define MY_get_lineno NAME(aout,get_lineno)
490 #ifndef MY_set_arch_mach
491 #define MY_set_arch_mach NAME(aout,set_arch_mach)
493 #ifndef MY_find_nearest_line
494 #define MY_find_nearest_line NAME(aout,find_nearest_line)
496 #ifndef MY_sizeof_headers
497 #define MY_sizeof_headers NAME(aout,sizeof_headers)
499 #ifndef MY_bfd_get_relocated_section_contents
500 #define MY_bfd_get_relocated_section_contents \
501 bfd_generic_get_relocated_section_contents
503 #ifndef MY_bfd_relax_section
504 #define MY_bfd_relax_section bfd_generic_relax_section
506 #ifndef MY_bfd_gc_sections
507 #define MY_bfd_gc_sections bfd_generic_gc_sections
509 #ifndef MY_bfd_reloc_type_lookup
510 #define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup)
512 #ifndef MY_bfd_make_debug_symbol
513 #define MY_bfd_make_debug_symbol 0
515 #ifndef MY_read_minisymbols
516 #define MY_read_minisymbols NAME(aout,read_minisymbols)
518 #ifndef MY_minisymbol_to_symbol
519 #define MY_minisymbol_to_symbol NAME(aout,minisymbol_to_symbol)
521 #ifndef MY_bfd_link_hash_table_create
522 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
524 #ifndef MY_bfd_link_add_symbols
525 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
527 #ifndef MY_bfd_link_split_section
528 #define MY_bfd_link_split_section _bfd_generic_link_split_section
531 #ifndef MY_bfd_copy_private_bfd_data
532 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
535 #ifndef MY_bfd_merge_private_bfd_data
536 #define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
539 #ifndef MY_bfd_copy_private_symbol_data
540 #define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
543 #ifndef MY_bfd_print_private_bfd_data
544 #define MY_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
547 #ifndef MY_bfd_set_private_flags
548 #define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
551 #ifndef MY_bfd_is_local_label_name
552 #define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
555 #ifndef MY_bfd_free_cached_info
556 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
559 #ifndef MY_close_and_cleanup
560 #define MY_close_and_cleanup MY_bfd_free_cached_info
563 #ifndef MY_get_dynamic_symtab_upper_bound
564 #define MY_get_dynamic_symtab_upper_bound \
565 _bfd_nodynamic_get_dynamic_symtab_upper_bound
567 #ifndef MY_canonicalize_dynamic_symtab
568 #define MY_canonicalize_dynamic_symtab \
569 _bfd_nodynamic_canonicalize_dynamic_symtab
571 #ifndef MY_get_dynamic_reloc_upper_bound
572 #define MY_get_dynamic_reloc_upper_bound \
573 _bfd_nodynamic_get_dynamic_reloc_upper_bound
575 #ifndef MY_canonicalize_dynamic_reloc
576 #define MY_canonicalize_dynamic_reloc \
577 _bfd_nodynamic_canonicalize_dynamic_reloc
580 /* Aout symbols normally have leading underscores */
581 #ifndef MY_symbol_leading_char
582 #define MY_symbol_leading_char '_'
585 /* Aout archives normally use spaces for padding */
587 #define AR_PAD_CHAR ' '
590 #ifndef MY_BFD_TARGET
591 const bfd_target
MY(vec
) =
593 TARGETNAME
, /* name */
594 bfd_target_aout_flavour
,
595 #ifdef TARGET_IS_BIG_ENDIAN_P
596 BFD_ENDIAN_BIG
, /* target byte order (big) */
597 BFD_ENDIAN_BIG
, /* target headers byte order (big) */
599 BFD_ENDIAN_LITTLE
, /* target byte order (little) */
600 BFD_ENDIAN_LITTLE
, /* target headers byte order (little) */
602 (HAS_RELOC
| EXEC_P
| /* object flags */
603 HAS_LINENO
| HAS_DEBUG
|
604 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
605 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
),
606 MY_symbol_leading_char
,
607 AR_PAD_CHAR
, /* ar_pad_char */
608 15, /* ar_max_namelen */
609 #ifdef TARGET_IS_BIG_ENDIAN_P
610 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
611 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
612 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
613 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
614 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
615 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
617 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
618 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
619 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* data */
620 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
621 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
622 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* hdrs */
624 {_bfd_dummy_target
, MY_object_p
, /* bfd_check_format */
625 bfd_generic_archive_p
, MY_core_file_p
},
626 {bfd_false
, MY_mkobject
, /* bfd_set_format */
627 _bfd_generic_mkarchive
, bfd_false
},
628 {bfd_false
, MY_write_object_contents
, /* bfd_write_contents */
629 _bfd_write_archive_contents
, bfd_false
},
631 BFD_JUMP_TABLE_GENERIC (MY
),
632 BFD_JUMP_TABLE_COPY (MY
),
633 BFD_JUMP_TABLE_CORE (MY
),
634 BFD_JUMP_TABLE_ARCHIVE (MY
),
635 BFD_JUMP_TABLE_SYMBOLS (MY
),
636 BFD_JUMP_TABLE_RELOCS (MY
),
637 BFD_JUMP_TABLE_WRITE (MY
),
638 BFD_JUMP_TABLE_LINK (MY
),
639 BFD_JUMP_TABLE_DYNAMIC (MY
),
641 /* Alternative_target */
644 (PTR
) MY_backend_data
646 #endif /* MY_BFD_TARGET */