1 /* BFD back-end for Intel 960 COFF files.
2 Copyright (C) 1990-2018 Free Software Foundation, Inc.
3 Written by Cygnus Support.
5 This file is part of BFD, the Binary File Descriptor library.
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 3 of the License, or
10 (at your option) any later version.
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.
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., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
23 #define BADMAG(x) I960BADMAG(x)
28 #include "coff/i960.h"
29 #include "coff/internal.h"
31 #ifndef bfd_pe_print_pdata
32 #define bfd_pe_print_pdata NULL
35 #include "libcoff.h" /* To allow easier abstraction-breaking. */
38 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
39 #define COFF_ALIGN_IN_SECTION_HEADER 1
41 #define GET_SCNHDR_ALIGN H_GET_32
42 #define PUT_SCNHDR_ALIGN H_PUT_32
44 /* The i960 does not support an MMU, so COFF_PAGE_SIZE can be
46 #define COFF_PAGE_SIZE 1
48 #define COFF_LONG_FILENAMES
50 /* This set of local label names is taken from gas. */
53 coff_i960_is_local_label_name (bfd
*abfd ATTRIBUTE_UNUSED
, const char *name
)
55 return (name
[0] == 'L'
62 /* This is just like the usual CALC_ADDEND, but it includes the
63 section VMA for PC relative relocs. */
65 #define CALC_ADDEND(abfd, ptr, reloc, cache_ptr) \
67 coff_symbol_type *coffsym = (coff_symbol_type *) NULL; \
68 if (ptr && bfd_asymbol_bfd (ptr) != abfd) \
69 coffsym = (obj_symbols (abfd) \
70 + (cache_ptr->sym_ptr_ptr - symbols)); \
72 coffsym = coff_symbol_from (ptr); \
73 if (coffsym != (coff_symbol_type *) NULL \
74 && coffsym->native->u.syment.n_scnum == 0) \
75 cache_ptr->addend = 0; \
76 else if (ptr && bfd_asymbol_bfd (ptr) == abfd \
77 && ptr->section != (asection *) NULL) \
78 cache_ptr->addend = - (ptr->section->vma + ptr->value); \
80 cache_ptr->addend = 0; \
81 if (ptr && (reloc.r_type == 25 || reloc.r_type == 27)) \
82 cache_ptr->addend += asect->vma; \
86 #define CALLS 0x66003800 /* Template for 'calls' instruction */
87 #define BAL 0x0b000000 /* Template for 'bal' instruction */
88 #define BAL_MASK 0x00ffffff
90 static bfd_reloc_status_type
91 optcall_callback (bfd
*abfd
,
95 asection
*input_section
,
96 bfd
*ignore_bfd ATTRIBUTE_UNUSED
,
99 /* This item has already been relocated correctly, but we may be
100 * able to patch in yet better code - done by digging out the
101 * correct info on this symbol */
102 bfd_reloc_status_type result
;
103 coff_symbol_type
*cs
= coffsymbol(symbol_in
);
105 /* Don't do anything with symbols which aren't tied up yet,
106 except move the reloc. */
107 if (bfd_is_und_section (cs
->symbol
.section
)) {
108 reloc_entry
->address
+= input_section
->output_offset
;
112 /* So the target symbol has to be of coff type, and the symbol
113 has to have the correct native information within it */
114 if ((bfd_asymbol_flavour(&cs
->symbol
) != bfd_target_coff_flavour
)
115 || (cs
->native
== (combined_entry_type
*)NULL
))
117 /* This is interesting, consider the case where we're outputting coff
118 from a mix n match input, linking from coff to a symbol defined in a
119 bout file will cause this match to be true. Should I complain? This
120 will only work if the bout symbol is non leaf. */
122 (char *) _("uncertain calling convention for non-COFF symbol");
123 result
= bfd_reloc_dangerous
;
127 switch (cs
->native
->u
.syment
.n_sclass
)
131 /* This is a call to a leaf procedure, replace instruction with a bal
132 to the correct location. */
134 union internal_auxent
*aux
= &((cs
->native
+2)->u
.auxent
);
135 int word
= bfd_get_32 (abfd
, (bfd_byte
*)data
+ reloc_entry
->address
);
136 int olf
= (aux
->x_bal
.x_balntry
- cs
->native
->u
.syment
.n_value
);
137 BFD_ASSERT(cs
->native
->u
.syment
.n_numaux
==2);
139 /* We replace the original call instruction with a bal to
140 the bal entry point - the offset of which is described in
141 the 2nd auxent of the original symbol. We keep the native
142 sym and auxents untouched, so the delta between the two
143 is the offset of the bal entry point. */
144 word
= ((word
+ olf
) & BAL_MASK
) | BAL
;
145 bfd_put_32 (abfd
, (bfd_vma
) word
,
146 (bfd_byte
*) data
+ reloc_entry
->address
);
148 result
= bfd_reloc_ok
;
151 /* This is a call to a system call, replace with a calls to # */
153 result
= bfd_reloc_ok
;
156 result
= bfd_reloc_ok
;
163 /* i960 COFF is used by VxWorks 5.1. However, VxWorks 5.1 does not
164 appear to correctly handle a reloc against a symbol defined in the
165 same object file. It appears to simply discard such relocs, rather
166 than adding their values into the object file. We handle this here
167 by converting all relocs against defined symbols into relocs
168 against the section symbol, when generating a relocatable output
171 Note that this function is only called if we are not using the COFF
172 specific backend linker. It only does something when doing a
173 relocatable link, which will almost certainly fail when not
174 generating COFF i960 output, so this function is actually no longer
175 useful. It was used before this target was converted to use the
176 COFF specific backend linker. */
178 static bfd_reloc_status_type
179 coff_i960_relocate (bfd
*abfd
,
180 arelent
*reloc_entry
,
182 void * data ATTRIBUTE_UNUSED
,
183 asection
*input_section ATTRIBUTE_UNUSED
,
185 char **error_message ATTRIBUTE_UNUSED
)
189 if (output_bfd
== NULL
)
191 /* Not generating relocatable output file. */
192 return bfd_reloc_continue
;
195 if (bfd_is_und_section (bfd_get_section (symbol
)))
197 /* Symbol is not defined, so no need to worry about it. */
198 return bfd_reloc_continue
;
201 if (bfd_is_com_section (bfd_get_section (symbol
)))
203 /* I don't really know what the right action is for a common
205 return bfd_reloc_continue
;
208 /* Convert the reloc to use the section symbol. FIXME: This method
210 osec
= bfd_get_section (symbol
)->output_section
;
211 if (coff_section_data (output_bfd
, osec
) != NULL
212 && coff_section_data (output_bfd
, osec
)->tdata
!= NULL
)
213 reloc_entry
->sym_ptr_ptr
=
214 (asymbol
**) coff_section_data (output_bfd
, osec
)->tdata
;
217 const char *sec_name
;
218 asymbol
**syms
, **sym_end
;
220 sec_name
= bfd_get_section_name (output_bfd
, osec
);
221 syms
= bfd_get_outsymbols (output_bfd
);
222 sym_end
= syms
+ bfd_get_symcount (output_bfd
);
223 for (; syms
< sym_end
; syms
++)
225 if (bfd_asymbol_name (*syms
) != NULL
226 && (*syms
)->value
== 0
227 && strcmp ((*syms
)->section
->output_section
->name
,
235 reloc_entry
->sym_ptr_ptr
= syms
;
237 if (coff_section_data (output_bfd
, osec
) == NULL
)
239 bfd_size_type amt
= sizeof (struct coff_section_tdata
);
240 osec
->used_by_bfd
= bfd_zalloc (abfd
, amt
);
241 if (osec
->used_by_bfd
== NULL
)
242 return bfd_reloc_overflow
;
244 coff_section_data (output_bfd
, osec
)->tdata
= syms
;
247 /* Let bfd_perform_relocation do its thing, which will include
248 stuffing the symbol addend into the object file. */
249 return bfd_reloc_continue
;
252 static reloc_howto_type howto_rellong
=
253 HOWTO ((unsigned int) R_RELLONG
, 0, 2, 32,FALSE
, 0,
254 complain_overflow_bitfield
, coff_i960_relocate
,"rellong", TRUE
,
255 0xffffffff, 0xffffffff, 0);
256 static reloc_howto_type howto_iprmed
=
257 HOWTO (R_IPRMED
, 0, 2, 24,TRUE
,0, complain_overflow_signed
,
258 coff_i960_relocate
, "iprmed ", TRUE
, 0x00ffffff, 0x00ffffff, 0);
259 static reloc_howto_type howto_optcall
=
260 HOWTO (R_OPTCALL
, 0,2,24,TRUE
,0, complain_overflow_signed
,
261 optcall_callback
, "optcall", TRUE
, 0x00ffffff, 0x00ffffff, 0);
263 static reloc_howto_type
*
264 coff_i960_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
265 bfd_reloc_code_real_type code
)
271 case BFD_RELOC_I960_CALLJ
:
272 return &howto_optcall
;
275 return &howto_rellong
;
276 case BFD_RELOC_24_PCREL
:
277 return &howto_iprmed
;
281 static reloc_howto_type
*
282 coff_i960_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
285 if (strcasecmp (howto_optcall
.name
, r_name
) == 0)
286 return &howto_optcall
;
287 if (strcasecmp (howto_rellong
.name
, r_name
) == 0)
288 return &howto_rellong
;
289 if (strcasecmp (howto_iprmed
.name
, r_name
) == 0)
290 return &howto_iprmed
;
295 /* The real code is in coffcode.h */
297 #define RTYPE2HOWTO(cache_ptr, dst) \
299 reloc_howto_type *howto_ptr; \
300 switch ((dst)->r_type) { \
301 case 17: howto_ptr = &howto_rellong; break; \
302 case 25: howto_ptr = &howto_iprmed; break; \
303 case 27: howto_ptr = &howto_optcall; break; \
304 default: howto_ptr = 0; break; \
306 (cache_ptr)->howto = howto_ptr; \
309 /* i960 COFF is used by VxWorks 5.1. However, VxWorks 5.1 does not
310 appear to correctly handle a reloc against a symbol defined in the
311 same object file. It appears to simply discard such relocs, rather
312 than adding their values into the object file. We handle this by
313 converting all relocs against global symbols into relocs against
314 internal symbols at the start of the section. This routine is
315 called at the start of the linking process, and it creates the
316 necessary symbols. */
319 coff_i960_start_final_link (bfd
*abfd
, struct bfd_link_info
*info
)
321 bfd_size_type symesz
= bfd_coff_symesz (abfd
);
325 if (! bfd_link_relocatable (info
))
328 esym
= (bfd_byte
*) bfd_malloc (symesz
);
332 if (bfd_seek (abfd
, obj_sym_filepos (abfd
), SEEK_SET
) != 0)
335 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
337 struct internal_syment isym
;
339 strncpy (isym
._n
._n_name
, o
->name
, SYMNMLEN
);
341 isym
.n_scnum
= o
->target_index
;
342 isym
.n_type
= T_NULL
;
343 isym
.n_sclass
= C_STAT
;
346 bfd_coff_swap_sym_out (abfd
, &isym
, esym
);
348 if (bfd_bwrite (esym
, symesz
, abfd
) != symesz
)
354 obj_raw_syment_count (abfd
) += 1;
362 /* The reloc processing routine for the optimized COFF linker. */
365 coff_i960_relocate_section (bfd
*output_bfd ATTRIBUTE_UNUSED
,
366 struct bfd_link_info
*info
,
368 asection
*input_section
,
370 struct internal_reloc
*relocs
,
371 struct internal_syment
*syms
,
374 struct internal_reloc
*rel
;
375 struct internal_reloc
*relend
;
378 relend
= rel
+ input_section
->reloc_count
;
379 for (; rel
< relend
; rel
++)
382 struct coff_link_hash_entry
*h
;
383 struct internal_syment
*sym
;
386 reloc_howto_type
*howto
;
387 bfd_reloc_status_type rstat
= bfd_reloc_ok
;
390 symndx
= rel
->r_symndx
;
399 h
= obj_coff_sym_hashes (input_bfd
)[symndx
];
403 if (sym
!= NULL
&& sym
->n_scnum
!= 0)
404 addend
= - sym
->n_value
;
410 case 17: howto
= &howto_rellong
; break;
411 case 25: howto
= &howto_iprmed
; break;
412 case 27: howto
= &howto_optcall
; break;
414 bfd_set_error (bfd_error_bad_value
);
426 sec
= bfd_abs_section_ptr
;
431 sec
= sections
[symndx
];
432 val
= (sec
->output_section
->vma
440 if (h
->root
.type
== bfd_link_hash_defined
441 || h
->root
.type
== bfd_link_hash_defweak
)
445 sec
= h
->root
.u
.def
.section
;
446 val
= (h
->root
.u
.def
.value
447 + sec
->output_section
->vma
448 + sec
->output_offset
);
450 else if (! bfd_link_relocatable (info
))
451 (*info
->callbacks
->undefined_symbol
)
452 (info
, h
->root
.root
.string
, input_bfd
, input_section
,
453 rel
->r_vaddr
- input_section
->vma
, TRUE
);
458 if (howto
->type
== R_OPTCALL
&& ! bfd_link_relocatable (info
) && symndx
!= -1)
463 class_val
= h
->symbol_class
;
465 class_val
= sym
->n_sclass
;
470 /* This symbol is apparently not from a COFF input file.
471 We warn, and then assume that it is not a leaf
473 (*info
->callbacks
->reloc_dangerous
)
475 _("uncertain calling convention for non-COFF symbol"),
476 input_bfd
, input_section
,
477 rel
->r_vaddr
- input_section
->vma
);
481 /* This is a call to a leaf procedure; use the bal
489 BFD_ASSERT (h
->numaux
== 2);
490 olf
= h
->aux
[1].x_bal
.x_balntry
;
495 union internal_auxent aux
;
497 BFD_ASSERT (sym
->n_numaux
== 2);
498 esyms
= (bfd_byte
*) obj_coff_external_syms (input_bfd
);
499 esyms
+= (symndx
+ 2) * bfd_coff_symesz (input_bfd
);
500 bfd_coff_swap_aux_in (input_bfd
, esyms
, sym
->n_type
,
501 sym
->n_sclass
, 1, sym
->n_numaux
,
503 olf
= aux
.x_bal
.x_balntry
;
506 word
= bfd_get_32 (input_bfd
,
508 + (rel
->r_vaddr
- input_section
->vma
)));
509 word
= ((word
+ olf
- val
) & BAL_MASK
) | BAL
;
510 bfd_put_32 (input_bfd
,
512 contents
+ (rel
->r_vaddr
- input_section
->vma
));
524 if (howto
->pc_relative
)
525 addend
+= input_section
->vma
;
526 rstat
= _bfd_final_link_relocate (howto
, input_bfd
, input_section
,
528 rel
->r_vaddr
- input_section
->vma
,
538 case bfd_reloc_overflow
:
541 char buf
[SYMNMLEN
+ 1];
549 name
= _bfd_coff_internal_syment_name (input_bfd
, sym
, buf
);
554 (*info
->callbacks
->reloc_overflow
)
555 (info
, (h
? &h
->root
: NULL
), name
, howto
->name
,
556 (bfd_vma
) 0, input_bfd
, input_section
,
557 rel
->r_vaddr
- input_section
->vma
);
565 /* Adjust the symbol index of any reloc against a global symbol to
566 instead be a reloc against the internal symbol we created specially
570 coff_i960_adjust_symndx (bfd
*obfd ATTRIBUTE_UNUSED
,
571 struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
573 asection
*sec ATTRIBUTE_UNUSED
,
574 struct internal_reloc
*irel
,
575 bfd_boolean
*adjustedp
)
577 struct coff_link_hash_entry
*h
;
581 h
= obj_coff_sym_hashes (ibfd
)[irel
->r_symndx
];
583 || (h
->root
.type
!= bfd_link_hash_defined
584 && h
->root
.type
!= bfd_link_hash_defweak
))
587 irel
->r_symndx
= h
->root
.u
.def
.section
->output_section
->target_index
- 1;
593 #define coff_bfd_is_local_label_name coff_i960_is_local_label_name
595 #define coff_start_final_link coff_i960_start_final_link
597 #define coff_relocate_section coff_i960_relocate_section
599 #define coff_adjust_symndx coff_i960_adjust_symndx
601 #define coff_bfd_reloc_type_lookup coff_i960_reloc_type_lookup
602 #define coff_bfd_reloc_name_lookup coff_i960_reloc_name_lookup
604 #include "coffcode.h"
606 extern const bfd_target icoff_be_vec
;
608 CREATE_LITTLE_COFF_TARGET_VEC (icoff_le_vec
, "coff-Intel-little", 0, 0, '_', & icoff_be_vec
, COFF_SWAP_TABLE
)
610 const bfd_target icoff_be_vec
=
612 "coff-Intel-big", /* name */
613 bfd_target_coff_flavour
,
614 BFD_ENDIAN_LITTLE
, /* data byte order is little */
615 BFD_ENDIAN_BIG
, /* header byte order is big */
617 (HAS_RELOC
| EXEC_P
/* object flags */
618 | HAS_LINENO
| HAS_DEBUG
619 | HAS_SYMS
| HAS_LOCALS
| WP_TEXT
),
621 (SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
622 '_', /* leading underscore */
623 '/', /* ar_pad_char */
624 15, /* ar_max_namelen */
625 0, /* match priority. */
627 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
628 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
629 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
, /* data */
630 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
631 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
632 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
634 { /* bfd_check_format */
637 bfd_generic_archive_p
,
640 { /* bfd_set_format */
641 _bfd_bool_bfd_false_error
,
643 _bfd_generic_mkarchive
,
644 _bfd_bool_bfd_false_error
646 { /* bfd_write_contents */
647 _bfd_bool_bfd_false_error
,
648 coff_write_object_contents
,
649 _bfd_write_archive_contents
,
650 _bfd_bool_bfd_false_error
653 BFD_JUMP_TABLE_GENERIC (coff
),
654 BFD_JUMP_TABLE_COPY (coff
),
655 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
656 BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff
),
657 BFD_JUMP_TABLE_SYMBOLS (coff
),
658 BFD_JUMP_TABLE_RELOCS (coff
),
659 BFD_JUMP_TABLE_WRITE (coff
),
660 BFD_JUMP_TABLE_LINK (coff
),
661 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),