bfd/aout-ns32k.c

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