]> Git Repo - binutils.git/blame - bfd/coff-tic80.c
projects / binutils.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Generate an error message if a section cannot be found for a symbol.
[binutils.git] / bfd / coff-tic80.c
CommitLineData
252b5132 1/* BFD back-end for Texas Instruments TMS320C80 Multimedia Video Processor (MVP).
b34976b6 2 Copyright 1996, 1997, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
252b5132
RH		 3
4 Written by Fred Fish ([email protected])
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, 59 Temple Place - Suite 330,
24Boston, MA 02111-1307, USA. */
25
26#include "bfd.h"
27#include "bfdlink.h"
28#include "sysdep.h"
29#include "libbfd.h"
30#include "coff/tic80.h"
31#include "coff/internal.h"
32#include "libcoff.h"
33
34#define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (2)
35#define COFF_ALIGN_IN_SECTION_HEADER 1
36#define COFF_ALIGN_IN_SFLAGS 1
37
dc810e39
AM		 38#define GET_SCNHDR_FLAGS H_GET_16
39#define PUT_SCNHDR_FLAGS H_PUT_16
252b5132
RH		 40
41static void rtype2howto
42 PARAMS ((arelent *cache_ptr, struct internal_reloc *dst));
43static bfd_reloc_status_type ppbase_reloc
44 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
45static bfd_reloc_status_type glob15_reloc
46 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
47static bfd_reloc_status_type glob16_reloc
48 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
49static bfd_reloc_status_type local16_reloc
50 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
b34976b6 51static bfd_boolean coff_tic80_relocate_section
252b5132
RH		 52 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
53 struct internal_reloc *, struct internal_syment *, asection **));
917583ad
NC		 54static reloc_howto_type * coff_tic80_rtype_to_howto
55 PARAMS ((bfd *, asection *, struct internal_reloc *,
56 struct coff_link_hash_entry *, struct internal_syment *,
57 bfd_vma *));
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
364ppbase_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd,
365 error_message)
5f771d47
ILT		 366 bfd *abfd ATTRIBUTE_UNUSED;
367 arelent *reloc_entry ATTRIBUTE_UNUSED;
368 asymbol *symbol_in ATTRIBUTE_UNUSED;
369 PTR data ATTRIBUTE_UNUSED;
370 asection *input_section ATTRIBUTE_UNUSED;
371 bfd *output_bfd ATTRIBUTE_UNUSED;
372 char **error_message ATTRIBUTE_UNUSED;
252b5132
RH		 373{
374 /* FIXME. */
375 abort ();
376}
377
378/* This special function is used for the global 15 bit relocations. */
379
380static bfd_reloc_status_type
381glob15_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd,
382 error_message)
5f771d47
ILT		 383 bfd *abfd ATTRIBUTE_UNUSED;
384 arelent *reloc_entry ATTRIBUTE_UNUSED;
385 asymbol *symbol_in ATTRIBUTE_UNUSED;
386 PTR data ATTRIBUTE_UNUSED;
387 asection *input_section ATTRIBUTE_UNUSED;
388 bfd *output_bfd ATTRIBUTE_UNUSED;
389 char **error_message ATTRIBUTE_UNUSED;
252b5132
RH		 390{
391 /* FIXME. */
392 abort ();
393}
394
395/* This special function is used for the global 16 bit relocations. */
396
397static bfd_reloc_status_type
398glob16_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd,
399 error_message)
5f771d47
ILT		 400 bfd *abfd ATTRIBUTE_UNUSED;
401 arelent *reloc_entry ATTRIBUTE_UNUSED;
402 asymbol *symbol_in ATTRIBUTE_UNUSED;
403 PTR data ATTRIBUTE_UNUSED;
404 asection *input_section ATTRIBUTE_UNUSED;
405 bfd *output_bfd ATTRIBUTE_UNUSED;
406 char **error_message ATTRIBUTE_UNUSED;
252b5132
RH		 407{
408 /* FIXME. */
409 abort ();
410}
411
412/* This special function is used for the local 16 bit relocations. */
413
414static bfd_reloc_status_type
415local16_reloc (abfd, reloc_entry, symbol_in, data, input_section, output_bfd,
416 error_message)
5f771d47
ILT		 417 bfd *abfd ATTRIBUTE_UNUSED;
418 arelent *reloc_entry ATTRIBUTE_UNUSED;
419 asymbol *symbol_in ATTRIBUTE_UNUSED;
420 PTR data ATTRIBUTE_UNUSED;
421 asection *input_section ATTRIBUTE_UNUSED;
422 bfd *output_bfd ATTRIBUTE_UNUSED;
423 char **error_message ATTRIBUTE_UNUSED;
252b5132
RH		 424{
425 /* FIXME. */
426 abort ();
427}
428\f
429/* Code to turn an external r_type into a pointer to an entry in the howto_table.
430 If passed an r_type we don't recognize the abort rather than silently failing
cbfe05c4 431 to generate an output file. */
252b5132
RH		 432
433static void
434rtype2howto (cache_ptr, dst)
435 arelent *cache_ptr;
436 struct internal_reloc *dst;
437{
438 unsigned int i;
439
440 for (i = 0; i < sizeof tic80_howto_table / sizeof tic80_howto_table[0]; i++)
441 {
442 if (tic80_howto_table[i].type == dst->r_type)
443 {
444 cache_ptr->howto = tic80_howto_table + i;
445 return;
446 }
447 }
448
449 (*_bfd_error_handler) (_("Unrecognized reloc type 0x%x"),
450 (unsigned int) dst->r_type);
451 cache_ptr->howto = tic80_howto_table + 0;
452}
453
454#define RTYPE2HOWTO(cache_ptr, dst) rtype2howto (cache_ptr, dst)
455#define coff_rtype_to_howto coff_tic80_rtype_to_howto
456
457static reloc_howto_type *
458coff_tic80_rtype_to_howto (abfd, sec, rel, h, sym, addendp)
5f771d47 459 bfd *abfd ATTRIBUTE_UNUSED;
252b5132
RH		 460 asection *sec;
461 struct internal_reloc *rel;
5f771d47
ILT		 462 struct coff_link_hash_entry *h ATTRIBUTE_UNUSED;
463 struct internal_syment *sym ATTRIBUTE_UNUSED;
252b5132
RH		 464 bfd_vma *addendp;
465{
466 arelent genrel;
467
468 if (rel -> r_symndx == -1 && addendp != NULL)
469 {
470 /* This is a TI "internal relocation", which means that the relocation
471 amount is the amount by which the current section is being relocated
cbfe05c4 472 in the output section. */
252b5132
RH		 473 *addendp = (sec -> output_section -> vma + sec -> output_offset) - sec -> vma;
474 }
475 RTYPE2HOWTO (&genrel, rel);
476 return genrel.howto;
477}
478
479#ifndef BADMAG
480#define BADMAG(x) TIC80BADMAG(x)
481#endif
482\f
483#define coff_relocate_section coff_tic80_relocate_section
484
485/* We need a special relocation routine to handle the PP relocs. Most
486 of this is a copy of _bfd_coff_generic_relocate_section. */
487
b34976b6 488static bfd_boolean
252b5132
RH		 489coff_tic80_relocate_section (output_bfd, info, input_bfd,
490 input_section, contents, relocs, syms,
491 sections)
492 bfd *output_bfd;
493 struct bfd_link_info *info;
494 bfd *input_bfd;
495 asection *input_section;
496 bfd_byte *contents;
497 struct internal_reloc *relocs;
498 struct internal_syment *syms;
499 asection **sections;
500{
501 struct internal_reloc *rel;
502 struct internal_reloc *relend;
503
504 rel = relocs;
505 relend = rel + input_section->reloc_count;
506 for (; rel < relend; rel++)
507 {
508 long symndx;
509 struct coff_link_hash_entry *h;
510 struct internal_syment *sym;
511 bfd_vma addend;
512 bfd_vma val;
513 reloc_howto_type *howto;
514 bfd_reloc_status_type rstat;
515 bfd_vma addr;
516
517 symndx = rel->r_symndx;
518
519 if (symndx == -1)
520 {
521 h = NULL;
522 sym = NULL;
523 }
524 else
cbfe05c4 525 {
252b5132
RH		 526 h = obj_coff_sym_hashes (input_bfd)[symndx];
527 sym = syms + symndx;
528 }
529
530 /* COFF treats common symbols in one of two ways. Either the
531 size of the symbol is included in the section contents, or it
532 is not. We assume that the size is not included, and force
533 the rtype_to_howto function to adjust the addend as needed. */
534
535 if (sym != NULL && sym->n_scnum != 0)
536 addend = - sym->n_value;
537 else
538 addend = 0;
539
540 howto = bfd_coff_rtype_to_howto (input_bfd, input_section, rel, h,
541 sym, &addend);
542 if (howto == NULL)
b34976b6 543 return FALSE;
252b5132
RH		 544
545 val = 0;
546
547 if (h == NULL)
548 {
549 asection *sec;
550
551 if (symndx == -1)
552 {
553 sec = bfd_abs_section_ptr;
554 val = 0;
555 }
556 else
557 {
558 sec = sections[symndx];
559 val = (sec->output_section->vma
560 + sec->output_offset
561 + sym->n_value);
562 if (! obj_pe (output_bfd))
563 val -= sec->vma;
564 }
565 }
566 else
567 {
568 if (h->root.type == bfd_link_hash_defined
569 || h->root.type == bfd_link_hash_defweak)
570 {
571 asection *sec;
572
573 sec = h->root.u.def.section;
574 val = (h->root.u.def.value
575 + sec->output_section->vma
576 + sec->output_offset);
577 }
578
579 else if (! info->relocateable)
580 {
581 if (! ((*info->callbacks->undefined_symbol)
582 (info, h->root.root.string, input_bfd, input_section,
b34976b6
AM		 583 rel->r_vaddr - input_section->vma, TRUE)))
584 return FALSE;
252b5132
RH		 585 }
586 }
587
588 addr = rel->r_vaddr - input_section->vma;
589
590 /* FIXME: This code assumes little endian, but the PP can
591 apparently be bi-endian. I don't know if the bi-endianness
592 applies to the instruction set or just to the data. */
593 switch (howto->type)
594 {
595 default:
596 case R_ABS:
597 case R_RELLONGX:
598 case R_PPL15:
599 case R_PPL15W:
600 case R_PPL15H:
601 case R_PPLN15:
602 case R_PPLN15W:
603 case R_PPLN15H:
604 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
605 contents, addr, val, addend);
606 break;
607
608 case R_PP15:
609 case R_PP15W:
610 case R_PP15H:
611 case R_PPN15:
612 case R_PPN15W:
613 case R_PPN15H:
614 /* Offset the address so that we can use 4 byte relocations. */
615 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
616 contents + 2, addr, val, addend);
617 break;
618
619 case R_PP16B:
620 case R_PPN16B:
621 {
622 /* The most significant bit is stored in bit 6. */
623 bfd_byte hold;
624
625 hold = contents[addr + 4];
626 contents[addr + 4] &=~ 0x20;
627 contents[addr + 4] |= (contents[addr] >> 1) & 0x20;
628 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
629 contents + 2, addr,
630 val, addend);
631 contents[addr] &=~ 0x40;
632 contents[addr] |= (contents[addr + 4] << 1) & 0x40;
633 contents[addr + 4] &=~ 0x20;
634 contents[addr + 4] |= hold & 0x20;
635 break;
636 }
637
638 case R_PPL16B:
639 case R_PPLN16B:
640 {
641 /* The most significant bit is stored in bit 28. */
642 bfd_byte hold;
643
644 hold = contents[addr + 1];
645 contents[addr + 1] &=~ 0x80;
646 contents[addr + 1] |= (contents[addr + 3] << 3) & 0x80;
647 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
648 contents, addr,
649 val, addend);
650 contents[addr + 3] &= ~0x10;
651 contents[addr + 3] |= (contents[addr + 1] >> 3) & 0x10;
652 contents[addr + 1] &=~ 0x80;
653 contents[addr + 1] |= hold & 0x80;
654 break;
655 }
cbfe05c4 656
252b5132
RH		 657 case R_PPBASE:
658 /* Parameter RAM is from 0x1000000 to 0x1000800. */
659 contents[addr] &=~ 0x3;
660 if (val >= 0x1000000 && val < 0x1000800)
661 contents[addr] |= 0x3;
662 else
663 contents[addr] |= 0x2;
664 rstat = bfd_reloc_ok;
665 break;
666
667 case R_PPLBASE:
668 /* Parameter RAM is from 0x1000000 to 0x1000800. */
669 contents[addr + 2] &= ~0xc0;
670 if (val >= 0x1000000 && val < 0x1000800)
671 contents[addr + 2] |= 0xc0;
672 else
673 contents[addr + 2] |= 0x80;
674 rstat = bfd_reloc_ok;
675 break;
676 }
677
678 switch (rstat)
679 {
680 default:
681 abort ();
682 case bfd_reloc_ok:
683 break;
684 case bfd_reloc_outofrange:
685 (*_bfd_error_handler)
686 (_("%s: bad reloc address 0x%lx in section `%s'"),
8f615d07 687 bfd_archive_filename (input_bfd),
252b5132
RH		 688 (unsigned long) rel->r_vaddr,
689 bfd_get_section_name (input_bfd, input_section));
b34976b6 690 return FALSE;
252b5132
RH		 691 case bfd_reloc_overflow:
692 {
693 const char *name;
694 char buf[SYMNMLEN + 1];
695
696 if (symndx == -1)
697 name = "*ABS*";
698 else if (h != NULL)
699 name = h->root.root.string;
700 else
701 {
702 name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
703 if (name == NULL)
b34976b6 704 return FALSE;
252b5132
RH		 705 }
706
707 if (! ((*info->callbacks->reloc_overflow)
708 (info, name, howto->name, (bfd_vma) 0, input_bfd,
709 input_section, rel->r_vaddr - input_section->vma)))
b34976b6 710 return FALSE;
252b5132
RH		 711 }
712 }
713 }
b34976b6 714 return TRUE;
252b5132
RH		 715}
716\f
717#define TIC80COFF 1 /* Customize coffcode.h */
718#undef C_AUTOARG /* Clashes with TIc80's C_UEXT */
719#undef C_LASTENT /* Clashes with TIc80's C_STATLAB */
720#include "coffcode.h"
721
c3c89269 722CREATE_LITTLE_COFF_TARGET_VEC (tic80coff_vec, "coff-tic80", D_PAGED, 0, '_', NULL)
Empty description
This page took 0.405655 seconds and 4 git commands to generate.