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