projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fix memory size for gather/scatter instructions
[deliverable/binutils-gdb.git] / bfd / coff-tic80.c
CommitLineData
252b5132 1/* BFD back-end for Texas Instruments TMS320C80 Multimedia Video Processor (MVP).
4b95cf5c 2 Copyright (C) 1996-2014 Free Software Foundation, Inc.
252b5132
RH		 3
4 Written by Fred Fish (fnf@cygnus.com)
5
6 There is nothing new under the sun. This file draws a lot on other
7 coff files.
8
cd123cb7
NC		 9 This file is part of BFD, the Binary File Descriptor library.
10
11 This program is free software; you can redistribute it and/or modify
12 it under the terms of the GNU General Public License as published by
13 the Free Software Foundation; either version 3 of the License, or
14 (at your option) any later version.
15
16 This program is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 GNU General Public License for more details.
20
21 You should have received a copy of the GNU General Public License
22 along with this program; if not, write to the Free Software
23 Foundation, 51 Franklin Street - Fifth Floor,
24 Boston, MA 02110-1301, USA. */
252b5132 25
3db64b00 26#include "sysdep.h"
252b5132
RH		 27#include "bfd.h"
28#include "bfdlink.h"
252b5132 29#include "libbfd.h"
74cc7600
DK		 30#ifdef _CONST
31/* Newlib-based hosts define _CONST as a STDC-safe alias for const,
32 but to the tic80 toolchain it means something altogether different.
33 Since sysdep.h will have pulled in stdio.h and hence _ansi.h which
68ffbac6 34 contains this definition, we must undef it before including the
74cc7600
DK		 35 tic80-specific definition. */
36#undef _CONST
37#endif /* _CONST */
252b5132
RH		 38#include "coff/tic80.h"
39#include "coff/internal.h"
40#include "libcoff.h"
41
42#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
43#define COFF_ALIGN_IN_SECTION_HEADER 1
44#define COFF_ALIGN_IN_SFLAGS 1
45
dc810e39
AM		 46#define GET_SCNHDR_FLAGS H_GET_16
47#define PUT_SCNHDR_FLAGS H_PUT_16
252b5132 48
252b5132 49static bfd_reloc_status_type ppbase_reloc
2c3fc389 50 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
252b5132 51static bfd_reloc_status_type glob15_reloc
2c3fc389 52 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
252b5132 53static bfd_reloc_status_type glob16_reloc
2c3fc389 54 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
252b5132 55static bfd_reloc_status_type local16_reloc
2c3fc389
NC		 56 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
57
252b5132
RH		 58
59static reloc_howto_type tic80_howto_table[] =
60{
61
62 HOWTO (R_RELLONG, /* type */
63 0, /* rightshift */
64 2, /* size (0 = byte, 1 = short, 2 = long) */
65 32, /* bitsize */
b34976b6 66 FALSE, /* pc_relative */
252b5132
RH		 67 0, /* bitpos */
68 complain_overflow_bitfield, /* complain_on_overflow */
69 NULL, /* special_function */
70 "RELLONG", /* name */
b34976b6 71 TRUE, /* partial_inplace */
252b5132
RH		 72 0xffffffff, /* src_mask */
73 0xffffffff, /* dst_mask */
b34976b6 74 FALSE), /* pcrel_offset */
252b5132
RH		 75
76 HOWTO (R_MPPCR, /* type */
77 2, /* rightshift */
78 2, /* size (0 = byte, 1 = short, 2 = long) */
79 32, /* bitsize */
b34976b6 80 TRUE, /* pc_relative */
252b5132
RH		 81 0, /* bitpos */
82 complain_overflow_signed, /* complain_on_overflow */
83 NULL, /* special_function */
84 "MPPCR", /* name */
b34976b6 85 TRUE, /* partial_inplace */
252b5132
RH		 86 0xffffffff, /* src_mask */
87 0xffffffff, /* dst_mask */
b34976b6 88 TRUE), /* pcrel_offset */
252b5132
RH		 89
90 HOWTO (R_ABS, /* type */
91 0, /* rightshift */
92 2, /* size (0 = byte, 1 = short, 2 = long) */
93 32, /* bitsize */
b34976b6 94 FALSE, /* pc_relative */
252b5132
RH		 95 0, /* bitpos */
96 complain_overflow_bitfield, /* complain_on_overflow */
97 NULL, /* special_function */
98 "ABS", /* name */
b34976b6 99 TRUE, /* partial_inplace */
252b5132
RH		 100 0xffffffff, /* src_mask */
101 0xffffffff, /* dst_mask */
b34976b6 102 FALSE), /* pcrel_offset */
252b5132
RH		 103
104 HOWTO (R_PPBASE, /* type */
105 0, /* rightshift */
106 2, /* size (0 = byte, 1 = short, 2 = long) */
107 32, /* bitsize */
b34976b6 108 FALSE, /* pc_relative */
252b5132
RH		 109 0, /* bitpos */
110 complain_overflow_dont, /* complain_on_overflow */
111 ppbase_reloc, /* special_function */
112 "PPBASE", /* name */
b34976b6 113 TRUE, /* partial_inplace */
252b5132
RH		 114 0xffffffff, /* src_mask */
115 0xffffffff, /* dst_mask */
b34976b6 116 FALSE), /* pcrel_offset */
252b5132
RH		 117
118 HOWTO (R_PPLBASE, /* type */
119 0, /* rightshift */
120 2, /* size (0 = byte, 1 = short, 2 = long) */
121 32, /* bitsize */
b34976b6 122 FALSE, /* pc_relative */
252b5132
RH		 123 0, /* bitpos */
124 complain_overflow_dont, /* complain_on_overflow */
125 ppbase_reloc, /* special_function */
126 "PPLBASE", /* name */
b34976b6 127 TRUE, /* partial_inplace */
252b5132
RH		 128 0xffffffff, /* src_mask */
129 0xffffffff, /* dst_mask */
b34976b6 130 FALSE), /* pcrel_offset */
252b5132
RH		 131
132 HOWTO (R_PP15, /* type */
133 0, /* rightshift */
134 2, /* size (0 = byte, 1 = short, 2 = long) */
135 15, /* bitsize */
b34976b6 136 FALSE, /* pc_relative */
252b5132
RH		 137 6, /* bitpos */
138 complain_overflow_dont, /* complain_on_overflow */
139 glob15_reloc, /* special_function */
140 "PP15", /* name */
b34976b6 141 TRUE, /* partial_inplace */
252b5132
RH		 142 0x1ffc0, /* src_mask */
143 0x1ffc0, /* dst_mask */
b34976b6 144 FALSE), /* pcrel_offset */
252b5132
RH		 145
146 HOWTO (R_PP15W, /* type */
147 2, /* rightshift */
148 2, /* size (0 = byte, 1 = short, 2 = long) */
149 15, /* bitsize */
b34976b6 150 FALSE, /* pc_relative */
252b5132
RH		 151 6, /* bitpos */
152 complain_overflow_dont, /* complain_on_overflow */
153 glob15_reloc, /* special_function */
154 "PP15W", /* name */
b34976b6 155 TRUE, /* partial_inplace */
252b5132
RH		 156 0x1ffc0, /* src_mask */
157 0x1ffc0, /* dst_mask */
b34976b6 158 FALSE), /* pcrel_offset */
252b5132
RH		 159
160 HOWTO (R_PP15H, /* type */
161 1, /* rightshift */
162 2, /* size (0 = byte, 1 = short, 2 = long) */
163 15, /* bitsize */
b34976b6 164 FALSE, /* pc_relative */
252b5132
RH		 165 6, /* bitpos */
166 complain_overflow_dont, /* complain_on_overflow */
167 glob15_reloc, /* special_function */
168 "PP15H", /* name */
b34976b6 169 TRUE, /* partial_inplace */
252b5132
RH		 170 0x1ffc0, /* src_mask */
171 0x1ffc0, /* dst_mask */
b34976b6 172 FALSE), /* pcrel_offset */
252b5132
RH		 173
174 HOWTO (R_PP16B, /* type */
175 0, /* rightshift */
176 2, /* size (0 = byte, 1 = short, 2 = long) */
177 16, /* bitsize */
b34976b6 178 FALSE, /* pc_relative */
252b5132
RH		 179 6, /* bitpos */
180 complain_overflow_dont, /* complain_on_overflow */
181 glob16_reloc, /* special_function */
182 "PP16B", /* name */
b34976b6 183 TRUE, /* partial_inplace */
252b5132
RH		 184 0x3ffc0, /* src_mask */
185 0x3ffc0, /* dst_mask */
b34976b6 186 FALSE), /* pcrel_offset */
252b5132
RH		 187
188 HOWTO (R_PPL15, /* type */
189 0, /* rightshift */
190 2, /* size (0 = byte, 1 = short, 2 = long) */
191 15, /* bitsize */
b34976b6 192 FALSE, /* pc_relative */
252b5132
RH		 193 0, /* bitpos */
194 complain_overflow_dont, /* complain_on_overflow */
195 NULL, /* special_function */
196 "PPL15", /* name */
b34976b6 197 TRUE, /* partial_inplace */
252b5132
RH		 198 0x7fff, /* src_mask */
199 0x7fff, /* dst_mask */
b34976b6 200 FALSE), /* pcrel_offset */
252b5132
RH		 201
202 HOWTO (R_PPL15W, /* type */
203 2, /* rightshift */
204 2, /* size (0 = byte, 1 = short, 2 = long) */
205 15, /* bitsize */
b34976b6 206 FALSE, /* pc_relative */
252b5132
RH		 207 0, /* bitpos */
208 complain_overflow_dont, /* complain_on_overflow */
209 NULL, /* special_function */
210 "PPL15W", /* name */
b34976b6 211 TRUE, /* partial_inplace */
252b5132
RH		 212 0x7fff, /* src_mask */
213 0x7fff, /* dst_mask */
b34976b6 214 FALSE), /* pcrel_offset */
252b5132
RH		 215
216 HOWTO (R_PPL15H, /* type */
217 1, /* rightshift */
218 2, /* size (0 = byte, 1 = short, 2 = long) */
219 15, /* bitsize */
b34976b6 220 FALSE, /* pc_relative */
252b5132
RH		 221 0, /* bitpos */
222 complain_overflow_dont, /* complain_on_overflow */
223 NULL, /* special_function */
224 "PPL15H", /* name */
b34976b6 225 TRUE, /* partial_inplace */
252b5132
RH		 226 0x7fff, /* src_mask */
227 0x7fff, /* dst_mask */
b34976b6 228 FALSE), /* pcrel_offset */
252b5132
RH		 229
230 HOWTO (R_PPL16B, /* type */
231 0, /* rightshift */
232 2, /* size (0 = byte, 1 = short, 2 = long) */
233 16, /* bitsize */
b34976b6 234 FALSE, /* pc_relative */
252b5132
RH		 235 0, /* bitpos */
236 complain_overflow_dont, /* complain_on_overflow */
237 local16_reloc, /* special_function */
238 "PPL16B", /* name */
b34976b6 239 TRUE, /* partial_inplace */
252b5132
RH		 240 0xffff, /* src_mask */
241 0xffff, /* dst_mask */
b34976b6 242 FALSE), /* pcrel_offset */
252b5132
RH		 243
244 HOWTO (R_PPN15, /* type */
245 0, /* rightshift */
246 -2, /* size (0 = byte, 1 = short, 2 = long) */
247 15, /* bitsize */
b34976b6 248 FALSE, /* pc_relative */
252b5132
RH		 249 6, /* bitpos */
250 complain_overflow_dont, /* complain_on_overflow */
251 glob15_reloc, /* special_function */
252 "PPN15", /* name */
b34976b6 253 TRUE, /* partial_inplace */
252b5132
RH		 254 0x1ffc0, /* src_mask */
255 0x1ffc0, /* dst_mask */
b34976b6 256 FALSE), /* pcrel_offset */
252b5132
RH		 257
258 HOWTO (R_PPN15W, /* type */
259 2, /* rightshift */
260 -2, /* size (0 = byte, 1 = short, 2 = long) */
261 15, /* bitsize */
b34976b6 262 FALSE, /* pc_relative */
252b5132
RH		 263 6, /* bitpos */
264 complain_overflow_dont, /* complain_on_overflow */
265 glob15_reloc, /* special_function */
266 "PPN15W", /* name */
b34976b6 267 TRUE, /* partial_inplace */
252b5132
RH		 268 0x1ffc0, /* src_mask */
269 0x1ffc0, /* dst_mask */
b34976b6 270 FALSE), /* pcrel_offset */
252b5132
RH		 271
272 HOWTO (R_PPN15H, /* type */
273 1, /* rightshift */
274 -2, /* size (0 = byte, 1 = short, 2 = long) */
275 15, /* bitsize */
b34976b6 276 FALSE, /* pc_relative */
252b5132
RH		 277 6, /* bitpos */
278 complain_overflow_dont, /* complain_on_overflow */
279 glob15_reloc, /* special_function */
280 "PPN15H", /* name */
b34976b6 281 TRUE, /* partial_inplace */
252b5132
RH		 282 0x1ffc0, /* src_mask */
283 0x1ffc0, /* dst_mask */
b34976b6 284 FALSE), /* pcrel_offset */
252b5132
RH		 285
286 HOWTO (R_PPN16B, /* type */
287 0, /* rightshift */
288 -2, /* size (0 = byte, 1 = short, 2 = long) */
289 16, /* bitsize */
b34976b6 290 FALSE, /* pc_relative */
252b5132
RH		 291 6, /* bitpos */
292 complain_overflow_dont, /* complain_on_overflow */
293 glob16_reloc, /* special_function */
294 "PPN16B", /* name */
b34976b6 295 TRUE, /* partial_inplace */
252b5132
RH		 296 0x3ffc0, /* src_mask */
297 0x3ffc0, /* dst_mask */
b34976b6 298 FALSE), /* pcrel_offset */
252b5132
RH		 299
300 HOWTO (R_PPLN15, /* type */
301 0, /* rightshift */
302 -2, /* size (0 = byte, 1 = short, 2 = long) */
303 15, /* bitsize */
b34976b6 304 FALSE, /* pc_relative */
252b5132
RH		 305 0, /* bitpos */
306 complain_overflow_dont, /* complain_on_overflow */
307 NULL, /* special_function */
308 "PPLN15", /* name */
b34976b6 309 TRUE, /* partial_inplace */
252b5132
RH		 310 0x7fff, /* src_mask */
311 0x7fff, /* dst_mask */
b34976b6 312 FALSE), /* pcrel_offset */
252b5132
RH		 313
314 HOWTO (R_PPLN15W, /* type */
315 2, /* rightshift */
316 -2, /* size (0 = byte, 1 = short, 2 = long) */
317 15, /* bitsize */
b34976b6 318 FALSE, /* pc_relative */
252b5132
RH		 319 0, /* bitpos */
320 complain_overflow_dont, /* complain_on_overflow */
321 NULL, /* special_function */
322 "PPLN15W", /* name */
b34976b6 323 TRUE, /* partial_inplace */
252b5132
RH		 324 0x7fff, /* src_mask */
325 0x7fff, /* dst_mask */
b34976b6 326 FALSE), /* pcrel_offset */
252b5132
RH		 327
328 HOWTO (R_PPLN15H, /* type */
329 1, /* rightshift */
330 -2, /* size (0 = byte, 1 = short, 2 = long) */
331 15, /* bitsize */
b34976b6 332 FALSE, /* pc_relative */
252b5132
RH		 333 0, /* bitpos */
334 complain_overflow_dont, /* complain_on_overflow */
335 NULL, /* special_function */
336 "PPLN15H", /* name */
b34976b6 337 TRUE, /* partial_inplace */
252b5132
RH		 338 0x7fff, /* src_mask */
339 0x7fff, /* dst_mask */
b34976b6 340 FALSE), /* pcrel_offset */
252b5132
RH		 341
342 HOWTO (R_PPLN16B, /* type */
343 0, /* rightshift */
344 -2, /* size (0 = byte, 1 = short, 2 = long) */
345 15, /* bitsize */
b34976b6 346 FALSE, /* pc_relative */
252b5132
RH		 347 0, /* bitpos */
348 complain_overflow_dont, /* complain_on_overflow */
349 local16_reloc, /* special_function */
350 "PPLN16B", /* name */
b34976b6 351 TRUE, /* partial_inplace */
252b5132
RH		 352 0xffff, /* src_mask */
353 0xffff, /* dst_mask */
b34976b6 354 FALSE) /* pcrel_offset */
252b5132
RH		 355};
356\f
357/* Special relocation functions, used when the output file is not
358 itself a COFF TIc80 file. */
359
360/* This special function is used for the base address type
361 relocations. */
362
363static bfd_reloc_status_type
2c3fc389
NC		 364ppbase_reloc (bfd *abfd ATTRIBUTE_UNUSED,
365 arelent *reloc_entry ATTRIBUTE_UNUSED,
366 asymbol *symbol_in ATTRIBUTE_UNUSED,
367 void * data ATTRIBUTE_UNUSED,
368 asection *input_section ATTRIBUTE_UNUSED,
369 bfd *output_bfd ATTRIBUTE_UNUSED,
370 char **error_message ATTRIBUTE_UNUSED)
252b5132
RH		 371{
372 /* FIXME. */
373 abort ();
374}
375
376/* This special function is used for the global 15 bit relocations. */
377
378static bfd_reloc_status_type
2c3fc389
NC		 379glob15_reloc (bfd *abfd ATTRIBUTE_UNUSED,
380 arelent *reloc_entry ATTRIBUTE_UNUSED,
381 asymbol *symbol_in ATTRIBUTE_UNUSED,
382 void * data ATTRIBUTE_UNUSED,
383 asection *input_section ATTRIBUTE_UNUSED,
384 bfd *output_bfd ATTRIBUTE_UNUSED,
385 char **error_message ATTRIBUTE_UNUSED)
252b5132
RH		 386{
387 /* FIXME. */
388 abort ();
389}
390
391/* This special function is used for the global 16 bit relocations. */
392
393static bfd_reloc_status_type
2c3fc389
NC		 394glob16_reloc (bfd *abfd ATTRIBUTE_UNUSED,
395 arelent *reloc_entry ATTRIBUTE_UNUSED,
396 asymbol *symbol_in ATTRIBUTE_UNUSED,
397 void * data ATTRIBUTE_UNUSED,
398 asection *input_section ATTRIBUTE_UNUSED,
399 bfd *output_bfd ATTRIBUTE_UNUSED,
400 char **error_message ATTRIBUTE_UNUSED)
252b5132
RH		 401{
402 /* FIXME. */
403 abort ();
404}
405
406/* This special function is used for the local 16 bit relocations. */
407
408static bfd_reloc_status_type
2c3fc389
NC		 409local16_reloc (bfd *abfd ATTRIBUTE_UNUSED,
410 arelent *reloc_entry ATTRIBUTE_UNUSED,
411 asymbol *symbol_in ATTRIBUTE_UNUSED,
412 void * data ATTRIBUTE_UNUSED,
413 asection *input_section ATTRIBUTE_UNUSED,
414 bfd *output_bfd ATTRIBUTE_UNUSED,
415 char **error_message ATTRIBUTE_UNUSED)
252b5132
RH		 416{
417 /* FIXME. */
418 abort ();
419}
420\f
421/* Code to turn an external r_type into a pointer to an entry in the howto_table.
422 If passed an r_type we don't recognize the abort rather than silently failing
cbfe05c4 423 to generate an output file. */
252b5132
RH		 424
425static void
2c3fc389 426rtype2howto (arelent *cache_ptr, struct internal_reloc *dst)
252b5132
RH		 427{
428 unsigned int i;
429
430 for (i = 0; i < sizeof tic80_howto_table / sizeof tic80_howto_table[0]; i++)
431 {
432 if (tic80_howto_table[i].type == dst->r_type)
433 {
434 cache_ptr->howto = tic80_howto_table + i;
435 return;
436 }
437 }
438
439 (*_bfd_error_handler) (_("Unrecognized reloc type 0x%x"),
440 (unsigned int) dst->r_type);
441 cache_ptr->howto = tic80_howto_table + 0;
442}
443
444#define RTYPE2HOWTO(cache_ptr, dst) rtype2howto (cache_ptr, dst)
445#define coff_rtype_to_howto coff_tic80_rtype_to_howto
446
447static reloc_howto_type *
2c3fc389
NC		 448coff_tic80_rtype_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
449 asection *sec,
450 struct internal_reloc *rel,
451 struct coff_link_hash_entry *h ATTRIBUTE_UNUSED,
452 struct internal_syment *sym ATTRIBUTE_UNUSED,
453 bfd_vma *addendp)
252b5132
RH		 454{
455 arelent genrel;
456
457 if (rel -> r_symndx == -1 && addendp != NULL)
458 {
459 /* This is a TI "internal relocation", which means that the relocation
460 amount is the amount by which the current section is being relocated
cbfe05c4 461 in the output section. */
252b5132
RH		 462 *addendp = (sec -> output_section -> vma + sec -> output_offset) - sec -> vma;
463 }
464 RTYPE2HOWTO (&genrel, rel);
465 return genrel.howto;
466}
467
468#ifndef BADMAG
469#define BADMAG(x) TIC80BADMAG(x)
470#endif
471\f
472#define coff_relocate_section coff_tic80_relocate_section
473
474/* We need a special relocation routine to handle the PP relocs. Most
475 of this is a copy of _bfd_coff_generic_relocate_section. */
476
b34976b6 477static bfd_boolean
2c3fc389
NC		 478coff_tic80_relocate_section (bfd *output_bfd,
479 struct bfd_link_info *info,
480 bfd *input_bfd,
481 asection *input_section,
482 bfd_byte *contents,
483 struct internal_reloc *relocs,
484 struct internal_syment *syms,
485 asection **sections)
252b5132
RH		 486{
487 struct internal_reloc *rel;
488 struct internal_reloc *relend;
489
490 rel = relocs;
491 relend = rel + input_section->reloc_count;
492 for (; rel < relend; rel++)
493 {
494 long symndx;
495 struct coff_link_hash_entry *h;
496 struct internal_syment *sym;
497 bfd_vma addend;
498 bfd_vma val;
499 reloc_howto_type *howto;
500 bfd_reloc_status_type rstat;
501 bfd_vma addr;
502
503 symndx = rel->r_symndx;
504
505 if (symndx == -1)
506 {
507 h = NULL;
508 sym = NULL;
509 }
510 else
cbfe05c4 511 {
252b5132
RH		 512 h = obj_coff_sym_hashes (input_bfd)[symndx];
513 sym = syms + symndx;
514 }
515
516 /* COFF treats common symbols in one of two ways. Either the
517 size of the symbol is included in the section contents, or it
518 is not. We assume that the size is not included, and force
519 the rtype_to_howto function to adjust the addend as needed. */
520
521 if (sym != NULL && sym->n_scnum != 0)
522 addend = - sym->n_value;
523 else
524 addend = 0;
525
526 howto = bfd_coff_rtype_to_howto (input_bfd, input_section, rel, h,
527 sym, &addend);
528 if (howto == NULL)
b34976b6 529 return FALSE;
252b5132
RH		 530
531 val = 0;
532
533 if (h == NULL)
534 {
535 asection *sec;
536
537 if (symndx == -1)
538 {
539 sec = bfd_abs_section_ptr;
540 val = 0;
541 }
542 else
543 {
544 sec = sections[symndx];
545 val = (sec->output_section->vma
546 + sec->output_offset
547 + sym->n_value);
548 if (! obj_pe (output_bfd))
549 val -= sec->vma;
550 }
551 }
552 else
553 {
554 if (h->root.type == bfd_link_hash_defined
555 || h->root.type == bfd_link_hash_defweak)
556 {
557 asection *sec;
558
559 sec = h->root.u.def.section;
560 val = (h->root.u.def.value
561 + sec->output_section->vma
562 + sec->output_offset);
563 }
564
1049f94e 565 else if (! info->relocatable)
252b5132
RH		 566 {
567 if (! ((*info->callbacks->undefined_symbol)
568 (info, h->root.root.string, input_bfd, input_section,
b34976b6
AM		 569 rel->r_vaddr - input_section->vma, TRUE)))
570 return FALSE;
252b5132
RH		 571 }
572 }
573
574 addr = rel->r_vaddr - input_section->vma;
575
576 /* FIXME: This code assumes little endian, but the PP can
577 apparently be bi-endian. I don't know if the bi-endianness
578 applies to the instruction set or just to the data. */
579 switch (howto->type)
580 {
581 default:
582 case R_ABS:
583 case R_RELLONGX:
584 case R_PPL15:
585 case R_PPL15W:
586 case R_PPL15H:
587 case R_PPLN15:
588 case R_PPLN15W:
589 case R_PPLN15H:
590 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
591 contents, addr, val, addend);
592 break;
593
594 case R_PP15:
595 case R_PP15W:
596 case R_PP15H:
597 case R_PPN15:
598 case R_PPN15W:
599 case R_PPN15H:
600 /* Offset the address so that we can use 4 byte relocations. */
601 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
602 contents + 2, addr, val, addend);
603 break;
604
605 case R_PP16B:
606 case R_PPN16B:
607 {
608 /* The most significant bit is stored in bit 6. */
609 bfd_byte hold;
610
611 hold = contents[addr + 4];
612 contents[addr + 4] &=~ 0x20;
613 contents[addr + 4] |= (contents[addr] >> 1) & 0x20;
614 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
615 contents + 2, addr,
616 val, addend);
617 contents[addr] &=~ 0x40;
618 contents[addr] |= (contents[addr + 4] << 1) & 0x40;
619 contents[addr + 4] &=~ 0x20;
620 contents[addr + 4] |= hold & 0x20;
621 break;
622 }
623
624 case R_PPL16B:
625 case R_PPLN16B:
626 {
627 /* The most significant bit is stored in bit 28. */
628 bfd_byte hold;
629
630 hold = contents[addr + 1];
631 contents[addr + 1] &=~ 0x80;
632 contents[addr + 1] |= (contents[addr + 3] << 3) & 0x80;
633 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
634 contents, addr,
635 val, addend);
636 contents[addr + 3] &= ~0x10;
637 contents[addr + 3] |= (contents[addr + 1] >> 3) & 0x10;
638 contents[addr + 1] &=~ 0x80;
639 contents[addr + 1] |= hold & 0x80;
640 break;
641 }
cbfe05c4 642
252b5132
RH		 643 case R_PPBASE:
644 /* Parameter RAM is from 0x1000000 to 0x1000800. */
645 contents[addr] &=~ 0x3;
646 if (val >= 0x1000000 && val < 0x1000800)
647 contents[addr] |= 0x3;
648 else
649 contents[addr] |= 0x2;
650 rstat = bfd_reloc_ok;
651 break;
652
653 case R_PPLBASE:
654 /* Parameter RAM is from 0x1000000 to 0x1000800. */
655 contents[addr + 2] &= ~0xc0;
656 if (val >= 0x1000000 && val < 0x1000800)
657 contents[addr + 2] |= 0xc0;
658 else
659 contents[addr + 2] |= 0x80;
660 rstat = bfd_reloc_ok;
661 break;
662 }
663
664 switch (rstat)
665 {
666 default:
667 abort ();
668 case bfd_reloc_ok:
669 break;
670 case bfd_reloc_outofrange:
671 (*_bfd_error_handler)
d003868e
AM		 672 (_("%B: bad reloc address 0x%lx in section `%A'"),
673 input_bfd, input_section, (unsigned long) rel->r_vaddr);
b34976b6 674 return FALSE;
252b5132
RH		 675 case bfd_reloc_overflow:
676 {
677 const char *name;
678 char buf[SYMNMLEN + 1];
679
680 if (symndx == -1)
681 name = "*ABS*";
682 else if (h != NULL)
dfeffb9f 683 name = NULL;
252b5132
RH		 684 else
685 {
686 name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
687 if (name == NULL)
b34976b6 688 return FALSE;
252b5132
RH		 689 }
690
691 if (! ((*info->callbacks->reloc_overflow)
dfeffb9f
L		 692 (info, (h ? &h->root : NULL), name, howto->name,
693 (bfd_vma) 0, input_bfd, input_section,
694 rel->r_vaddr - input_section->vma)))
b34976b6 695 return FALSE;
252b5132
RH		 696 }
697 }
698 }
b34976b6 699 return TRUE;
252b5132
RH		 700}
701\f
702#define TIC80COFF 1 /* Customize coffcode.h */
703#undef C_AUTOARG /* Clashes with TIc80's C_UEXT */
704#undef C_LASTENT /* Clashes with TIc80's C_STATLAB */
2b5c217d
NC		 705
706#ifndef bfd_pe_print_pdata
707#define bfd_pe_print_pdata NULL
708#endif
709
252b5132
RH		 710#include "coffcode.h"
711
3fa78519 712CREATE_LITTLE_COFF_TARGET_VEC (tic80coff_vec, "coff-tic80", D_PAGED, 0, '_', NULL, COFF_SWAP_TABLE)
GDB Binutils - Deliverables
This page took 0.664857 seconds and 4 git commands to generate.