bfd/aout-ns32k.c

   1 /* BFD back-end for ns32k a.out-ish binaries.
   2    Copyright 1990, 1991, 1992, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003
   3    Free Software Foundation, Inc.
   4    Contributed by Ian Dall (idall@eleceng.adelaide.edu.au).
   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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  21
  22 #include "bfd.h"
  23 #include "aout/aout64.h"
  24 #include "ns32k.h"
  25
  26 /* Do not "beautify" the CONCAT* macro args.  Traditional C will not
  27    remove whitespace added here, and thus will fail to concatenate
  28    the tokens.  */
  29 #define MYNS(OP) CONCAT2 (ns32kaout_,OP)
  30
  31 reloc_howto_type *
  32 MYNS(bfd_reloc_type_lookup)
  33   PARAMS((bfd *abfd AND
  34           bfd_reloc_code_real_type code));
  35
  36 bfd_boolean
  37 MYNS(write_object_contents)
  38   PARAMS((bfd *abfd));
  39
  40 /* Avoid multiple definitions from aoutx if supporting
  41    standard a.out format(s) as well as this one.  */
  42 #define NAME(x,y) CONCAT3 (ns32kaout,_32_,y)
  43
  44 void bfd_ns32k_arch PARAMS ((void));
  45
  46 #include "libaout.h"
  47
  48 #define MY(OP) MYNS(OP)
  49
  50 #define MY_swap_std_reloc_in  MY(swap_std_reloc_in)
  51 #define MY_swap_std_reloc_out MY(swap_std_reloc_out)
  52
  53 static void
  54 MY_swap_std_reloc_in PARAMS ((bfd *, struct reloc_std_external *,
  55                               arelent *, asymbol **,
  56                               bfd_size_type));
  57 static void
  58 MY_swap_std_reloc_out PARAMS ((bfd *, arelent *,
  59                                struct reloc_std_external *));
  60 reloc_howto_type *
  61 MY(reloc_howto) PARAMS ((bfd *, struct reloc_std_external *,
  62                          int *, int *, int *));
  63 void
  64 MY(put_reloc) PARAMS ((bfd *, int, int, bfd_vma, reloc_howto_type *,
  65                        struct reloc_std_external *));
  66
  67 /* The ns32k series is ah, unusual, when it comes to relocation.
  68    There are three storage methods for relocatable objects.  There
  69    are displacements, immediate operands and ordinary twos complement
  70    data. Of these, only the last fits into the standard relocation
  71    scheme.  Immediate operands are stored huffman encoded and
  72    immediate operands are stored big endian (where as the natural byte
  73    order is little endian for this architecture).
  74
  75    Note that the ns32k displacement storage method is orthogonal to
  76    whether the relocation is pc relative or not. The "displacement"
  77    storage scheme is used for essentially all address constants. The
  78    displacement can be relative to zero (absolute displacement),
  79    relative to the pc (pc relative), the stack pointer, the frame
  80    pointer, the static base register and general purpose register etc.
  81
  82    For example:
  83
  84    sym1: .long .         # pc relative 2's complement
  85    sym1: .long foo       # 2's complement not pc relative
  86
  87    self:  movd @self, r0 # pc relative displacement
  88           movd foo, r0   # non pc relative displacement
  89
  90    self:  movd self, r0  # pc relative immediate
  91           movd foo, r0   # non pc relative immediate
  92
  93    In addition, for historical reasons the encoding of the relocation types
  94    in the a.out format relocation entries is such that even the relocation
  95    methods which are standard are not encoded the standard way.  */
  96
  97 reloc_howto_type MY(howto_table)[] =
  98   {
  99     /* type           rs   size bsz  pcrel bitpos ovrf                  sf name          part_inpl readmask setmask pcdone */
 100     /* ns32k immediate operands.  */
 101     HOWTO (BFD_RELOC_NS32K_IMM_8, 0, 0, 8, FALSE, 0, complain_overflow_signed,
 102            _bfd_ns32k_reloc_imm, "NS32K_IMM_8",
 103            TRUE, 0x000000ff,0x000000ff, FALSE),
 104     HOWTO (BFD_RELOC_NS32K_IMM_16, 0, 1, 16, FALSE, 0, complain_overflow_signed,
 105            _bfd_ns32k_reloc_imm,  "NS32K_IMM_16",
 106            TRUE, 0x0000ffff,0x0000ffff, FALSE),
 107     HOWTO (BFD_RELOC_NS32K_IMM_32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
 108            _bfd_ns32k_reloc_imm, "NS32K_IMM_32",
 109            TRUE, 0xffffffff,0xffffffff, FALSE),
 110     HOWTO (BFD_RELOC_NS32K_IMM_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed,
 111            _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_8",
 112            TRUE, 0x000000ff, 0x000000ff, FALSE),
 113     HOWTO (BFD_RELOC_NS32K_IMM_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed,
 114            _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_16",
 115            TRUE, 0x0000ffff,0x0000ffff, FALSE),
 116     HOWTO (BFD_RELOC_NS32K_IMM_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed,
 117            _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_32",
 118            TRUE, 0xffffffff,0xffffffff, FALSE),
 119
 120     /* ns32k displacements.  */
 121     HOWTO (BFD_RELOC_NS32K_DISP_8, 0, 0, 7, FALSE, 0, complain_overflow_signed,
 122            _bfd_ns32k_reloc_disp, "NS32K_DISP_8",
 123            TRUE, 0x000000ff,0x000000ff, FALSE),
 124     HOWTO (BFD_RELOC_NS32K_DISP_16, 0, 1, 14, FALSE, 0, complain_overflow_signed,
 125            _bfd_ns32k_reloc_disp, "NS32K_DISP_16",
 126            TRUE, 0x0000ffff, 0x0000ffff, FALSE),
 127     HOWTO (BFD_RELOC_NS32K_DISP_32, 0, 2, 30, FALSE, 0, complain_overflow_signed,
 128            _bfd_ns32k_reloc_disp, "NS32K_DISP_32",
 129            TRUE, 0xffffffff, 0xffffffff, FALSE),
 130     HOWTO (BFD_RELOC_NS32K_DISP_8_PCREL, 0, 0, 7, TRUE, 0, complain_overflow_signed,
 131            _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_8",
 132            TRUE, 0x000000ff,0x000000ff, FALSE),
 133     HOWTO (BFD_RELOC_NS32K_DISP_16_PCREL, 0, 1, 14, TRUE, 0, complain_overflow_signed,
 134            _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_16",
 135            TRUE, 0x0000ffff,0x0000ffff, FALSE),
 136     HOWTO (BFD_RELOC_NS32K_DISP_32_PCREL, 0, 2, 30, TRUE, 0, complain_overflow_signed,
 137            _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_32",
 138            TRUE, 0xffffffff,0xffffffff, FALSE),
 139
 140     /* Normal 2's complement.  */
 141     HOWTO (BFD_RELOC_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,
 142            "8", TRUE, 0x000000ff,0x000000ff, FALSE),
 143     HOWTO (BFD_RELOC_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,
 144            "16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
 145     HOWTO (BFD_RELOC_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,
 146            "32", TRUE, 0xffffffff,0xffffffff, FALSE),
 147     HOWTO (BFD_RELOC_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0,
 148            "PCREL_8", TRUE, 0x000000ff,0x000000ff, FALSE),
 149     HOWTO (BFD_RELOC_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0,
 150            "PCREL_16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
 151     HOWTO (BFD_RELOC_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0,
 152            "PCREL_32", TRUE, 0xffffffff,0xffffffff, FALSE),
 153   };
 154
 155 #define CTOR_TABLE_RELOC_HOWTO(BFD) (MY(howto_table) + 14)
 156
 157 #define RELOC_STD_BITS_NS32K_TYPE_BIG 0x06
 158 #define RELOC_STD_BITS_NS32K_TYPE_LITTLE 0x60
 159 #define RELOC_STD_BITS_NS32K_TYPE_SH_BIG 1
 160 #define RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE 5
 161
 162 reloc_howto_type *
 163 MY(reloc_howto) (abfd, rel, r_index, r_extern, r_pcrel)
 164      bfd *abfd ATTRIBUTE_UNUSED;
 165      struct reloc_std_external *rel;
 166      int *r_index;
 167      int *r_extern;
 168      int *r_pcrel;
 169 {
 170   unsigned int r_length;
 171   int r_ns32k_type;
 172
 173   /*  BFD_ASSERT(bfd_header_little_endian (abfd)); */
 174   *r_index =  ((rel->r_index[2] << 16)
 175                | (rel->r_index[1] << 8)
 176                |  rel->r_index[0] );
 177   *r_extern  = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
 178   *r_pcrel   = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
 179   r_length  =  ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
 180                 >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
 181   r_ns32k_type  =  ((rel->r_type[0] & RELOC_STD_BITS_NS32K_TYPE_LITTLE)
 182                     >> RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
 183   return (MY(howto_table) + r_length + 3 * (*r_pcrel) + 6 * r_ns32k_type);
 184 }
 185
 186 #define MY_reloc_howto(BFD, REL, IN, EX, PC) \
 187   MY(reloc_howto) (BFD, REL, &IN, &EX, &PC)
 188
 189 void
 190 MY(put_reloc) (abfd, r_extern, r_index, value, howto, reloc)
 191      bfd *abfd;
 192      int r_extern;
 193      int r_index;
 194      bfd_vma value;
 195      reloc_howto_type *howto;
 196      struct reloc_std_external *reloc;
 197 {
 198   unsigned int r_length;
 199   int r_pcrel;
 200   int r_ns32k_type;
 201
 202   PUT_WORD (abfd, value, reloc->r_address);
 203   r_length = howto->size ;      /* Size as a power of two.  */
 204   r_pcrel  = (int) howto->pc_relative; /* Relative to PC?  */
 205   r_ns32k_type = (howto - MY(howto_table) )/6;
 206
 207   /*  BFD_ASSERT (bfd_header_little_endian (abfd)); */
 208   reloc->r_index[2] = r_index >> 16;
 209   reloc->r_index[1] = r_index >> 8;
 210   reloc->r_index[0] = r_index;
 211   reloc->r_type[0] =
 212     (r_extern?    RELOC_STD_BITS_EXTERN_LITTLE: 0)
 213       | (r_pcrel?     RELOC_STD_BITS_PCREL_LITTLE: 0)
 214         | (r_length <<  RELOC_STD_BITS_LENGTH_SH_LITTLE)
 215           | (r_ns32k_type <<  RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
 216 }
 217
 218 #define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) \
 219   MY(put_reloc) (BFD, EXT, IDX, VAL, HOWTO, RELOC)
 220
 221 #define STAT_FOR_EXEC
 222
 223 #define MY_final_link_relocate _bfd_ns32k_final_link_relocate
 224 #define MY_relocate_contents _bfd_ns32k_relocate_contents
 225
 226 #include "aoutx.h"
 227
 228 reloc_howto_type *
 229 MY(bfd_reloc_type_lookup) (abfd,code)
 230      bfd *abfd;
 231      bfd_reloc_code_real_type code;
 232 {
 233
 234 #define ENTRY(i,j)      case i: return &MY(howto_table)[j]
 235
 236   int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;
 237
 238   BFD_ASSERT(ext == 0);
 239   if (code == BFD_RELOC_CTOR)
 240     switch (bfd_get_arch_info (abfd)->bits_per_address)
 241       {
 242       case 32:
 243         code = BFD_RELOC_32;
 244         break;
 245       default:
 246         break;
 247       }
 248   switch (code)
 249     {
 250       ENTRY(BFD_RELOC_NS32K_IMM_8, 0);
 251       ENTRY(BFD_RELOC_NS32K_IMM_16, 1);
 252       ENTRY(BFD_RELOC_NS32K_IMM_32, 2);
 253       ENTRY(BFD_RELOC_NS32K_IMM_8_PCREL, 3);
 254       ENTRY(BFD_RELOC_NS32K_IMM_16_PCREL, 4);
 255       ENTRY(BFD_RELOC_NS32K_IMM_32_PCREL, 5);
 256       ENTRY(BFD_RELOC_NS32K_DISP_8, 6);
 257       ENTRY(BFD_RELOC_NS32K_DISP_16, 7);
 258       ENTRY(BFD_RELOC_NS32K_DISP_32, 8);
 259       ENTRY(BFD_RELOC_NS32K_DISP_8_PCREL, 9);
 260       ENTRY(BFD_RELOC_NS32K_DISP_16_PCREL, 10);
 261       ENTRY(BFD_RELOC_NS32K_DISP_32_PCREL, 11);
 262       ENTRY(BFD_RELOC_8, 12);
 263       ENTRY(BFD_RELOC_16, 13);
 264       ENTRY(BFD_RELOC_32, 14);
 265       ENTRY(BFD_RELOC_8_PCREL, 15);
 266       ENTRY(BFD_RELOC_16_PCREL, 16);
 267       ENTRY(BFD_RELOC_32_PCREL, 17);
 268     default:
 269       return (reloc_howto_type *) NULL;
 270     }
 271 #undef ENTRY
 272 }
 273
 274 static void
 275 MY_swap_std_reloc_in (abfd, bytes, cache_ptr, symbols, symcount)
 276      bfd *abfd;
 277      struct reloc_std_external *bytes;
 278      arelent *cache_ptr;
 279      asymbol **symbols;
 280      bfd_size_type symcount ATTRIBUTE_UNUSED;
 281 {
 282   int r_index;
 283   int r_extern;
 284   int r_pcrel;
 285   struct aoutdata  *su = &(abfd->tdata.aout_data->a);
 286
 287   cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
 288
 289   /* Now the fun stuff.  */
 290   cache_ptr->howto = MY_reloc_howto(abfd, bytes, r_index, r_extern, r_pcrel);
 291
 292   MOVE_ADDRESS (0);
 293 }
 294
 295 static void
 296 MY_swap_std_reloc_out (abfd, g, natptr)
 297      bfd *abfd;
 298      arelent *g;
 299      struct reloc_std_external *natptr;
 300 {
 301   int r_index;
 302   asymbol *sym = *(g->sym_ptr_ptr);
 303   int r_extern;
 304   unsigned int r_addend;
 305   asection *output_section = sym->section->output_section;
 306
 307   r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
 308
 309   /* Name was clobbered by aout_write_syms to be symbol index.  */
 310
 311   /* If this relocation is relative to a symbol then set the
 312      r_index to the symbols index, and the r_extern bit.
 313
 314      Absolute symbols can come in in two ways, either as an offset
 315      from the abs section, or as a symbol which has an abs value.
 316      Check for that here.  */
 317   if (bfd_is_com_section (output_section)
 318       || output_section == &bfd_abs_section
 319       || output_section == &bfd_und_section)
 320     {
 321       if (bfd_abs_section.symbol == sym)
 322         {
 323           /* Whoops, looked like an abs symbol, but is really an offset
 324              from the abs section.  */
 325           r_index = 0;
 326           r_extern = 0;
 327         }
 328       else
 329         {
 330           /* Fill in symbol.  */
 331           r_extern = 1;
 332 #undef KEEPIT
 333 #define KEEPIT udata.i
 334           r_index =  (*(g->sym_ptr_ptr))->KEEPIT;
 335 #undef KEEPIT
 336         }
 337     }
 338   else
 339     {
 340       /* Just an ordinary section.  */
 341       r_extern = 0;
 342       r_index  = output_section->target_index;
 343     }
 344
 345   MY_put_reloc (abfd, r_extern, r_index, g->address, g->howto, natptr);
 346 }
 347
 348 bfd_reloc_status_type
 349 _bfd_ns32k_relocate_contents (howto, input_bfd, relocation, location)
 350      reloc_howto_type *howto;
 351      bfd *input_bfd;
 352      bfd_vma relocation;
 353      bfd_byte *location;
 354 {
 355   int r_ns32k_type = (howto - MY(howto_table)) / 6;
 356   bfd_vma (*get_data) PARAMS ((bfd_byte *, int));
 357   void (*put_data) PARAMS ((bfd_vma, bfd_byte *, int));
 358
 359   switch (r_ns32k_type)
 360     {
 361     case 0:
 362       get_data = _bfd_ns32k_get_immediate;
 363       put_data = _bfd_ns32k_put_immediate;
 364       break;
 365     case 1:
 366       get_data = _bfd_ns32k_get_displacement;
 367       put_data = _bfd_ns32k_put_displacement;
 368       break;
 369     case 2:
 370       return _bfd_relocate_contents (howto, input_bfd, relocation,
 371                                     location);
 372       /* NOT REACHED */
 373       break;
 374     default:
 375       return bfd_reloc_notsupported;
 376     }
 377   return _bfd_do_ns32k_reloc_contents (howto, input_bfd, relocation,
 378                                        location, get_data, put_data);
 379 }