binutils-gdb/bfd/ecoffswap.h

772 lines
27 KiB
C
Raw Normal View History

1999-05-03 09:29:11 +02:00
/* Generic ECOFF swapping routines, for BFD.
2005-04-11 10:23:05 +02:00
Copyright 1992, 1993, 1994, 1995, 1996, 2000, 2001, 2002, 2004, 2005
2001-03-08 22:04:02 +01:00
Free Software Foundation, Inc.
1999-05-03 09:29:11 +02:00
Written by Cygnus Support.
This file is part of BFD, the Binary File Descriptor library.
1999-05-03 09:29:11 +02:00
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.
1999-05-03 09:29:11 +02:00
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.
1999-05-03 09:29:11 +02:00
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. */
1999-05-03 09:29:11 +02:00
/* NOTE: This is a header file, but it contains executable routines.
This is done this way because these routines are substantially
similar, but are not identical, for all ECOFF targets.
These are routines to swap the ECOFF symbolic information in and
out. The routines are defined statically. You can set breakpoints
on them in gdb by naming the including source file; e.g.,
'coff-mips.c':ecoff_swap_hdr_in.
Before including this header file, one of ECOFF_32, ECOFF_64,
ECOFF_SIGNED_32 or ECOFF_SIGNED_64 must be defined. These are
checked when swapping information that depends upon the target
size. This code works for 32 bit and 64 bit ECOFF, but may need to
be generalized in the future.
1999-05-03 09:29:11 +02:00
Some header file which defines the external forms of these
structures must also be included before including this header file.
Currently this is either coff/mips.h or coff/alpha.h.
If the symbol TEST is defined when this file is compiled, a
comparison is made to ensure that, in fact, the output is
bit-for-bit the same as the input. Of course, this symbol should
only be defined when deliberately testing the code on a machine
with the proper byte sex and such. */
#ifdef ECOFF_32
#define ECOFF_GET_OFF H_GET_32
#define ECOFF_PUT_OFF H_PUT_32
1999-05-03 09:29:11 +02:00
#endif
#ifdef ECOFF_64
#define ECOFF_GET_OFF H_GET_64
#define ECOFF_PUT_OFF H_PUT_64
1999-05-03 09:29:11 +02:00
#endif
#ifdef ECOFF_SIGNED_32
#define ECOFF_GET_OFF H_GET_S32
#define ECOFF_PUT_OFF H_PUT_S32
#endif
#ifdef ECOFF_SIGNED_64
#define ECOFF_GET_OFF H_GET_S64
#define ECOFF_PUT_OFF H_PUT_S64
#endif
1999-05-03 09:29:11 +02:00
/* ECOFF auxiliary information swapping routines. These are the same
for all ECOFF targets, so they are defined in ecofflink.c. */
extern void _bfd_ecoff_swap_tir_in
2005-04-11 10:23:05 +02:00
(int, const struct tir_ext *, TIR *);
1999-05-03 09:29:11 +02:00
extern void _bfd_ecoff_swap_tir_out
2005-04-11 10:23:05 +02:00
(int, const TIR *, struct tir_ext *);
1999-05-03 09:29:11 +02:00
extern void _bfd_ecoff_swap_rndx_in
2005-04-11 10:23:05 +02:00
(int, const struct rndx_ext *, RNDXR *);
1999-05-03 09:29:11 +02:00
extern void _bfd_ecoff_swap_rndx_out
2005-04-11 10:23:05 +02:00
(int, const RNDXR *, struct rndx_ext *);
1999-05-03 09:29:11 +02:00
/* Prototypes for functions defined in this file. */
2005-04-11 10:23:05 +02:00
static void ecoff_swap_hdr_in (bfd *, void *, HDRR *);
static void ecoff_swap_hdr_out (bfd *, const HDRR *, void *);
static void ecoff_swap_fdr_in (bfd *, void *, FDR *);
static void ecoff_swap_fdr_out (bfd *, const FDR *, void *);
static void ecoff_swap_pdr_in (bfd *, void *, PDR *);
static void ecoff_swap_pdr_out (bfd *, const PDR *, void *);
static void ecoff_swap_sym_in (bfd *, void *, SYMR *);
static void ecoff_swap_sym_out (bfd *, const SYMR *, void *);
static void ecoff_swap_ext_in (bfd *, void *, EXTR *);
static void ecoff_swap_ext_out (bfd *, const EXTR *, void *);
static void ecoff_swap_rfd_in (bfd *, void *, RFDT *);
static void ecoff_swap_rfd_out (bfd *, const RFDT *, void *);
static void ecoff_swap_opt_in (bfd *, void *, OPTR *);
static void ecoff_swap_opt_out (bfd *, const OPTR *, void *);
static void ecoff_swap_dnr_in (bfd *, void *, DNR *);
static void ecoff_swap_dnr_out (bfd *, const DNR *, void *);
1999-05-03 09:29:11 +02:00
/* Swap in the symbolic header. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_hdr_in (bfd *abfd, void * ext_copy, HDRR *intern)
1999-05-03 09:29:11 +02:00
{
struct hdr_ext ext[1];
*ext = *(struct hdr_ext *) ext_copy;
intern->magic = H_GET_S16 (abfd, ext->h_magic);
intern->vstamp = H_GET_S16 (abfd, ext->h_vstamp);
intern->ilineMax = H_GET_32 (abfd, ext->h_ilineMax);
intern->cbLine = ECOFF_GET_OFF (abfd, ext->h_cbLine);
intern->cbLineOffset = ECOFF_GET_OFF (abfd, ext->h_cbLineOffset);
intern->idnMax = H_GET_32 (abfd, ext->h_idnMax);
intern->cbDnOffset = ECOFF_GET_OFF (abfd, ext->h_cbDnOffset);
intern->ipdMax = H_GET_32 (abfd, ext->h_ipdMax);
intern->cbPdOffset = ECOFF_GET_OFF (abfd, ext->h_cbPdOffset);
intern->isymMax = H_GET_32 (abfd, ext->h_isymMax);
intern->cbSymOffset = ECOFF_GET_OFF (abfd, ext->h_cbSymOffset);
intern->ioptMax = H_GET_32 (abfd, ext->h_ioptMax);
intern->cbOptOffset = ECOFF_GET_OFF (abfd, ext->h_cbOptOffset);
intern->iauxMax = H_GET_32 (abfd, ext->h_iauxMax);
intern->cbAuxOffset = ECOFF_GET_OFF (abfd, ext->h_cbAuxOffset);
intern->issMax = H_GET_32 (abfd, ext->h_issMax);
intern->cbSsOffset = ECOFF_GET_OFF (abfd, ext->h_cbSsOffset);
intern->issExtMax = H_GET_32 (abfd, ext->h_issExtMax);
intern->cbSsExtOffset = ECOFF_GET_OFF (abfd, ext->h_cbSsExtOffset);
intern->ifdMax = H_GET_32 (abfd, ext->h_ifdMax);
intern->cbFdOffset = ECOFF_GET_OFF (abfd, ext->h_cbFdOffset);
intern->crfd = H_GET_32 (abfd, ext->h_crfd);
intern->cbRfdOffset = ECOFF_GET_OFF (abfd, ext->h_cbRfdOffset);
intern->iextMax = H_GET_32 (abfd, ext->h_iextMax);
intern->cbExtOffset = ECOFF_GET_OFF (abfd, ext->h_cbExtOffset);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out the symbolic header. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_hdr_out (bfd *abfd, const HDRR *intern_copy, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct hdr_ext *ext = (struct hdr_ext *) ext_ptr;
HDRR intern[1];
*intern = *intern_copy;
H_PUT_S16 (abfd, intern->magic, ext->h_magic);
H_PUT_S16 (abfd, intern->vstamp, ext->h_vstamp);
H_PUT_32 (abfd, intern->ilineMax, ext->h_ilineMax);
ECOFF_PUT_OFF (abfd, intern->cbLine, ext->h_cbLine);
ECOFF_PUT_OFF (abfd, intern->cbLineOffset, ext->h_cbLineOffset);
H_PUT_32 (abfd, intern->idnMax, ext->h_idnMax);
ECOFF_PUT_OFF (abfd, intern->cbDnOffset, ext->h_cbDnOffset);
H_PUT_32 (abfd, intern->ipdMax, ext->h_ipdMax);
ECOFF_PUT_OFF (abfd, intern->cbPdOffset, ext->h_cbPdOffset);
H_PUT_32 (abfd, intern->isymMax, ext->h_isymMax);
ECOFF_PUT_OFF (abfd, intern->cbSymOffset, ext->h_cbSymOffset);
H_PUT_32 (abfd, intern->ioptMax, ext->h_ioptMax);
ECOFF_PUT_OFF (abfd, intern->cbOptOffset, ext->h_cbOptOffset);
H_PUT_32 (abfd, intern->iauxMax, ext->h_iauxMax);
ECOFF_PUT_OFF (abfd, intern->cbAuxOffset, ext->h_cbAuxOffset);
H_PUT_32 (abfd, intern->issMax, ext->h_issMax);
ECOFF_PUT_OFF (abfd, intern->cbSsOffset, ext->h_cbSsOffset);
H_PUT_32 (abfd, intern->issExtMax, ext->h_issExtMax);
ECOFF_PUT_OFF (abfd, intern->cbSsExtOffset, ext->h_cbSsExtOffset);
H_PUT_32 (abfd, intern->ifdMax, ext->h_ifdMax);
ECOFF_PUT_OFF (abfd, intern->cbFdOffset, ext->h_cbFdOffset);
H_PUT_32 (abfd, intern->crfd, ext->h_crfd);
ECOFF_PUT_OFF (abfd, intern->cbRfdOffset, ext->h_cbRfdOffset);
H_PUT_32 (abfd, intern->iextMax, ext->h_iextMax);
ECOFF_PUT_OFF (abfd, intern->cbExtOffset, ext->h_cbExtOffset);
1999-05-03 09:29:11 +02:00
#ifdef TEST
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap in the file descriptor record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_fdr_in (bfd *abfd, void * ext_copy, FDR *intern)
1999-05-03 09:29:11 +02:00
{
struct fdr_ext ext[1];
*ext = *(struct fdr_ext *) ext_copy;
intern->adr = ECOFF_GET_OFF (abfd, ext->f_adr);
intern->rss = H_GET_32 (abfd, ext->f_rss);
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
if (intern->rss == (signed long) 0xffffffff)
1999-05-03 09:29:11 +02:00
intern->rss = -1;
#endif
intern->issBase = H_GET_32 (abfd, ext->f_issBase);
intern->cbSs = ECOFF_GET_OFF (abfd, ext->f_cbSs);
intern->isymBase = H_GET_32 (abfd, ext->f_isymBase);
intern->csym = H_GET_32 (abfd, ext->f_csym);
intern->ilineBase = H_GET_32 (abfd, ext->f_ilineBase);
intern->cline = H_GET_32 (abfd, ext->f_cline);
intern->ioptBase = H_GET_32 (abfd, ext->f_ioptBase);
intern->copt = H_GET_32 (abfd, ext->f_copt);
#if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
intern->ipdFirst = H_GET_16 (abfd, ext->f_ipdFirst);
intern->cpd = H_GET_16 (abfd, ext->f_cpd);
1999-05-03 09:29:11 +02:00
#endif
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
intern->ipdFirst = H_GET_32 (abfd, ext->f_ipdFirst);
intern->cpd = H_GET_32 (abfd, ext->f_cpd);
1999-05-03 09:29:11 +02:00
#endif
intern->iauxBase = H_GET_32 (abfd, ext->f_iauxBase);
intern->caux = H_GET_32 (abfd, ext->f_caux);
intern->rfdBase = H_GET_32 (abfd, ext->f_rfdBase);
intern->crfd = H_GET_32 (abfd, ext->f_crfd);
1999-05-03 09:29:11 +02:00
/* Now the fun stuff... */
if (bfd_header_big_endian (abfd))
{
intern->lang = ((ext->f_bits1[0] & FDR_BITS1_LANG_BIG)
>> FDR_BITS1_LANG_SH_BIG);
intern->fMerge = 0 != (ext->f_bits1[0] & FDR_BITS1_FMERGE_BIG);
intern->fReadin = 0 != (ext->f_bits1[0] & FDR_BITS1_FREADIN_BIG);
intern->fBigendian = 0 != (ext->f_bits1[0] & FDR_BITS1_FBIGENDIAN_BIG);
intern->glevel = ((ext->f_bits2[0] & FDR_BITS2_GLEVEL_BIG)
>> FDR_BITS2_GLEVEL_SH_BIG);
}
else
{
intern->lang = ((ext->f_bits1[0] & FDR_BITS1_LANG_LITTLE)
>> FDR_BITS1_LANG_SH_LITTLE);
intern->fMerge = 0 != (ext->f_bits1[0] & FDR_BITS1_FMERGE_LITTLE);
intern->fReadin = 0 != (ext->f_bits1[0] & FDR_BITS1_FREADIN_LITTLE);
intern->fBigendian = 0 != (ext->f_bits1[0] & FDR_BITS1_FBIGENDIAN_LITTLE);
intern->glevel = ((ext->f_bits2[0] & FDR_BITS2_GLEVEL_LITTLE)
>> FDR_BITS2_GLEVEL_SH_LITTLE);
}
1999-05-03 09:29:11 +02:00
intern->reserved = 0;
intern->cbLineOffset = ECOFF_GET_OFF (abfd, ext->f_cbLineOffset);
intern->cbLine = ECOFF_GET_OFF (abfd, ext->f_cbLine);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out the file descriptor record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_fdr_out (bfd *abfd, const FDR *intern_copy, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct fdr_ext *ext = (struct fdr_ext *) ext_ptr;
FDR intern[1];
/* Make it reasonable to do in-place. */
*intern = *intern_copy;
ECOFF_PUT_OFF (abfd, intern->adr, ext->f_adr);
H_PUT_32 (abfd, intern->rss, ext->f_rss);
H_PUT_32 (abfd, intern->issBase, ext->f_issBase);
ECOFF_PUT_OFF (abfd, intern->cbSs, ext->f_cbSs);
H_PUT_32 (abfd, intern->isymBase, ext->f_isymBase);
H_PUT_32 (abfd, intern->csym, ext->f_csym);
H_PUT_32 (abfd, intern->ilineBase, ext->f_ilineBase);
H_PUT_32 (abfd, intern->cline, ext->f_cline);
H_PUT_32 (abfd, intern->ioptBase, ext->f_ioptBase);
H_PUT_32 (abfd, intern->copt, ext->f_copt);
#if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
H_PUT_16 (abfd, intern->ipdFirst, ext->f_ipdFirst);
H_PUT_16 (abfd, intern->cpd, ext->f_cpd);
1999-05-03 09:29:11 +02:00
#endif
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
H_PUT_32 (abfd, intern->ipdFirst, ext->f_ipdFirst);
H_PUT_32 (abfd, intern->cpd, ext->f_cpd);
1999-05-03 09:29:11 +02:00
#endif
H_PUT_32 (abfd, intern->iauxBase, ext->f_iauxBase);
H_PUT_32 (abfd, intern->caux, ext->f_caux);
H_PUT_32 (abfd, intern->rfdBase, ext->f_rfdBase);
H_PUT_32 (abfd, intern->crfd, ext->f_crfd);
1999-05-03 09:29:11 +02:00
/* Now the fun stuff... */
if (bfd_header_big_endian (abfd))
{
ext->f_bits1[0] = (((intern->lang << FDR_BITS1_LANG_SH_BIG)
& FDR_BITS1_LANG_BIG)
| (intern->fMerge ? FDR_BITS1_FMERGE_BIG : 0)
| (intern->fReadin ? FDR_BITS1_FREADIN_BIG : 0)
| (intern->fBigendian ? FDR_BITS1_FBIGENDIAN_BIG : 0));
ext->f_bits2[0] = ((intern->glevel << FDR_BITS2_GLEVEL_SH_BIG)
& FDR_BITS2_GLEVEL_BIG);
ext->f_bits2[1] = 0;
ext->f_bits2[2] = 0;
}
else
{
ext->f_bits1[0] = (((intern->lang << FDR_BITS1_LANG_SH_LITTLE)
& FDR_BITS1_LANG_LITTLE)
| (intern->fMerge ? FDR_BITS1_FMERGE_LITTLE : 0)
| (intern->fReadin ? FDR_BITS1_FREADIN_LITTLE : 0)
| (intern->fBigendian ? FDR_BITS1_FBIGENDIAN_LITTLE : 0));
ext->f_bits2[0] = ((intern->glevel << FDR_BITS2_GLEVEL_SH_LITTLE)
& FDR_BITS2_GLEVEL_LITTLE);
ext->f_bits2[1] = 0;
ext->f_bits2[2] = 0;
}
1999-05-03 09:29:11 +02:00
ECOFF_PUT_OFF (abfd, intern->cbLineOffset, ext->f_cbLineOffset);
ECOFF_PUT_OFF (abfd, intern->cbLine, ext->f_cbLine);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap in the procedure descriptor record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_pdr_in (bfd *abfd, void * ext_copy, PDR *intern)
1999-05-03 09:29:11 +02:00
{
struct pdr_ext ext[1];
*ext = *(struct pdr_ext *) ext_copy;
2005-04-11 10:23:05 +02:00
memset ((void *) intern, 0, sizeof (*intern));
1999-05-03 09:29:11 +02:00
intern->adr = ECOFF_GET_OFF (abfd, ext->p_adr);
intern->isym = H_GET_32 (abfd, ext->p_isym);
intern->iline = H_GET_32 (abfd, ext->p_iline);
intern->regmask = H_GET_32 (abfd, ext->p_regmask);
intern->regoffset = H_GET_S32 (abfd, ext->p_regoffset);
intern->iopt = H_GET_S32 (abfd, ext->p_iopt);
intern->fregmask = H_GET_32 (abfd, ext->p_fregmask);
intern->fregoffset = H_GET_S32 (abfd, ext->p_fregoffset);
intern->frameoffset = H_GET_S32 (abfd, ext->p_frameoffset);
intern->framereg = H_GET_16 (abfd, ext->p_framereg);
intern->pcreg = H_GET_16 (abfd, ext->p_pcreg);
intern->lnLow = H_GET_32 (abfd, ext->p_lnLow);
intern->lnHigh = H_GET_32 (abfd, ext->p_lnHigh);
intern->cbLineOffset = ECOFF_GET_OFF (abfd, ext->p_cbLineOffset);
1999-05-03 09:29:11 +02:00
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
if (intern->isym == (signed long) 0xffffffff)
intern->isym = -1;
if (intern->iline == (signed long) 0xffffffff)
intern->iline = -1;
intern->gp_prologue = H_GET_8 (abfd, ext->p_gp_prologue);
1999-05-03 09:29:11 +02:00
if (bfd_header_big_endian (abfd))
{
intern->gp_used = 0 != (ext->p_bits1[0] & PDR_BITS1_GP_USED_BIG);
intern->reg_frame = 0 != (ext->p_bits1[0] & PDR_BITS1_REG_FRAME_BIG);
intern->prof = 0 != (ext->p_bits1[0] & PDR_BITS1_PROF_BIG);
intern->reserved = (((ext->p_bits1[0] & PDR_BITS1_RESERVED_BIG)
<< PDR_BITS1_RESERVED_SH_LEFT_BIG)
| ((ext->p_bits2[0] & PDR_BITS2_RESERVED_BIG)
>> PDR_BITS2_RESERVED_SH_BIG));
}
else
{
intern->gp_used = 0 != (ext->p_bits1[0] & PDR_BITS1_GP_USED_LITTLE);
intern->reg_frame = 0 != (ext->p_bits1[0] & PDR_BITS1_REG_FRAME_LITTLE);
intern->prof = 0 != (ext->p_bits1[0] & PDR_BITS1_PROF_LITTLE);
intern->reserved = (((ext->p_bits1[0] & PDR_BITS1_RESERVED_LITTLE)
>> PDR_BITS1_RESERVED_SH_LITTLE)
| ((ext->p_bits2[0] & PDR_BITS2_RESERVED_LITTLE)
<< PDR_BITS2_RESERVED_SH_LEFT_LITTLE));
}
intern->localoff = H_GET_8 (abfd, ext->p_localoff);
#endif
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out the procedure descriptor record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_pdr_out (bfd *abfd, const PDR *intern_copy, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct pdr_ext *ext = (struct pdr_ext *) ext_ptr;
PDR intern[1];
/* Make it reasonable to do in-place. */
*intern = *intern_copy;
ECOFF_PUT_OFF (abfd, intern->adr, ext->p_adr);
H_PUT_32 (abfd, intern->isym, ext->p_isym);
H_PUT_32 (abfd, intern->iline, ext->p_iline);
H_PUT_32 (abfd, intern->regmask, ext->p_regmask);
H_PUT_32 (abfd, intern->regoffset, ext->p_regoffset);
H_PUT_32 (abfd, intern->iopt, ext->p_iopt);
H_PUT_32 (abfd, intern->fregmask, ext->p_fregmask);
H_PUT_32 (abfd, intern->fregoffset, ext->p_fregoffset);
H_PUT_32 (abfd, intern->frameoffset, ext->p_frameoffset);
H_PUT_16 (abfd, intern->framereg, ext->p_framereg);
H_PUT_16 (abfd, intern->pcreg, ext->p_pcreg);
H_PUT_32 (abfd, intern->lnLow, ext->p_lnLow);
H_PUT_32 (abfd, intern->lnHigh, ext->p_lnHigh);
ECOFF_PUT_OFF (abfd, intern->cbLineOffset, ext->p_cbLineOffset);
1999-05-03 09:29:11 +02:00
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
H_PUT_8 (abfd, intern->gp_prologue, ext->p_gp_prologue);
1999-05-03 09:29:11 +02:00
if (bfd_header_big_endian (abfd))
{
ext->p_bits1[0] = ((intern->gp_used ? PDR_BITS1_GP_USED_BIG : 0)
| (intern->reg_frame ? PDR_BITS1_REG_FRAME_BIG : 0)
| (intern->prof ? PDR_BITS1_PROF_BIG : 0)
| ((intern->reserved
>> PDR_BITS1_RESERVED_SH_LEFT_BIG)
& PDR_BITS1_RESERVED_BIG));
ext->p_bits2[0] = ((intern->reserved << PDR_BITS2_RESERVED_SH_BIG)
& PDR_BITS2_RESERVED_BIG);
}
else
{
ext->p_bits1[0] = ((intern->gp_used ? PDR_BITS1_GP_USED_LITTLE : 0)
| (intern->reg_frame ? PDR_BITS1_REG_FRAME_LITTLE : 0)
| (intern->prof ? PDR_BITS1_PROF_LITTLE : 0)
| ((intern->reserved << PDR_BITS1_RESERVED_SH_LITTLE)
& PDR_BITS1_RESERVED_LITTLE));
ext->p_bits2[0] = ((intern->reserved >>
PDR_BITS2_RESERVED_SH_LEFT_LITTLE)
& PDR_BITS2_RESERVED_LITTLE);
}
H_PUT_8 (abfd, intern->localoff, ext->p_localoff);
#endif
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap in a symbol record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_sym_in (bfd *abfd, void * ext_copy, SYMR *intern)
1999-05-03 09:29:11 +02:00
{
struct sym_ext ext[1];
*ext = *(struct sym_ext *) ext_copy;
intern->iss = H_GET_32 (abfd, ext->s_iss);
intern->value = ECOFF_GET_OFF (abfd, ext->s_value);
1999-05-03 09:29:11 +02:00
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
if (intern->iss == (signed long) 0xffffffff)
intern->iss = -1;
#endif
/* Now the fun stuff... */
if (bfd_header_big_endian (abfd))
{
intern->st = (ext->s_bits1[0] & SYM_BITS1_ST_BIG)
>> SYM_BITS1_ST_SH_BIG;
intern->sc = ((ext->s_bits1[0] & SYM_BITS1_SC_BIG)
<< SYM_BITS1_SC_SH_LEFT_BIG)
| ((ext->s_bits2[0] & SYM_BITS2_SC_BIG)
>> SYM_BITS2_SC_SH_BIG);
intern->reserved = 0 != (ext->s_bits2[0] & SYM_BITS2_RESERVED_BIG);
intern->index = ((ext->s_bits2[0] & SYM_BITS2_INDEX_BIG)
<< SYM_BITS2_INDEX_SH_LEFT_BIG)
| (ext->s_bits3[0] << SYM_BITS3_INDEX_SH_LEFT_BIG)
| (ext->s_bits4[0] << SYM_BITS4_INDEX_SH_LEFT_BIG);
}
else
{
intern->st = (ext->s_bits1[0] & SYM_BITS1_ST_LITTLE)
>> SYM_BITS1_ST_SH_LITTLE;
intern->sc = ((ext->s_bits1[0] & SYM_BITS1_SC_LITTLE)
>> SYM_BITS1_SC_SH_LITTLE)
| ((ext->s_bits2[0] & SYM_BITS2_SC_LITTLE)
<< SYM_BITS2_SC_SH_LEFT_LITTLE);
intern->reserved = 0 != (ext->s_bits2[0] & SYM_BITS2_RESERVED_LITTLE);
intern->index = ((ext->s_bits2[0] & SYM_BITS2_INDEX_LITTLE)
>> SYM_BITS2_INDEX_SH_LITTLE)
| (ext->s_bits3[0] << SYM_BITS3_INDEX_SH_LEFT_LITTLE)
| ((unsigned int) ext->s_bits4[0]
<< SYM_BITS4_INDEX_SH_LEFT_LITTLE);
}
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out a symbol record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_sym_out (bfd *abfd, const SYMR *intern_copy, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct sym_ext *ext = (struct sym_ext *) ext_ptr;
SYMR intern[1];
/* Make it reasonable to do in-place. */
*intern = *intern_copy;
H_PUT_32 (abfd, intern->iss, ext->s_iss);
ECOFF_PUT_OFF (abfd, intern->value, ext->s_value);
1999-05-03 09:29:11 +02:00
/* Now the fun stuff... */
if (bfd_header_big_endian (abfd))
{
ext->s_bits1[0] = (((intern->st << SYM_BITS1_ST_SH_BIG)
& SYM_BITS1_ST_BIG)
| ((intern->sc >> SYM_BITS1_SC_SH_LEFT_BIG)
& SYM_BITS1_SC_BIG));
ext->s_bits2[0] = (((intern->sc << SYM_BITS2_SC_SH_BIG)
& SYM_BITS2_SC_BIG)
| (intern->reserved ? SYM_BITS2_RESERVED_BIG : 0)
| ((intern->index >> SYM_BITS2_INDEX_SH_LEFT_BIG)
& SYM_BITS2_INDEX_BIG));
ext->s_bits3[0] = (intern->index >> SYM_BITS3_INDEX_SH_LEFT_BIG) & 0xff;
ext->s_bits4[0] = (intern->index >> SYM_BITS4_INDEX_SH_LEFT_BIG) & 0xff;
}
else
{
ext->s_bits1[0] = (((intern->st << SYM_BITS1_ST_SH_LITTLE)
& SYM_BITS1_ST_LITTLE)
| ((intern->sc << SYM_BITS1_SC_SH_LITTLE)
& SYM_BITS1_SC_LITTLE));
ext->s_bits2[0] = (((intern->sc >> SYM_BITS2_SC_SH_LEFT_LITTLE)
& SYM_BITS2_SC_LITTLE)
| (intern->reserved ? SYM_BITS2_RESERVED_LITTLE : 0)
| ((intern->index << SYM_BITS2_INDEX_SH_LITTLE)
& SYM_BITS2_INDEX_LITTLE));
ext->s_bits3[0] = (intern->index >> SYM_BITS3_INDEX_SH_LEFT_LITTLE) & 0xff;
ext->s_bits4[0] = (intern->index >> SYM_BITS4_INDEX_SH_LEFT_LITTLE) & 0xff;
}
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap in an external symbol record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_ext_in (bfd *abfd, void * ext_copy, EXTR *intern)
1999-05-03 09:29:11 +02:00
{
struct ext_ext ext[1];
*ext = *(struct ext_ext *) ext_copy;
/* Now the fun stuff... */
if (bfd_header_big_endian (abfd))
{
intern->jmptbl = 0 != (ext->es_bits1[0] & EXT_BITS1_JMPTBL_BIG);
intern->cobol_main = 0 != (ext->es_bits1[0] & EXT_BITS1_COBOL_MAIN_BIG);
intern->weakext = 0 != (ext->es_bits1[0] & EXT_BITS1_WEAKEXT_BIG);
}
else
{
intern->jmptbl = 0 != (ext->es_bits1[0] & EXT_BITS1_JMPTBL_LITTLE);
intern->cobol_main = 0 != (ext->es_bits1[0] & EXT_BITS1_COBOL_MAIN_LITTLE);
intern->weakext = 0 != (ext->es_bits1[0] & EXT_BITS1_WEAKEXT_LITTLE);
}
1999-05-03 09:29:11 +02:00
intern->reserved = 0;
#if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
intern->ifd = H_GET_S16 (abfd, ext->es_ifd);
1999-05-03 09:29:11 +02:00
#endif
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
intern->ifd = H_GET_S32 (abfd, ext->es_ifd);
1999-05-03 09:29:11 +02:00
#endif
ecoff_swap_sym_in (abfd, &ext->es_asym, &intern->asym);
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out an external symbol record. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_ext_out (bfd *abfd, const EXTR *intern_copy, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct ext_ext *ext = (struct ext_ext *) ext_ptr;
EXTR intern[1];
/* Make it reasonable to do in-place. */
*intern = *intern_copy;
/* Now the fun stuff... */
if (bfd_header_big_endian (abfd))
{
ext->es_bits1[0] = ((intern->jmptbl ? EXT_BITS1_JMPTBL_BIG : 0)
| (intern->cobol_main ? EXT_BITS1_COBOL_MAIN_BIG : 0)
| (intern->weakext ? EXT_BITS1_WEAKEXT_BIG : 0));
ext->es_bits2[0] = 0;
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
ext->es_bits2[1] = 0;
ext->es_bits2[2] = 0;
#endif
}
else
{
ext->es_bits1[0] = ((intern->jmptbl ? EXT_BITS1_JMPTBL_LITTLE : 0)
| (intern->cobol_main ? EXT_BITS1_COBOL_MAIN_LITTLE : 0)
| (intern->weakext ? EXT_BITS1_WEAKEXT_LITTLE : 0));
ext->es_bits2[0] = 0;
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
ext->es_bits2[1] = 0;
ext->es_bits2[2] = 0;
1999-05-03 09:29:11 +02:00
#endif
}
1999-05-03 09:29:11 +02:00
#if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
H_PUT_S16 (abfd, intern->ifd, ext->es_ifd);
1999-05-03 09:29:11 +02:00
#endif
#if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
H_PUT_S32 (abfd, intern->ifd, ext->es_ifd);
1999-05-03 09:29:11 +02:00
#endif
ecoff_swap_sym_out (abfd, &intern->asym, &ext->es_asym);
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap in a relative file descriptor. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_rfd_in (bfd *abfd, void * ext_ptr, RFDT *intern)
1999-05-03 09:29:11 +02:00
{
struct rfd_ext *ext = (struct rfd_ext *) ext_ptr;
*intern = H_GET_32 (abfd, ext->rfd);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out a relative file descriptor. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_rfd_out (bfd *abfd, const RFDT *intern, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct rfd_ext *ext = (struct rfd_ext *) ext_ptr;
H_PUT_32 (abfd, *intern, ext->rfd);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap in an optimization symbol. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_opt_in (bfd *abfd, void * ext_copy, OPTR * intern)
1999-05-03 09:29:11 +02:00
{
struct opt_ext ext[1];
*ext = *(struct opt_ext *) ext_copy;
if (bfd_header_big_endian (abfd))
{
intern->ot = ext->o_bits1[0];
intern->value = (((unsigned int) ext->o_bits2[0]
<< OPT_BITS2_VALUE_SH_LEFT_BIG)
| ((unsigned int) ext->o_bits3[0]
<< OPT_BITS2_VALUE_SH_LEFT_BIG)
| ((unsigned int) ext->o_bits4[0]
<< OPT_BITS2_VALUE_SH_LEFT_BIG));
}
else
{
intern->ot = ext->o_bits1[0];
intern->value = ((ext->o_bits2[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE)
| (ext->o_bits3[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE)
| (ext->o_bits4[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE));
}
_bfd_ecoff_swap_rndx_in (bfd_header_big_endian (abfd),
&ext->o_rndx, &intern->rndx);
intern->offset = H_GET_32 (abfd, ext->o_offset);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out an optimization symbol. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_opt_out (bfd *abfd, const OPTR *intern_copy, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct opt_ext *ext = (struct opt_ext *) ext_ptr;
OPTR intern[1];
/* Make it reasonable to do in-place. */
*intern = *intern_copy;
1999-05-03 09:29:11 +02:00
if (bfd_header_big_endian (abfd))
{
ext->o_bits1[0] = intern->ot;
ext->o_bits2[0] = intern->value >> OPT_BITS2_VALUE_SH_LEFT_BIG;
ext->o_bits3[0] = intern->value >> OPT_BITS3_VALUE_SH_LEFT_BIG;
ext->o_bits4[0] = intern->value >> OPT_BITS4_VALUE_SH_LEFT_BIG;
}
else
{
ext->o_bits1[0] = intern->ot;
ext->o_bits2[0] = intern->value >> OPT_BITS2_VALUE_SH_LEFT_LITTLE;
ext->o_bits3[0] = intern->value >> OPT_BITS3_VALUE_SH_LEFT_LITTLE;
ext->o_bits4[0] = intern->value >> OPT_BITS4_VALUE_SH_LEFT_LITTLE;
}
_bfd_ecoff_swap_rndx_out (bfd_header_big_endian (abfd),
&intern->rndx, &ext->o_rndx);
H_PUT_32 (abfd, intern->value, ext->o_offset);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap in a dense number. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_dnr_in (bfd *abfd, void * ext_copy, DNR *intern)
1999-05-03 09:29:11 +02:00
{
struct dnr_ext ext[1];
*ext = *(struct dnr_ext *) ext_copy;
intern->rfd = H_GET_32 (abfd, ext->d_rfd);
intern->index = H_GET_32 (abfd, ext->d_index);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}
/* Swap out a dense number. */
static void
2005-04-11 10:23:05 +02:00
ecoff_swap_dnr_out (bfd *abfd, const DNR *intern_copy, void * ext_ptr)
1999-05-03 09:29:11 +02:00
{
struct dnr_ext *ext = (struct dnr_ext *) ext_ptr;
DNR intern[1];
/* Make it reasonable to do in-place. */
*intern = *intern_copy;
1999-05-03 09:29:11 +02:00
H_PUT_32 (abfd, intern->rfd, ext->d_rfd);
H_PUT_32 (abfd, intern->index, ext->d_index);
1999-05-03 09:29:11 +02:00
#ifdef TEST
2005-04-11 10:23:05 +02:00
if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
abort ();
1999-05-03 09:29:11 +02:00
#endif
}