123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543 |
- /* BFD back-end for i386 a.out binaries under LynxOS.
- Copyright (C) 1990-2022 Free Software Foundation, Inc.
- This file is part of BFD, the Binary File Descriptor library.
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
- MA 02110-1301, USA. */
- #define TEXT_START_ADDR 0
- #define TARGET_PAGE_SIZE 4096
- #define SEGMENT_SIZE TARGET_PAGE_SIZE
- #define DEFAULT_ARCH bfd_arch_i386
- /* Do not "beautify" the CONCAT* macro args. Traditional C will not
- remove whitespace added here, and thus will fail to concatenate
- the tokens. */
- #define MY(OP) CONCAT2 (i386_aout_lynx_,OP)
- #define TARGETNAME "a.out-i386-lynx"
- #include "sysdep.h"
- #include "bfd.h"
- #include "libbfd.h"
- #ifndef WRITE_HEADERS
- #define WRITE_HEADERS(abfd, execp) \
- { \
- if (adata(abfd).magic == undecided_magic) \
- NAME(aout,adjust_sizes_and_vmas) (abfd); \
- \
- execp->a_syms = bfd_get_symcount (abfd) * EXTERNAL_NLIST_SIZE; \
- execp->a_entry = bfd_get_start_address (abfd); \
- \
- execp->a_trsize = ((obj_textsec (abfd)->reloc_count) * \
- obj_reloc_entry_size (abfd)); \
- execp->a_drsize = ((obj_datasec (abfd)->reloc_count) * \
- obj_reloc_entry_size (abfd)); \
- NAME(aout,swap_exec_header_out) (abfd, execp, &exec_bytes); \
- \
- if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 \
- || bfd_bwrite (&exec_bytes, (bfd_size_type) EXEC_BYTES_SIZE, \
- abfd) != EXEC_BYTES_SIZE) \
- return false; \
- /* Now write out reloc info, followed by syms and strings */ \
- \
- if (bfd_get_symcount (abfd) != 0) \
- { \
- if (bfd_seek (abfd, (file_ptr) (N_SYMOFF (execp)), SEEK_SET) \
- != 0) \
- return false; \
- \
- if (! NAME(aout,write_syms) (abfd)) return false; \
- \
- if (bfd_seek (abfd, (file_ptr) (N_TRELOFF (execp)), SEEK_SET) \
- != 0) \
- return false; \
- \
- if (!NAME(lynx,squirt_out_relocs) (abfd, obj_textsec (abfd))) \
- return false; \
- if (bfd_seek (abfd, (file_ptr) (N_DRELOFF (execp)), SEEK_SET) \
- != 0) \
- return 0; \
- \
- if (!NAME(lynx,squirt_out_relocs) (abfd, obj_datasec (abfd))) \
- return false; \
- } \
- }
- #endif
- #include "libaout.h"
- #include "aout/aout64.h"
- #ifdef LYNX_CORE
- char *lynx_core_file_failing_command ();
- int lynx_core_file_failing_signal ();
- bool lynx_core_file_matches_executable_p ();
- const bfd_target *lynx_core_file_p ();
- #define MY_core_file_failing_command lynx_core_file_failing_command
- #define MY_core_file_failing_signal lynx_core_file_failing_signal
- #define MY_core_file_matches_executable_p lynx_core_file_matches_executable_p
- #define MY_core_file_p lynx_core_file_p
- #endif /* LYNX_CORE */
- #define KEEPIT udata.i
- extern reloc_howto_type aout_32_ext_howto_table[];
- extern reloc_howto_type aout_32_std_howto_table[];
- /* Standard reloc stuff */
- /* Output standard relocation information to a file in target byte order. */
- static void
- NAME(lynx,swap_std_reloc_out) (bfd *abfd,
- arelent *g,
- struct reloc_std_external *natptr)
- {
- int r_index;
- asymbol *sym = *(g->sym_ptr_ptr);
- int r_extern;
- unsigned int r_length;
- int r_pcrel;
- int r_baserel, r_jmptable, r_relative;
- asection *output_section = sym->section->output_section;
- PUT_WORD (abfd, g->address, natptr->r_address);
- r_length = g->howto->size; /* Size as a power of two */
- r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */
- /* r_baserel, r_jmptable, r_relative??? FIXME-soon */
- r_baserel = 0;
- r_jmptable = 0;
- r_relative = 0;
- /* name was clobbered by aout_write_syms to be symbol index */
- /* If this relocation is relative to a symbol then set the
- r_index to the symbols index, and the r_extern bit.
- Absolute symbols can come in in two ways, either as an offset
- from the abs section, or as a symbol which has an abs value.
- check for that here
- */
- if (bfd_is_com_section (output_section)
- || bfd_is_abs_section (output_section)
- || bfd_is_und_section (output_section))
- {
- if (bfd_abs_section_ptr->symbol == sym)
- {
- /* Whoops, looked like an abs symbol, but is really an offset
- from the abs section */
- r_index = 0;
- r_extern = 0;
- }
- else
- {
- /* Fill in symbol */
- r_extern = 1;
- r_index = (*g->sym_ptr_ptr)->KEEPIT;
- }
- }
- else
- {
- /* Just an ordinary section */
- r_extern = 0;
- r_index = output_section->target_index;
- }
- /* now the fun stuff */
- if (bfd_header_big_endian (abfd))
- {
- natptr->r_index[0] = r_index >> 16;
- natptr->r_index[1] = r_index >> 8;
- natptr->r_index[2] = r_index;
- natptr->r_type[0] =
- (r_extern ? RELOC_STD_BITS_EXTERN_BIG : 0)
- | (r_pcrel ? RELOC_STD_BITS_PCREL_BIG : 0)
- | (r_baserel ? RELOC_STD_BITS_BASEREL_BIG : 0)
- | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_BIG : 0)
- | (r_relative ? RELOC_STD_BITS_RELATIVE_BIG : 0)
- | (r_length << RELOC_STD_BITS_LENGTH_SH_BIG);
- }
- else
- {
- natptr->r_index[2] = r_index >> 16;
- natptr->r_index[1] = r_index >> 8;
- natptr->r_index[0] = r_index;
- natptr->r_type[0] =
- (r_extern ? RELOC_STD_BITS_EXTERN_LITTLE : 0)
- | (r_pcrel ? RELOC_STD_BITS_PCREL_LITTLE : 0)
- | (r_baserel ? RELOC_STD_BITS_BASEREL_LITTLE : 0)
- | (r_jmptable ? RELOC_STD_BITS_JMPTABLE_LITTLE : 0)
- | (r_relative ? RELOC_STD_BITS_RELATIVE_LITTLE : 0)
- | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE);
- }
- }
- /* Extended stuff */
- /* Output extended relocation information to a file in target byte order. */
- static void
- NAME(lynx,swap_ext_reloc_out) (bfd *abfd,
- arelent *g,
- struct reloc_ext_external *natptr)
- {
- int r_index;
- int r_extern;
- unsigned int r_type;
- unsigned int r_addend;
- asymbol *sym = *(g->sym_ptr_ptr);
- asection *output_section = sym->section->output_section;
- PUT_WORD (abfd, g->address, natptr->r_address);
- r_type = (unsigned int) g->howto->type;
- r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
- /* If this relocation is relative to a symbol then set the
- r_index to the symbols index, and the r_extern bit.
- Absolute symbols can come in in two ways, either as an offset
- from the abs section, or as a symbol which has an abs value.
- check for that here
- */
- if (bfd_is_com_section (output_section)
- || bfd_is_abs_section (output_section)
- || bfd_is_und_section (output_section))
- {
- if (bfd_abs_section_ptr->symbol == sym)
- {
- /* Whoops, looked like an abs symbol, but is really an offset
- from the abs section */
- r_index = 0;
- r_extern = 0;
- }
- else
- {
- r_extern = 1;
- r_index = (*g->sym_ptr_ptr)->KEEPIT;
- }
- }
- else
- {
- /* Just an ordinary section */
- r_extern = 0;
- r_index = output_section->target_index;
- }
- /* now the fun stuff */
- if (bfd_header_big_endian (abfd))
- {
- natptr->r_index[0] = r_index >> 16;
- natptr->r_index[1] = r_index >> 8;
- natptr->r_index[2] = r_index;
- natptr->r_type[0] =
- (r_extern ? RELOC_EXT_BITS_EXTERN_BIG : 0)
- | (r_type << RELOC_EXT_BITS_TYPE_SH_BIG);
- }
- else
- {
- natptr->r_index[2] = r_index >> 16;
- natptr->r_index[1] = r_index >> 8;
- natptr->r_index[0] = r_index;
- natptr->r_type[0] =
- (r_extern ? RELOC_EXT_BITS_EXTERN_LITTLE : 0)
- | (r_type << RELOC_EXT_BITS_TYPE_SH_LITTLE);
- }
- PUT_WORD (abfd, r_addend, natptr->r_addend);
- }
- /* BFD deals internally with all things based from the section they're
- in. so, something in 10 bytes into a text section with a base of
- 50 would have a symbol (.text+10) and know .text vma was 50.
- Aout keeps all it's symbols based from zero, so the symbol would
- contain 60. This macro subs the base of each section from the value
- to give the true offset from the section */
- #define MOVE_ADDRESS(ad) \
- if (r_extern) \
- { \
- /* undefined symbol */ \
- if (r_index < bfd_get_symcount (abfd)) \
- cache_ptr->sym_ptr_ptr = symbols + r_index; \
- cache_ptr->addend = ad; \
- } \
- else \
- { \
- /* defined, section relative. replace symbol with pointer to \
- symbol which points to section */ \
- switch (r_index) \
- { \
- case N_TEXT: \
- case N_TEXT | N_EXT: \
- cache_ptr->sym_ptr_ptr = obj_textsec(abfd)->symbol_ptr_ptr; \
- cache_ptr->addend = ad - su->textsec->vma; \
- break; \
- case N_DATA: \
- case N_DATA | N_EXT: \
- cache_ptr->sym_ptr_ptr = obj_datasec(abfd)->symbol_ptr_ptr; \
- cache_ptr->addend = ad - su->datasec->vma; \
- break; \
- case N_BSS: \
- case N_BSS | N_EXT: \
- cache_ptr->sym_ptr_ptr = obj_bsssec(abfd)->symbol_ptr_ptr; \
- cache_ptr->addend = ad - su->bsssec->vma; \
- break; \
- default: \
- case N_ABS: \
- case N_ABS | N_EXT: \
- cache_ptr->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; \
- cache_ptr->addend = ad; \
- break; \
- } \
- } \
- static void
- NAME(lynx,swap_ext_reloc_in) (bfd *abfd,
- struct reloc_ext_external *bytes,
- arelent *cache_ptr,
- asymbol **symbols,
- bfd_size_type symcount ATTRIBUTE_UNUSED)
- {
- unsigned int r_index;
- int r_extern;
- unsigned int r_type;
- struct aoutdata *su = &(abfd->tdata.aout_data->a);
- cache_ptr->address = (GET_SWORD (abfd, bytes->r_address));
- r_index = bytes->r_index[1];
- r_extern = (0 != (bytes->r_index[0] & RELOC_EXT_BITS_EXTERN_BIG));
- r_type = (bytes->r_index[0] & RELOC_EXT_BITS_TYPE_BIG)
- >> RELOC_EXT_BITS_TYPE_SH_BIG;
- cache_ptr->howto = aout_32_ext_howto_table + r_type;
- MOVE_ADDRESS (GET_SWORD (abfd, bytes->r_addend));
- }
- static void
- NAME(lynx,swap_std_reloc_in) (bfd *abfd,
- struct reloc_std_external *bytes,
- arelent *cache_ptr,
- asymbol **symbols,
- bfd_size_type symcount ATTRIBUTE_UNUSED)
- {
- unsigned int r_index;
- int r_extern;
- unsigned int r_length;
- int r_pcrel;
- struct aoutdata *su = &(abfd->tdata.aout_data->a);
- cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
- r_index = bytes->r_index[1];
- r_extern = (0 != (bytes->r_index[0] & RELOC_STD_BITS_EXTERN_BIG));
- r_pcrel = (0 != (bytes->r_index[0] & RELOC_STD_BITS_PCREL_BIG));
- r_length = (bytes->r_index[0] & RELOC_STD_BITS_LENGTH_BIG)
- >> RELOC_STD_BITS_LENGTH_SH_BIG;
- cache_ptr->howto = aout_32_std_howto_table + r_length + 4 * r_pcrel;
- /* FIXME-soon: Roll baserel, jmptable, relative bits into howto setting */
- MOVE_ADDRESS (0);
- }
- /* Reloc hackery */
- static bool
- NAME(lynx,slurp_reloc_table) (bfd *abfd,
- sec_ptr asect,
- asymbol **symbols)
- {
- bfd_size_type count;
- bfd_size_type reloc_size;
- void * relocs;
- arelent *reloc_cache;
- size_t each_size;
- if (asect->relocation)
- return true;
- if (asect->flags & SEC_CONSTRUCTOR)
- return true;
- if (asect == obj_datasec (abfd))
- {
- reloc_size = exec_hdr (abfd)->a_drsize;
- goto doit;
- }
- if (asect == obj_textsec (abfd))
- {
- reloc_size = exec_hdr (abfd)->a_trsize;
- goto doit;
- }
- bfd_set_error (bfd_error_invalid_operation);
- return false;
- doit:
- if (bfd_seek (abfd, asect->rel_filepos, SEEK_SET) != 0)
- return false;
- each_size = obj_reloc_entry_size (abfd);
- count = reloc_size / each_size;
- reloc_cache = (arelent *) bfd_zmalloc (count * sizeof (arelent));
- if (!reloc_cache && count != 0)
- return false;
- relocs = _bfd_alloc_and_read (abfd, reloc_size, reloc_size);
- if (!relocs && reloc_size != 0)
- {
- free (reloc_cache);
- return false;
- }
- if (each_size == RELOC_EXT_SIZE)
- {
- struct reloc_ext_external *rptr = (struct reloc_ext_external *) relocs;
- unsigned int counter = 0;
- arelent *cache_ptr = reloc_cache;
- for (; counter < count; counter++, rptr++, cache_ptr++)
- {
- NAME(lynx,swap_ext_reloc_in) (abfd, rptr, cache_ptr, symbols,
- (bfd_size_type) bfd_get_symcount (abfd));
- }
- }
- else
- {
- struct reloc_std_external *rptr = (struct reloc_std_external *) relocs;
- unsigned int counter = 0;
- arelent *cache_ptr = reloc_cache;
- for (; counter < count; counter++, rptr++, cache_ptr++)
- {
- NAME(lynx,swap_std_reloc_in) (abfd, rptr, cache_ptr, symbols,
- (bfd_size_type) bfd_get_symcount (abfd));
- }
- }
- bfd_release (abfd, relocs);
- asect->relocation = reloc_cache;
- asect->reloc_count = count;
- return true;
- }
- /* Write out a relocation section into an object file. */
- static bool
- NAME(lynx,squirt_out_relocs) (bfd *abfd, asection *section)
- {
- arelent **generic;
- unsigned char *native, *natptr;
- size_t each_size;
- unsigned int count = section->reloc_count;
- bfd_size_type natsize;
- if (count == 0)
- return true;
- each_size = obj_reloc_entry_size (abfd);
- natsize = count;
- natsize *= each_size;
- native = (unsigned char *) bfd_zalloc (abfd, natsize);
- if (!native)
- return false;
- generic = section->orelocation;
- if (each_size == RELOC_EXT_SIZE)
- {
- for (natptr = native;
- count != 0;
- --count, natptr += each_size, ++generic)
- NAME(lynx,swap_ext_reloc_out) (abfd, *generic, (struct reloc_ext_external *) natptr);
- }
- else
- {
- for (natptr = native;
- count != 0;
- --count, natptr += each_size, ++generic)
- NAME(lynx,swap_std_reloc_out) (abfd, *generic, (struct reloc_std_external *) natptr);
- }
- if (bfd_bwrite (native, natsize, abfd) != natsize)
- {
- bfd_release (abfd, native);
- return false;
- }
- bfd_release (abfd, native);
- return true;
- }
- /* This is stupid. This function should be a boolean predicate */
- static long
- NAME(lynx,canonicalize_reloc) (bfd *abfd,
- sec_ptr section,
- arelent **relptr,
- asymbol **symbols)
- {
- arelent *tblptr = section->relocation;
- unsigned int count;
- if (!(tblptr || NAME(lynx,slurp_reloc_table) (abfd, section, symbols)))
- return -1;
- if (section->flags & SEC_CONSTRUCTOR)
- {
- arelent_chain *chain = section->constructor_chain;
- for (count = 0; count < section->reloc_count; count++)
- {
- *relptr++ = &chain->relent;
- chain = chain->next;
- }
- }
- else
- {
- tblptr = section->relocation;
- for (count = 0; count++ < section->reloc_count;)
- {
- *relptr++ = tblptr++;
- }
- }
- *relptr = 0;
- return section->reloc_count;
- }
- #define MY_canonicalize_reloc NAME(lynx,canonicalize_reloc)
- #include "aout-target.h"
|