1 /* Define a target vector and some small routines for a variant of a.out.
2 Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
4 This file is part of BFD, the Binary File Descriptor library.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
20 #include "aout/aout64.h"
21 #include "aout/stab_gnu.h"
23 /*#include "libaout.h"*/
25 extern CONST
struct reloc_howto_struct
* NAME(aout
,reloc_type_lookup
) ();
27 /* Set parameters about this a.out file that are machine-dependent.
28 This routine is called from some_aout_object_p just before it returns. */
30 static const bfd_target
*
34 struct internal_exec
*execp
= exec_hdr (abfd
);
35 unsigned int arch_align_power
;
36 unsigned long arch_align
;
38 /* Calculate the file positions of the parts of a newly read aout header */
39 obj_textsec (abfd
)->_raw_size
= N_TXTSIZE(*execp
);
41 /* The virtual memory addresses of the sections */
42 obj_textsec (abfd
)->vma
= N_TXTADDR(*execp
);
43 obj_datasec (abfd
)->vma
= N_DATADDR(*execp
);
44 obj_bsssec (abfd
)->vma
= N_BSSADDR(*execp
);
46 /* The file offsets of the sections */
47 obj_textsec (abfd
)->filepos
= N_TXTOFF (*execp
);
48 obj_datasec (abfd
)->filepos
= N_DATOFF (*execp
);
50 /* The file offsets of the relocation info */
51 obj_textsec (abfd
)->rel_filepos
= N_TRELOFF(*execp
);
52 obj_datasec (abfd
)->rel_filepos
= N_DRELOFF(*execp
);
54 /* The file offsets of the string table and symbol table. */
55 obj_sym_filepos (abfd
) = N_SYMOFF (*execp
);
56 obj_str_filepos (abfd
) = N_STROFF (*execp
);
58 /* Determine the architecture and machine type of the object file. */
60 SET_ARCH_MACH(abfd
, *execp
);
62 bfd_default_set_arch_mach(abfd
, DEFAULT_ARCH
, 0);
65 /* Now that we know the architecture, set the alignments of the
66 sections. This is normally done by NAME(aout,new_section_hook),
67 but when the initial sections were created the architecture had
68 not yet been set. However, for backward compatibility, we don't
69 set the alignment power any higher than as required by the size
71 arch_align_power
= bfd_get_arch_info (abfd
)->section_align_power
;
72 arch_align
= 1 << arch_align_power
;
73 if ((BFD_ALIGN (obj_textsec (abfd
)->_raw_size
, arch_align
)
74 == obj_textsec (abfd
)->_raw_size
)
75 && (BFD_ALIGN (obj_datasec (abfd
)->_raw_size
, arch_align
)
76 == obj_datasec (abfd
)->_raw_size
)
77 && (BFD_ALIGN (obj_bsssec (abfd
)->_raw_size
, arch_align
)
78 == obj_bsssec (abfd
)->_raw_size
))
80 obj_textsec (abfd
)->alignment_power
= arch_align_power
;
81 obj_datasec (abfd
)->alignment_power
= arch_align_power
;
82 obj_bsssec (abfd
)->alignment_power
= arch_align_power
;
85 /* Don't set sizes now -- can't be sure until we know arch & mach.
86 Sizes get set in set_sizes callback, later. */
88 adata(abfd
).page_size
= PAGE_SIZE
;
90 adata(abfd
).segment_size
= SEGMENT_SIZE
;
92 adata(abfd
).segment_size
= PAGE_SIZE
;
94 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
102 /* Finish up the reading of an a.out file header */
104 static const bfd_target
*
108 struct external_exec exec_bytes
; /* Raw exec header from file */
109 struct internal_exec exec
; /* Cleaned-up exec header */
110 const bfd_target
*target
;
112 if (bfd_read ((PTR
) &exec_bytes
, 1, EXEC_BYTES_SIZE
, abfd
)
113 != EXEC_BYTES_SIZE
) {
114 if (bfd_get_error () != bfd_error_system_call
)
115 bfd_set_error (bfd_error_wrong_format
);
120 exec
.a_info
= SWAP_MAGIC (exec_bytes
.e_info
);
122 exec
.a_info
= bfd_h_get_32 (abfd
, exec_bytes
.e_info
);
123 #endif /* SWAP_MAGIC */
125 if (N_BADMAG (exec
)) return 0;
127 if (!(MACHTYPE_OK (N_MACHTYPE (exec
)))) return 0;
130 NAME(aout
,swap_exec_header_in
)(abfd
, &exec_bytes
, &exec
);
133 /* swap_exec_header_in read in a_info with the wrong byte order */
134 exec
.a_info
= SWAP_MAGIC (exec_bytes
.e_info
);
135 #endif /* SWAP_MAGIC */
137 target
= NAME(aout
,some_aout_object_p
) (abfd
, &exec
, MY(callback
));
139 #ifdef ENTRY_CAN_BE_ZERO
140 /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
141 * means that it isn't obvious if EXEC_P should be set.
142 * All of the following must be true for an executable:
143 * There must be no relocations, the bfd can be neither an
144 * archive nor an archive element, and the file must be executable. */
146 if (exec
.a_trsize
+ exec
.a_drsize
== 0
147 && bfd_get_format(abfd
) == bfd_object
&& abfd
->my_archive
== NULL
)
151 #define S_IXUSR 0100 /* Execute by owner. */
153 if (stat(abfd
->filename
, &buf
) == 0 && (buf
.st_mode
& S_IXUSR
))
154 abfd
->flags
|= EXEC_P
;
156 #endif /* ENTRY_CAN_BE_ZERO */
160 #define MY_object_p MY(object_p)
169 if (NAME(aout
,mkobject
)(abfd
) == false)
171 #if 0 /* Sizes get set in set_sizes callback, later, after we know
172 the architecture and machine. */
173 adata(abfd
).page_size
= PAGE_SIZE
;
175 adata(abfd
).segment_size
= SEGMENT_SIZE
;
177 adata(abfd
).segment_size
= PAGE_SIZE
;
179 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
183 #define MY_mkobject MY(mkobject)
186 #ifndef MY_bfd_copy_private_section_data
188 /* Copy private section data. This actually does nothing with the
189 sections. It copies the subformat field. We copy it here, because
190 we need to know whether this is a QMAGIC file before we set the
191 section contents, and copy_private_bfd_data is not called until
192 after the section contents have been set. */
196 MY_bfd_copy_private_section_data (ibfd
, isec
, obfd
, osec
)
202 if (bfd_get_flavour (obfd
) == bfd_target_aout_flavour
)
203 obj_aout_subformat (obfd
) = obj_aout_subformat (ibfd
);
209 /* Write an object file.
210 Section contents have already been written. We write the
211 file header, symbols, and relocation. */
213 #ifndef MY_write_object_contents
215 MY(write_object_contents
) (abfd
)
218 struct external_exec exec_bytes
;
219 struct internal_exec
*execp
= exec_hdr (abfd
);
221 #if CHOOSE_RELOC_SIZE
222 CHOOSE_RELOC_SIZE(abfd
);
224 obj_reloc_entry_size (abfd
) = RELOC_STD_SIZE
;
227 WRITE_HEADERS(abfd
, execp
);
231 #define MY_write_object_contents MY(write_object_contents)
239 adata(abfd
).page_size
= PAGE_SIZE
;
242 adata(abfd
).segment_size
= SEGMENT_SIZE
;
244 adata(abfd
).segment_size
= PAGE_SIZE
;
247 #ifdef ZMAGIC_DISK_BLOCK_SIZE
248 adata(abfd
).zmagic_disk_block_size
= ZMAGIC_DISK_BLOCK_SIZE
;
250 adata(abfd
).zmagic_disk_block_size
= PAGE_SIZE
;
253 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
256 #define MY_set_sizes MY(set_sizes)
259 #ifndef MY_exec_hdr_flags
260 #define MY_exec_hdr_flags 0
263 #ifndef MY_backend_data
265 #ifndef MY_zmagic_contiguous
266 #define MY_zmagic_contiguous 0
268 #ifndef MY_text_includes_header
269 #define MY_text_includes_header 0
271 #ifndef MY_add_dynamic_symbols
272 #define MY_add_dynamic_symbols 0
274 #ifndef MY_add_one_symbol
275 #define MY_add_one_symbol 0
277 #ifndef MY_link_dynamic_object
278 #define MY_link_dynamic_object 0
280 #ifndef MY_write_dynamic_symbol
281 #define MY_write_dynamic_symbol 0
283 #ifndef MY_check_dynamic_reloc
284 #define MY_check_dynamic_reloc 0
286 #ifndef MY_finish_dynamic_link
287 #define MY_finish_dynamic_link 0
290 static CONST
struct aout_backend_data
MY(backend_data
) = {
291 MY_zmagic_contiguous
,
292 MY_text_includes_header
,
296 0, /* exec header is counted */
297 MY_add_dynamic_symbols
,
299 MY_link_dynamic_object
,
300 MY_write_dynamic_symbol
,
301 MY_check_dynamic_reloc
,
302 MY_finish_dynamic_link
304 #define MY_backend_data &MY(backend_data)
307 #ifndef MY_final_link_callback
309 /* Callback for the final_link routine to set the section offsets. */
311 static void MY_final_link_callback
312 PARAMS ((bfd
*, file_ptr
*, file_ptr
*, file_ptr
*));
315 MY_final_link_callback (abfd
, ptreloff
, pdreloff
, psymoff
)
321 struct internal_exec
*execp
= exec_hdr (abfd
);
323 *ptreloff
= N_TRELOFF (*execp
);
324 *pdreloff
= N_DRELOFF (*execp
);
325 *psymoff
= N_SYMOFF (*execp
);
330 #ifndef MY_bfd_final_link
332 /* Final link routine. We need to use a call back to get the correct
333 offsets in the output file. */
336 MY_bfd_final_link (abfd
, info
)
338 struct bfd_link_info
*info
;
340 return NAME(aout
,final_link
) (abfd
, info
, MY_final_link_callback
);
345 /* We assume BFD generic archive files. */
346 #ifndef MY_openr_next_archived_file
347 #define MY_openr_next_archived_file bfd_generic_openr_next_archived_file
349 #ifndef MY_generic_stat_arch_elt
350 #define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt
352 #ifndef MY_slurp_armap
353 #define MY_slurp_armap bfd_slurp_bsd_armap
355 #ifndef MY_slurp_extended_name_table
356 #define MY_slurp_extended_name_table _bfd_slurp_extended_name_table
358 #ifndef MY_write_armap
359 #define MY_write_armap bsd_write_armap
361 #ifndef MY_truncate_arname
362 #define MY_truncate_arname bfd_bsd_truncate_arname
364 #ifndef MY_update_armap_timestamp
365 #define MY_update_armap_timestamp _bfd_archive_bsd_update_armap_timestamp
368 /* No core file defined here -- configure in trad-core.c separately. */
369 #ifndef MY_core_file_failing_command
370 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
372 #ifndef MY_core_file_failing_signal
373 #define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal
375 #ifndef MY_core_file_matches_executable_p
376 #define MY_core_file_matches_executable_p \
377 _bfd_nocore_core_file_matches_executable_p
379 #ifndef MY_core_file_p
380 #define MY_core_file_p _bfd_dummy_target
383 #ifndef MY_bfd_debug_info_start
384 #define MY_bfd_debug_info_start bfd_void
386 #ifndef MY_bfd_debug_info_end
387 #define MY_bfd_debug_info_end bfd_void
389 #ifndef MY_bfd_debug_info_accumulate
390 #define MY_bfd_debug_info_accumulate \
391 (void (*) PARAMS ((bfd*, struct sec *))) bfd_void
394 #ifndef MY_core_file_failing_command
395 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
397 #ifndef MY_core_file_failing_signal
398 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
400 #ifndef MY_core_file_matches_executable_p
401 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
403 #ifndef MY_set_section_contents
404 #define MY_set_section_contents NAME(aout,set_section_contents)
406 #ifndef MY_get_section_contents
407 #define MY_get_section_contents NAME(aout,get_section_contents)
409 #ifndef MY_new_section_hook
410 #define MY_new_section_hook NAME(aout,new_section_hook)
412 #ifndef MY_get_symtab_upper_bound
413 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
415 #ifndef MY_get_symtab
416 #define MY_get_symtab NAME(aout,get_symtab)
418 #ifndef MY_get_reloc_upper_bound
419 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
421 #ifndef MY_canonicalize_reloc
422 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
424 #ifndef MY_make_empty_symbol
425 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
427 #ifndef MY_print_symbol
428 #define MY_print_symbol NAME(aout,print_symbol)
430 #ifndef MY_get_symbol_info
431 #define MY_get_symbol_info NAME(aout,get_symbol_info)
433 #ifndef MY_get_lineno
434 #define MY_get_lineno NAME(aout,get_lineno)
436 #ifndef MY_set_arch_mach
437 #define MY_set_arch_mach NAME(aout,set_arch_mach)
439 #ifndef MY_find_nearest_line
440 #define MY_find_nearest_line NAME(aout,find_nearest_line)
442 #ifndef MY_sizeof_headers
443 #define MY_sizeof_headers NAME(aout,sizeof_headers)
445 #ifndef MY_bfd_get_relocated_section_contents
446 #define MY_bfd_get_relocated_section_contents \
447 bfd_generic_get_relocated_section_contents
449 #ifndef MY_bfd_relax_section
450 #define MY_bfd_relax_section bfd_generic_relax_section
452 #ifndef MY_bfd_reloc_type_lookup
453 #define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup)
455 #ifndef MY_bfd_make_debug_symbol
456 #define MY_bfd_make_debug_symbol 0
458 #ifndef MY_bfd_link_hash_table_create
459 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
461 #ifndef MY_bfd_link_add_symbols
462 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
465 #ifndef MY_bfd_copy_private_bfd_data
466 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
469 #ifndef MY_bfd_is_local_label
470 #define MY_bfd_is_local_label bfd_generic_is_local_label
473 #ifndef MY_bfd_free_cached_info
474 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
477 #ifndef MY_close_and_cleanup
478 #define MY_close_and_cleanup MY_bfd_free_cached_info
481 #ifndef MY_get_dynamic_symtab_upper_bound
482 #define MY_get_dynamic_symtab_upper_bound \
483 _bfd_nodynamic_get_dynamic_symtab_upper_bound
485 #ifndef MY_canonicalize_dynamic_symtab
486 #define MY_canonicalize_dynamic_symtab \
487 _bfd_nodynamic_canonicalize_dynamic_symtab
489 #ifndef MY_get_dynamic_reloc_upper_bound
490 #define MY_get_dynamic_reloc_upper_bound \
491 _bfd_nodynamic_get_dynamic_reloc_upper_bound
493 #ifndef MY_canonicalize_dynamic_reloc
494 #define MY_canonicalize_dynamic_reloc \
495 _bfd_nodynamic_canonicalize_dynamic_reloc
498 /* Aout symbols normally have leading underscores */
499 #ifndef MY_symbol_leading_char
500 #define MY_symbol_leading_char '_'
503 /* Aout archives normally use spaces for padding */
505 #define AR_PAD_CHAR ' '
508 #ifndef MY_BFD_TARGET
509 const bfd_target
MY(vec
) =
511 TARGETNAME
, /* name */
512 bfd_target_aout_flavour
,
513 #ifdef TARGET_IS_BIG_ENDIAN_P
514 true, /* target byte order (big) */
515 true, /* target headers byte order (big) */
517 false, /* target byte order (little) */
518 false, /* target headers byte order (little) */
520 (HAS_RELOC
| EXEC_P
| /* object flags */
521 HAS_LINENO
| HAS_DEBUG
|
522 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
523 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
524 MY_symbol_leading_char
,
525 AR_PAD_CHAR
, /* ar_pad_char */
526 15, /* ar_max_namelen */
527 3, /* minimum alignment */
528 #ifdef TARGET_IS_BIG_ENDIAN_P
529 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
530 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
531 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
532 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
533 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
534 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
536 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
537 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
538 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* data */
539 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
540 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
541 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* hdrs */
543 {_bfd_dummy_target
, MY_object_p
, /* bfd_check_format */
544 bfd_generic_archive_p
, MY_core_file_p
},
545 {bfd_false
, MY_mkobject
, /* bfd_set_format */
546 _bfd_generic_mkarchive
, bfd_false
},
547 {bfd_false
, MY_write_object_contents
, /* bfd_write_contents */
548 _bfd_write_archive_contents
, bfd_false
},
550 BFD_JUMP_TABLE_GENERIC (MY
),
551 BFD_JUMP_TABLE_COPY (MY
),
552 BFD_JUMP_TABLE_CORE (MY
),
553 BFD_JUMP_TABLE_ARCHIVE (MY
),
554 BFD_JUMP_TABLE_SYMBOLS (MY
),
555 BFD_JUMP_TABLE_RELOCS (MY
),
556 BFD_JUMP_TABLE_WRITE (MY
),
557 BFD_JUMP_TABLE_LINK (MY
),
558 BFD_JUMP_TABLE_DYNAMIC (MY
),
560 (PTR
) MY_backend_data
,
562 #endif /* MY_BFD_TARGET */