?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Fix file corrupted before initial checkin.
[binutils.git] / bfd / elf32-d30v.c
blobc7fde2b4651f3e261ee28c51471633a1d195ad62
1 /* D30V-specific support for 32-bit ELF
2 Copyright (C) 1997, 98, 99, 2000 Free Software Foundation, Inc.
3 Contributed by Martin Hunt (hunt@cygnus.com).
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 "elf-bfd.h"
25 #include "elf/d30v.h"
26
27 static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
28 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
29 static void d30v_info_to_howto_rel
30 PARAMS ((bfd *, arelent *, Elf32_Internal_Rel *));
31 static void d30v_info_to_howto_rela
32 PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *));
33 static bfd_reloc_status_type bfd_elf_d30v_reloc PARAMS ((
34 bfd *abfd,
35 arelent *reloc_entry,
36 asymbol *symbol,
37 PTR data,
38 asection *input_section,
39 bfd *output_bfd,
40 char **error_message));
41 static bfd_reloc_status_type bfd_elf_d30v_reloc_21 PARAMS ((
42 bfd *abfd,
43 arelent *reloc_entry,
44 asymbol *symbol,
45 PTR data,
46 asection *input_section,
47 bfd *output_bfd,
48 char **error_message));
49
50 static reloc_howto_type elf_d30v_howto_table[] =
51 {
52 /* This reloc does nothing. */
53 HOWTO (R_D30V_NONE, /* type */
54 0, /* rightshift */
55 2, /* size (0 = byte, 1 = short, 2 = long) */
56 32, /* bitsize */
57 false, /* pc_relative */
58 0, /* bitpos */
59 complain_overflow_bitfield, /* complain_on_overflow */
60 bfd_elf_generic_reloc, /* special_function */
61 "R_D30V_NONE", /* name */
62 false, /* partial_inplace */
63 0, /* src_mask */
64 0, /* dst_mask */
65 false), /* pcrel_offset */
66
67 /* A 6 bit absolute relocation */
68 HOWTO (R_D30V_6, /* type */
69 0, /* rightshift */
70 2, /* size (0 = byte, 1 = short, 2 = long) */
71 6, /* bitsize */
72 false, /* pc_relative */
73 0, /* bitpos */
74 complain_overflow_bitfield, /* complain_on_overflow */
75 bfd_elf_generic_reloc, /* special_function */
76 "R_D30V_6", /* name */
77 false, /* partial_inplace */
78 0x3f, /* src_mask */
79 0x3f, /* dst_mask */
80 false), /* pcrel_offset */
81
82 /* A relative 9 bit relocation, right shifted by 3 */
83 HOWTO (R_D30V_9_PCREL, /* type */
84 3, /* rightshift */
85 2, /* size (0 = byte, 1 = short, 2 = long) */
86 6, /* bitsize */
87 true, /* pc_relative */
88 0, /* bitpos */
89 complain_overflow_signed, /* complain_on_overflow */
90 bfd_elf_d30v_reloc_21, /* special_function */
91 "R_D30V_9_PCREL", /* name */
92 false, /* partial_inplace */
93 0x3f, /* src_mask */
94 0x3f, /* dst_mask */
95 true), /* pcrel_offset */
96
97 /* A relative 9 bit relocation, right shifted by 3 */
98 HOWTO (R_D30V_9_PCREL_R, /* type */
99 3, /* rightshift */
100 2, /* size (0 = byte, 1 = short, 2 = long) */
101 6, /* bitsize */
102 true, /* pc_relative */
103 0, /* bitpos */
104 complain_overflow_signed, /* complain_on_overflow */
105 bfd_elf_d30v_reloc_21, /* special_function */
106 "R_D30V_9_PCREL_R", /* name */
107 false, /* partial_inplace */
108 0x3f, /* src_mask */
109 0x3f, /* dst_mask */
110 true), /* pcrel_offset */
111
112 /* An absolute 15 bit relocation, right shifted by 3 */
113 HOWTO (R_D30V_15, /* type */
114 3, /* rightshift */
115 2, /* size (0 = byte, 1 = short, 2 = long) */
116 12, /* bitsize */
117 false, /* pc_relative */
118 0, /* bitpos */
119 complain_overflow_signed, /* complain_on_overflow */
120 bfd_elf_generic_reloc, /* special_function */
121 "R_D30V_15", /* name */
122 false, /* partial_inplace */
123 0xfff, /* src_mask */
124 0xfff, /* dst_mask */
125 false), /* pcrel_offset */
126
127 /* A relative 15 bit relocation, right shifted by 3 */
128 HOWTO (R_D30V_15_PCREL, /* type */
129 3, /* rightshift */
130 2, /* size (0 = byte, 1 = short, 2 = long) */
131 12, /* bitsize */
132 true, /* pc_relative */
133 0, /* bitpos */
134 complain_overflow_signed, /* complain_on_overflow */
135 bfd_elf_d30v_reloc_21, /* special_function */
136 "R_D30V_15_PCREL", /* name */
137 false, /* partial_inplace */
138 0xfff, /* src_mask */
139 0xfff, /* dst_mask */
140 true), /* pcrel_offset */
141
142 /* A relative 15 bit relocation, right shifted by 3 */
143 HOWTO (R_D30V_15_PCREL_R, /* type */
144 3, /* rightshift */
145 2, /* size (0 = byte, 1 = short, 2 = long) */
146 12, /* bitsize */
147 true, /* pc_relative */
148 0, /* bitpos */
149 complain_overflow_signed, /* complain_on_overflow */
150 bfd_elf_d30v_reloc_21, /* special_function */
151 "R_D30V_15_PCREL_R", /* name */
152 false, /* partial_inplace */
153 0xfff, /* src_mask */
154 0xfff, /* dst_mask */
155 true), /* pcrel_offset */
156
157 /* An absolute 21 bit relocation, right shifted by 3 */
158 HOWTO (R_D30V_21, /* type */
159 3, /* rightshift */
160 2, /* size (0 = byte, 1 = short, 2 = long) */
161 18, /* bitsize */
162 false, /* pc_relative */
163 0, /* bitpos */
164 complain_overflow_signed, /* complain_on_overflow */
165 bfd_elf_generic_reloc, /* special_function */
166 "R_D30V_21", /* name */
167 false, /* partial_inplace */
168 0x3ffff, /* src_mask */
169 0x3ffff, /* dst_mask */
170 false), /* pcrel_offset */
171
172 /* A relative 21 bit relocation, right shifted by 3 */
173 HOWTO (R_D30V_21_PCREL, /* type */
174 3, /* rightshift */
175 2, /* size (0 = byte, 1 = short, 2 = long) */
176 18, /* bitsize */
177 true, /* pc_relative */
178 0, /* bitpos */
179 complain_overflow_signed, /* complain_on_overflow */
180 bfd_elf_d30v_reloc_21, /* special_function */
181 "R_D30V_21_PCREL", /* name */
182 false, /* partial_inplace */
183 0x3ffff, /* src_mask */
184 0x3ffff, /* dst_mask */
185 true), /* pcrel_offset */
186
187 /* A relative 21 bit relocation, right shifted by 3, in the Right container */
188 HOWTO (R_D30V_21_PCREL_R, /* type */
189 3, /* rightshift */
190 2, /* size (0 = byte, 1 = short, 2 = long) */
191 18, /* bitsize */
192 true, /* pc_relative */
193 0, /* bitpos */
194 complain_overflow_signed, /* complain_on_overflow */
195 bfd_elf_d30v_reloc_21, /* special_function */
196 "R_D30V_21_PCREL_R", /* name */
197 false, /* partial_inplace */
198 0x3ffff, /* src_mask */
199 0x3ffff, /* dst_mask */
200 true), /* pcrel_offset */
201
202 /* A D30V 32 bit absolute relocation */
203 HOWTO (R_D30V_32, /* type */
204 0, /* rightshift */
205 4, /* size (0 = byte, 1 = short, 2 = long) */
206 32, /* bitsize */
207 false, /* pc_relative */
208 0, /* bitpos */
209 complain_overflow_bitfield, /* complain_on_overflow */
210 bfd_elf_d30v_reloc, /* special_function */
211 "R_D30V_32", /* name */
212 false, /* partial_inplace */
213 0xffffffff, /* src_mask */
214 0xffffffff, /* dst_mask */
215 false), /* pcrel_offset */
216
217 /* A relative 32 bit relocation */
218 HOWTO (R_D30V_32_PCREL, /* type */
219 0, /* rightshift */
220 4, /* size (0 = byte, 1 = short, 2 = long) */
221 32, /* bitsize */
222 true, /* pc_relative */
223 0, /* bitpos */
224 complain_overflow_signed, /* complain_on_overflow */
225 bfd_elf_d30v_reloc, /* special_function */
226 "R_D30V_32_PCREL", /* name */
227 false, /* partial_inplace */
228 0xffffffff, /* src_mask */
229 0xffffffff, /* dst_mask */
230 true), /* pcrel_offset */
231
232 /* A regular 32 bit absolute relocation */
233 HOWTO (R_D30V_32_NORMAL, /* type */
234 0, /* rightshift */
235 2, /* size (0 = byte, 1 = short, 2 = long) */
236 32, /* bitsize */
237 false, /* pc_relative */
238 0, /* bitpos */
239 complain_overflow_bitfield, /* complain_on_overflow */
240 bfd_elf_generic_reloc, /* special_function */
241 "R_D30V_32_NORMAL", /* name */
242 false, /* partial_inplace */
243 0xffffffff, /* src_mask */
244 0xffffffff, /* dst_mask */
245 false), /* pcrel_offset */
246
247 };
248
249 #define MAX32 ((bfd_signed_vma) 0x7fffffff)
250 #define MIN32 (- MAX32 - 1)
251
252 static bfd_reloc_status_type
253 bfd_elf_d30v_reloc (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message)
254 bfd *abfd;
255 arelent *reloc_entry;
256 asymbol *symbol;
257 PTR data;
258 asection *input_section;
259 bfd *output_bfd;
260 char **error_message;
261 {
262 bfd_signed_vma relocation;
263 bfd_vma in1, in2, num;
264 bfd_vma tmp_addr = 0;
265 bfd_reloc_status_type r;
266 asection *reloc_target_output_section;
267 bfd_size_type addr = reloc_entry->address;
268 bfd_reloc_status_type flag = bfd_reloc_ok;
269 bfd_vma output_base = 0;
270 reloc_howto_type *howto = reloc_entry->howto;
271 int make_absolute = 0;
272
273 if (output_bfd != (bfd *) NULL)
274 {
275 /* Partial linking -- do nothing. */
276 reloc_entry->address += input_section->output_offset;
277 return bfd_reloc_ok;
278 }
279
280 r = bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
281 input_section, output_bfd, error_message);
282 if (r != bfd_reloc_continue)
283 return r;
284
285 /* a hacked-up version of bfd_perform_reloc() follows */
286 if (bfd_is_und_section (symbol->section)
287 && (symbol->flags & BSF_WEAK) == 0
288 && output_bfd == (bfd *) NULL)
289 flag = bfd_reloc_undefined;
290
291 /* Is the address of the relocation really within the section? */
292 if (reloc_entry->address > input_section->_cooked_size)
293 return bfd_reloc_outofrange;
294
295 /* Work out which section the relocation is targetted at and the
296 initial relocation command value. */
297
298 /* Get symbol value. (Common symbols are special.) */
299 if (bfd_is_com_section (symbol->section))
300 relocation = 0;
301 else
302 relocation = symbol->value;
303
304 reloc_target_output_section = symbol->section->output_section;
305
306 /* Convert input-section-relative symbol value to absolute. */
307 output_base = reloc_target_output_section->vma;
308 relocation += output_base + symbol->section->output_offset;
309
310 /* Add in supplied addend. */
311 relocation += reloc_entry->addend;
312
313 /* Here the variable relocation holds the final address of the
314 symbol we are relocating against, plus any addend. */
315
316 if (howto->pc_relative == true)
317 {
318 tmp_addr = input_section->output_section->vma + input_section->output_offset
319 + reloc_entry->address;
320 relocation -= tmp_addr;
321 }
322
323 in1 = bfd_get_32 (abfd, (bfd_byte *) data + addr);
324 in2 = bfd_get_32 (abfd, (bfd_byte *) data + addr + 4);
325
326 /* extract the addend */
327 num = ((in2 & 0x3FFFF)
328 | ((in2 & 0xFF00000) >> 2)
329 | ((in1 & 0x3F) << 26));
330 in1 &= 0xFFFFFFC0;
331 in2 = 0x80000000;
332
333 relocation += num;
334
335 if (howto->pc_relative == true && howto->bitsize == 32)
336 {
337 /* The D30V has a PC that doesn't wrap and PC-relative jumps are
338 signed, so a PC-relative jump can't be more than +/- 2^31 bytes.
339 If one exceeds this, change it to an absolute jump. */
340 if (relocation > MAX32 || relocation < MIN32)
341 {
342 relocation = (relocation + tmp_addr) & 0xffffffff;
343 make_absolute = 1;
344 }
345 }
346
347 in1 |= (relocation >> 26) & 0x3F; /* top 6 bits */
348 in2 |= ((relocation & 0x03FC0000) << 2); /* next 8 bits */
349 in2 |= relocation & 0x0003FFFF; /* bottom 18 bits */
350
351 /* change a PC-relative instruction to its absolute equivalent */
352 /* with this simple hack */
353 if (make_absolute)
354 in1 |= 0x00100000;
355
356 bfd_put_32 (abfd, in1, (bfd_byte *) data + addr);
357 bfd_put_32 (abfd, in2, (bfd_byte *) data + addr + 4);
358
359 return flag;
360 }
361
362
363 static bfd_reloc_status_type
364 bfd_elf_d30v_reloc_21 (abfd, reloc_entry, symbol, data, input_section, output_bfd, error_message)
365 bfd *abfd;
366 arelent *reloc_entry;
367 asymbol *symbol;
368 PTR data;
369 asection *input_section;
370 bfd *output_bfd;
371 char **error_message;
372 {
373 bfd_vma relocation;
374 bfd_vma in1, num;
375 bfd_reloc_status_type r;
376 asection *reloc_target_output_section;
377 bfd_size_type addr = reloc_entry->address;
378 bfd_reloc_status_type flag = bfd_reloc_ok;
379 bfd_vma output_base = 0;
380 reloc_howto_type *howto = reloc_entry->howto;
381 int mask, max;
382
383 if (output_bfd != (bfd *) NULL)
384 {
385 /* Partial linking -- do nothing. */
386 reloc_entry->address += input_section->output_offset;
387 return bfd_reloc_ok;
388 }
389
390 r = bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
391 input_section, output_bfd, error_message);
392 if (r != bfd_reloc_continue)
393 return r;
394
395 /* a hacked-up version of bfd_perform_reloc() follows */
396 if (bfd_is_und_section (symbol->section)
397 && (symbol->flags & BSF_WEAK) == 0
398 && output_bfd == (bfd *) NULL)
399 flag = bfd_reloc_undefined;
400
401 /* Is the address of the relocation really within the section? */
402 if (reloc_entry->address > input_section->_cooked_size)
403 return bfd_reloc_outofrange;
404
405 /* Work out which section the relocation is targetted at and the
406 initial relocation command value. */
407
408 /* Get symbol value. (Common symbols are special.) */
409 if (bfd_is_com_section (symbol->section))
410 relocation = 0;
411 else
412 relocation = symbol->value;
413
414 reloc_target_output_section = symbol->section->output_section;
415
416 /* Convert input-section-relative symbol value to absolute. */
417 output_base = reloc_target_output_section->vma;
418 relocation += output_base + symbol->section->output_offset;
419
420 /* Add in supplied addend. */
421 relocation += reloc_entry->addend;
422
423 /* Here the variable relocation holds the final address of the
424 symbol we are relocating against, plus any addend. */
425
426 if (howto->pc_relative == true)
427 {
428 relocation -= (input_section->output_section->vma
429 + input_section->output_offset);
430 if (howto->pcrel_offset == true)
431 relocation -= reloc_entry->address;
432 }
433
434 in1 = bfd_get_32 (abfd, (bfd_byte *) data + addr);
435
436 mask = (1 << howto->bitsize) - 1;
437 if (howto->bitsize == 6)
438 mask <<= 12;
439 max = (1 << (howto->bitsize + 2)) - 1;
440
441 /* extract the addend */
442 num = in1 & mask; /* 18 bits */
443 if (howto->bitsize == 6)
444 num >>= 12;
445 num <<= 3; /* shift left 3 */
446 in1 &= ~mask; /* mask out addend */
447
448 relocation += num;
449 if (howto->type == R_D30V_21_PCREL_R || howto->type == R_D30V_15_PCREL_R ||
450 howto->type == R_D30V_9_PCREL_R )
451 {
452 relocation += 4;
453 }
454
455 if ((int)relocation < 0 )
456 {
457 if (~(int)relocation > max)
458 flag = bfd_reloc_overflow;
459 }
460 else
461 {
462 if ((int)relocation > max)
463 flag = bfd_reloc_overflow;
464 }
465 relocation >>= 3;
466 if (howto->bitsize == 6)
467 in1 |= ((relocation & (mask >> 12)) << 12);
468 else
469 in1 |= relocation & mask;
470
471 bfd_put_32 (abfd, in1, (bfd_byte *) data + addr);
472
473 return flag;
474 }
475
476 /* Map BFD reloc types to D30V ELF reloc types. */
477
478 struct d30v_reloc_map
479 {
480 bfd_reloc_code_real_type bfd_reloc_val;
481 unsigned char elf_reloc_val;
482 };
483
484
485 static const struct d30v_reloc_map d30v_reloc_map[] =
486 {
487 { BFD_RELOC_NONE, R_D30V_NONE, },
488 { BFD_RELOC_D30V_6, R_D30V_6 },
489 { BFD_RELOC_D30V_9_PCREL, R_D30V_9_PCREL },
490 { BFD_RELOC_D30V_9_PCREL_R, R_D30V_9_PCREL_R },
491 { BFD_RELOC_D30V_15, R_D30V_15 },
492 { BFD_RELOC_D30V_15_PCREL, R_D30V_15_PCREL },
493 { BFD_RELOC_D30V_15_PCREL_R, R_D30V_15_PCREL_R },
494 { BFD_RELOC_D30V_21, R_D30V_21 },
495 { BFD_RELOC_D30V_21_PCREL, R_D30V_21_PCREL },
496 { BFD_RELOC_D30V_21_PCREL_R, R_D30V_21_PCREL_R },
497 { BFD_RELOC_D30V_32, R_D30V_32 },
498 { BFD_RELOC_D30V_32_PCREL, R_D30V_32_PCREL },
499 { BFD_RELOC_32, R_D30V_32_NORMAL },
500 };
501
502 static reloc_howto_type *
503 bfd_elf32_bfd_reloc_type_lookup (abfd, code)
504 bfd *abfd ATTRIBUTE_UNUSED;
505 bfd_reloc_code_real_type code;
506 {
507 unsigned int i;
508
509 for (i = 0;
510 i < sizeof (d30v_reloc_map) / sizeof (struct d30v_reloc_map);
511 i++)
512 {
513 if (d30v_reloc_map[i].bfd_reloc_val == code)
514 return &elf_d30v_howto_table[d30v_reloc_map[i].elf_reloc_val];
515 }
516
517 return NULL;
518 }
519
520 /* Set the howto pointer for an D30V ELF reloc (type REL). */
521
522 static void
523 d30v_info_to_howto_rel (abfd, cache_ptr, dst)
524 bfd *abfd ATTRIBUTE_UNUSED;
525 arelent *cache_ptr;
526 Elf32_Internal_Rel *dst;
527 {
528 unsigned int r_type;
529
530 r_type = ELF32_R_TYPE (dst->r_info);
531 BFD_ASSERT (r_type < (unsigned int) R_D30V_max);
532 cache_ptr->howto = &elf_d30v_howto_table[r_type];
533 }
534
535 /* Set the howto pointer for an D30V ELF reloc (type RELA). */
536
537 static void
538 d30v_info_to_howto_rela (abfd, cache_ptr, dst)
539 bfd *abfd ATTRIBUTE_UNUSED;
540 arelent *cache_ptr;
541 Elf32_Internal_Rela *dst;
542 {
543 unsigned int r_type;
544
545 r_type = ELF32_R_TYPE (dst->r_info);
546 BFD_ASSERT (r_type < (unsigned int) R_D30V_max);
547 cache_ptr->howto = &elf_d30v_howto_table[r_type];
548 }
549
550 #define ELF_ARCH bfd_arch_d30v
551 #define ELF_MACHINE_CODE EM_CYGNUS_D30V
552 #define ELF_MAXPAGESIZE 0x1000
553
554 #define TARGET_BIG_SYM bfd_elf32_d30v_vec
555 #define TARGET_BIG_NAME "elf32-d30v"
556
557 #define elf_info_to_howto d30v_info_to_howto_rela
558 #define elf_info_to_howto_rel d30v_info_to_howto_rel
559 #define elf_backend_object_p 0
560 #define elf_backend_final_write_processing 0
561
562 #include "elf32-target.h"
git-cvsimport of binutils cvsroot