1/* BFD back-end for Motorola 88000 COFF "Binary Compatibility Standard" files. 2 Copyright (C) 1990-2017 Free Software Foundation, Inc. 3 Written by Cygnus Support. 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#define M88 1 /* Customize various include files */ 23#include "sysdep.h" 24#include "bfd.h" 25#include "libbfd.h" 26#include "coff/m88k.h" 27#include "coff/internal.h" 28#include "libcoff.h" 29 30static bfd_reloc_status_type m88k_special_reloc 31 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **); 32 33#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3) 34 35#define GET_SCNHDR_NRELOC H_GET_32 36#define GET_SCNHDR_NLNNO H_GET_32 37 38/* On coff-m88k, local labels start with '@'. */ 39 40#define coff_bfd_is_local_label_name m88k_is_local_label_name 41 42static bfd_boolean 43m88k_is_local_label_name (bfd *abfd ATTRIBUTE_UNUSED, const char *name) 44{ 45 return name[0] == '@'; 46} 47 48static bfd_reloc_status_type 49m88k_special_reloc (bfd *abfd, 50 arelent *reloc_entry, 51 asymbol *symbol, 52 void * data, 53 asection *input_section, 54 bfd *output_bfd, 55 char **error_message ATTRIBUTE_UNUSED) 56{ 57 reloc_howto_type *howto = reloc_entry->howto; 58 59 switch (howto->type) 60 { 61 case R_HVRT16: 62 case R_LVRT16: 63 if (output_bfd != (bfd *) NULL) 64 { 65 /* This is a partial relocation, and we want to apply the 66 relocation to the reloc entry rather than the raw data. 67 Modify the reloc inplace to reflect what we now know. */ 68 69 reloc_entry->address += input_section->output_offset; 70 } 71 else 72 { 73 bfd_vma output_base = 0; 74 bfd_vma addr = reloc_entry->address; 75 bfd_vma x = bfd_get_16 (abfd, (bfd_byte *) data + addr); 76 asection *reloc_target_output_section; 77 long relocation = 0; 78 79 /* Work out which section the relocation is targeted at and the 80 initial relocation command value. */ 81 82 /* Get symbol value. (Common symbols are special.) */ 83 if (bfd_is_com_section (symbol->section)) 84 relocation = 0; 85 else 86 relocation = symbol->value; 87 88 reloc_target_output_section = symbol->section->output_section; 89 90 /* Convert input-section-relative symbol value to absolute. */ 91 if (output_bfd) 92 output_base = 0; 93 else 94 output_base = reloc_target_output_section->vma; 95 96 relocation += output_base + symbol->section->output_offset; 97 98 /* Add in supplied addend. */ 99 relocation += ((reloc_entry->addend << howto->bitsize) + x); 100 101 reloc_entry->addend = 0; 102 103 relocation >>= (bfd_vma) howto->rightshift; 104 105 /* Shift everything up to where it's going to be used */ 106 107 relocation <<= (bfd_vma) howto->bitpos; 108 109 if (relocation) 110 bfd_put_16 (abfd, (bfd_vma) relocation, 111 (unsigned char *) data + addr); 112 } 113 114 /* If we are not producing relocatable output, return an error if 115 the symbol is not defined. */ 116 if (bfd_is_und_section (symbol->section) && output_bfd == (bfd *) NULL) 117 return bfd_reloc_undefined; 118 119 return bfd_reloc_ok; 120 121 default: 122 if (output_bfd != (bfd *) NULL) 123 { 124 /* This is a partial relocation, and we want to apply the 125 relocation to the reloc entry rather than the raw data. 126 Modify the reloc inplace to reflect what we now know. */ 127 128 reloc_entry->address += input_section->output_offset; 129 return bfd_reloc_ok; 130 } 131 break; 132 } 133 134 if (output_bfd == (bfd *) NULL) 135 return bfd_reloc_continue; 136 137 return bfd_reloc_ok; 138} 139 140static reloc_howto_type howto_table[] = 141{ 142 HOWTO (R_PCR16L, /* type */ 143 02, /* rightshift */ 144 1, /* size (0 = byte, 1 = short, 2 = long) */ 145 16, /* bitsize */ 146 TRUE, /* pc_relative */ 147 0, /* bitpos */ 148 complain_overflow_signed, /* complain_on_overflow */ 149 m88k_special_reloc, /* special_function */ 150 "PCR16L", /* name */ 151 FALSE, /* partial_inplace */ 152 0x0000ffff, /* src_mask */ 153 0x0000ffff, /* dst_mask */ 154 TRUE), /* pcrel_offset */ 155 156 HOWTO (R_PCR26L, /* type */ 157 02, /* rightshift */ 158 2, /* size (0 = byte, 1 = short, 2 = long) */ 159 26, /* bitsize */ 160 TRUE, /* pc_relative */ 161 0, /* bitpos */ 162 complain_overflow_signed, /* complain_on_overflow */ 163 m88k_special_reloc, /* special_function */ 164 "PCR26L", /* name */ 165 FALSE, /* partial_inplace */ 166 0x03ffffff, /* src_mask */ 167 0x03ffffff, /* dst_mask */ 168 TRUE), /* pcrel_offset */ 169 170 HOWTO (R_VRT16, /* type */ 171 00, /* rightshift */ 172 1, /* size (0 = byte, 1 = short, 2 = long) */ 173 16, /* bitsize */ 174 FALSE, /* pc_relative */ 175 0, /* bitpos */ 176 complain_overflow_bitfield, /* complain_on_overflow */ 177 m88k_special_reloc, /* special_function */ 178 "VRT16", /* name */ 179 FALSE, /* partial_inplace */ 180 0x0000ffff, /* src_mask */ 181 0x0000ffff, /* dst_mask */ 182 TRUE), /* pcrel_offset */ 183 184 HOWTO (R_HVRT16, /* type */ 185 16, /* rightshift */ 186 1, /* size (0 = byte, 1 = short, 2 = long) */ 187 16, /* bitsize */ 188 FALSE, /* pc_relative */ 189 0, /* bitpos */ 190 complain_overflow_dont, /* complain_on_overflow */ 191 m88k_special_reloc, /* special_function */ 192 "HVRT16", /* name */ 193 FALSE, /* partial_inplace */ 194 0x0000ffff, /* src_mask */ 195 0x0000ffff, /* dst_mask */ 196 TRUE), /* pcrel_offset */ 197 198 HOWTO (R_LVRT16, /* type */ 199 00, /* rightshift */ 200 1, /* size (0 = byte, 1 = short, 2 = long) */ 201 16, /* bitsize */ 202 FALSE, /* pc_relative */ 203 0, /* bitpos */ 204 complain_overflow_dont, /* complain_on_overflow */ 205 m88k_special_reloc, /* special_function */ 206 "LVRT16", /* name */ 207 FALSE, /* partial_inplace */ 208 0x0000ffff, /* src_mask */ 209 0x0000ffff, /* dst_mask */ 210 TRUE), /* pcrel_offset */ 211 212 HOWTO (R_VRT32, /* type */ 213 00, /* rightshift */ 214 2, /* size (0 = byte, 1 = short, 2 = long) */ 215 32, /* bitsize */ 216 FALSE, /* pc_relative */ 217 0, /* bitpos */ 218 complain_overflow_bitfield, /* complain_on_overflow */ 219 m88k_special_reloc, /* special_function */ 220 "VRT32", /* name */ 221 FALSE, /* partial_inplace */ 222 0xffffffff, /* src_mask */ 223 0xffffffff, /* dst_mask */ 224 TRUE), /* pcrel_offset */ 225}; 226 227/* Code to turn an external r_type into a pointer to an entry in the 228 above howto table. */ 229static void 230rtype2howto (arelent *cache_ptr, struct internal_reloc *dst) 231{ 232 if (dst->r_type >= R_PCR16L && dst->r_type <= R_VRT32) 233 { 234 cache_ptr->howto = howto_table + dst->r_type - R_PCR16L; 235 } 236 else 237 { 238 BFD_ASSERT (0); 239 } 240} 241 242#define RTYPE2HOWTO(cache_ptr, dst) rtype2howto (cache_ptr, dst) 243 244/* Code to swap in the reloc offset */ 245#define SWAP_IN_RELOC_OFFSET H_GET_16 246#define SWAP_OUT_RELOC_OFFSET H_PUT_16 247 248#define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \ 249 reloc_processing(relent, reloc, symbols, abfd, section) 250 251static void 252reloc_processing (arelent *relent, 253 struct internal_reloc *reloc, 254 asymbol **symbols, 255 bfd *abfd, 256 asection *section) 257{ 258 relent->address = reloc->r_vaddr; 259 rtype2howto (relent, reloc); 260 261 if (((int) reloc->r_symndx) > 0) 262 { 263 relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx]; 264 } 265 else 266 { 267 relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; 268 } 269 270 relent->addend = reloc->r_offset; 271 relent->address -= section->vma; 272} 273 274#define BADMAG(x) MC88BADMAG(x) 275 276#ifndef bfd_pe_print_pdata 277#define bfd_pe_print_pdata NULL 278#endif 279 280#include "coffcode.h" 281 282#undef coff_write_armap 283 284CREATE_BIG_COFF_TARGET_VEC (m88k_coff_bcs_vec, "coff-m88kbcs", 0, 0, '_', NULL, COFF_SWAP_TABLE) 285