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