bfd/coff64-rs6000.c

   1 /* BFD back-end for IBM RS/6000 "XCOFF64" files.
   2    Copyright 2000
   3    Free Software Foundation, Inc.
   4    Written Clinton Popetz.
   5    Contributed by Cygnus Support.
   6
   7 This file is part of BFD, the Binary File Descriptor library.
   8
   9 This program is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 2 of the License, or
  12 (at your option) any later version.
  13
  14 This program is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 GNU General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with this program; if not, write to the Free Software
  21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  22
  23 /* Internalcoff.h and coffcode.h modify themselves based on these flags.  */
  24 #define XCOFF64
  25 #define RS6000COFF_C 1
  26
  27 #include "bfd.h"
  28 #include "sysdep.h"
  29 #include "libbfd.h"
  30 #include "coff/internal.h"
  31 #include "coff/rs6k64.h"
  32 #include "libcoff.h"
  33
  34 #define GET_FILEHDR_SYMPTR bfd_h_get_64
  35 #define PUT_FILEHDR_SYMPTR bfd_h_put_64
  36 #define GET_AOUTHDR_DATA_START bfd_h_get_64
  37 #define PUT_AOUTHDR_DATA_START bfd_h_put_64
  38 #define GET_AOUTHDR_TEXT_START bfd_h_get_64
  39 #define PUT_AOUTHDR_TEXT_START bfd_h_put_64
  40 #define GET_AOUTHDR_TSIZE bfd_h_get_64
  41 #define PUT_AOUTHDR_TSIZE bfd_h_put_64
  42 #define GET_AOUTHDR_DSIZE bfd_h_get_64
  43 #define PUT_AOUTHDR_DSIZE bfd_h_put_64
  44 #define GET_AOUTHDR_BSIZE bfd_h_get_64
  45 #define PUT_AOUTHDR_BSIZE bfd_h_put_64
  46 #define GET_AOUTHDR_ENTRY bfd_h_get_64
  47 #define PUT_AOUTHDR_ENTRY bfd_h_put_64
  48 #define GET_SCNHDR_PADDR bfd_h_get_64
  49 #define PUT_SCNHDR_PADDR bfd_h_put_64
  50 #define GET_SCNHDR_VADDR bfd_h_get_64
  51 #define PUT_SCNHDR_VADDR bfd_h_put_64
  52 #define GET_SCNHDR_SIZE bfd_h_get_64
  53 #define PUT_SCNHDR_SIZE bfd_h_put_64
  54 #define GET_SCNHDR_SCNPTR bfd_h_get_64
  55 #define PUT_SCNHDR_SCNPTR bfd_h_put_64
  56 #define GET_SCNHDR_RELPTR bfd_h_get_64
  57 #define PUT_SCNHDR_RELPTR bfd_h_put_64
  58 #define GET_SCNHDR_LNNOPTR bfd_h_get_64
  59 #define PUT_SCNHDR_LNNOPTR bfd_h_put_64
  60 #define GET_SCNHDR_NRELOC bfd_h_get_32
  61 #define MAX_SCNHDR_NRELOC 0xffffffff
  62 #define PUT_SCNHDR_NRELOC bfd_h_put_32
  63 #define GET_SCNHDR_NLNNO bfd_h_get_32
  64 #define MAX_SCNHDR_NLNNO 0xffffffff
  65 #define PUT_SCNHDR_NLNNO bfd_h_put_32
  66 #define GET_RELOC_VADDR bfd_h_get_64
  67 #define PUT_RELOC_VADDR bfd_h_put_64
  68
  69 #define COFF_FORCE_SYMBOLS_IN_STRINGS
  70 #define COFF_DEBUG_STRING_WIDE_PREFIX
  71
  72 #define COFF_ADJUST_SCNHDR_OUT_POST(ABFD,INT,EXT) \
  73 do { \
  74   memset (((SCNHDR *)EXT)->s_pad, 0, sizeof (((SCNHDR *)EXT)->s_pad));\
  75 } while (0)
  76
  77 #define NO_COFF_LINENOS
  78
  79 #define coff_SWAP_lineno_in xcoff64_swap_lineno_in
  80 #define coff_SWAP_lineno_out xcoff64_swap_lineno_out
  81
  82 #define PUTWORD bfd_h_put_32
  83 #define PUTHALF bfd_h_put_16
  84 #define PUTBYTE bfd_h_put_8
  85 #define GETWORD bfd_h_get_32
  86 #define GETHALF bfd_h_get_16
  87 #define GETBYTE bfd_h_get_8
  88
  89 /* For XCOFF64, the effective width of symndx changes depending on
  90    whether we are the first entry.  Sigh.  */
  91 static void
  92 xcoff64_swap_lineno_in (abfd, ext1, in1)
  93      bfd            *abfd;
  94      PTR ext1;
  95      PTR in1;
  96 {
  97   LINENO *ext = (LINENO *)ext1;
  98   struct internal_lineno      *in = (struct internal_lineno *)in1;
  99
 100   in->l_lnno = bfd_h_get_32(abfd, (bfd_byte *) (ext->l_lnno));
 101   if (in->l_lnno == 0)
 102     in->l_addr.l_symndx =
 103             bfd_h_get_32(abfd, (bfd_byte *) ext->l_addr.l_symndx);
 104   else
 105     in->l_addr.l_symndx =
 106             bfd_h_get_64(abfd, (bfd_byte *) ext->l_addr.l_symndx);
 107 }
 108
 109 static unsigned int
 110 xcoff64_swap_lineno_out (abfd, inp, outp)
 111      bfd       *abfd;
 112      PTR        inp;
 113      PTR        outp;
 114 {
 115   struct internal_lineno *in = (struct internal_lineno *)inp;
 116   struct external_lineno *ext = (struct external_lineno *)outp;
 117   PUTWORD(abfd, in->l_addr.l_symndx, (bfd_byte *)
 118           ext->l_addr.l_symndx);
 119
 120   bfd_h_put_32 (abfd, in->l_lnno,  (bfd_byte *) (ext->l_lnno));
 121   if (in->l_lnno == 0)
 122     bfd_h_put_32 (abfd, in->l_addr.l_symndx, (bfd_byte *)ext->l_addr.l_symndx);
 123   else
 124     bfd_h_put_64 (abfd, in->l_addr.l_symndx, (bfd_byte *)ext->l_addr.l_symndx);
 125
 126   return bfd_coff_linesz (abfd);
 127 }
 128
 129 static void xcoff64_swap_sym_in PARAMS ((bfd *, PTR, PTR));
 130 static unsigned int xcoff64_swap_sym_out PARAMS ((bfd *, PTR, PTR));
 131 static void xcoff64_swap_aux_in PARAMS ((bfd *, PTR, int, int, int, int, PTR));
 132 static unsigned int xcoff64_swap_aux_out PARAMS ((bfd *, PTR, int, int, int, int, PTR));
 133
 134 static void
 135 xcoff64_swap_sym_in (abfd, ext1, in1)
 136      bfd            *abfd;
 137      PTR ext1;
 138      PTR in1;
 139 {
 140   SYMENT *ext = (SYMENT *)ext1;
 141   struct internal_syment      *in = (struct internal_syment *)in1;
 142
 143   in->_n._n_n._n_zeroes = 0;
 144   in->_n._n_n._n_offset = bfd_h_get_32(abfd, (bfd_byte *) ext->e_offset);
 145   in->n_value = bfd_h_get_64(abfd, (bfd_byte *) ext->e.e_value);
 146   in->n_scnum = bfd_h_get_16(abfd, (bfd_byte *) ext->e_scnum);
 147   in->n_type = bfd_h_get_16(abfd, (bfd_byte *) ext->e_type);
 148   in->n_sclass = bfd_h_get_8(abfd, ext->e_sclass);
 149   in->n_numaux = bfd_h_get_8(abfd, ext->e_numaux);
 150 }
 151
 152 static unsigned int
 153 xcoff64_swap_sym_out (abfd, inp, extp)
 154      bfd       *abfd;
 155      PTR        inp;
 156      PTR        extp;
 157 {
 158   struct internal_syment *in = (struct internal_syment *)inp;
 159   SYMENT *ext =(SYMENT *)extp;
 160
 161   bfd_h_put_32(abfd, in->_n._n_n._n_offset, (bfd_byte *)  ext->e_offset);
 162   bfd_h_put_64(abfd,  in->n_value , (bfd_byte *) ext->e.e_value);
 163   bfd_h_put_16(abfd,  in->n_scnum , (bfd_byte *) ext->e_scnum);
 164   bfd_h_put_16(abfd,  in->n_type , (bfd_byte *) ext->e_type);
 165   bfd_h_put_8(abfd,  in->n_sclass , ext->e_sclass);
 166   bfd_h_put_8(abfd,  in->n_numaux , ext->e_numaux);
 167   return bfd_coff_symesz (abfd);
 168 }
 169
 170 static void
 171 xcoff64_swap_aux_in (abfd, ext1, type, class, indx, numaux, in1)
 172      bfd            *abfd;
 173      PTR              ext1;
 174      int             type;
 175      int             class;
 176      int              indx;
 177      int              numaux;
 178      PTR              in1;
 179 {
 180   AUXENT    *ext = (AUXENT *)ext1;
 181   union internal_auxent *in = (union internal_auxent *)in1;
 182
 183   switch (class) {
 184     case C_FILE:
 185       if (ext->x_file.x_fname[0] == 0) {
 186           in->x_file.x_n.x_zeroes = 0;
 187           in->x_file.x_n.x_offset =
 188            bfd_h_get_32(abfd, (bfd_byte *) ext->x_file.x_n.x_offset);
 189         } else {
 190             if (numaux > 1)
 191               {
 192                 if (indx == 0)
 193           memcpy (in->x_file.x_fname, ext->x_file.x_fname,
 194                           numaux * sizeof (AUXENT));
 195               }
 196             else
 197               {
 198                 memcpy (in->x_file.x_fname, ext->x_file.x_fname, FILNMLEN);
 199               }
 200           }
 201       goto end;
 202
 203       /* RS/6000 "csect" auxents */
 204     case C_EXT:
 205     case C_HIDEXT:
 206       if (indx + 1 == numaux)
 207         {
 208           in->x_csect.x_scnlen.l =
 209               bfd_h_get_32(abfd, ext->x_csect.x_scnlen_lo);
 210           /* FIXME: If we want section lengths larger than 32 bits, we need
 211              to modify the internal coff structures to support it.  */
 212           in->x_csect.x_parmhash = bfd_h_get_32 (abfd,
 213                                                  ext->x_csect.x_parmhash);
 214           in->x_csect.x_snhash   = bfd_h_get_16 (abfd, ext->x_csect.x_snhash);
 215           /* We don't have to hack bitfields in x_smtyp because it's
 216              defined by shifts-and-ands, which are equivalent on all
 217              byte orders.  */
 218           in->x_csect.x_smtyp    = bfd_h_get_8  (abfd, ext->x_csect.x_smtyp);
 219           in->x_csect.x_smclas   = bfd_h_get_8  (abfd, ext->x_csect.x_smclas);
 220           goto end;
 221         }
 222       break;
 223
 224     case C_STAT:
 225     case C_LEAFSTAT:
 226     case C_HIDDEN:
 227       if (type == T_NULL) {
 228           /* PE defines some extra fields; we zero them out for
 229              safety.  */
 230           in->x_scn.x_checksum = 0;
 231           in->x_scn.x_associated = 0;
 232           in->x_scn.x_comdat = 0;
 233
 234           goto end;
 235         }
 236       break;
 237     }
 238
 239   if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
 240     {
 241       in->x_sym.x_fcnary.x_fcn.x_lnnoptr = bfd_h_get_64(abfd, (bfd_byte *)
 242               ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
 243       in->x_sym.x_fcnary.x_fcn.x_endndx.l = bfd_h_get_32(abfd, (bfd_byte *)
 244               ext->x_sym.x_fcnary.x_fcn.x_endndx);
 245     }
 246   if (ISFCN(type)) {
 247     in->x_sym.x_misc.x_fsize = bfd_h_get_32(abfd, (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_fsize);
 248   }
 249   else {
 250     in->x_sym.x_misc.x_lnsz.x_lnno = bfd_h_get_32(abfd, (bfd_byte *)
 251             ext->x_sym.x_fcnary.x_lnsz.x_lnno);
 252     in->x_sym.x_misc.x_lnsz.x_size = bfd_h_get_16(abfd, (bfd_byte *)
 253             ext->x_sym.x_fcnary.x_lnsz.x_size);
 254   }
 255
 256 end: ;
 257   /* the semicolon is because MSVC doesn't like labels at
 258      end of block.  */
 259
 260 }
 261
 262 static unsigned int
 263 xcoff64_swap_aux_out (abfd, inp, type, class, indx, numaux, extp)
 264      bfd   *abfd;
 265      PTR        inp;
 266      int   type;
 267      int   class;
 268      int   indx ATTRIBUTE_UNUSED;
 269      int   numaux ATTRIBUTE_UNUSED;
 270      PTR        extp;
 271 {
 272   union internal_auxent *in = (union internal_auxent *)inp;
 273   AUXENT *ext = (AUXENT *)extp;
 274
 275   memset((PTR)ext, 0, bfd_coff_auxesz (abfd));
 276   switch (class)
 277     {
 278   case C_FILE:
 279     if (in->x_file.x_fname[0] == 0)
 280       {
 281       PUTWORD(abfd, 0, (bfd_byte *) ext->x_file.x_n.x_zeroes);
 282       PUTWORD(abfd,
 283               in->x_file.x_n.x_offset,
 284               (bfd_byte *) ext->x_file.x_n.x_offset);
 285     }
 286     else
 287       {
 288       memcpy (ext->x_file.x_fname, in->x_file.x_fname, FILNMLEN);
 289       }
 290     PUTBYTE (abfd, _AUX_FILE, (bfd_byte *) ext->x_auxtype.x_auxtype);
 291     goto end;
 292
 293   /* RS/6000 "csect" auxents */
 294   case C_EXT:
 295   case C_HIDEXT:
 296     if (indx + 1 == numaux)
 297       {
 298         PUTWORD (abfd, in->x_csect.x_scnlen.l, ext->x_csect.x_scnlen_lo);
 299         PUTWORD (abfd, in->x_csect.x_parmhash,  ext->x_csect.x_parmhash);
 300         PUTHALF (abfd, in->x_csect.x_snhash,    ext->x_csect.x_snhash);
 301         /* We don't have to hack bitfields in x_smtyp because it's
 302            defined by shifts-and-ands, which are equivalent on all
 303            byte orders.  */
 304         PUTBYTE (abfd, in->x_csect.x_smtyp,     ext->x_csect.x_smtyp);
 305         PUTBYTE (abfd, in->x_csect.x_smclas,    ext->x_csect.x_smclas);
 306         PUTBYTE (abfd, _AUX_CSECT, (bfd_byte *) ext->x_auxtype.x_auxtype);
 307         goto end;
 308       }
 309     break;
 310
 311   case C_STAT:
 312   case C_LEAFSTAT:
 313   case C_HIDDEN:
 314     if (type == T_NULL) {
 315       goto end;
 316     }
 317     break;
 318   }
 319
 320   if (class == C_BLOCK || class == C_FCN || ISFCN (type) || ISTAG (class))
 321     {
 322       bfd_h_put_64(abfd,  in->x_sym.x_fcnary.x_fcn.x_lnnoptr,
 323               (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_lnnoptr);
 324       PUTBYTE (abfd, _AUX_FCN, (bfd_byte *) ext->x_auxtype.x_auxtype);
 325       PUTWORD(abfd,  in->x_sym.x_fcnary.x_fcn.x_endndx.l,
 326               (bfd_byte *) ext->x_sym.x_fcnary.x_fcn.x_endndx);
 327     }
 328   if (ISFCN (type))
 329     PUTWORD (abfd, in->x_sym.x_misc.x_fsize,
 330              (bfd_byte *)  ext->x_sym.x_fcnary.x_fcn.x_fsize);
 331   else
 332     {
 333       bfd_h_put_32(abfd, in->x_sym.x_misc.x_lnsz.x_lnno,
 334               (bfd_byte *)ext->x_sym.x_fcnary.x_lnsz.x_lnno);
 335       bfd_h_put_16(abfd, in->x_sym.x_misc.x_lnsz.x_size,
 336               (bfd_byte *)ext->x_sym.x_fcnary.x_lnsz.x_size);
 337     }
 338
 339 end:
 340   return bfd_coff_auxesz (abfd);
 341 }
 342
 343 #define coff_SWAP_sym_in xcoff64_swap_sym_in
 344 #define coff_SWAP_sym_out xcoff64_swap_sym_out
 345 #define coff_SWAP_aux_in xcoff64_swap_aux_in
 346 #define coff_SWAP_aux_out xcoff64_swap_aux_out
 347
 348 #define TARGET_NAME "aixcoff64-rs6000"
 349 #define TARGET_SYM rs6000coff64_vec
 350
 351 #include "xcoff-target.h"
 352