| 1 | /* BFD back-end for Sparc COFF files. |
| 2 | Copyright 1990, 1991, 1992, 1993, 1994 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
| 20 | |
| 21 | #include "bfd.h" |
| 22 | #include "sysdep.h" |
| 23 | #include "libbfd.h" |
| 24 | #include "obstack.h" |
| 25 | #include "coff/sparc.h" |
| 26 | #include "coff/internal.h" |
| 27 | #include "libcoff.h" |
| 28 | |
| 29 | #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3) |
| 30 | |
| 31 | #define BADMAG(x) ((x).f_magic != SPARCMAGIC && (x).f_magic != LYNXCOFFMAGIC) |
| 32 | |
| 33 | /* The page size is a guess based on ELF. */ |
| 34 | #define COFF_PAGE_SIZE 0x10000 |
| 35 | |
| 36 | enum reloc_type |
| 37 | { |
| 38 | R_SPARC_NONE = 0, |
| 39 | R_SPARC_8, R_SPARC_16, R_SPARC_32, |
| 40 | R_SPARC_DISP8, R_SPARC_DISP16, R_SPARC_DISP32, |
| 41 | R_SPARC_WDISP30, R_SPARC_WDISP22, |
| 42 | R_SPARC_HI22, R_SPARC_22, |
| 43 | R_SPARC_13, R_SPARC_LO10, |
| 44 | R_SPARC_GOT10, R_SPARC_GOT13, R_SPARC_GOT22, |
| 45 | R_SPARC_PC10, R_SPARC_PC22, |
| 46 | R_SPARC_WPLT30, |
| 47 | R_SPARC_COPY, |
| 48 | R_SPARC_GLOB_DAT, R_SPARC_JMP_SLOT, |
| 49 | R_SPARC_RELATIVE, |
| 50 | R_SPARC_UA32, |
| 51 | R_SPARC_max |
| 52 | }; |
| 53 | |
| 54 | #if 0 |
| 55 | static CONST char *CONST reloc_type_names[] = |
| 56 | { |
| 57 | "R_SPARC_NONE", |
| 58 | "R_SPARC_8", "R_SPARC_16", "R_SPARC_32", |
| 59 | "R_SPARC_DISP8", "R_SPARC_DISP16", "R_SPARC_DISP32", |
| 60 | "R_SPARC_WDISP30", "R_SPARC_WDISP22", |
| 61 | "R_SPARC_HI22", "R_SPARC_22", |
| 62 | "R_SPARC_13", "R_SPARC_LO10", |
| 63 | "R_SPARC_GOT10", "R_SPARC_GOT13", "R_SPARC_GOT22", |
| 64 | "R_SPARC_PC10", "R_SPARC_PC22", |
| 65 | "R_SPARC_WPLT30", |
| 66 | "R_SPARC_COPY", |
| 67 | "R_SPARC_GLOB_DAT", "R_SPARC_JMP_SLOT", |
| 68 | "R_SPARC_RELATIVE", |
| 69 | "R_SPARC_UA32", |
| 70 | }; |
| 71 | #endif |
| 72 | |
| 73 | /* This is stolen pretty directly from elf.c. */ |
| 74 | static bfd_reloc_status_type |
| 75 | bfd_coff_generic_reloc PARAMS ((bfd *, arelent *, asymbol *, PTR, |
| 76 | asection *, bfd *, char **)); |
| 77 | |
| 78 | static bfd_reloc_status_type |
| 79 | bfd_coff_generic_reloc (abfd, reloc_entry, symbol, data, input_section, |
| 80 | output_bfd, error_message) |
| 81 | bfd *abfd; |
| 82 | arelent *reloc_entry; |
| 83 | asymbol *symbol; |
| 84 | PTR data; |
| 85 | asection *input_section; |
| 86 | bfd *output_bfd; |
| 87 | char **error_message; |
| 88 | { |
| 89 | if (output_bfd != (bfd *) NULL |
| 90 | && (symbol->flags & BSF_SECTION_SYM) == 0 |
| 91 | && reloc_entry->addend == 0) |
| 92 | { |
| 93 | reloc_entry->address += input_section->output_offset; |
| 94 | return bfd_reloc_ok; |
| 95 | } |
| 96 | |
| 97 | return bfd_reloc_continue; |
| 98 | } |
| 99 | |
| 100 | static reloc_howto_type coff_sparc_howto_table[] = |
| 101 | { |
| 102 | HOWTO(R_SPARC_NONE, 0,0, 0,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_NONE", false,0,0x00000000,true), |
| 103 | HOWTO(R_SPARC_8, 0,0, 8,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_8", false,0,0x000000ff,true), |
| 104 | HOWTO(R_SPARC_16, 0,1,16,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_16", false,0,0x0000ffff,true), |
| 105 | HOWTO(R_SPARC_32, 0,2,32,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_32", false,0,0xffffffff,true), |
| 106 | HOWTO(R_SPARC_DISP8, 0,0, 8,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_DISP8", false,0,0x000000ff,true), |
| 107 | HOWTO(R_SPARC_DISP16, 0,1,16,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_DISP16", false,0,0x0000ffff,true), |
| 108 | HOWTO(R_SPARC_DISP32, 0,2,32,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_DISP32", false,0,0x00ffffff,true), |
| 109 | HOWTO(R_SPARC_WDISP30, 2,2,30,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_WDISP30", false,0,0x3fffffff,true), |
| 110 | HOWTO(R_SPARC_WDISP22, 2,2,22,true, 0,complain_overflow_signed, bfd_coff_generic_reloc,"R_SPARC_WDISP22", false,0,0x003fffff,true), |
| 111 | HOWTO(R_SPARC_HI22, 10,2,22,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_HI22", false,0,0x003fffff,true), |
| 112 | HOWTO(R_SPARC_22, 0,2,22,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_22", false,0,0x003fffff,true), |
| 113 | HOWTO(R_SPARC_13, 0,2,13,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_13", false,0,0x00001fff,true), |
| 114 | HOWTO(R_SPARC_LO10, 0,2,10,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_LO10", false,0,0x000003ff,true), |
| 115 | HOWTO(R_SPARC_GOT10, 0,2,10,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_GOT10", false,0,0x000003ff,true), |
| 116 | HOWTO(R_SPARC_GOT13, 0,2,13,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_GOT13", false,0,0x00001fff,true), |
| 117 | HOWTO(R_SPARC_GOT22, 10,2,22,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_GOT22", false,0,0x003fffff,true), |
| 118 | HOWTO(R_SPARC_PC10, 0,2,10,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_PC10", false,0,0x000003ff,true), |
| 119 | HOWTO(R_SPARC_PC22, 0,2,22,false,0,complain_overflow_bitfield,bfd_coff_generic_reloc,"R_SPARC_PC22", false,0,0x003fffff,true), |
| 120 | HOWTO(R_SPARC_WPLT30, 0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_WPLT30", false,0,0x00000000,true), |
| 121 | HOWTO(R_SPARC_COPY, 0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_COPY", false,0,0x00000000,true), |
| 122 | HOWTO(R_SPARC_GLOB_DAT,0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_GLOB_DAT",false,0,0x00000000,true), |
| 123 | HOWTO(R_SPARC_JMP_SLOT,0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_JMP_SLOT",false,0,0x00000000,true), |
| 124 | HOWTO(R_SPARC_RELATIVE,0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_RELATIVE",false,0,0x00000000,true), |
| 125 | HOWTO(R_SPARC_UA32, 0,0,00,false,0,complain_overflow_dont, bfd_coff_generic_reloc,"R_SPARC_UA32", false,0,0x00000000,true), |
| 126 | }; |
| 127 | |
| 128 | struct coff_reloc_map { |
| 129 | unsigned char bfd_reloc_val; |
| 130 | unsigned char coff_reloc_val; |
| 131 | }; |
| 132 | |
| 133 | static CONST struct coff_reloc_map sparc_reloc_map[] = |
| 134 | { |
| 135 | { BFD_RELOC_NONE, R_SPARC_NONE, }, |
| 136 | { BFD_RELOC_16, R_SPARC_16, }, |
| 137 | { BFD_RELOC_8, R_SPARC_8 }, |
| 138 | { BFD_RELOC_8_PCREL, R_SPARC_DISP8 }, |
| 139 | { BFD_RELOC_CTOR, R_SPARC_32 }, /* @@ Assumes 32 bits. */ |
| 140 | { BFD_RELOC_32, R_SPARC_32 }, |
| 141 | { BFD_RELOC_32_PCREL, R_SPARC_DISP32 }, |
| 142 | { BFD_RELOC_HI22, R_SPARC_HI22 }, |
| 143 | { BFD_RELOC_LO10, R_SPARC_LO10, }, |
| 144 | { BFD_RELOC_32_PCREL_S2, R_SPARC_WDISP30 }, |
| 145 | { BFD_RELOC_SPARC22, R_SPARC_22 }, |
| 146 | { BFD_RELOC_SPARC13, R_SPARC_13 }, |
| 147 | { BFD_RELOC_SPARC_GOT10, R_SPARC_GOT10 }, |
| 148 | { BFD_RELOC_SPARC_GOT13, R_SPARC_GOT13 }, |
| 149 | { BFD_RELOC_SPARC_GOT22, R_SPARC_GOT22 }, |
| 150 | { BFD_RELOC_SPARC_PC10, R_SPARC_PC10 }, |
| 151 | { BFD_RELOC_SPARC_PC22, R_SPARC_PC22 }, |
| 152 | { BFD_RELOC_SPARC_WPLT30, R_SPARC_WPLT30 }, |
| 153 | { BFD_RELOC_SPARC_COPY, R_SPARC_COPY }, |
| 154 | { BFD_RELOC_SPARC_GLOB_DAT, R_SPARC_GLOB_DAT }, |
| 155 | { BFD_RELOC_SPARC_JMP_SLOT, R_SPARC_JMP_SLOT }, |
| 156 | { BFD_RELOC_SPARC_RELATIVE, R_SPARC_RELATIVE }, |
| 157 | { BFD_RELOC_SPARC_WDISP22, R_SPARC_WDISP22 }, |
| 158 | /* { BFD_RELOC_SPARC_UA32, R_SPARC_UA32 }, not used?? */ |
| 159 | }; |
| 160 | |
| 161 | static reloc_howto_type * |
| 162 | coff_sparc_reloc_type_lookup (abfd, code) |
| 163 | bfd *abfd; |
| 164 | bfd_reloc_code_real_type code; |
| 165 | { |
| 166 | unsigned int i; |
| 167 | for (i = 0; i < sizeof (sparc_reloc_map) / sizeof (struct coff_reloc_map); i++) |
| 168 | { |
| 169 | if (sparc_reloc_map[i].bfd_reloc_val == code) |
| 170 | return &coff_sparc_howto_table[(int) sparc_reloc_map[i].coff_reloc_val]; |
| 171 | } |
| 172 | return 0; |
| 173 | } |
| 174 | #define coff_bfd_reloc_type_lookup coff_sparc_reloc_type_lookup |
| 175 | |
| 176 | static void |
| 177 | rtype2howto (cache_ptr, dst) |
| 178 | arelent *cache_ptr; |
| 179 | struct internal_reloc *dst; |
| 180 | { |
| 181 | BFD_ASSERT (dst->r_type < (unsigned int) R_SPARC_max); |
| 182 | cache_ptr->howto = &coff_sparc_howto_table[dst->r_type]; |
| 183 | } |
| 184 | |
| 185 | #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry) |
| 186 | |
| 187 | #define SWAP_IN_RELOC_OFFSET bfd_h_get_32 |
| 188 | #define SWAP_OUT_RELOC_OFFSET bfd_h_put_32 |
| 189 | /* This is just like the standard one, except that we don't set up an |
| 190 | addend for relocs against global symbols (otherwise linking objects |
| 191 | created by -r fails), and we add in the reloc offset at the end. */ |
| 192 | #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \ |
| 193 | { \ |
| 194 | coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \ |
| 195 | if (ptr && bfd_asymbol_bfd (ptr) != abfd) \ |
| 196 | coffsym = (obj_symbols (abfd) \ |
| 197 | + (cache_ptr->sym_ptr_ptr - symbols)); \ |
| 198 | else if (ptr) \ |
| 199 | coffsym = coff_symbol_from (abfd, ptr); \ |
| 200 | if (coffsym != (coff_symbol_type *) NULL \ |
| 201 | && coffsym->native->u.syment.n_scnum == 0) \ |
| 202 | cache_ptr->addend = 0; \ |
| 203 | else if (ptr && bfd_asymbol_bfd (ptr) == abfd \ |
| 204 | && ptr->section != (asection *) NULL \ |
| 205 | && (ptr->flags & BSF_GLOBAL) == 0) \ |
| 206 | cache_ptr->addend = - (ptr->section->vma + ptr->value); \ |
| 207 | else \ |
| 208 | cache_ptr->addend = 0; \ |
| 209 | cache_ptr->addend += reloc.r_offset; \ |
| 210 | } |
| 211 | |
| 212 | /* Clear the r_spare field in relocs. */ |
| 213 | #define SWAP_OUT_RELOC_EXTRA(abfd,src,dst) \ |
| 214 | do { \ |
| 215 | dst->r_spare[0] = 0; \ |
| 216 | dst->r_spare[1] = 0; \ |
| 217 | } while (0) |
| 218 | |
| 219 | #define __A_MAGIC_SET__ |
| 220 | |
| 221 | /* Enable Sparc-specific hacks in coffcode.h. */ |
| 222 | |
| 223 | #define COFF_SPARC |
| 224 | |
| 225 | #include "coffcode.h" |
| 226 | |
| 227 | const bfd_target |
| 228 | #ifdef TARGET_SYM |
| 229 | TARGET_SYM = |
| 230 | #else |
| 231 | sparccoff_vec = |
| 232 | #endif |
| 233 | { |
| 234 | #ifdef TARGET_NAME |
| 235 | TARGET_NAME, |
| 236 | #else |
| 237 | "coff-sparc", /* name */ |
| 238 | #endif |
| 239 | bfd_target_coff_flavour, |
| 240 | true, /* data byte order is big */ |
| 241 | true, /* header byte order is big */ |
| 242 | |
| 243 | (HAS_RELOC | EXEC_P | /* object flags */ |
| 244 | HAS_LINENO | HAS_DEBUG | |
| 245 | HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED), |
| 246 | |
| 247 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ |
| 248 | '_', /* leading underscore */ |
| 249 | '/', /* ar_pad_char */ |
| 250 | 15, /* ar_max_namelen */ |
| 251 | |
| 252 | 2, /* minimum alignment power */ |
| 253 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, |
| 254 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, |
| 255 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ |
| 256 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, |
| 257 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, |
| 258 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ |
| 259 | |
| 260 | /* Note that we allow an object file to be treated as a core file as well. */ |
| 261 | {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ |
| 262 | bfd_generic_archive_p, coff_object_p}, |
| 263 | {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ |
| 264 | bfd_false}, |
| 265 | {bfd_false, coff_write_object_contents, /* bfd_write_contents */ |
| 266 | _bfd_write_archive_contents, bfd_false}, |
| 267 | |
| 268 | BFD_JUMP_TABLE_GENERIC (coff), |
| 269 | BFD_JUMP_TABLE_COPY (coff), |
| 270 | BFD_JUMP_TABLE_CORE (_bfd_nocore), |
| 271 | BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), |
| 272 | BFD_JUMP_TABLE_SYMBOLS (coff), |
| 273 | BFD_JUMP_TABLE_RELOCS (coff), |
| 274 | BFD_JUMP_TABLE_WRITE (coff), |
| 275 | BFD_JUMP_TABLE_LINK (coff), |
| 276 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), |
| 277 | |
| 278 | COFF_SWAP_TABLE, |
| 279 | }; |