352 lines
11 KiB
C
352 lines
11 KiB
C
/* BFD back-end for IBM RS/6000 "XCOFF64" files.
|
|
Copyright 2000
|
|
Free Software Foundation, Inc.
|
|
Written Clinton Popetz.
|
|
Contributed by Cygnus Support.
|
|
|
|
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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
|
|
|
/* Internalcoff.h and coffcode.h modify themselves based on these flags. */
|
|
#define XCOFF64
|
|
#define RS6000COFF_C 1
|
|
|
|
#include "bfd.h"
|
|
#include "sysdep.h"
|
|
#include "libbfd.h"
|
|
#include "coff/internal.h"
|
|
#include "coff/rs6k64.h"
|
|
#include "libcoff.h"
|
|
|
|
#define GET_FILEHDR_SYMPTR bfd_h_get_64
|
|
#define PUT_FILEHDR_SYMPTR bfd_h_put_64
|
|
#define GET_AOUTHDR_DATA_START bfd_h_get_64
|
|
#define PUT_AOUTHDR_DATA_START bfd_h_put_64
|
|
#define GET_AOUTHDR_TEXT_START bfd_h_get_64
|
|
#define PUT_AOUTHDR_TEXT_START bfd_h_put_64
|
|
#define GET_AOUTHDR_TSIZE bfd_h_get_64
|
|
#define PUT_AOUTHDR_TSIZE bfd_h_put_64
|
|
#define GET_AOUTHDR_DSIZE bfd_h_get_64
|
|
#define PUT_AOUTHDR_DSIZE bfd_h_put_64
|
|
#define GET_AOUTHDR_BSIZE bfd_h_get_64
|
|
#define PUT_AOUTHDR_BSIZE bfd_h_put_64
|
|
#define GET_AOUTHDR_ENTRY bfd_h_get_64
|
|
#define PUT_AOUTHDR_ENTRY bfd_h_put_64
|
|
#define GET_SCNHDR_PADDR bfd_h_get_64
|
|
#define PUT_SCNHDR_PADDR bfd_h_put_64
|
|
#define GET_SCNHDR_VADDR bfd_h_get_64
|
|
#define PUT_SCNHDR_VADDR bfd_h_put_64
|
|
#define GET_SCNHDR_SIZE bfd_h_get_64
|
|
#define PUT_SCNHDR_SIZE bfd_h_put_64
|
|
#define GET_SCNHDR_SCNPTR bfd_h_get_64
|
|
#define PUT_SCNHDR_SCNPTR bfd_h_put_64
|
|
#define GET_SCNHDR_RELPTR bfd_h_get_64
|
|
#define PUT_SCNHDR_RELPTR bfd_h_put_64
|
|
#define GET_SCNHDR_LNNOPTR bfd_h_get_64
|
|
#define PUT_SCNHDR_LNNOPTR bfd_h_put_64
|
|
#define GET_SCNHDR_NRELOC bfd_h_get_32
|
|
#define MAX_SCNHDR_NRELOC 0xffffffff
|
|
#define PUT_SCNHDR_NRELOC bfd_h_put_32
|
|
#define GET_SCNHDR_NLNNO bfd_h_get_32
|
|
#define MAX_SCNHDR_NLNNO 0xffffffff
|
|
#define PUT_SCNHDR_NLNNO bfd_h_put_32
|
|
#define GET_RELOC_VADDR bfd_h_get_64
|
|
#define PUT_RELOC_VADDR bfd_h_put_64
|
|
|
|
#define COFF_FORCE_SYMBOLS_IN_STRINGS
|
|
#define COFF_DEBUG_STRING_WIDE_PREFIX
|
|
|
|
#define COFF_ADJUST_SCNHDR_OUT_POST(ABFD,INT,EXT) \
|
|
do { \
|
|
memset (((SCNHDR *)EXT)->s_pad, 0, sizeof (((SCNHDR *)EXT)->s_pad));\
|
|
} while (0)
|
|
|
|
#define NO_COFF_LINENOS
|
|
|
|
#define coff_SWAP_lineno_in xcoff64_swap_lineno_in
|
|
#define coff_SWAP_lineno_out xcoff64_swap_lineno_out
|
|
|
|
#define PUTWORD bfd_h_put_32
|
|
#define PUTHALF bfd_h_put_16
|
|
#define PUTBYTE bfd_h_put_8
|
|
#define GETWORD bfd_h_get_32
|
|
#define GETHALF bfd_h_get_16
|
|
#define GETBYTE bfd_h_get_8
|
|
|
|
/* For XCOFF64, the effective width of symndx changes depending on
|
|
whether we are the first entry. Sigh. */
|
|
static void
|
|
xcoff64_swap_lineno_in (abfd, ext1, in1)
|
|
bfd *abfd;
|
|
PTR ext1;
|
|
PTR in1;
|
|
{
|
|
LINENO *ext = (LINENO *)ext1;
|
|
struct internal_lineno *in = (struct internal_lineno *)in1;
|
|
|
|
in->l_lnno = bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno));
|
|
if (in->l_lnno == 0)
|
|
in->l_addr.l_symndx =
|
|
bfd_h_get_32(abfd, (bfd_byte *) ext->l_addr.l_symndx);
|
|
else
|
|
in->l_addr.l_symndx =
|
|
bfd_h_get_64(abfd, (bfd_byte *) ext->l_addr.l_symndx);
|
|
}
|
|
|
|
static unsigned int
|
|
xcoff64_swap_lineno_out (abfd, inp, outp)
|
|
bfd *abfd;
|
|
PTR inp;
|
|
PTR outp;
|
|
{
|
|
struct internal_lineno *in = (struct internal_lineno *)inp;
|
|
struct external_lineno *ext = (struct external_lineno *)outp;
|
|
PUTWORD(abfd, in->l_addr.l_symndx, (bfd_byte *)
|
|
ext->l_addr.l_symndx);
|
|
|
|
bfd_h_put_32 (abfd, in->l_lnno, (bfd_byte *) (ext->l_lnno));
|
|
if (in->l_lnno == 0)
|
|
bfd_h_put_32 (abfd, in->l_addr.l_symndx, (bfd_byte *)ext->l_addr.l_symndx);
|
|
else
|
|
bfd_h_put_64 (abfd, in->l_addr.l_symndx, (bfd_byte *)ext->l_addr.l_symndx);
|
|
|
|
return bfd_coff_linesz (abfd);
|
|
}
|
|
|
|
static void xcoff64_swap_sym_in PARAMS ((bfd *, PTR, PTR));
|
|
static unsigned int xcoff64_swap_sym_out PARAMS ((bfd *, PTR, PTR));
|
|
static void xcoff64_swap_aux_in PARAMS ((bfd *, PTR, int, int, int, int, PTR));
|
|
static unsigned int xcoff64_swap_aux_out PARAMS ((bfd *, PTR, int, int, int, int, PTR));
|
|
|
|
static void
|
|
xcoff64_swap_sym_in (abfd, ext1, in1)
|
|
bfd *abfd;
|
|
PTR ext1;
|
|
PTR in1;
|
|
{
|
|
SYMENT *ext = (SYMENT *)ext1;
|
|
struct internal_syment *in = (struct internal_syment *)in1;
|
|
|
|
in->_n._n_n._n_zeroes = 0;
|
|
in->_n._n_n._n_offset = bfd_h_get_32(abfd, (bfd_byte *) ext->e_offset);
|
|
in->n_value = bfd_h_get_64(abfd, (bfd_byte *) ext->e.e_value);
|
|
in->n_scnum = bfd_h_get_16(abfd, (bfd_byte *) ext->e_scnum);
|
|
in->n_type = bfd_h_get_16(abfd, (bfd_byte *) ext->e_type);
|
|
in->n_sclass = bfd_h_get_8(abfd, ext->e_sclass);
|
|
in->n_numaux = bfd_h_get_8(abfd, ext->e_numaux);
|
|
}
|
|
|
|
static unsigned int
|
|
xcoff64_swap_sym_out (abfd, inp, extp)
|
|
bfd *abfd;
|
|
PTR inp;
|
|
PTR extp;
|
|
{
|
|
struct internal_syment *in = (struct internal_syment *)inp;
|
|
SYMENT *ext =(SYMENT *)extp;
|
|
|
|
bfd_h_put_32(abfd, in->_n._n_n._n_offset, (bfd_byte *) ext->e_offset);
|
|
bfd_h_put_64(abfd, in->n_value , (bfd_byte *) ext->e.e_value);
|
|
bfd_h_put_16(abfd, in->n_scnum , (bfd_byte *) ext->e_scnum);
|
|
bfd_h_put_16(abfd, in->n_type , (bfd_byte *) ext->e_type);
|
|
bfd_h_put_8(abfd, in->n_sclass , ext->e_sclass);
|
|
bfd_h_put_8(abfd, in->n_numaux , ext->e_numaux);
|
|
return bfd_coff_symesz (abfd);
|
|
}
|
|
|
|
static void
|
|
xcoff64_swap_aux_in (abfd, ext1, type, class, indx, numaux, in1)
|
|
bfd *abfd;
|
|
PTR ext1;
|
|
int type;
|
|
int class;
|
|
int indx;
|
|
int numaux;
|
|
PTR in1;
|
|
{
|
|
AUXENT *ext = (AUXENT *)ext1;
|
|
union internal_auxent *in = (union internal_auxent *)in1;
|
|
|
|
switch (class) {
|
|
case C_FILE:
|
|
if (ext->x_file.x_fname[0] == 0) {
|
|
in->x_file.x_n.x_zeroes = 0;
|
|
in->x_file.x_n.x_offset =
|
|
bfd_h_get_32(abfd, (bfd_byte *) ext->x_file.x_n.x_offset);
|
|
} else {
|
|
if (numaux > 1)
|
|
{
|
|
if (indx == 0)
|
|
memcpy (in->x_file.x_fname, ext->x_file.x_fname,
|
|
numaux * sizeof (AUXENT));
|
|
}
|
|
else
|
|
{
|
|
memcpy (in->x_file.x_fname, ext->x_file.x_fname, FILNMLEN);
|
|
}
|
|
}
|
|
goto end;
|
|
|
|
/* RS/6000 "csect" auxents */
|
|
case C_EXT:
|
|
case C_HIDEXT:
|
|
if (indx + 1 == numaux)
|
|
{
|
|
in->x_csect.x_scnlen.l =
|
|
bfd_h_get_32(abfd, ext->x_csect.x_scnlen_lo);
|
|
/* FIXME: If we want section lengths larger than 32 bits, we need
|
|
to modify the internal coff structures to support it. */
|
|
in->x_csect.x_parmhash = bfd_h_get_32 (abfd,
|
|
ext->x_csect.x_parmhash);
|
|
in->x_csect.x_snhash = bfd_h_get_16 (abfd, ext->x_csect.x_snhash);
|
|
/* We don't have to hack bitfields in x_smtyp because it's
|
|
defined by shifts-and-ands, which are equivalent on all
|
|
byte orders. */
|
|
in->x_csect.x_smtyp = bfd_h_get_8 (abfd, ext->x_csect.x_smtyp);
|
|
in->x_csect.x_smclas = bfd_h_get_8 (abfd, ext->x_csect.x_smclas);
|
|
goto end;
|
|
}
|
|
break;
|
|
|
|
case C_STAT:
|
|
case C_LEAFSTAT:
|
|
case C_HIDDEN:
|
|
if (type == T_NULL) {
|
|
/* PE defines some extra fields; we zero them out for
|
|
safety. */
|
|
in->x_scn.x_checksum = 0;
|
|
in->x_scn.x_associated = 0;
|
|
in->x_scn.x_comdat = 0;
|
|
|
|
goto end;
|
|
}
|
|
break;
|
|
}
|
|
|
|
if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
|
|
{
|
|
in->x_sym.x_fcnary.x_fcn.x_lnnoptr = bfd_h_get_64(abfd, (bfd_byte *)
|
|
ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
|
|
in->x_sym.x_fcnary.x_fcn.x_endndx.l = bfd_h_get_32(abfd, (bfd_byte *)
|
|
ext->x_sym.x_fcnary.x_fcn.x_endndx);
|
|
}
|
|
if (ISFCN(type)) {
|
|
in->x_sym.x_misc.x_fsize = bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_fsize);
|
|
}
|
|
else {
|
|
in->x_sym.x_misc.x_lnsz.x_lnno = bfd_h_get_32(abfd, (bfd_byte *)
|
|
ext->x_sym.x_fcnary.x_lnsz.x_lnno);
|
|
in->x_sym.x_misc.x_lnsz.x_size = bfd_h_get_16(abfd, (bfd_byte *)
|
|
ext->x_sym.x_fcnary.x_lnsz.x_size);
|
|
}
|
|
|
|
end: ;
|
|
/* the semicolon is because MSVC doesn't like labels at
|
|
end of block. */
|
|
|
|
}
|
|
|
|
static unsigned int
|
|
xcoff64_swap_aux_out (abfd, inp, type, class, indx, numaux, extp)
|
|
bfd *abfd;
|
|
PTR inp;
|
|
int type;
|
|
int class;
|
|
int indx ATTRIBUTE_UNUSED;
|
|
int numaux ATTRIBUTE_UNUSED;
|
|
PTR extp;
|
|
{
|
|
union internal_auxent *in = (union internal_auxent *)inp;
|
|
AUXENT *ext = (AUXENT *)extp;
|
|
|
|
memset((PTR)ext, 0, bfd_coff_auxesz (abfd));
|
|
switch (class)
|
|
{
|
|
case C_FILE:
|
|
if (in->x_file.x_fname[0] == 0)
|
|
{
|
|
PUTWORD(abfd, 0, (bfd_byte *) ext->x_file.x_n.x_zeroes);
|
|
PUTWORD(abfd,
|
|
in->x_file.x_n.x_offset,
|
|
(bfd_byte *) ext->x_file.x_n.x_offset);
|
|
}
|
|
else
|
|
{
|
|
memcpy (ext->x_file.x_fname, in->x_file.x_fname, FILNMLEN);
|
|
}
|
|
PUTBYTE (abfd, _AUX_FILE, (bfd_byte *) ext->x_auxtype.x_auxtype);
|
|
goto end;
|
|
|
|
/* RS/6000 "csect" auxents */
|
|
case C_EXT:
|
|
case C_HIDEXT:
|
|
if (indx + 1 == numaux)
|
|
{
|
|
PUTWORD (abfd, in->x_csect.x_scnlen.l, ext->x_csect.x_scnlen_lo);
|
|
PUTWORD (abfd, in->x_csect.x_parmhash, ext->x_csect.x_parmhash);
|
|
PUTHALF (abfd, in->x_csect.x_snhash, ext->x_csect.x_snhash);
|
|
/* We don't have to hack bitfields in x_smtyp because it's
|
|
defined by shifts-and-ands, which are equivalent on all
|
|
byte orders. */
|
|
PUTBYTE (abfd, in->x_csect.x_smtyp, ext->x_csect.x_smtyp);
|
|
PUTBYTE (abfd, in->x_csect.x_smclas, ext->x_csect.x_smclas);
|
|
PUTBYTE (abfd, _AUX_CSECT, (bfd_byte *) ext->x_auxtype.x_auxtype);
|
|
goto end;
|
|
}
|
|
break;
|
|
|
|
case C_STAT:
|
|
case C_LEAFSTAT:
|
|
case C_HIDDEN:
|
|
if (type == T_NULL) {
|
|
goto end;
|
|
}
|
|
break;
|
|
}
|
|
|
|
if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
|
|
{
|
|
bfd_h_put_64(abfd, in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
|
|
(bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
|
|
PUTBYTE (abfd, _AUX_FCN, (bfd_byte *) ext->x_auxtype.x_auxtype);
|
|
PUTWORD(abfd, in->x_sym.x_fcnary.x_fcn.x_endndx.l,
|
|
(bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_endndx);
|
|
}
|
|
if (ISFCN (type))
|
|
PUTWORD (abfd, in->x_sym.x_misc.x_fsize,
|
|
(bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_fsize);
|
|
else
|
|
{
|
|
bfd_h_put_32(abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
|
|
(bfd_byte *)ext->x_sym.x_fcnary.x_lnsz.x_lnno);
|
|
bfd_h_put_16(abfd, in->x_sym.x_misc.x_lnsz.x_size,
|
|
(bfd_byte *)ext->x_sym.x_fcnary.x_lnsz.x_size);
|
|
}
|
|
|
|
end:
|
|
return bfd_coff_auxesz (abfd);
|
|
}
|
|
|
|
#define coff_SWAP_sym_in xcoff64_swap_sym_in
|
|
#define coff_SWAP_sym_out xcoff64_swap_sym_out
|
|
#define coff_SWAP_aux_in xcoff64_swap_aux_in
|
|
#define coff_SWAP_aux_out xcoff64_swap_aux_out
|
|
|
|
#define TARGET_NAME "aixcoff64-rs6000"
|
|
#define TARGET_SYM rs6000coff64_vec
|
|
|
|
#include "xcoff-target.h"
|