Commit | Line | Data |
---|---|---|
252b5132 RH |
1 | /* BFD back-end for Motorola 88000 COFF "Binary Compatability Standard" files. |
2 | Copyright 1990, 91, 92, 93, 94, 95, 97, 1998 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 | #define M88 1 /* Customize various include files */ | |
22 | #include "bfd.h" | |
23 | #include "sysdep.h" | |
24 | #include "libbfd.h" | |
25 | #include "coff/m88k.h" | |
26 | #include "coff/internal.h" | |
27 | #include "libcoff.h" | |
28 | ||
29 | static boolean m88k_is_local_label_name PARAMS ((bfd *, const char *)); | |
30 | static bfd_reloc_status_type m88k_special_reloc | |
31 | PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **)); | |
32 | static void rtype2howto PARAMS ((arelent *, struct internal_reloc *)); | |
33 | static void reloc_processing | |
34 | PARAMS ((arelent *, struct internal_reloc *, asymbol **, bfd *, asection *)); | |
35 | ||
36 | #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3) | |
37 | ||
38 | #define GET_SCNHDR_NRELOC bfd_h_get_32 | |
39 | #define GET_SCNHDR_NLNNO bfd_h_get_32 | |
40 | ||
41 | /* On coff-m88k, local labels start with '@'. */ | |
42 | ||
43 | #define coff_bfd_is_local_label_name m88k_is_local_label_name | |
44 | ||
45 | static boolean | |
46 | m88k_is_local_label_name (abfd, name) | |
47 | bfd *abfd; | |
48 | const char *name; | |
49 | { | |
50 | return name[0] == '@'; | |
51 | } | |
52 | ||
53 | static bfd_reloc_status_type | |
54 | m88k_special_reloc (abfd, reloc_entry, symbol, data, | |
55 | input_section, output_bfd, error_message) | |
56 | bfd *abfd; | |
57 | arelent *reloc_entry; | |
58 | asymbol *symbol; | |
59 | PTR data; | |
60 | asection *input_section; | |
61 | bfd *output_bfd; | |
62 | char **error_message; | |
63 | { | |
64 | reloc_howto_type *howto = reloc_entry->howto; | |
65 | ||
66 | switch (howto->type) | |
67 | { | |
68 | case R_HVRT16: | |
69 | case R_LVRT16: | |
70 | if (output_bfd != (bfd *) NULL) | |
71 | { | |
72 | /* This is a partial relocation, and we want to apply the | |
73 | relocation to the reloc entry rather than the raw data. | |
74 | Modify the reloc inplace to reflect what we now know. */ | |
75 | ||
76 | reloc_entry->address += input_section->output_offset; | |
77 | } | |
78 | else | |
79 | { | |
80 | bfd_vma output_base = 0; | |
81 | bfd_vma addr = reloc_entry->address; | |
82 | bfd_vma x = bfd_get_16 (abfd, (bfd_byte *) data + addr); | |
83 | asection *reloc_target_output_section; | |
84 | long relocation = 0; | |
85 | ||
86 | /* Work out which section the relocation is targetted at and the | |
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) | |
117 | bfd_put_16 (abfd, relocation, (unsigned char *) data + addr); | |
118 | } | |
119 | ||
120 | /* If we are not producing relocateable output, return an error if | |
121 | the symbol is not defined. */ | |
122 | if (bfd_is_und_section (symbol->section) && output_bfd == (bfd *) NULL) | |
123 | return bfd_reloc_undefined; | |
124 | ||
125 | return bfd_reloc_ok; | |
126 | ||
127 | default: | |
128 | if (output_bfd != (bfd *) NULL) | |
129 | { | |
130 | /* This is a partial relocation, and we want to apply the | |
131 | relocation to the reloc entry rather than the raw data. | |
132 | Modify the reloc inplace to reflect what we now know. */ | |
133 | ||
134 | reloc_entry->address += input_section->output_offset; | |
135 | return bfd_reloc_ok; | |
136 | } | |
137 | break; | |
138 | } | |
139 | ||
140 | if (output_bfd == (bfd *) NULL) | |
141 | return bfd_reloc_continue; | |
142 | ||
143 | return bfd_reloc_ok; | |
144 | } | |
145 | ||
146 | static reloc_howto_type howto_table[] = | |
147 | { | |
148 | HOWTO (R_PCR16L, /* type */ | |
149 | 02, /* rightshift */ | |
150 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
151 | 16, /* bitsize */ | |
152 | true, /* pc_relative */ | |
153 | 0, /* bitpos */ | |
154 | complain_overflow_signed, /* complain_on_overflow */ | |
155 | m88k_special_reloc, /* special_function */ | |
156 | "PCR16L", /* name */ | |
157 | false, /* partial_inplace */ | |
158 | 0x0000ffff, /* src_mask */ | |
159 | 0x0000ffff, /* dst_mask */ | |
160 | true), /* pcrel_offset */ | |
161 | ||
162 | HOWTO (R_PCR26L, /* type */ | |
163 | 02, /* rightshift */ | |
164 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
165 | 26, /* bitsize */ | |
166 | true, /* pc_relative */ | |
167 | 0, /* bitpos */ | |
168 | complain_overflow_signed, /* complain_on_overflow */ | |
169 | m88k_special_reloc, /* special_function */ | |
170 | "PCR26L", /* name */ | |
171 | false, /* partial_inplace */ | |
172 | 0x03ffffff, /* src_mask */ | |
173 | 0x03ffffff, /* dst_mask */ | |
174 | true), /* pcrel_offset */ | |
175 | ||
176 | HOWTO (R_VRT16, /* type */ | |
177 | 00, /* rightshift */ | |
178 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
179 | 16, /* bitsize */ | |
180 | false, /* pc_relative */ | |
181 | 0, /* bitpos */ | |
182 | complain_overflow_bitfield, /* complain_on_overflow */ | |
183 | m88k_special_reloc, /* special_function */ | |
184 | "VRT16", /* name */ | |
185 | false, /* partial_inplace */ | |
186 | 0x0000ffff, /* src_mask */ | |
187 | 0x0000ffff, /* dst_mask */ | |
188 | true), /* pcrel_offset */ | |
189 | ||
190 | HOWTO (R_HVRT16, /* type */ | |
191 | 16, /* rightshift */ | |
192 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
193 | 16, /* bitsize */ | |
194 | false, /* pc_relative */ | |
195 | 0, /* bitpos */ | |
196 | complain_overflow_dont, /* complain_on_overflow */ | |
197 | m88k_special_reloc, /* special_function */ | |
198 | "HVRT16", /* name */ | |
199 | false, /* partial_inplace */ | |
200 | 0x0000ffff, /* src_mask */ | |
201 | 0x0000ffff, /* dst_mask */ | |
202 | true), /* pcrel_offset */ | |
203 | ||
204 | HOWTO (R_LVRT16, /* type */ | |
205 | 00, /* rightshift */ | |
206 | 1, /* size (0 = byte, 1 = short, 2 = long) */ | |
207 | 16, /* bitsize */ | |
208 | false, /* pc_relative */ | |
209 | 0, /* bitpos */ | |
210 | complain_overflow_dont, /* complain_on_overflow */ | |
211 | m88k_special_reloc, /* special_function */ | |
212 | "LVRT16", /* name */ | |
213 | false, /* partial_inplace */ | |
214 | 0x0000ffff, /* src_mask */ | |
215 | 0x0000ffff, /* dst_mask */ | |
216 | true), /* pcrel_offset */ | |
217 | ||
218 | HOWTO (R_VRT32, /* type */ | |
219 | 00, /* rightshift */ | |
220 | 2, /* size (0 = byte, 1 = short, 2 = long) */ | |
221 | 32, /* bitsize */ | |
222 | false, /* pc_relative */ | |
223 | 0, /* bitpos */ | |
224 | complain_overflow_bitfield, /* complain_on_overflow */ | |
225 | m88k_special_reloc, /* special_function */ | |
226 | "VRT32", /* name */ | |
227 | false, /* partial_inplace */ | |
228 | 0xffffffff, /* src_mask */ | |
229 | 0xffffffff, /* dst_mask */ | |
230 | true), /* pcrel_offset */ | |
231 | }; | |
232 | ||
233 | /* Code to turn an external r_type into a pointer to an entry in the | |
234 | above howto table. */ | |
235 | static void | |
236 | rtype2howto (cache_ptr, dst) | |
237 | arelent *cache_ptr; | |
238 | struct internal_reloc *dst; | |
239 | { | |
240 | if (dst->r_type >= R_PCR16L && dst->r_type <= R_VRT32) | |
241 | { | |
242 | cache_ptr->howto = howto_table + dst->r_type - R_PCR16L; | |
243 | } | |
244 | else | |
245 | { | |
246 | BFD_ASSERT (0); | |
247 | } | |
248 | } | |
249 | ||
250 | #define RTYPE2HOWTO(cache_ptr, dst) rtype2howto (cache_ptr, dst) | |
251 | ||
252 | ||
253 | /* Code to swap in the reloc offset */ | |
254 | #define SWAP_IN_RELOC_OFFSET bfd_h_get_16 | |
255 | #define SWAP_OUT_RELOC_OFFSET bfd_h_put_16 | |
256 | ||
257 | ||
258 | #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \ | |
259 | reloc_processing(relent, reloc, symbols, abfd, section) | |
260 | ||
261 | static void | |
262 | reloc_processing (relent, reloc, symbols, abfd, section) | |
263 | arelent *relent; | |
264 | struct internal_reloc *reloc; | |
265 | asymbol **symbols; | |
266 | bfd *abfd; | |
267 | asection *section; | |
268 | { | |
269 | relent->address = reloc->r_vaddr; | |
270 | rtype2howto (relent, reloc); | |
271 | ||
272 | if (((int) reloc->r_symndx) > 0) | |
273 | { | |
274 | relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx]; | |
275 | } | |
276 | else | |
277 | { | |
278 | relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr; | |
279 | } | |
280 | ||
281 | relent->addend = reloc->r_offset; | |
282 | relent->address -= section->vma; | |
283 | } | |
284 | ||
285 | #define BADMAG(x) MC88BADMAG(x) | |
286 | #include "coffcode.h" | |
287 | ||
288 | #undef coff_write_armap | |
289 | ||
290 | const bfd_target m88kbcs_vec = | |
291 | { | |
292 | "coff-m88kbcs", /* name */ | |
293 | bfd_target_coff_flavour, | |
294 | BFD_ENDIAN_BIG, /* data byte order is big */ | |
295 | BFD_ENDIAN_BIG, /* header byte order is big */ | |
296 | ||
297 | (HAS_RELOC | EXEC_P | /* object flags */ | |
298 | HAS_LINENO | HAS_DEBUG | | |
299 | HAS_SYMS | HAS_LOCALS | WP_TEXT), | |
300 | ||
301 | (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ | |
302 | '_', /* leading underscore */ | |
303 | '/', /* ar_pad_char */ | |
304 | 15, /* ar_max_namelen */ | |
305 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |
306 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |
307 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */ | |
308 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |
309 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |
310 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */ | |
311 | ||
312 | {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ | |
313 | bfd_generic_archive_p, _bfd_dummy_target}, | |
314 | {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ | |
315 | bfd_false}, | |
316 | {bfd_false, coff_write_object_contents, /* bfd_write_contents */ | |
317 | _bfd_write_archive_contents, bfd_false}, | |
318 | ||
319 | BFD_JUMP_TABLE_GENERIC (coff), | |
320 | BFD_JUMP_TABLE_COPY (coff), | |
321 | BFD_JUMP_TABLE_CORE (_bfd_nocore), | |
322 | BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff), | |
323 | BFD_JUMP_TABLE_SYMBOLS (coff), | |
324 | BFD_JUMP_TABLE_RELOCS (coff), | |
325 | BFD_JUMP_TABLE_WRITE (coff), | |
326 | BFD_JUMP_TABLE_LINK (coff), | |
327 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), | |
328 | ||
329 | COFF_SWAP_TABLE, | |
330 | }; |