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. */
34 struct internal_exec
*execp
= exec_hdr (abfd
);
36 /* Calculate the file positions of the parts of a newly read aout header */
37 obj_textsec (abfd
)->_raw_size
= N_TXTSIZE(*execp
);
39 /* The virtual memory addresses of the sections */
40 obj_textsec (abfd
)->vma
= N_TXTADDR(*execp
);
41 obj_datasec (abfd
)->vma
= N_DATADDR(*execp
);
42 obj_bsssec (abfd
)->vma
= N_BSSADDR(*execp
);
44 /* The file offsets of the sections */
45 obj_textsec (abfd
)->filepos
= N_TXTOFF (*execp
);
46 obj_datasec (abfd
)->filepos
= N_DATOFF (*execp
);
48 /* The file offsets of the relocation info */
49 obj_textsec (abfd
)->rel_filepos
= N_TRELOFF(*execp
);
50 obj_datasec (abfd
)->rel_filepos
= N_DRELOFF(*execp
);
52 /* The file offsets of the string table and symbol table. */
53 obj_sym_filepos (abfd
) = N_SYMOFF (*execp
);
54 obj_str_filepos (abfd
) = N_STROFF (*execp
);
56 /* Determine the architecture and machine type of the object file. */
58 SET_ARCH_MACH(abfd
, *execp
);
60 bfd_default_set_arch_mach(abfd
, DEFAULT_ARCH
, 0);
63 /* Don't set sizes now -- can't be sure until we know arch & mach.
64 Sizes get set in set_sizes callback, later. */
66 adata(abfd
).page_size
= PAGE_SIZE
;
68 adata(abfd
).segment_size
= SEGMENT_SIZE
;
70 adata(abfd
).segment_size
= PAGE_SIZE
;
72 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
80 /* Finish up the reading of an a.out file header */
86 struct external_exec exec_bytes
; /* Raw exec header from file */
87 struct internal_exec exec
; /* Cleaned-up exec header */
90 if (bfd_read ((PTR
) &exec_bytes
, 1, EXEC_BYTES_SIZE
, abfd
)
92 if (bfd_get_error () != bfd_error_system_call
)
93 bfd_set_error (bfd_error_wrong_format
);
98 exec
.a_info
= SWAP_MAGIC (exec_bytes
.e_info
);
100 exec
.a_info
= bfd_h_get_32 (abfd
, exec_bytes
.e_info
);
101 #endif /* SWAP_MAGIC */
103 if (N_BADMAG (exec
)) return 0;
105 if (!(MACHTYPE_OK (N_MACHTYPE (exec
)))) return 0;
108 NAME(aout
,swap_exec_header_in
)(abfd
, &exec_bytes
, &exec
);
109 target
= NAME(aout
,some_aout_object_p
) (abfd
, &exec
, MY(callback
));
111 #ifdef ENTRY_CAN_BE_ZERO
112 /* The NEWSOS3 entry-point is/was 0, which (amongst other lossage)
113 * means that it isn't obvious if EXEC_P should be set.
114 * All of the following must be true for an executable:
115 * There must be no relocations, the bfd can be neither an
116 * archive nor an archive element, and the file must be executable. */
118 if (exec
.a_trsize
+ exec
.a_drsize
== 0
119 && bfd_get_format(abfd
) == bfd_object
&& abfd
->my_archive
== NULL
)
123 #define S_IXUSR 0100 /* Execute by owner. */
125 if (stat(abfd
->filename
, &buf
) == 0 && (buf
.st_mode
& S_IXUSR
))
126 abfd
->flags
|= EXEC_P
;
128 #endif /* ENTRY_CAN_BE_ZERO */
132 #define MY_object_p MY(object_p)
141 if (NAME(aout
,mkobject
)(abfd
) == false)
143 #if 0 /* Sizes get set in set_sizes callback, later, after we know
144 the architecture and machine. */
145 adata(abfd
).page_size
= PAGE_SIZE
;
147 adata(abfd
).segment_size
= SEGMENT_SIZE
;
149 adata(abfd
).segment_size
= PAGE_SIZE
;
151 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
155 #define MY_mkobject MY(mkobject)
158 #ifndef MY_bfd_copy_private_section_data
160 /* Copy private section data. This actually does nothing with the
161 sections. It copies the subformat field. We copy it here, because
162 we know whether this is a QMAGIC file before we set the section
163 contents, and copy_private_bfd_data is not called until after the
164 section contents have been set. */
168 MY_bfd_copy_private_section_data (ibfd
, isec
, obfd
, osec
)
174 obj_aout_subformat (obfd
) = obj_aout_subformat (ibfd
);
180 /* Write an object file.
181 Section contents have already been written. We write the
182 file header, symbols, and relocation. */
184 #ifndef MY_write_object_contents
186 MY(write_object_contents
) (abfd
)
189 struct external_exec exec_bytes
;
190 struct internal_exec
*execp
= exec_hdr (abfd
);
192 #if CHOOSE_RELOC_SIZE
193 CHOOSE_RELOC_SIZE(abfd
);
195 obj_reloc_entry_size (abfd
) = RELOC_STD_SIZE
;
198 WRITE_HEADERS(abfd
, execp
);
202 #define MY_write_object_contents MY(write_object_contents)
210 adata(abfd
).page_size
= PAGE_SIZE
;
212 adata(abfd
).segment_size
= SEGMENT_SIZE
;
214 adata(abfd
).segment_size
= PAGE_SIZE
;
216 adata(abfd
).exec_bytes_size
= EXEC_BYTES_SIZE
;
219 #define MY_set_sizes MY(set_sizes)
222 #ifndef MY_exec_hdr_flags
223 #define MY_exec_hdr_flags 0
226 #ifndef MY_backend_data
228 #ifndef MY_text_includes_header
229 #define MY_text_includes_header 0
231 #ifndef MY_add_dynamic_symbols
232 #define MY_add_dynamic_symbols 0
234 #ifndef MY_add_one_symbol
235 #define MY_add_one_symbol 0
237 #ifndef MY_link_dynamic_object
238 #define MY_link_dynamic_object 0
240 #ifndef MY_write_dynamic_symbol
241 #define MY_write_dynamic_symbol 0
243 #ifndef MY_check_dynamic_reloc
244 #define MY_check_dynamic_reloc 0
246 #ifndef MY_finish_dynamic_link
247 #define MY_finish_dynamic_link 0
250 static CONST
struct aout_backend_data
MY(backend_data
) = {
251 0, /* zmagic contiguous */
252 MY_text_includes_header
,
256 0, /* exec header is counted */
257 MY_add_dynamic_symbols
,
259 MY_link_dynamic_object
,
260 MY_write_dynamic_symbol
,
261 MY_check_dynamic_reloc
,
262 MY_finish_dynamic_link
264 #define MY_backend_data &MY(backend_data)
267 #ifndef MY_final_link_callback
269 /* Callback for the final_link routine to set the section offsets. */
271 static void MY_final_link_callback
272 PARAMS ((bfd
*, file_ptr
*, file_ptr
*, file_ptr
*));
275 MY_final_link_callback (abfd
, ptreloff
, pdreloff
, psymoff
)
281 struct internal_exec
*execp
= exec_hdr (abfd
);
283 *ptreloff
= N_TRELOFF (*execp
);
284 *pdreloff
= N_DRELOFF (*execp
);
285 *psymoff
= N_SYMOFF (*execp
);
290 #ifndef MY_bfd_final_link
292 /* Final link routine. We need to use a call back to get the correct
293 offsets in the output file. */
296 MY_bfd_final_link (abfd
, info
)
298 struct bfd_link_info
*info
;
300 return NAME(aout
,final_link
) (abfd
, info
, MY_final_link_callback
);
305 /* We assume BFD generic archive files. */
306 #ifndef MY_openr_next_archived_file
307 #define MY_openr_next_archived_file bfd_generic_openr_next_archived_file
309 #ifndef MY_generic_stat_arch_elt
310 #define MY_generic_stat_arch_elt bfd_generic_stat_arch_elt
312 #ifndef MY_slurp_armap
313 #define MY_slurp_armap bfd_slurp_bsd_armap
315 #ifndef MY_slurp_extended_name_table
316 #define MY_slurp_extended_name_table _bfd_slurp_extended_name_table
318 #ifndef MY_write_armap
319 #define MY_write_armap bsd_write_armap
321 #ifndef MY_truncate_arname
322 #define MY_truncate_arname bfd_bsd_truncate_arname
325 /* No core file defined here -- configure in trad-core.c separately. */
326 #ifndef MY_core_file_failing_command
327 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
329 #ifndef MY_core_file_failing_signal
330 #define MY_core_file_failing_signal _bfd_nocore_core_file_failing_signal
332 #ifndef MY_core_file_matches_executable_p
333 #define MY_core_file_matches_executable_p \
334 _bfd_nocore_core_file_matches_executable_p
336 #ifndef MY_core_file_p
337 #define MY_core_file_p _bfd_dummy_target
340 #ifndef MY_bfd_debug_info_start
341 #define MY_bfd_debug_info_start bfd_void
343 #ifndef MY_bfd_debug_info_end
344 #define MY_bfd_debug_info_end bfd_void
346 #ifndef MY_bfd_debug_info_accumulate
347 #define MY_bfd_debug_info_accumulate \
348 (void (*) PARAMS ((bfd*, struct sec *))) bfd_void
351 #ifndef MY_core_file_failing_command
352 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
354 #ifndef MY_core_file_failing_signal
355 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
357 #ifndef MY_core_file_matches_executable_p
358 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
360 #ifndef MY_set_section_contents
361 #define MY_set_section_contents NAME(aout,set_section_contents)
363 #ifndef MY_get_section_contents
364 #define MY_get_section_contents NAME(aout,get_section_contents)
366 #ifndef MY_new_section_hook
367 #define MY_new_section_hook NAME(aout,new_section_hook)
369 #ifndef MY_get_symtab_upper_bound
370 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
372 #ifndef MY_get_symtab
373 #define MY_get_symtab NAME(aout,get_symtab)
375 #ifndef MY_get_reloc_upper_bound
376 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
378 #ifndef MY_canonicalize_reloc
379 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
381 #ifndef MY_make_empty_symbol
382 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
384 #ifndef MY_print_symbol
385 #define MY_print_symbol NAME(aout,print_symbol)
387 #ifndef MY_get_symbol_info
388 #define MY_get_symbol_info NAME(aout,get_symbol_info)
390 #ifndef MY_get_lineno
391 #define MY_get_lineno NAME(aout,get_lineno)
393 #ifndef MY_set_arch_mach
394 #define MY_set_arch_mach NAME(aout,set_arch_mach)
396 #ifndef MY_find_nearest_line
397 #define MY_find_nearest_line NAME(aout,find_nearest_line)
399 #ifndef MY_sizeof_headers
400 #define MY_sizeof_headers NAME(aout,sizeof_headers)
402 #ifndef MY_bfd_get_relocated_section_contents
403 #define MY_bfd_get_relocated_section_contents \
404 bfd_generic_get_relocated_section_contents
406 #ifndef MY_bfd_relax_section
407 #define MY_bfd_relax_section bfd_generic_relax_section
409 #ifndef MY_bfd_reloc_type_lookup
410 #define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup)
412 #ifndef MY_bfd_make_debug_symbol
413 #define MY_bfd_make_debug_symbol 0
415 #ifndef MY_bfd_link_hash_table_create
416 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
418 #ifndef MY_bfd_link_add_symbols
419 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
422 #ifndef MY_bfd_copy_private_bfd_data
423 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
426 #ifndef MY_bfd_is_local_label
427 #define MY_bfd_is_local_label bfd_generic_is_local_label
430 #ifndef MY_bfd_free_cached_info
431 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
434 #ifndef MY_close_and_cleanup
435 #define MY_close_and_cleanup MY_bfd_free_cached_info
438 #ifndef MY_get_dynamic_symtab_upper_bound
439 #define MY_get_dynamic_symtab_upper_bound \
440 _bfd_nodynamic_get_dynamic_symtab_upper_bound
442 #ifndef MY_canonicalize_dynamic_symtab
443 #define MY_canonicalize_dynamic_symtab \
444 _bfd_nodynamic_canonicalize_dynamic_symtab
446 #ifndef MY_get_dynamic_reloc_upper_bound
447 #define MY_get_dynamic_reloc_upper_bound \
448 _bfd_nodynamic_get_dynamic_reloc_upper_bound
450 #ifndef MY_canonicalize_dynamic_reloc
451 #define MY_canonicalize_dynamic_reloc \
452 _bfd_nodynamic_canonicalize_dynamic_reloc
455 /* Aout symbols normally have leading underscores */
456 #ifndef MY_symbol_leading_char
457 #define MY_symbol_leading_char '_'
460 /* Aout archives normally use spaces for padding */
462 #define AR_PAD_CHAR ' '
465 #ifndef MY_BFD_TARGET
468 TARGETNAME
, /* name */
469 bfd_target_aout_flavour
,
470 #ifdef TARGET_IS_BIG_ENDIAN_P
471 true, /* target byte order (big) */
472 true, /* target headers byte order (big) */
474 false, /* target byte order (little) */
475 false, /* target headers byte order (little) */
477 (HAS_RELOC
| EXEC_P
| /* object flags */
478 HAS_LINENO
| HAS_DEBUG
|
479 HAS_SYMS
| HAS_LOCALS
| DYNAMIC
| WP_TEXT
| D_PAGED
),
480 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
481 MY_symbol_leading_char
,
482 AR_PAD_CHAR
, /* ar_pad_char */
483 15, /* ar_max_namelen */
484 3, /* minimum alignment */
485 #ifdef TARGET_IS_BIG_ENDIAN_P
486 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
487 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
488 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
489 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
490 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
491 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
493 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
494 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
495 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* data */
496 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
497 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
498 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* hdrs */
500 {_bfd_dummy_target
, MY_object_p
, /* bfd_check_format */
501 bfd_generic_archive_p
, MY_core_file_p
},
502 {bfd_false
, MY_mkobject
, /* bfd_set_format */
503 _bfd_generic_mkarchive
, bfd_false
},
504 {bfd_false
, MY_write_object_contents
, /* bfd_write_contents */
505 _bfd_write_archive_contents
, bfd_false
},
507 BFD_JUMP_TABLE_GENERIC (MY
),
508 BFD_JUMP_TABLE_COPY (MY
),
509 BFD_JUMP_TABLE_CORE (MY
),
510 BFD_JUMP_TABLE_ARCHIVE (MY
),
511 BFD_JUMP_TABLE_SYMBOLS (MY
),
512 BFD_JUMP_TABLE_RELOCS (MY
),
513 BFD_JUMP_TABLE_WRITE (MY
),
514 BFD_JUMP_TABLE_LINK (MY
),
515 BFD_JUMP_TABLE_DYNAMIC (MY
),
517 (PTR
) MY_backend_data
,
519 #endif /* MY_BFD_TARGET */