bfd/aout-target.h

   1 /* Define a target vector and some small routines for a variant of a.out.
   2    Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
   3
   4 This file is part of BFD, the Binary File Descriptor library.
   5
   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.
  10
  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.
  15
  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.  */
  19
  20 #include "aout/aout64.h"
  21 #include "aout/stab_gnu.h"
  22 #include "aout/ar.h"
  23 /*#include "libaout.h"*/
  24
  25 extern CONST struct reloc_howto_struct * NAME(aout,reloc_type_lookup) ();
  26
  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.  */
  29 #ifndef MY_callback
  30 static bfd_target *
  31 MY(callback) (abfd)
  32      bfd *abfd;
  33 {
  34   struct internal_exec *execp = exec_hdr (abfd);
  35
  36   /* Calculate the file positions of the parts of a newly read aout header */
  37   obj_textsec (abfd)->_raw_size = N_TXTSIZE(*execp);
  38
  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);
  43
  44   /* The file offsets of the sections */
  45   obj_textsec (abfd)->filepos = N_TXTOFF (*execp);
  46   obj_datasec (abfd)->filepos = N_DATOFF (*execp);
  47
  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);
  51
  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);
  55
  56   /* Determine the architecture and machine type of the object file.  */
  57 #ifdef SET_ARCH_MACH
  58   SET_ARCH_MACH(abfd, *execp);
  59 #else
  60   bfd_default_set_arch_mach(abfd, DEFAULT_ARCH, 0);
  61 #endif
  62
  63   /* Don't set sizes now -- can't be sure until we know arch & mach.
  64      Sizes get set in set_sizes callback, later.  */
  65 #if 0
  66   adata(abfd).page_size = PAGE_SIZE;
  67 #ifdef SEGMENT_SIZE
  68   adata(abfd).segment_size = SEGMENT_SIZE;
  69 #else
  70   adata(abfd).segment_size = PAGE_SIZE;
  71 #endif
  72   adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
  73 #endif
  74
  75   return abfd->xvec;
  76 }
  77 #endif
  78
  79 #ifndef MY_object_p
  80 /* Finish up the reading of an a.out file header */
  81
  82 static bfd_target *
  83 MY(object_p) (abfd)
  84      bfd *abfd;
  85 {
  86   struct external_exec exec_bytes;      /* Raw exec header from file */
  87   struct internal_exec exec;            /* Cleaned-up exec header */
  88   bfd_target *target;
  89
  90   if (bfd_read ((PTR) &exec_bytes, 1, EXEC_BYTES_SIZE, abfd)
  91       != EXEC_BYTES_SIZE) {
  92     if (bfd_get_error () != bfd_error_system_call)
  93       bfd_set_error (bfd_error_wrong_format);
  94     return 0;
  95   }
  96
  97 #ifdef SWAP_MAGIC
  98   exec.a_info = SWAP_MAGIC (exec_bytes.e_info);
  99 #else
 100   exec.a_info = bfd_h_get_32 (abfd, exec_bytes.e_info);
 101 #endif /* SWAP_MAGIC */
 102
 103   if (N_BADMAG (exec)) return 0;
 104 #ifdef MACHTYPE_OK
 105   if (!(MACHTYPE_OK (N_MACHTYPE (exec)))) return 0;
 106 #endif
 107
 108   NAME(aout,swap_exec_header_in)(abfd, &exec_bytes, &exec);
 109   target = NAME(aout,some_aout_object_p) (abfd, &exec, MY(callback));
 110
 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. */
 117
 118   if (exec.a_trsize + exec.a_drsize == 0
 119       && bfd_get_format(abfd) == bfd_object && abfd->my_archive == NULL)
 120     {
 121       struct stat buf;
 122 #ifndef S_IXUSR
 123 #define S_IXUSR 0100    /* Execute by owner.  */
 124 #endif
 125       if (stat(abfd->filename, &buf) == 0 && (buf.st_mode & S_IXUSR))
 126         abfd->flags |= EXEC_P;
 127     }
 128 #endif /* ENTRY_CAN_BE_ZERO */
 129
 130   return target;
 131 }
 132 #define MY_object_p MY(object_p)
 133 #endif
 134
 135
 136 #ifndef MY_mkobject
 137 static boolean
 138 MY(mkobject) (abfd)
 139      bfd *abfd;
 140 {
 141   if (NAME(aout,mkobject)(abfd) == false)
 142     return 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;
 146 #ifdef SEGMENT_SIZE
 147   adata(abfd).segment_size = SEGMENT_SIZE;
 148 #else
 149   adata(abfd).segment_size = PAGE_SIZE;
 150 #endif
 151   adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
 152 #endif
 153   return true;
 154 }
 155 #define MY_mkobject MY(mkobject)
 156 #endif
 157
 158 /* Write an object file.
 159    Section contents have already been written.  We write the
 160    file header, symbols, and relocation.  */
 161
 162 #ifndef MY_write_object_contents
 163 static boolean
 164 MY(write_object_contents) (abfd)
 165      bfd *abfd;
 166 {
 167   struct external_exec exec_bytes;
 168   struct internal_exec *execp = exec_hdr (abfd);
 169
 170 #if CHOOSE_RELOC_SIZE
 171   CHOOSE_RELOC_SIZE(abfd);
 172 #else
 173   obj_reloc_entry_size (abfd) = RELOC_STD_SIZE;
 174 #endif
 175
 176   WRITE_HEADERS(abfd, execp);
 177
 178   return true;
 179 }
 180 #define MY_write_object_contents MY(write_object_contents)
 181 #endif
 182
 183 #ifndef MY_set_sizes
 184 static boolean
 185 MY(set_sizes) (abfd)
 186      bfd *abfd;
 187 {
 188   adata(abfd).page_size = PAGE_SIZE;
 189 #ifdef SEGMENT_SIZE
 190   adata(abfd).segment_size = SEGMENT_SIZE;
 191 #else
 192   adata(abfd).segment_size = PAGE_SIZE;
 193 #endif
 194   adata(abfd).exec_bytes_size = EXEC_BYTES_SIZE;
 195   return true;
 196 }
 197 #define MY_set_sizes MY(set_sizes)
 198 #endif
 199
 200 #ifndef MY_backend_data
 201
 202 #ifndef MY_read_dynamic_symbols
 203 #define MY_read_dynamic_symbols 0
 204 #endif
 205 #ifndef MY_read_dynamic_relocs
 206 #define MY_read_dynamic_relocs 0
 207 #endif
 208
 209 static CONST struct aout_backend_data MY(backend_data) = {
 210   0,                            /* zmagic contiguous */
 211   0,                            /* text incl header */
 212   0,                            /* text vma? */
 213   MY_set_sizes,
 214   0,                            /* exec header is counted */
 215   MY_read_dynamic_symbols,
 216   MY_read_dynamic_relocs
 217 };
 218 #define MY_backend_data &MY(backend_data)
 219 #endif
 220
 221 #ifndef MY_bfd_final_link
 222
 223 /* Final link routine.  We need to use a call back to get the correct
 224    offsets in the output file.  */
 225
 226 static void final_link_callback
 227   PARAMS ((bfd *, file_ptr *, file_ptr *, file_ptr *));
 228
 229 static void
 230 final_link_callback (abfd, ptreloff, pdreloff, psymoff)
 231      bfd *abfd;
 232      file_ptr *ptreloff;
 233      file_ptr *pdreloff;
 234      file_ptr *psymoff;
 235 {
 236   struct internal_exec *execp = exec_hdr (abfd);
 237
 238   *ptreloff = N_TRELOFF (*execp);
 239   *pdreloff = N_DRELOFF (*execp);
 240   *psymoff = N_SYMOFF (*execp);
 241 }
 242
 243 static boolean
 244 MY_bfd_final_link (abfd, info)
 245      bfd *abfd;
 246      struct bfd_link_info *info;
 247 {
 248   return NAME(aout,final_link) (abfd, info, final_link_callback);
 249 }
 250
 251 #endif
 252
 253 /* We assume BFD generic archive files.  */
 254 #ifndef MY_openr_next_archived_file
 255 #define MY_openr_next_archived_file     bfd_generic_openr_next_archived_file
 256 #endif
 257 #ifndef MY_generic_stat_arch_elt
 258 #define MY_generic_stat_arch_elt        bfd_generic_stat_arch_elt
 259 #endif
 260 #ifndef MY_slurp_armap
 261 #define MY_slurp_armap                  bfd_slurp_bsd_armap
 262 #endif
 263 #ifndef MY_slurp_extended_name_table
 264 #define MY_slurp_extended_name_table    _bfd_slurp_extended_name_table
 265 #endif
 266 #ifndef MY_write_armap
 267 #define MY_write_armap          bsd_write_armap
 268 #endif
 269 #ifndef MY_truncate_arname
 270 #define MY_truncate_arname              bfd_bsd_truncate_arname
 271 #endif
 272
 273 /* No core file defined here -- configure in trad-core.c separately.  */
 274 #ifndef MY_core_file_failing_command
 275 #define MY_core_file_failing_command _bfd_nocore_core_file_failing_command
 276 #endif
 277 #ifndef MY_core_file_failing_signal
 278 #define MY_core_file_failing_signal     _bfd_nocore_core_file_failing_signal
 279 #endif
 280 #ifndef MY_core_file_matches_executable_p
 281 #define MY_core_file_matches_executable_p       \
 282                                 _bfd_nocore_core_file_matches_executable_p
 283 #endif
 284 #ifndef MY_core_file_p
 285 #define MY_core_file_p          _bfd_dummy_target
 286 #endif
 287
 288 #ifndef MY_bfd_debug_info_start
 289 #define MY_bfd_debug_info_start         bfd_void
 290 #endif
 291 #ifndef MY_bfd_debug_info_end
 292 #define MY_bfd_debug_info_end           bfd_void
 293 #endif
 294 #ifndef MY_bfd_debug_info_accumulate
 295 #define MY_bfd_debug_info_accumulate    \
 296                         (void (*) PARAMS ((bfd*, struct sec *))) bfd_void
 297 #endif
 298
 299 #ifndef MY_core_file_failing_command
 300 #define MY_core_file_failing_command NAME(aout,core_file_failing_command)
 301 #endif
 302 #ifndef MY_core_file_failing_signal
 303 #define MY_core_file_failing_signal NAME(aout,core_file_failing_signal)
 304 #endif
 305 #ifndef MY_core_file_matches_executable_p
 306 #define MY_core_file_matches_executable_p NAME(aout,core_file_matches_executable_p)
 307 #endif
 308 #ifndef MY_set_section_contents
 309 #define MY_set_section_contents NAME(aout,set_section_contents)
 310 #endif
 311 #ifndef MY_get_section_contents
 312 #define MY_get_section_contents NAME(aout,get_section_contents)
 313 #endif
 314 #ifndef MY_new_section_hook
 315 #define MY_new_section_hook NAME(aout,new_section_hook)
 316 #endif
 317 #ifndef MY_get_symtab_upper_bound
 318 #define MY_get_symtab_upper_bound NAME(aout,get_symtab_upper_bound)
 319 #endif
 320 #ifndef MY_get_symtab
 321 #define MY_get_symtab NAME(aout,get_symtab)
 322 #endif
 323 #ifndef MY_get_reloc_upper_bound
 324 #define MY_get_reloc_upper_bound NAME(aout,get_reloc_upper_bound)
 325 #endif
 326 #ifndef MY_canonicalize_reloc
 327 #define MY_canonicalize_reloc NAME(aout,canonicalize_reloc)
 328 #endif
 329 #ifndef MY_make_empty_symbol
 330 #define MY_make_empty_symbol NAME(aout,make_empty_symbol)
 331 #endif
 332 #ifndef MY_print_symbol
 333 #define MY_print_symbol NAME(aout,print_symbol)
 334 #endif
 335 #ifndef MY_get_symbol_info
 336 #define MY_get_symbol_info NAME(aout,get_symbol_info)
 337 #endif
 338 #ifndef MY_get_lineno
 339 #define MY_get_lineno NAME(aout,get_lineno)
 340 #endif
 341 #ifndef MY_set_arch_mach
 342 #define MY_set_arch_mach NAME(aout,set_arch_mach)
 343 #endif
 344 #ifndef MY_find_nearest_line
 345 #define MY_find_nearest_line NAME(aout,find_nearest_line)
 346 #endif
 347 #ifndef MY_sizeof_headers
 348 #define MY_sizeof_headers NAME(aout,sizeof_headers)
 349 #endif
 350 #ifndef MY_bfd_get_relocated_section_contents
 351 #define MY_bfd_get_relocated_section_contents \
 352                         bfd_generic_get_relocated_section_contents
 353 #endif
 354 #ifndef MY_bfd_relax_section
 355 #define MY_bfd_relax_section bfd_generic_relax_section
 356 #endif
 357 #ifndef MY_bfd_reloc_type_lookup
 358 #define MY_bfd_reloc_type_lookup NAME(aout,reloc_type_lookup)
 359 #endif
 360 #ifndef MY_bfd_make_debug_symbol
 361 #define MY_bfd_make_debug_symbol 0
 362 #endif
 363 #ifndef MY_bfd_link_hash_table_create
 364 #define MY_bfd_link_hash_table_create NAME(aout,link_hash_table_create)
 365 #endif
 366 #ifndef MY_bfd_link_add_symbols
 367 #define MY_bfd_link_add_symbols NAME(aout,link_add_symbols)
 368 #endif
 369
 370 #ifndef MY_bfd_copy_private_section_data
 371 #define MY_bfd_copy_private_section_data \
 372   _bfd_generic_bfd_copy_private_section_data
 373 #endif
 374 #ifndef MY_bfd_copy_private_bfd_data
 375 #define MY_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
 376 #endif
 377
 378 #ifndef MY_bfd_is_local_label
 379 #define MY_bfd_is_local_label bfd_generic_is_local_label
 380 #endif
 381
 382 #ifndef MY_bfd_free_cached_info
 383 #define MY_bfd_free_cached_info NAME(aout,bfd_free_cached_info)
 384 #endif
 385
 386 #ifndef MY_close_and_cleanup
 387 #define MY_close_and_cleanup MY_bfd_free_cached_info
 388 #endif
 389
 390 /* Aout symbols normally have leading underscores */
 391 #ifndef MY_symbol_leading_char
 392 #define MY_symbol_leading_char '_'
 393 #endif
 394
 395 /* Aout archives normally use spaces for padding */
 396 #ifndef AR_PAD_CHAR
 397 #define AR_PAD_CHAR ' '
 398 #endif
 399
 400 #ifndef MY_BFD_TARGET
 401 bfd_target MY(vec) =
 402 {
 403   TARGETNAME,           /* name */
 404   bfd_target_aout_flavour,
 405 #ifdef TARGET_IS_BIG_ENDIAN_P
 406   true,                         /* target byte order (big) */
 407   true,                         /* target headers byte order (big) */
 408 #else
 409   false,                        /* target byte order (little) */
 410   false,                        /* target headers byte order (little) */
 411 #endif
 412   (HAS_RELOC | EXEC_P |         /* object flags */
 413    HAS_LINENO | HAS_DEBUG |
 414    HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED),
 415   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
 416   MY_symbol_leading_char,
 417   AR_PAD_CHAR,                  /* ar_pad_char */
 418   15,                           /* ar_max_namelen */
 419   3,                            /* minimum alignment */
 420 #ifdef TARGET_IS_BIG_ENDIAN_P
 421   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 422      bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 423      bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
 424   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 425      bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 426      bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
 427 #else
 428   bfd_getl64, bfd_getl_signed_64, bfd_putl64,
 429      bfd_getl32, bfd_getl_signed_32, bfd_putl32,
 430      bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
 431   bfd_getl64, bfd_getl_signed_64, bfd_putl64,
 432      bfd_getl32, bfd_getl_signed_32, bfd_putl32,
 433      bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
 434 #endif
 435     {_bfd_dummy_target, MY_object_p, /* bfd_check_format */
 436        bfd_generic_archive_p, MY_core_file_p},
 437     {bfd_false, MY_mkobject,    /* bfd_set_format */
 438        _bfd_generic_mkarchive, bfd_false},
 439     {bfd_false, MY_write_object_contents, /* bfd_write_contents */
 440        _bfd_write_archive_contents, bfd_false},
 441
 442      BFD_JUMP_TABLE_GENERIC (MY),
 443      BFD_JUMP_TABLE_COPY (MY),
 444      BFD_JUMP_TABLE_CORE (MY),
 445      BFD_JUMP_TABLE_ARCHIVE (MY),
 446      BFD_JUMP_TABLE_SYMBOLS (MY),
 447      BFD_JUMP_TABLE_RELOCS (MY),
 448      BFD_JUMP_TABLE_WRITE (MY),
 449      BFD_JUMP_TABLE_LINK (MY),
 450
 451   (PTR) MY_backend_data,
 452 };
 453 #endif /* MY_BFD_TARGET */