1 /* Define a target vector and some small routines for a variant of a.out.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4 Free Software Foundation, Inc.
6 This file is part of BFD, the Binary File Descriptor library.
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.
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.
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 02111-1307, USA. */
22 #include "aout/aout64.h"
23 #include "aout/stab_gnu.h"
25 /*#include "libaout.h"*/
28 #define SEGMENT_SIZE TARGET_PAGE_SIZE
31 extern reloc_howto_type
* NAME(aout
,reloc_type_lookup
)
32 PARAMS ((bfd
*, bfd_reloc_code_real_type
));
34 /* Set parameters about this a.out file that are machine-dependent.
35 This routine is called from some_aout_object_p just before it returns. */
38 static const bfd_target
*MY(callback
) PARAMS ((bfd
*));
40 static const bfd_target
*
44 struct internal_exec
*execp
= exec_hdr (abfd
);
45 unsigned int arch_align_power
;
46 unsigned long arch_align
;
48 /* Calculate the file positions of the parts of a newly read aout header */
49 obj_textsec (abfd
)->_raw_size
= N_TXTSIZE(*execp
);
51 /* The virtual memory addresses of the sections */
52 obj_textsec (abfd
)->vma
= N_TXTADDR(*execp
);
53 obj_datasec (abfd
)->vma
= N_DATADDR(*execp
);
54 obj_bsssec (abfd
)->vma
= N_BSSADDR(*execp
);
56 /* For some targets, if the entry point is not in the same page
57 as the start of the text, then adjust the VMA so that it is.
58 FIXME: Do this with a macro like SET_ARCH_MACH instead? */
59 if (aout_backend_info (abfd
)->entry_is_text_address
60 && execp
->a_entry
> obj_textsec (abfd
)->vma
)
64 adjust
= execp
->a_entry
- obj_textsec (abfd
)->vma
;
65 /* Adjust only by whole pages. */
66 adjust
&= ~(TARGET_PAGE_SIZE
- 1);
67 obj_textsec (abfd
)->vma
+= adjust
;
68 obj_datasec (abfd
)->vma
+= adjust
;
69 obj_bsssec (abfd
)->vma
+= adjust
;
72 /* Set the load addresses to be the same as the virtual addresses. */
73 obj_textsec (abfd
)->lma
= obj_textsec (abfd
)->vma
;
74 obj_datasec (abfd
)->lma
= obj_datasec (abfd
)->vma
;
75 obj_bsssec (abfd
)->lma
= obj_bsssec (abfd
)->vma
;
77 /* The file offsets of the sections */
78 obj_textsec (abfd
)->filepos
= N_TXTOFF (*execp
);
79 obj_datasec (abfd
)->filepos
= N_DATOFF (*execp
);
81 /* The file offsets of the relocation info */
82 obj_textsec (abfd
)->rel_filepos
= N_TRELOFF(*execp
);
83 obj_datasec (abfd
)->rel_filepos
= N_DRELOFF(*execp
);
85 /* The file offsets of the string table and symbol table. */
86 obj_sym_filepos (abfd
) = N_SYMOFF (*execp
);
87 obj_str_filepos (abfd
) = N_STROFF (*execp
);
89 /* Determine the architecture and machine type of the object file. */
91 SET_ARCH_MACH (abfd
, *execp
);
93 bfd_default_set_arch_mach (abfd
, DEFAULT_ARCH
, 0);
96 /* The number of relocation records. This must be called after
97 SET_ARCH_MACH. It assumes that SET_ARCH_MACH will set
98 obj_reloc_entry_size correctly, if the reloc size is not
100 obj_textsec (abfd
)->reloc_count
=
101 execp
->a_trsize
/ obj_reloc_entry_size (abfd
);
102 obj_datasec (abfd
)->reloc_count
=
103 execp
->a_drsize
/ obj_reloc_entry_size (abfd
);
105 /* Now that we know the architecture, set the alignments of the
106 sections. This is normally done by NAME(aout,new_section_hook),
107 but when the initial sections were created the architecture had
108 not yet been set. However, for backward compatibility, we don't
109 set the alignment power any higher than as required by the size
111 arch_align_power
= bfd_get_arch_info (abfd
)->section_align_power
;
112 arch_align
= 1 << arch_align_power
;
113 if ((BFD_ALIGN (obj_textsec (abfd
)->_raw_size
, arch_align
)
114 == obj_textsec (abfd
)->_raw_size
)
115 && (BFD_ALIGN (obj_datasec (abfd
)->_raw_size
, arch_align
)
116 == obj_datasec (abfd
)->_raw_size
)
117 && (BFD_ALIGN (obj_bsssec (abfd
)->_raw_size
, arch_align
)
118 == obj_bsssec (abfd
)->_raw_size
))
120 obj_textsec (abfd
)->alignment_power
= arch_align_power
;
121 obj_datasec (abfd
)->alignment_power
= arch_align_power
;
122 obj_bsssec (abfd
)->alignment_power
= arch_align_power
;
125 /* Don't set sizes now -- can't be sure until we know arch & mach.
126 Sizes get set in set_sizes callback, later. */
128 adata(abfd
).page_size
= TARGET_PAGE_SIZE
;
129 adata(abfd
).segment_size
= SEGMENT_SIZE
;
130 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
138 /* Finish up the reading of an a.out file header */
140 static const bfd_target
*MY(object_p
) PARAMS ((bfd
*));
142 static const bfd_target
*
146 struct external_exec exec_bytes
; /* Raw exec header from file */
147 struct internal_exec exec
; /* Cleaned-up exec header */
148 const bfd_target
*target
;
149 bfd_size_type amt
= EXEC_BYTES_SIZE
;
151 if (bfd_bread ((PTR
) &exec_bytes
, amt
, abfd
) != amt
)
153 if (bfd_get_error () != bfd_error_system_call
)
154 bfd_set_error (bfd_error_wrong_format
);
159 exec
.a_info
= SWAP_MAGIC (exec_bytes
.e_info
);
161 exec
.a_info
= GET_MAGIC (abfd
, exec_bytes
.e_info
);
162 #endif /* SWAP_MAGIC */
164 if (N_BADMAG (exec
)) return 0;
166 if (!(MACHTYPE_OK (N_MACHTYPE (exec
)))) return 0;
169 NAME(aout
,swap_exec_header_in
) (abfd
, &exec_bytes
, &exec
);
172 /* swap_exec_header_in read in a_info with the wrong byte order */
173 exec
.a_info
= SWAP_MAGIC (exec_bytes
.e_info
);
174 #endif /* SWAP_MAGIC */
176 target
= NAME(aout
,some_aout_object_p
) (abfd
, &exec
, MY(callback
));
178 #ifdef ENTRY_CAN_BE_ZERO
179 /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
180 * means that it isn't obvious if EXEC_P should be set.
181 * All of the following must be true for an executable:
182 * There must be no relocations, the bfd can be neither an
183 * archive nor an archive element, and the file must be executable. */
185 if (exec
.a_trsize
+ exec
.a_drsize
== 0
186 && bfd_get_format(abfd
) == bfd_object
&& abfd
->my_archive
== NULL
)
190 #define S_IXUSR 0100 /* Execute by owner. */
192 if (stat(abfd
->filename
, &buf
) == 0 && (buf
.st_mode
& S_IXUSR
))
193 abfd
->flags
|= EXEC_P
;
195 #endif /* ENTRY_CAN_BE_ZERO */
199 #define MY_object_p MY(object_p)
204 static boolean
MY(mkobject
) PARAMS ((bfd
*));
210 if (NAME(aout
,mkobject
) (abfd
) == false)
212 #if 0 /* Sizes get set in set_sizes callback, later, after we know
213 the architecture and machine. */
214 adata(abfd
).page_size
= TARGET_PAGE_SIZE
;
215 adata(abfd
).segment_size
= SEGMENT_SIZE
;
216 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
220 #define MY_mkobject MY(mkobject)
223 #ifndef MY_bfd_copy_private_section_data
225 /* Copy private section data. This actually does nothing with the
226 sections. It copies the subformat field. We copy it here, because
227 we need to know whether this is a QMAGIC file before we set the
228 section contents, and copy_private_bfd_data is not called until
229 after the section contents have been set. */
231 static boolean MY_bfd_copy_private_section_data
232 PARAMS ((bfd
*, asection
*, bfd
*, asection
*));
235 MY_bfd_copy_private_section_data (ibfd
, isec
, obfd
, osec
)
237 asection
*isec ATTRIBUTE_UNUSED
;
239 asection
*osec ATTRIBUTE_UNUSED
;
241 if (bfd_get_flavour (ibfd
) == bfd_target_aout_flavour
242 && bfd_get_flavour (obfd
) == bfd_target_aout_flavour
)
243 obj_aout_subformat (obfd
) = obj_aout_subformat (ibfd
);
249 /* Write an object file.
250 Section contents have already been written. We write the
251 file header, symbols, and relocation. */
253 #ifndef MY_write_object_contents
254 static boolean
MY(write_object_contents
) PARAMS ((bfd
*));
257 MY(write_object_contents
) (abfd
)
260 struct external_exec exec_bytes
;
261 struct internal_exec
*execp
= exec_hdr (abfd
);
263 obj_reloc_entry_size (abfd
) = RELOC_STD_SIZE
;
265 WRITE_HEADERS(abfd
, execp
);
269 #define MY_write_object_contents MY(write_object_contents)
274 static boolean
MY(set_sizes
) PARAMS ((bfd
*));
280 adata(abfd
).page_size
= TARGET_PAGE_SIZE
;
281 adata(abfd
).segment_size
= SEGMENT_SIZE
;
283 #ifdef ZMAGIC_DISK_BLOCK_SIZE
284 adata(abfd
).zmagic_disk_block_size
= ZMAGIC_DISK_BLOCK_SIZE
;
286 adata(abfd
).zmagic_disk_block_size
= TARGET_PAGE_SIZE
;
289 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
292 #define MY_set_sizes MY(set_sizes)
295 #ifndef MY_exec_hdr_flags
296 #define MY_exec_hdr_flags 0
299 #ifndef MY_backend_data
301 #ifndef MY_zmagic_contiguous
302 #define MY_zmagic_contiguous 0
304 #ifndef MY_text_includes_header
305 #define MY_text_includes_header 0
307 #ifndef MY_entry_is_text_address
308 #define MY_entry_is_text_address 0
310 #ifndef MY_exec_header_not_counted
311 #define MY_exec_header_not_counted 0
313 #ifndef MY_add_dynamic_symbols
314 #define MY_add_dynamic_symbols 0
316 #ifndef MY_add_one_symbol
317 #define MY_add_one_symbol 0
319 #ifndef MY_link_dynamic_object
320 #define MY_link_dynamic_object 0
322 #ifndef MY_write_dynamic_symbol
323 #define MY_write_dynamic_symbol 0
325 #ifndef MY_check_dynamic_reloc
326 #define MY_check_dynamic_reloc 0
328 #ifndef MY_finish_dynamic_link
329 #define MY_finish_dynamic_link 0
332 static const struct aout_backend_data
MY(backend_data
) = {
333 MY_zmagic_contiguous
,
334 MY_text_includes_header
,
335 MY_entry_is_text_address
,
339 MY_exec_header_not_counted
,
340 MY_add_dynamic_symbols
,
342 MY_link_dynamic_object
,
343 MY_write_dynamic_symbol
,
344 MY_check_dynamic_reloc
,
345 MY_finish_dynamic_link
347 #define MY_backend_data &MY(backend_data)
350 #ifndef MY_final_link_callback
352 /* Callback for the final_link routine to set the section offsets. */
354 static void MY_final_link_callback
355 PARAMS ((bfd
*, file_ptr
*, file_ptr
*, file_ptr
*));
358 MY_final_link_callback (abfd
, ptreloff
, pdreloff
, psymoff
)
364 struct internal_exec
*execp
= exec_hdr (abfd
);
366 *ptreloff
= N_TRELOFF (*execp
);
367 *pdreloff
= N_DRELOFF (*execp
);
368 *psymoff
= N_SYMOFF (*execp
);
373 #ifndef MY_bfd_final_link
375 /* Final link routine. We need to use a call back to get the correct
376 offsets in the output file. */
378 static boolean MY_bfd_final_link
PARAMS ((bfd
*, struct bfd_link_info
*));
381 MY_bfd_final_link (abfd
, info
)
383 struct bfd_link_info
*info
;
385 return NAME(aout
,final_link
) (abfd
, info
, MY_final_link_callback
);
390 /* We assume BFD generic archive files. */
391 #ifndef MY_openr_next_archived_file
392 #define MY_openr_next_archived_file bfd_generic_openr_next_archived_file
394 #ifndef MY_get_elt_at_index
395 #define MY_get_elt_at_index _bfd_generic_get_elt_at_index
397 #ifndef MY_generic_stat_arch_elt
398 #define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt
400 #ifndef MY_slurp_armap
401 #define MY_slurp_armap bfd_slurp_bsd_armap
403 #ifndef MY_slurp_extended_name_table
404 #define MY_slurp_extended_name_table _bfd_slurp_extended_name_table
406 #ifndef MY_construct_extended_name_table
407 #define MY_construct_extended_name_table \
408 _bfd_archive_bsd_construct_extended_name_table
410 #ifndef MY_write_armap
411 #define MY_write_armap bsd_write_armap
413 #ifndef MY_read_ar_hdr
414 #define MY_read_ar_hdr _bfd_generic_read_ar_hdr
416 #ifndef MY_truncate_arname
417 #define MY_truncate_arname bfd_bsd_truncate_arname
419 #ifndef MY_update_armap_timestamp
420 #define MY_update_armap_timestamp _bfd_archive_bsd_update_armap_timestamp
423 /* No core file defined here -- configure in trad-core.c separately. */
424 #ifndef MY_core_file_failing_command
425 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
427 #ifndef MY_core_file_failing_signal
428 #define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal
430 #ifndef MY_core_file_matches_executable_p
431 #define MY_core_file_matches_executable_p \
432 _bfd_nocore_core_file_matches_executable_p
434 #ifndef MY_core_file_p
435 #define MY_core_file_p _bfd_dummy_target
438 #ifndef MY_bfd_debug_info_start
439 #define MY_bfd_debug_info_start bfd_void
441 #ifndef MY_bfd_debug_info_end
442 #define MY_bfd_debug_info_end bfd_void
444 #ifndef MY_bfd_debug_info_accumulate
445 #define MY_bfd_debug_info_accumulate \
446 (void (*) PARAMS ((bfd*, struct sec *))) bfd_void
449 #ifndef MY_core_file_failing_command
450 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
452 #ifndef MY_core_file_failing_signal
453 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
455 #ifndef MY_core_file_matches_executable_p
456 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
458 #ifndef MY_set_section_contents
459 #define MY_set_section_contents NAME(aout,set_section_contents)
461 #ifndef MY_get_section_contents
462 #define MY_get_section_contents NAME(aout,get_section_contents)
464 #ifndef MY_get_section_contents_in_window
465 #define MY_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
467 #ifndef MY_new_section_hook
468 #define MY_new_section_hook NAME(aout,new_section_hook)
470 #ifndef MY_get_symtab_upper_bound
471 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
473 #ifndef MY_get_symtab
474 #define MY_get_symtab NAME(aout,get_symtab)
476 #ifndef MY_get_reloc_upper_bound
477 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
479 #ifndef MY_canonicalize_reloc
480 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
482 #ifndef MY_make_empty_symbol
483 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
485 #ifndef MY_print_symbol
486 #define MY_print_symbol NAME(aout,print_symbol)
488 #ifndef MY_get_symbol_info
489 #define MY_get_symbol_info NAME(aout,get_symbol_info)
491 #ifndef MY_get_lineno
492 #define MY_get_lineno NAME(aout,get_lineno)
494 #ifndef MY_set_arch_mach
495 #define MY_set_arch_mach NAME(aout,set_arch_mach)
497 #ifndef MY_find_nearest_line
498 #define MY_find_nearest_line NAME(aout,find_nearest_line)
500 #ifndef MY_sizeof_headers
501 #define MY_sizeof_headers NAME(aout,sizeof_headers)
503 #ifndef MY_bfd_get_relocated_section_contents
504 #define MY_bfd_get_relocated_section_contents \
505 bfd_generic_get_relocated_section_contents
507 #ifndef MY_bfd_relax_section
508 #define MY_bfd_relax_section bfd_generic_relax_section
510 #ifndef MY_bfd_gc_sections
511 #define MY_bfd_gc_sections bfd_generic_gc_sections
513 #ifndef MY_bfd_merge_sections
514 #define MY_bfd_merge_sections bfd_generic_merge_sections
516 #ifndef MY_bfd_reloc_type_lookup
517 #define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup)
519 #ifndef MY_bfd_make_debug_symbol
520 #define MY_bfd_make_debug_symbol 0
522 #ifndef MY_read_minisymbols
523 #define MY_read_minisymbols NAME(aout,read_minisymbols)
525 #ifndef MY_minisymbol_to_symbol
526 #define MY_minisymbol_to_symbol NAME(aout,minisymbol_to_symbol)
528 #ifndef MY_bfd_link_hash_table_create
529 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
531 #ifndef MY_bfd_link_hash_table_free
532 #define MY_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
534 #ifndef MY_bfd_link_add_symbols
535 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
537 #ifndef MY_bfd_link_split_section
538 #define MY_bfd_link_split_section _bfd_generic_link_split_section
541 #ifndef MY_bfd_copy_private_bfd_data
542 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
545 #ifndef MY_bfd_merge_private_bfd_data
546 #define MY_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
549 #ifndef MY_bfd_copy_private_symbol_data
550 #define MY_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
553 #ifndef MY_bfd_print_private_bfd_data
554 #define MY_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data
557 #ifndef MY_bfd_set_private_flags
558 #define MY_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
561 #ifndef MY_bfd_is_local_label_name
562 #define MY_bfd_is_local_label_name bfd_generic_is_local_label_name
565 #ifndef MY_bfd_free_cached_info
566 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
569 #ifndef MY_close_and_cleanup
570 #define MY_close_and_cleanup MY_bfd_free_cached_info
573 #ifndef MY_get_dynamic_symtab_upper_bound
574 #define MY_get_dynamic_symtab_upper_bound \
575 _bfd_nodynamic_get_dynamic_symtab_upper_bound
577 #ifndef MY_canonicalize_dynamic_symtab
578 #define MY_canonicalize_dynamic_symtab \
579 _bfd_nodynamic_canonicalize_dynamic_symtab
581 #ifndef MY_get_dynamic_reloc_upper_bound
582 #define MY_get_dynamic_reloc_upper_bound \
583 _bfd_nodynamic_get_dynamic_reloc_upper_bound
585 #ifndef MY_canonicalize_dynamic_reloc
586 #define MY_canonicalize_dynamic_reloc \
587 _bfd_nodynamic_canonicalize_dynamic_reloc
590 /* Aout symbols normally have leading underscores */
591 #ifndef MY_symbol_leading_char
592 #define MY_symbol_leading_char '_'
595 /* Aout archives normally use spaces for padding */
597 #define AR_PAD_CHAR ' '
600 #ifndef MY_BFD_TARGET
601 const bfd_target
MY(vec
) =
603 TARGETNAME
, /* name */
604 bfd_target_aout_flavour
,
605 #ifdef TARGET_IS_BIG_ENDIAN_P
606 BFD_ENDIAN_BIG
, /* target byte order (big) */
607 BFD_ENDIAN_BIG
, /* target headers byte order (big) */
609 BFD_ENDIAN_LITTLE
, /* target byte order (little) */
610 BFD_ENDIAN_LITTLE
, /* target headers byte order (little) */
612 (HAS_RELOC
| EXEC_P
| /* object flags */
613 HAS_LINENO
| HAS_DEBUG
|
614 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
615 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
| SEC_CODE
| SEC_DATA
),
616 MY_symbol_leading_char
,
617 AR_PAD_CHAR
, /* ar_pad_char */
618 15, /* ar_max_namelen */
619 #ifdef TARGET_IS_BIG_ENDIAN_P
620 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
621 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
622 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
623 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
624 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
625 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
627 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
628 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
629 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* data */
630 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
631 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
632 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* hdrs */
634 {_bfd_dummy_target
, MY_object_p
, /* bfd_check_format */
635 bfd_generic_archive_p
, MY_core_file_p
},
636 {bfd_false
, MY_mkobject
, /* bfd_set_format */
637 _bfd_generic_mkarchive
, bfd_false
},
638 {bfd_false
, MY_write_object_contents
, /* bfd_write_contents */
639 _bfd_write_archive_contents
, bfd_false
},
641 BFD_JUMP_TABLE_GENERIC (MY
),
642 BFD_JUMP_TABLE_COPY (MY
),
643 BFD_JUMP_TABLE_CORE (MY
),
644 BFD_JUMP_TABLE_ARCHIVE (MY
),
645 BFD_JUMP_TABLE_SYMBOLS (MY
),
646 BFD_JUMP_TABLE_RELOCS (MY
),
647 BFD_JUMP_TABLE_WRITE (MY
),
648 BFD_JUMP_TABLE_LINK (MY
),
649 BFD_JUMP_TABLE_DYNAMIC (MY
),
651 /* Alternative_target */
654 (PTR
) MY_backend_data
656 #endif /* MY_BFD_TARGET */