contrib/binutils/bfd/ecoffswap.h

   1 /* Generic ECOFF swapping routines, for BFD.
   2    Copyright 1992, 1993, 1994, 1995, 1996, 2000, 2001, 2002, 2004, 2005
   3    Free Software Foundation, Inc.
   4    Written by Cygnus Support.
   5
   6    This file is part of BFD, the Binary File Descriptor library.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
  21
  22 /* NOTE: This is a header file, but it contains executable routines.
  23    This is done this way because these routines are substantially
  24    similar, but are not identical, for all ECOFF targets.
  25
  26    These are routines to swap the ECOFF symbolic information in and
  27    out.  The routines are defined statically.  You can set breakpoints
  28    on them in gdb by naming the including source file; e.g.,
  29    'coff-mips.c':ecoff_swap_hdr_in.
  30
  31    Before including this header file, one of ECOFF_32, ECOFF_64,
  32    ECOFF_SIGNED_32 or ECOFF_SIGNED_64 must be defined.  These are
  33    checked when swapping information that depends upon the target
  34    size.  This code works for 32 bit and 64 bit ECOFF, but may need to
  35    be generalized in the future.
  36
  37    Some header file which defines the external forms of these
  38    structures must also be included before including this header file.
  39    Currently this is either coff/mips.h or coff/alpha.h.
  40
  41    If the symbol TEST is defined when this file is compiled, a
  42    comparison is made to ensure that, in fact, the output is
  43    bit-for-bit the same as the input.  Of course, this symbol should
  44    only be defined when deliberately testing the code on a machine
  45    with the proper byte sex and such.  */
  46
  47 #ifdef ECOFF_32
  48 #define ECOFF_GET_OFF H_GET_32
  49 #define ECOFF_PUT_OFF H_PUT_32
  50 #endif
  51 #ifdef ECOFF_64
  52 #define ECOFF_GET_OFF H_GET_64
  53 #define ECOFF_PUT_OFF H_PUT_64
  54 #endif
  55 #ifdef ECOFF_SIGNED_32
  56 #define ECOFF_GET_OFF H_GET_S32
  57 #define ECOFF_PUT_OFF H_PUT_S32
  58 #endif
  59 #ifdef ECOFF_SIGNED_64
  60 #define ECOFF_GET_OFF H_GET_S64
  61 #define ECOFF_PUT_OFF H_PUT_S64
  62 #endif
  63
  64 /* ECOFF auxiliary information swapping routines.  These are the same
  65    for all ECOFF targets, so they are defined in ecofflink.c.  */
  66
  67 extern void _bfd_ecoff_swap_tir_in
  68   (int, const struct tir_ext *, TIR *);
  69 extern void _bfd_ecoff_swap_tir_out
  70   (int, const TIR *, struct tir_ext *);
  71 extern void _bfd_ecoff_swap_rndx_in
  72   (int, const struct rndx_ext *, RNDXR *);
  73 extern void _bfd_ecoff_swap_rndx_out
  74   (int, const RNDXR *, struct rndx_ext *);
  75
  76 /* Prototypes for functions defined in this file.  */
  77
  78 static void ecoff_swap_hdr_in (bfd *, void *, HDRR *);
  79 static void ecoff_swap_hdr_out (bfd *, const HDRR *, void *);
  80 static void ecoff_swap_fdr_in (bfd *, void *, FDR *);
  81 static void ecoff_swap_fdr_out (bfd *, const FDR *, void *);
  82 static void ecoff_swap_pdr_in (bfd *, void *, PDR *);
  83 static void ecoff_swap_pdr_out (bfd *, const PDR *, void *);
  84 static void ecoff_swap_sym_in (bfd *, void *, SYMR *);
  85 static void ecoff_swap_sym_out (bfd *, const SYMR *, void *);
  86 static void ecoff_swap_ext_in (bfd *, void *, EXTR *);
  87 static void ecoff_swap_ext_out (bfd *, const EXTR *, void *);
  88 static void ecoff_swap_rfd_in (bfd *, void *, RFDT *);
  89 static void ecoff_swap_rfd_out (bfd *, const RFDT *, void *);
  90 static void ecoff_swap_opt_in (bfd *, void *, OPTR *);
  91 static void ecoff_swap_opt_out (bfd *, const OPTR *, void *);
  92 static void ecoff_swap_dnr_in (bfd *, void *, DNR *);
  93 static void ecoff_swap_dnr_out (bfd *, const DNR *, void *);
  94
  95 /* Swap in the symbolic header.  */
  96
  97 static void
  98 ecoff_swap_hdr_in (bfd *abfd, void * ext_copy, HDRR *intern)
  99 {
 100   struct hdr_ext ext[1];
 101
 102   *ext = *(struct hdr_ext *) ext_copy;
 103
 104   intern->magic         = H_GET_S16     (abfd, ext->h_magic);
 105   intern->vstamp        = H_GET_S16     (abfd, ext->h_vstamp);
 106   intern->ilineMax      = H_GET_32      (abfd, ext->h_ilineMax);
 107   intern->cbLine        = ECOFF_GET_OFF (abfd, ext->h_cbLine);
 108   intern->cbLineOffset  = ECOFF_GET_OFF (abfd, ext->h_cbLineOffset);
 109   intern->idnMax        = H_GET_32      (abfd, ext->h_idnMax);
 110   intern->cbDnOffset    = ECOFF_GET_OFF (abfd, ext->h_cbDnOffset);
 111   intern->ipdMax        = H_GET_32      (abfd, ext->h_ipdMax);
 112   intern->cbPdOffset    = ECOFF_GET_OFF (abfd, ext->h_cbPdOffset);
 113   intern->isymMax       = H_GET_32      (abfd, ext->h_isymMax);
 114   intern->cbSymOffset   = ECOFF_GET_OFF (abfd, ext->h_cbSymOffset);
 115   intern->ioptMax       = H_GET_32      (abfd, ext->h_ioptMax);
 116   intern->cbOptOffset   = ECOFF_GET_OFF (abfd, ext->h_cbOptOffset);
 117   intern->iauxMax       = H_GET_32      (abfd, ext->h_iauxMax);
 118   intern->cbAuxOffset   = ECOFF_GET_OFF (abfd, ext->h_cbAuxOffset);
 119   intern->issMax        = H_GET_32      (abfd, ext->h_issMax);
 120   intern->cbSsOffset    = ECOFF_GET_OFF (abfd, ext->h_cbSsOffset);
 121   intern->issExtMax     = H_GET_32      (abfd, ext->h_issExtMax);
 122   intern->cbSsExtOffset = ECOFF_GET_OFF (abfd, ext->h_cbSsExtOffset);
 123   intern->ifdMax        = H_GET_32      (abfd, ext->h_ifdMax);
 124   intern->cbFdOffset    = ECOFF_GET_OFF (abfd, ext->h_cbFdOffset);
 125   intern->crfd          = H_GET_32      (abfd, ext->h_crfd);
 126   intern->cbRfdOffset   = ECOFF_GET_OFF (abfd, ext->h_cbRfdOffset);
 127   intern->iextMax       = H_GET_32      (abfd, ext->h_iextMax);
 128   intern->cbExtOffset   = ECOFF_GET_OFF (abfd, ext->h_cbExtOffset);
 129
 130 #ifdef TEST
 131   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 132     abort ();
 133 #endif
 134 }
 135
 136 /* Swap out the symbolic header.  */
 137
 138 static void
 139 ecoff_swap_hdr_out (bfd *abfd, const HDRR *intern_copy, void * ext_ptr)
 140 {
 141   struct hdr_ext *ext = (struct hdr_ext *) ext_ptr;
 142   HDRR intern[1];
 143
 144   *intern = *intern_copy;
 145
 146   H_PUT_S16     (abfd, intern->magic,         ext->h_magic);
 147   H_PUT_S16     (abfd, intern->vstamp,        ext->h_vstamp);
 148   H_PUT_32      (abfd, intern->ilineMax,      ext->h_ilineMax);
 149   ECOFF_PUT_OFF (abfd, intern->cbLine,        ext->h_cbLine);
 150   ECOFF_PUT_OFF (abfd, intern->cbLineOffset,  ext->h_cbLineOffset);
 151   H_PUT_32      (abfd, intern->idnMax,        ext->h_idnMax);
 152   ECOFF_PUT_OFF (abfd, intern->cbDnOffset,    ext->h_cbDnOffset);
 153   H_PUT_32      (abfd, intern->ipdMax,        ext->h_ipdMax);
 154   ECOFF_PUT_OFF (abfd, intern->cbPdOffset,    ext->h_cbPdOffset);
 155   H_PUT_32      (abfd, intern->isymMax,       ext->h_isymMax);
 156   ECOFF_PUT_OFF (abfd, intern->cbSymOffset,   ext->h_cbSymOffset);
 157   H_PUT_32      (abfd, intern->ioptMax,       ext->h_ioptMax);
 158   ECOFF_PUT_OFF (abfd, intern->cbOptOffset,   ext->h_cbOptOffset);
 159   H_PUT_32      (abfd, intern->iauxMax,       ext->h_iauxMax);
 160   ECOFF_PUT_OFF (abfd, intern->cbAuxOffset,   ext->h_cbAuxOffset);
 161   H_PUT_32      (abfd, intern->issMax,        ext->h_issMax);
 162   ECOFF_PUT_OFF (abfd, intern->cbSsOffset,    ext->h_cbSsOffset);
 163   H_PUT_32      (abfd, intern->issExtMax,     ext->h_issExtMax);
 164   ECOFF_PUT_OFF (abfd, intern->cbSsExtOffset, ext->h_cbSsExtOffset);
 165   H_PUT_32      (abfd, intern->ifdMax,        ext->h_ifdMax);
 166   ECOFF_PUT_OFF (abfd, intern->cbFdOffset,    ext->h_cbFdOffset);
 167   H_PUT_32      (abfd, intern->crfd,          ext->h_crfd);
 168   ECOFF_PUT_OFF (abfd, intern->cbRfdOffset,   ext->h_cbRfdOffset);
 169   H_PUT_32      (abfd, intern->iextMax,       ext->h_iextMax);
 170   ECOFF_PUT_OFF (abfd, intern->cbExtOffset,   ext->h_cbExtOffset);
 171
 172 #ifdef TEST
 173   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 174     abort ();
 175 #endif
 176 }
 177
 178 /* Swap in the file descriptor record.  */
 179
 180 static void
 181 ecoff_swap_fdr_in (bfd *abfd, void * ext_copy, FDR *intern)
 182 {
 183   struct fdr_ext ext[1];
 184
 185   *ext = *(struct fdr_ext *) ext_copy;
 186
 187   intern->adr           = ECOFF_GET_OFF (abfd, ext->f_adr);
 188   intern->rss           = H_GET_32 (abfd, ext->f_rss);
 189 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 190   if (intern->rss == (signed long) 0xffffffff)
 191     intern->rss = -1;
 192 #endif
 193   intern->issBase       = H_GET_32 (abfd, ext->f_issBase);
 194   intern->cbSs          = ECOFF_GET_OFF (abfd, ext->f_cbSs);
 195   intern->isymBase      = H_GET_32 (abfd, ext->f_isymBase);
 196   intern->csym          = H_GET_32 (abfd, ext->f_csym);
 197   intern->ilineBase     = H_GET_32 (abfd, ext->f_ilineBase);
 198   intern->cline         = H_GET_32 (abfd, ext->f_cline);
 199   intern->ioptBase      = H_GET_32 (abfd, ext->f_ioptBase);
 200   intern->copt          = H_GET_32 (abfd, ext->f_copt);
 201 #if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
 202   intern->ipdFirst      = H_GET_16 (abfd, ext->f_ipdFirst);
 203   intern->cpd           = H_GET_16 (abfd, ext->f_cpd);
 204 #endif
 205 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 206   intern->ipdFirst      = H_GET_32 (abfd, ext->f_ipdFirst);
 207   intern->cpd           = H_GET_32 (abfd, ext->f_cpd);
 208 #endif
 209   intern->iauxBase      = H_GET_32 (abfd, ext->f_iauxBase);
 210   intern->caux          = H_GET_32 (abfd, ext->f_caux);
 211   intern->rfdBase       = H_GET_32 (abfd, ext->f_rfdBase);
 212   intern->crfd          = H_GET_32 (abfd, ext->f_crfd);
 213
 214   /* Now the fun stuff...  */
 215   if (bfd_header_big_endian (abfd))
 216     {
 217       intern->lang       = ((ext->f_bits1[0] & FDR_BITS1_LANG_BIG)
 218                             >> FDR_BITS1_LANG_SH_BIG);
 219       intern->fMerge     = 0 != (ext->f_bits1[0] & FDR_BITS1_FMERGE_BIG);
 220       intern->fReadin    = 0 != (ext->f_bits1[0] & FDR_BITS1_FREADIN_BIG);
 221       intern->fBigendian = 0 != (ext->f_bits1[0] & FDR_BITS1_FBIGENDIAN_BIG);
 222       intern->glevel     = ((ext->f_bits2[0] & FDR_BITS2_GLEVEL_BIG)
 223                             >> FDR_BITS2_GLEVEL_SH_BIG);
 224     }
 225   else
 226     {
 227       intern->lang       = ((ext->f_bits1[0] & FDR_BITS1_LANG_LITTLE)
 228                             >> FDR_BITS1_LANG_SH_LITTLE);
 229       intern->fMerge     = 0 != (ext->f_bits1[0] & FDR_BITS1_FMERGE_LITTLE);
 230       intern->fReadin    = 0 != (ext->f_bits1[0] & FDR_BITS1_FREADIN_LITTLE);
 231       intern->fBigendian = 0 != (ext->f_bits1[0] & FDR_BITS1_FBIGENDIAN_LITTLE);
 232       intern->glevel     = ((ext->f_bits2[0] & FDR_BITS2_GLEVEL_LITTLE)
 233                             >> FDR_BITS2_GLEVEL_SH_LITTLE);
 234     }
 235   intern->reserved = 0;
 236
 237   intern->cbLineOffset  = ECOFF_GET_OFF (abfd, ext->f_cbLineOffset);
 238   intern->cbLine        = ECOFF_GET_OFF (abfd, ext->f_cbLine);
 239
 240 #ifdef TEST
 241   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 242     abort ();
 243 #endif
 244 }
 245
 246 /* Swap out the file descriptor record.  */
 247
 248 static void
 249 ecoff_swap_fdr_out (bfd *abfd, const FDR *intern_copy, void * ext_ptr)
 250 {
 251   struct fdr_ext *ext = (struct fdr_ext *) ext_ptr;
 252   FDR intern[1];
 253
 254   /* Make it reasonable to do in-place.  */
 255   *intern = *intern_copy;
 256
 257   ECOFF_PUT_OFF (abfd, intern->adr,       ext->f_adr);
 258   H_PUT_32      (abfd, intern->rss,       ext->f_rss);
 259   H_PUT_32      (abfd, intern->issBase,   ext->f_issBase);
 260   ECOFF_PUT_OFF (abfd, intern->cbSs,      ext->f_cbSs);
 261   H_PUT_32      (abfd, intern->isymBase,  ext->f_isymBase);
 262   H_PUT_32      (abfd, intern->csym,      ext->f_csym);
 263   H_PUT_32      (abfd, intern->ilineBase, ext->f_ilineBase);
 264   H_PUT_32      (abfd, intern->cline,     ext->f_cline);
 265   H_PUT_32      (abfd, intern->ioptBase,  ext->f_ioptBase);
 266   H_PUT_32      (abfd, intern->copt,      ext->f_copt);
 267 #if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
 268   H_PUT_16      (abfd, intern->ipdFirst,  ext->f_ipdFirst);
 269   H_PUT_16      (abfd, intern->cpd,       ext->f_cpd);
 270 #endif
 271 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 272   H_PUT_32      (abfd, intern->ipdFirst,  ext->f_ipdFirst);
 273   H_PUT_32      (abfd, intern->cpd,       ext->f_cpd);
 274 #endif
 275   H_PUT_32      (abfd, intern->iauxBase,  ext->f_iauxBase);
 276   H_PUT_32      (abfd, intern->caux,      ext->f_caux);
 277   H_PUT_32      (abfd, intern->rfdBase,   ext->f_rfdBase);
 278   H_PUT_32      (abfd, intern->crfd,      ext->f_crfd);
 279
 280   /* Now the fun stuff...  */
 281   if (bfd_header_big_endian (abfd))
 282     {
 283       ext->f_bits1[0] = (((intern->lang << FDR_BITS1_LANG_SH_BIG)
 284                           & FDR_BITS1_LANG_BIG)
 285                          | (intern->fMerge ? FDR_BITS1_FMERGE_BIG : 0)
 286                          | (intern->fReadin ? FDR_BITS1_FREADIN_BIG : 0)
 287                          | (intern->fBigendian ? FDR_BITS1_FBIGENDIAN_BIG : 0));
 288       ext->f_bits2[0] = ((intern->glevel << FDR_BITS2_GLEVEL_SH_BIG)
 289                          & FDR_BITS2_GLEVEL_BIG);
 290       ext->f_bits2[1] = 0;
 291       ext->f_bits2[2] = 0;
 292     }
 293   else
 294     {
 295       ext->f_bits1[0] = (((intern->lang << FDR_BITS1_LANG_SH_LITTLE)
 296                           & FDR_BITS1_LANG_LITTLE)
 297                          | (intern->fMerge ? FDR_BITS1_FMERGE_LITTLE : 0)
 298                          | (intern->fReadin ? FDR_BITS1_FREADIN_LITTLE : 0)
 299                          | (intern->fBigendian ? FDR_BITS1_FBIGENDIAN_LITTLE : 0));
 300       ext->f_bits2[0] = ((intern->glevel << FDR_BITS2_GLEVEL_SH_LITTLE)
 301                          & FDR_BITS2_GLEVEL_LITTLE);
 302       ext->f_bits2[1] = 0;
 303       ext->f_bits2[2] = 0;
 304     }
 305
 306   ECOFF_PUT_OFF (abfd, intern->cbLineOffset, ext->f_cbLineOffset);
 307   ECOFF_PUT_OFF (abfd, intern->cbLine, ext->f_cbLine);
 308
 309 #ifdef TEST
 310   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 311     abort ();
 312 #endif
 313 }
 314
 315 /* Swap in the procedure descriptor record.  */
 316
 317 static void
 318 ecoff_swap_pdr_in (bfd *abfd, void * ext_copy, PDR *intern)
 319 {
 320   struct pdr_ext ext[1];
 321
 322   *ext = *(struct pdr_ext *) ext_copy;
 323
 324   memset ((void *) intern, 0, sizeof (*intern));
 325
 326   intern->adr           = ECOFF_GET_OFF (abfd, ext->p_adr);
 327   intern->isym          = H_GET_32 (abfd, ext->p_isym);
 328   intern->iline         = H_GET_32 (abfd, ext->p_iline);
 329   intern->regmask       = H_GET_32 (abfd, ext->p_regmask);
 330   intern->regoffset     = H_GET_S32 (abfd, ext->p_regoffset);
 331   intern->iopt          = H_GET_S32 (abfd, ext->p_iopt);
 332   intern->fregmask      = H_GET_32 (abfd, ext->p_fregmask);
 333   intern->fregoffset    = H_GET_S32 (abfd, ext->p_fregoffset);
 334   intern->frameoffset   = H_GET_S32 (abfd, ext->p_frameoffset);
 335   intern->framereg      = H_GET_16 (abfd, ext->p_framereg);
 336   intern->pcreg         = H_GET_16 (abfd, ext->p_pcreg);
 337   intern->lnLow         = H_GET_32 (abfd, ext->p_lnLow);
 338   intern->lnHigh        = H_GET_32 (abfd, ext->p_lnHigh);
 339   intern->cbLineOffset  = ECOFF_GET_OFF (abfd, ext->p_cbLineOffset);
 340
 341 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 342   if (intern->isym == (signed long) 0xffffffff)
 343     intern->isym = -1;
 344   if (intern->iline == (signed long) 0xffffffff)
 345     intern->iline = -1;
 346
 347   intern->gp_prologue = H_GET_8 (abfd, ext->p_gp_prologue);
 348   if (bfd_header_big_endian (abfd))
 349     {
 350       intern->gp_used = 0 != (ext->p_bits1[0] & PDR_BITS1_GP_USED_BIG);
 351       intern->reg_frame = 0 != (ext->p_bits1[0] & PDR_BITS1_REG_FRAME_BIG);
 352       intern->prof = 0 != (ext->p_bits1[0] & PDR_BITS1_PROF_BIG);
 353       intern->reserved = (((ext->p_bits1[0] & PDR_BITS1_RESERVED_BIG)
 354                            << PDR_BITS1_RESERVED_SH_LEFT_BIG)
 355                           | ((ext->p_bits2[0] & PDR_BITS2_RESERVED_BIG)
 356                              >> PDR_BITS2_RESERVED_SH_BIG));
 357     }
 358   else
 359     {
 360       intern->gp_used = 0 != (ext->p_bits1[0] & PDR_BITS1_GP_USED_LITTLE);
 361       intern->reg_frame = 0 != (ext->p_bits1[0] & PDR_BITS1_REG_FRAME_LITTLE);
 362       intern->prof = 0 != (ext->p_bits1[0] & PDR_BITS1_PROF_LITTLE);
 363       intern->reserved = (((ext->p_bits1[0] & PDR_BITS1_RESERVED_LITTLE)
 364                            >> PDR_BITS1_RESERVED_SH_LITTLE)
 365                           | ((ext->p_bits2[0] & PDR_BITS2_RESERVED_LITTLE)
 366                              << PDR_BITS2_RESERVED_SH_LEFT_LITTLE));
 367     }
 368   intern->localoff = H_GET_8 (abfd, ext->p_localoff);
 369 #endif
 370
 371 #ifdef TEST
 372   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 373     abort ();
 374 #endif
 375 }
 376
 377 /* Swap out the procedure descriptor record.  */
 378
 379 static void
 380 ecoff_swap_pdr_out (bfd *abfd, const PDR *intern_copy, void * ext_ptr)
 381 {
 382   struct pdr_ext *ext = (struct pdr_ext *) ext_ptr;
 383   PDR intern[1];
 384
 385   /* Make it reasonable to do in-place.  */
 386   *intern = *intern_copy;
 387
 388   ECOFF_PUT_OFF (abfd, intern->adr,          ext->p_adr);
 389   H_PUT_32      (abfd, intern->isym,         ext->p_isym);
 390   H_PUT_32      (abfd, intern->iline,        ext->p_iline);
 391   H_PUT_32      (abfd, intern->regmask,      ext->p_regmask);
 392   H_PUT_32      (abfd, intern->regoffset,    ext->p_regoffset);
 393   H_PUT_32      (abfd, intern->iopt,         ext->p_iopt);
 394   H_PUT_32      (abfd, intern->fregmask,     ext->p_fregmask);
 395   H_PUT_32      (abfd, intern->fregoffset,   ext->p_fregoffset);
 396   H_PUT_32      (abfd, intern->frameoffset,  ext->p_frameoffset);
 397   H_PUT_16      (abfd, intern->framereg,     ext->p_framereg);
 398   H_PUT_16      (abfd, intern->pcreg,        ext->p_pcreg);
 399   H_PUT_32      (abfd, intern->lnLow,        ext->p_lnLow);
 400   H_PUT_32      (abfd, intern->lnHigh,       ext->p_lnHigh);
 401   ECOFF_PUT_OFF (abfd, intern->cbLineOffset, ext->p_cbLineOffset);
 402
 403 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 404   H_PUT_8       (abfd, intern->gp_prologue,  ext->p_gp_prologue);
 405
 406   if (bfd_header_big_endian (abfd))
 407     {
 408       ext->p_bits1[0] = ((intern->gp_used ? PDR_BITS1_GP_USED_BIG : 0)
 409                          | (intern->reg_frame ? PDR_BITS1_REG_FRAME_BIG : 0)
 410                          | (intern->prof ? PDR_BITS1_PROF_BIG : 0)
 411                          | ((intern->reserved
 412                              >> PDR_BITS1_RESERVED_SH_LEFT_BIG)
 413                             & PDR_BITS1_RESERVED_BIG));
 414       ext->p_bits2[0] = ((intern->reserved << PDR_BITS2_RESERVED_SH_BIG)
 415                          & PDR_BITS2_RESERVED_BIG);
 416     }
 417   else
 418     {
 419       ext->p_bits1[0] = ((intern->gp_used ? PDR_BITS1_GP_USED_LITTLE : 0)
 420                          | (intern->reg_frame ? PDR_BITS1_REG_FRAME_LITTLE : 0)
 421                          | (intern->prof ? PDR_BITS1_PROF_LITTLE : 0)
 422                          | ((intern->reserved << PDR_BITS1_RESERVED_SH_LITTLE)
 423                             & PDR_BITS1_RESERVED_LITTLE));
 424       ext->p_bits2[0] = ((intern->reserved >>
 425                           PDR_BITS2_RESERVED_SH_LEFT_LITTLE)
 426                          & PDR_BITS2_RESERVED_LITTLE);
 427     }
 428   H_PUT_8 (abfd, intern->localoff, ext->p_localoff);
 429 #endif
 430
 431 #ifdef TEST
 432   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 433     abort ();
 434 #endif
 435 }
 436
 437 /* Swap in a symbol record.  */
 438
 439 static void
 440 ecoff_swap_sym_in (bfd *abfd, void * ext_copy, SYMR *intern)
 441 {
 442   struct sym_ext ext[1];
 443
 444   *ext = *(struct sym_ext *) ext_copy;
 445
 446   intern->iss           = H_GET_32 (abfd, ext->s_iss);
 447   intern->value         = ECOFF_GET_OFF (abfd, ext->s_value);
 448
 449 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 450   if (intern->iss == (signed long) 0xffffffff)
 451     intern->iss = -1;
 452 #endif
 453
 454   /* Now the fun stuff...  */
 455   if (bfd_header_big_endian (abfd))
 456     {
 457       intern->st          =  (ext->s_bits1[0] & SYM_BITS1_ST_BIG)
 458                                              >> SYM_BITS1_ST_SH_BIG;
 459       intern->sc          = ((ext->s_bits1[0] & SYM_BITS1_SC_BIG)
 460                                              << SYM_BITS1_SC_SH_LEFT_BIG)
 461                           | ((ext->s_bits2[0] & SYM_BITS2_SC_BIG)
 462                                              >> SYM_BITS2_SC_SH_BIG);
 463       intern->reserved    = 0 != (ext->s_bits2[0] & SYM_BITS2_RESERVED_BIG);
 464       intern->index       = ((ext->s_bits2[0] & SYM_BITS2_INDEX_BIG)
 465                                              << SYM_BITS2_INDEX_SH_LEFT_BIG)
 466                           | (ext->s_bits3[0] << SYM_BITS3_INDEX_SH_LEFT_BIG)
 467                           | (ext->s_bits4[0] << SYM_BITS4_INDEX_SH_LEFT_BIG);
 468     }
 469   else
 470     {
 471       intern->st          =  (ext->s_bits1[0] & SYM_BITS1_ST_LITTLE)
 472                                              >> SYM_BITS1_ST_SH_LITTLE;
 473       intern->sc          = ((ext->s_bits1[0] & SYM_BITS1_SC_LITTLE)
 474                                              >> SYM_BITS1_SC_SH_LITTLE)
 475                           | ((ext->s_bits2[0] & SYM_BITS2_SC_LITTLE)
 476                                              << SYM_BITS2_SC_SH_LEFT_LITTLE);
 477       intern->reserved    = 0 != (ext->s_bits2[0] & SYM_BITS2_RESERVED_LITTLE);
 478       intern->index       = ((ext->s_bits2[0] & SYM_BITS2_INDEX_LITTLE)
 479                                              >> SYM_BITS2_INDEX_SH_LITTLE)
 480                           | (ext->s_bits3[0] << SYM_BITS3_INDEX_SH_LEFT_LITTLE)
 481                           | ((unsigned int) ext->s_bits4[0]
 482                              << SYM_BITS4_INDEX_SH_LEFT_LITTLE);
 483     }
 484
 485 #ifdef TEST
 486   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 487     abort ();
 488 #endif
 489 }
 490
 491 /* Swap out a symbol record.  */
 492
 493 static void
 494 ecoff_swap_sym_out (bfd *abfd, const SYMR *intern_copy, void * ext_ptr)
 495 {
 496   struct sym_ext *ext = (struct sym_ext *) ext_ptr;
 497   SYMR intern[1];
 498
 499   /* Make it reasonable to do in-place.  */
 500   *intern = *intern_copy;
 501
 502   H_PUT_32 (abfd, intern->iss, ext->s_iss);
 503   ECOFF_PUT_OFF (abfd, intern->value, ext->s_value);
 504
 505   /* Now the fun stuff...  */
 506   if (bfd_header_big_endian (abfd))
 507     {
 508       ext->s_bits1[0] = (((intern->st << SYM_BITS1_ST_SH_BIG)
 509                           & SYM_BITS1_ST_BIG)
 510                          | ((intern->sc >> SYM_BITS1_SC_SH_LEFT_BIG)
 511                             & SYM_BITS1_SC_BIG));
 512       ext->s_bits2[0] = (((intern->sc << SYM_BITS2_SC_SH_BIG)
 513                           & SYM_BITS2_SC_BIG)
 514                          | (intern->reserved ? SYM_BITS2_RESERVED_BIG : 0)
 515                          | ((intern->index >> SYM_BITS2_INDEX_SH_LEFT_BIG)
 516                             & SYM_BITS2_INDEX_BIG));
 517       ext->s_bits3[0] = (intern->index >> SYM_BITS3_INDEX_SH_LEFT_BIG) & 0xff;
 518       ext->s_bits4[0] = (intern->index >> SYM_BITS4_INDEX_SH_LEFT_BIG) & 0xff;
 519     }
 520   else
 521     {
 522       ext->s_bits1[0] = (((intern->st << SYM_BITS1_ST_SH_LITTLE)
 523                           & SYM_BITS1_ST_LITTLE)
 524                          | ((intern->sc << SYM_BITS1_SC_SH_LITTLE)
 525                             & SYM_BITS1_SC_LITTLE));
 526       ext->s_bits2[0] = (((intern->sc >> SYM_BITS2_SC_SH_LEFT_LITTLE)
 527                           & SYM_BITS2_SC_LITTLE)
 528                          | (intern->reserved ? SYM_BITS2_RESERVED_LITTLE : 0)
 529                          | ((intern->index << SYM_BITS2_INDEX_SH_LITTLE)
 530                             & SYM_BITS2_INDEX_LITTLE));
 531       ext->s_bits3[0] = (intern->index >> SYM_BITS3_INDEX_SH_LEFT_LITTLE) & 0xff;
 532       ext->s_bits4[0] = (intern->index >> SYM_BITS4_INDEX_SH_LEFT_LITTLE) & 0xff;
 533     }
 534
 535 #ifdef TEST
 536   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 537     abort ();
 538 #endif
 539 }
 540
 541 /* Swap in an external symbol record.  */
 542
 543 static void
 544 ecoff_swap_ext_in (bfd *abfd, void * ext_copy, EXTR *intern)
 545 {
 546   struct ext_ext ext[1];
 547
 548   *ext = *(struct ext_ext *) ext_copy;
 549
 550   /* Now the fun stuff...  */
 551   if (bfd_header_big_endian (abfd))
 552     {
 553       intern->jmptbl      = 0 != (ext->es_bits1[0] & EXT_BITS1_JMPTBL_BIG);
 554       intern->cobol_main  = 0 != (ext->es_bits1[0] & EXT_BITS1_COBOL_MAIN_BIG);
 555       intern->weakext     = 0 != (ext->es_bits1[0] & EXT_BITS1_WEAKEXT_BIG);
 556     }
 557   else
 558     {
 559       intern->jmptbl      = 0 != (ext->es_bits1[0] & EXT_BITS1_JMPTBL_LITTLE);
 560       intern->cobol_main  = 0 != (ext->es_bits1[0] & EXT_BITS1_COBOL_MAIN_LITTLE);
 561       intern->weakext     = 0 != (ext->es_bits1[0] & EXT_BITS1_WEAKEXT_LITTLE);
 562     }
 563   intern->reserved = 0;
 564
 565 #if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
 566   intern->ifd = H_GET_S16 (abfd, ext->es_ifd);
 567 #endif
 568 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 569   intern->ifd = H_GET_S32 (abfd, ext->es_ifd);
 570 #endif
 571
 572   ecoff_swap_sym_in (abfd, &ext->es_asym, &intern->asym);
 573
 574 #ifdef TEST
 575   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 576     abort ();
 577 #endif
 578 }
 579
 580 /* Swap out an external symbol record.  */
 581
 582 static void
 583 ecoff_swap_ext_out (bfd *abfd, const EXTR *intern_copy, void * ext_ptr)
 584 {
 585   struct ext_ext *ext = (struct ext_ext *) ext_ptr;
 586   EXTR intern[1];
 587
 588   /* Make it reasonable to do in-place.  */
 589   *intern = *intern_copy;
 590
 591   /* Now the fun stuff...  */
 592   if (bfd_header_big_endian (abfd))
 593     {
 594       ext->es_bits1[0] = ((intern->jmptbl ? EXT_BITS1_JMPTBL_BIG : 0)
 595                           | (intern->cobol_main ? EXT_BITS1_COBOL_MAIN_BIG : 0)
 596                           | (intern->weakext ? EXT_BITS1_WEAKEXT_BIG : 0));
 597       ext->es_bits2[0] = 0;
 598 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 599       ext->es_bits2[1] = 0;
 600       ext->es_bits2[2] = 0;
 601 #endif
 602     }
 603   else
 604     {
 605       ext->es_bits1[0] = ((intern->jmptbl ? EXT_BITS1_JMPTBL_LITTLE : 0)
 606                           | (intern->cobol_main ? EXT_BITS1_COBOL_MAIN_LITTLE : 0)
 607                           | (intern->weakext ? EXT_BITS1_WEAKEXT_LITTLE : 0));
 608       ext->es_bits2[0] = 0;
 609 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 610       ext->es_bits2[1] = 0;
 611       ext->es_bits2[2] = 0;
 612 #endif
 613     }
 614
 615 #if defined (ECOFF_32) || defined (ECOFF_SIGNED_32)
 616   H_PUT_S16 (abfd, intern->ifd, ext->es_ifd);
 617 #endif
 618 #if defined (ECOFF_64) || defined (ECOFF_SIGNED_64)
 619   H_PUT_S32 (abfd, intern->ifd, ext->es_ifd);
 620 #endif
 621
 622   ecoff_swap_sym_out (abfd, &intern->asym, &ext->es_asym);
 623
 624 #ifdef TEST
 625   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 626     abort ();
 627 #endif
 628 }
 629
 630 /* Swap in a relative file descriptor.  */
 631
 632 static void
 633 ecoff_swap_rfd_in (bfd *abfd, void * ext_ptr, RFDT *intern)
 634 {
 635   struct rfd_ext *ext = (struct rfd_ext *) ext_ptr;
 636
 637   *intern = H_GET_32 (abfd, ext->rfd);
 638
 639 #ifdef TEST
 640   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 641     abort ();
 642 #endif
 643 }
 644
 645 /* Swap out a relative file descriptor.  */
 646
 647 static void
 648 ecoff_swap_rfd_out (bfd *abfd, const RFDT *intern, void * ext_ptr)
 649 {
 650   struct rfd_ext *ext = (struct rfd_ext *) ext_ptr;
 651
 652   H_PUT_32 (abfd, *intern, ext->rfd);
 653
 654 #ifdef TEST
 655   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 656     abort ();
 657 #endif
 658 }
 659
 660 /* Swap in an optimization symbol.  */
 661
 662 static void
 663 ecoff_swap_opt_in (bfd *abfd, void * ext_copy, OPTR * intern)
 664 {
 665   struct opt_ext ext[1];
 666
 667   *ext = *(struct opt_ext *) ext_copy;
 668
 669   if (bfd_header_big_endian (abfd))
 670     {
 671       intern->ot = ext->o_bits1[0];
 672       intern->value = (((unsigned int) ext->o_bits2[0]
 673                         << OPT_BITS2_VALUE_SH_LEFT_BIG)
 674                        | ((unsigned int) ext->o_bits3[0]
 675                           << OPT_BITS2_VALUE_SH_LEFT_BIG)
 676                        | ((unsigned int) ext->o_bits4[0]
 677                           << OPT_BITS2_VALUE_SH_LEFT_BIG));
 678     }
 679   else
 680     {
 681       intern->ot = ext->o_bits1[0];
 682       intern->value = ((ext->o_bits2[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE)
 683                        | (ext->o_bits3[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE)
 684                        | (ext->o_bits4[0] << OPT_BITS2_VALUE_SH_LEFT_LITTLE));
 685     }
 686
 687   _bfd_ecoff_swap_rndx_in (bfd_header_big_endian (abfd),
 688                            &ext->o_rndx, &intern->rndx);
 689
 690   intern->offset = H_GET_32 (abfd, ext->o_offset);
 691
 692 #ifdef TEST
 693   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 694     abort ();
 695 #endif
 696 }
 697
 698 /* Swap out an optimization symbol.  */
 699
 700 static void
 701 ecoff_swap_opt_out (bfd *abfd, const OPTR *intern_copy, void * ext_ptr)
 702 {
 703   struct opt_ext *ext = (struct opt_ext *) ext_ptr;
 704   OPTR intern[1];
 705
 706   /* Make it reasonable to do in-place.  */
 707   *intern = *intern_copy;
 708
 709   if (bfd_header_big_endian (abfd))
 710     {
 711       ext->o_bits1[0] = intern->ot;
 712       ext->o_bits2[0] = intern->value >> OPT_BITS2_VALUE_SH_LEFT_BIG;
 713       ext->o_bits3[0] = intern->value >> OPT_BITS3_VALUE_SH_LEFT_BIG;
 714       ext->o_bits4[0] = intern->value >> OPT_BITS4_VALUE_SH_LEFT_BIG;
 715     }
 716   else
 717     {
 718       ext->o_bits1[0] = intern->ot;
 719       ext->o_bits2[0] = intern->value >> OPT_BITS2_VALUE_SH_LEFT_LITTLE;
 720       ext->o_bits3[0] = intern->value >> OPT_BITS3_VALUE_SH_LEFT_LITTLE;
 721       ext->o_bits4[0] = intern->value >> OPT_BITS4_VALUE_SH_LEFT_LITTLE;
 722     }
 723
 724   _bfd_ecoff_swap_rndx_out (bfd_header_big_endian (abfd),
 725                             &intern->rndx, &ext->o_rndx);
 726
 727   H_PUT_32 (abfd, intern->value, ext->o_offset);
 728
 729 #ifdef TEST
 730   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 731     abort ();
 732 #endif
 733 }
 734
 735 /* Swap in a dense number.  */
 736
 737 static void
 738 ecoff_swap_dnr_in (bfd *abfd, void * ext_copy, DNR *intern)
 739 {
 740   struct dnr_ext ext[1];
 741
 742   *ext = *(struct dnr_ext *) ext_copy;
 743
 744   intern->rfd = H_GET_32 (abfd, ext->d_rfd);
 745   intern->index = H_GET_32 (abfd, ext->d_index);
 746
 747 #ifdef TEST
 748   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 749     abort ();
 750 #endif
 751 }
 752
 753 /* Swap out a dense number.  */
 754
 755 static void
 756 ecoff_swap_dnr_out (bfd *abfd, const DNR *intern_copy, void * ext_ptr)
 757 {
 758   struct dnr_ext *ext = (struct dnr_ext *) ext_ptr;
 759   DNR intern[1];
 760
 761   /* Make it reasonable to do in-place.  */
 762   *intern = *intern_copy;
 763
 764   H_PUT_32 (abfd, intern->rfd, ext->d_rfd);
 765   H_PUT_32 (abfd, intern->index, ext->d_index);
 766
 767 #ifdef TEST
 768   if (memcmp ((char *) ext, (char *) intern, sizeof (*intern)) != 0)
 769     abort ();
 770 #endif
 771 }