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