1 /* BFD back-end for Motorola 88000 COFF "Binary Compatibility Standard" 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. */
22 #define M88 1 /* Customize various include files */
26 #include "coff/m88k.h"
27 #include "coff/internal.h"
30 static bfd_reloc_status_type m88k_special_reloc
31 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
33 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (3)
35 #define GET_SCNHDR_NRELOC H_GET_32
36 #define GET_SCNHDR_NLNNO H_GET_32
38 /* On coff-m88k, local labels start with '@'. */
40 #define coff_bfd_is_local_label_name m88k_is_local_label_name
43 m88k_is_local_label_name (bfd
*abfd ATTRIBUTE_UNUSED
, const char *name
)
45 return name
[0] == '@';
48 static bfd_reloc_status_type
49 m88k_special_reloc (bfd
*abfd
,
53 asection
*input_section
,
55 char **error_message ATTRIBUTE_UNUSED
)
57 reloc_howto_type
*howto
= reloc_entry
->howto
;
63 if (output_bfd
!= (bfd
*) NULL
)
65 /* This is a partial relocation, and we want to apply the
66 relocation to the reloc entry rather than the raw data.
67 Modify the reloc inplace to reflect what we now know. */
69 reloc_entry
->address
+= input_section
->output_offset
;
73 bfd_vma output_base
= 0;
74 bfd_vma addr
= reloc_entry
->address
;
76 asection
*reloc_target_output_section
;
79 if (! bfd_reloc_offset_in_range (howto
, abfd
, input_section
,
81 * bfd_octets_per_byte (abfd
)))
82 return bfd_reloc_outofrange
;
84 x
= bfd_get_16 (abfd
, (bfd_byte
*) data
+ addr
);
86 /* Work out which section the relocation is targeted at and the
87 initial relocation command value. */
89 /* Get symbol value. (Common symbols are special.) */
90 if (bfd_is_com_section (symbol
->section
))
93 relocation
= symbol
->value
;
95 reloc_target_output_section
= symbol
->section
->output_section
;
97 /* Convert input-section-relative symbol value to absolute. */
101 output_base
= reloc_target_output_section
->vma
;
103 relocation
+= output_base
+ symbol
->section
->output_offset
;
105 /* Add in supplied addend. */
106 relocation
+= ((reloc_entry
->addend
<< howto
->bitsize
) + x
);
108 reloc_entry
->addend
= 0;
110 relocation
>>= (bfd_vma
) howto
->rightshift
;
112 /* Shift everything up to where it's going to be used */
114 relocation
<<= (bfd_vma
) howto
->bitpos
;
117 bfd_put_16 (abfd
, (bfd_vma
) relocation
,
118 (unsigned char *) data
+ addr
);
121 /* If we are not producing relocatable output, return an error if
122 the symbol is not defined. */
123 if (bfd_is_und_section (symbol
->section
) && output_bfd
== (bfd
*) NULL
)
124 return bfd_reloc_undefined
;
129 if (output_bfd
!= (bfd
*) NULL
)
131 /* This is a partial relocation, and we want to apply the
132 relocation to the reloc entry rather than the raw data.
133 Modify the reloc inplace to reflect what we now know. */
135 reloc_entry
->address
+= input_section
->output_offset
;
141 if (output_bfd
== (bfd
*) NULL
)
142 return bfd_reloc_continue
;
147 static reloc_howto_type howto_table
[] =
149 HOWTO (R_PCR16L
, /* type */
151 1, /* size (0 = byte, 1 = short, 2 = long) */
153 TRUE
, /* pc_relative */
155 complain_overflow_signed
, /* complain_on_overflow */
156 m88k_special_reloc
, /* special_function */
158 FALSE
, /* partial_inplace */
159 0x0000ffff, /* src_mask */
160 0x0000ffff, /* dst_mask */
161 TRUE
), /* pcrel_offset */
163 HOWTO (R_PCR26L
, /* type */
165 2, /* size (0 = byte, 1 = short, 2 = long) */
167 TRUE
, /* pc_relative */
169 complain_overflow_signed
, /* complain_on_overflow */
170 m88k_special_reloc
, /* special_function */
172 FALSE
, /* partial_inplace */
173 0x03ffffff, /* src_mask */
174 0x03ffffff, /* dst_mask */
175 TRUE
), /* pcrel_offset */
177 HOWTO (R_VRT16
, /* type */
179 1, /* size (0 = byte, 1 = short, 2 = long) */
181 FALSE
, /* pc_relative */
183 complain_overflow_bitfield
, /* complain_on_overflow */
184 m88k_special_reloc
, /* special_function */
186 FALSE
, /* partial_inplace */
187 0x0000ffff, /* src_mask */
188 0x0000ffff, /* dst_mask */
189 TRUE
), /* pcrel_offset */
191 HOWTO (R_HVRT16
, /* type */
193 1, /* size (0 = byte, 1 = short, 2 = long) */
195 FALSE
, /* pc_relative */
197 complain_overflow_dont
, /* complain_on_overflow */
198 m88k_special_reloc
, /* special_function */
200 FALSE
, /* partial_inplace */
201 0x0000ffff, /* src_mask */
202 0x0000ffff, /* dst_mask */
203 TRUE
), /* pcrel_offset */
205 HOWTO (R_LVRT16
, /* type */
207 1, /* size (0 = byte, 1 = short, 2 = long) */
209 FALSE
, /* pc_relative */
211 complain_overflow_dont
, /* complain_on_overflow */
212 m88k_special_reloc
, /* special_function */
214 FALSE
, /* partial_inplace */
215 0x0000ffff, /* src_mask */
216 0x0000ffff, /* dst_mask */
217 TRUE
), /* pcrel_offset */
219 HOWTO (R_VRT32
, /* type */
221 2, /* size (0 = byte, 1 = short, 2 = long) */
223 FALSE
, /* pc_relative */
225 complain_overflow_bitfield
, /* complain_on_overflow */
226 m88k_special_reloc
, /* special_function */
228 FALSE
, /* partial_inplace */
229 0xffffffff, /* src_mask */
230 0xffffffff, /* dst_mask */
231 TRUE
), /* pcrel_offset */
234 /* Code to turn an external r_type into a pointer to an entry in the
235 above howto table. */
237 rtype2howto (arelent
*cache_ptr
, struct internal_reloc
*dst
)
239 if (dst
->r_type
>= R_PCR16L
&& dst
->r_type
<= R_VRT32
)
241 cache_ptr
->howto
= howto_table
+ dst
->r_type
- R_PCR16L
;
249 #define RTYPE2HOWTO(cache_ptr, dst) rtype2howto (cache_ptr, dst)
251 /* Code to swap in the reloc offset */
252 #define SWAP_IN_RELOC_OFFSET H_GET_16
253 #define SWAP_OUT_RELOC_OFFSET H_PUT_16
255 #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \
256 reloc_processing(relent, reloc, symbols, abfd, section)
259 reloc_processing (arelent
*relent
,
260 struct internal_reloc
*reloc
,
265 relent
->address
= reloc
->r_vaddr
;
266 rtype2howto (relent
, reloc
);
268 if (((int) reloc
->r_symndx
) > 0)
270 relent
->sym_ptr_ptr
= symbols
+ obj_convert (abfd
)[reloc
->r_symndx
];
274 relent
->sym_ptr_ptr
= bfd_abs_section_ptr
->symbol_ptr_ptr
;
277 relent
->addend
= reloc
->r_offset
;
278 relent
->address
-= section
->vma
;
281 #define BADMAG(x) MC88BADMAG(x)
283 #ifndef bfd_pe_print_pdata
284 #define bfd_pe_print_pdata NULL
287 #include "coffcode.h"
289 #undef coff_write_armap
291 CREATE_BIG_COFF_TARGET_VEC (m88k_coff_bcs_vec
, "coff-m88kbcs", 0, 0, '_', NULL
, COFF_SWAP_TABLE
)