1 /* BFD back-end for ns32k a.out-ish binaries.
2 Copyright (C) 1990-2020 Free Software Foundation, Inc.
3 Contributed by Ian Dall (idall@eleceng.adelaide.edu.au).
4
5 This file is part of BFD, the Binary File Descriptor library.
6
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.
11
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.
16
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. */
21
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "aout/aout64.h"
25 #include "ns32k.h"
26
27 /* Do not "beautify" the CONCAT* macro args. Traditional C will not
28 remove whitespace added here, and thus will fail to concatenate
29 the tokens. */
30 #define MYNS(OP) CONCAT2 (ns32k_aout_,OP)
31
32 reloc_howto_type * MYNS (bfd_reloc_type_lookup) (bfd *, bfd_reloc_code_real_type);
33 reloc_howto_type * MYNS (bfd_reloc_name_lookup) (bfd *, const char *);
34 bfd_boolean MYNS (write_object_contents) (bfd *);
35
36 /* Avoid multiple definitions from aoutx if supporting
37 standard a.out format(s) as well as this one. */
38 #define NAME(x,y) CONCAT3 (ns32kaout,_32_,y)
39
40 void bfd_ns32k_arch (void);
41
42 #include "libaout.h"
43
44 #define MY(OP) MYNS (OP)
45
46 #define MY_swap_std_reloc_in MY (swap_std_reloc_in)
47 #define MY_swap_std_reloc_out MY (swap_std_reloc_out)
48
49 /* The ns32k series is ah, unusual, when it comes to relocation.
50 There are three storage methods for relocatable objects. There
51 are displacements, immediate operands and ordinary twos complement
52 data. Of these, only the last fits into the standard relocation
53 scheme. Immediate operands are stored huffman encoded and
54 immediate operands are stored big endian (where as the natural byte
55 order is little endian for this architecture).
56
57 Note that the ns32k displacement storage method is orthogonal to
58 whether the relocation is pc relative or not. The "displacement"
59 storage scheme is used for essentially all address constants. The
60 displacement can be relative to zero (absolute displacement),
61 relative to the pc (pc relative), the stack pointer, the frame
62 pointer, the static base register and general purpose register etc.
63
64 For example:
65
66 sym1: .long . # pc relative 2's complement
67 sym1: .long foo # 2's complement not pc relative
68
69 self: movd @self, r0 # pc relative displacement
70 movd foo, r0 # non pc relative displacement
71
72 self: movd self, r0 # pc relative immediate
73 movd foo, r0 # non pc relative immediate
74
75 In addition, for historical reasons the encoding of the relocation types
76 in the a.out format relocation entries is such that even the relocation
77 methods which are standard are not encoded the standard way. */
78
79 reloc_howto_type MY (howto_table)[] =
80 {
81 /* ns32k immediate operands. */
82 HOWTO (BFD_RELOC_NS32K_IMM_8, 0, 0, 8, FALSE, 0, complain_overflow_signed,
83 _bfd_ns32k_reloc_imm, "NS32K_IMM_8",
84 TRUE, 0x000000ff,0x000000ff, FALSE),
85 HOWTO (BFD_RELOC_NS32K_IMM_16, 0, 1, 16, FALSE, 0, complain_overflow_signed,
86 _bfd_ns32k_reloc_imm, "NS32K_IMM_16",
87 TRUE, 0x0000ffff,0x0000ffff, FALSE),
88 HOWTO (BFD_RELOC_NS32K_IMM_32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
89 _bfd_ns32k_reloc_imm, "NS32K_IMM_32",
90 TRUE, 0xffffffff,0xffffffff, FALSE),
91 HOWTO (BFD_RELOC_NS32K_IMM_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed,
92 _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_8",
93 TRUE, 0x000000ff, 0x000000ff, FALSE),
94 HOWTO (BFD_RELOC_NS32K_IMM_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed,
95 _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_16",
96 TRUE, 0x0000ffff,0x0000ffff, FALSE),
97 HOWTO (BFD_RELOC_NS32K_IMM_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed,
98 _bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_32",
99 TRUE, 0xffffffff,0xffffffff, FALSE),
100
101 /* ns32k displacements. */
102 HOWTO (BFD_RELOC_NS32K_DISP_8, 0, 0, 7, FALSE, 0, complain_overflow_signed,
103 _bfd_ns32k_reloc_disp, "NS32K_DISP_8",
104 TRUE, 0x000000ff,0x000000ff, FALSE),
105 HOWTO (BFD_RELOC_NS32K_DISP_16, 0, 1, 14, FALSE, 0, complain_overflow_signed,
106 _bfd_ns32k_reloc_disp, "NS32K_DISP_16",
107 TRUE, 0x0000ffff, 0x0000ffff, FALSE),
108 HOWTO (BFD_RELOC_NS32K_DISP_32, 0, 2, 30, FALSE, 0, complain_overflow_signed,
109 _bfd_ns32k_reloc_disp, "NS32K_DISP_32",
110 TRUE, 0xffffffff, 0xffffffff, FALSE),
111 HOWTO (BFD_RELOC_NS32K_DISP_8_PCREL, 0, 0, 7, TRUE, 0, complain_overflow_signed,
112 _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_8",
113 TRUE, 0x000000ff,0x000000ff, FALSE),
114 HOWTO (BFD_RELOC_NS32K_DISP_16_PCREL, 0, 1, 14, TRUE, 0, complain_overflow_signed,
115 _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_16",
116 TRUE, 0x0000ffff,0x0000ffff, FALSE),
117 HOWTO (BFD_RELOC_NS32K_DISP_32_PCREL, 0, 2, 30, TRUE, 0, complain_overflow_signed,
118 _bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_32",
119 TRUE, 0xffffffff,0xffffffff, FALSE),
120
121 /* Normal 2's complement. */
122 HOWTO (BFD_RELOC_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,0,
123 "8", TRUE, 0x000000ff,0x000000ff, FALSE),
124 HOWTO (BFD_RELOC_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,0,
125 "16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
126 HOWTO (BFD_RELOC_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,0,
127 "32", TRUE, 0xffffffff,0xffffffff, FALSE),
128 HOWTO (BFD_RELOC_8_PCREL, 0, 0, 8, TRUE, 0, complain_overflow_signed, 0,
129 "PCREL_8", TRUE, 0x000000ff,0x000000ff, FALSE),
130 HOWTO (BFD_RELOC_16_PCREL, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0,
131 "PCREL_16", TRUE, 0x0000ffff,0x0000ffff, FALSE),
132 HOWTO (BFD_RELOC_32_PCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed, 0,
133 "PCREL_32", TRUE, 0xffffffff,0xffffffff, FALSE),
134 };
135
136 #define CTOR_TABLE_RELOC_HOWTO(BFD) (MY (howto_table) + 14)
137
138 #define RELOC_STD_BITS_NS32K_TYPE_BIG 0x06
139 #define RELOC_STD_BITS_NS32K_TYPE_LITTLE 0x60
140 #define RELOC_STD_BITS_NS32K_TYPE_SH_BIG 1
141 #define RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE 5
142
143 static reloc_howto_type *
MY(reloc_howto)144 MY (reloc_howto) (bfd *abfd ATTRIBUTE_UNUSED,
145 struct reloc_std_external *rel,
146 int *r_index,
147 int *r_extern,
148 int *r_pcrel)
149 {
150 unsigned int r_length;
151 int r_ns32k_type;
152
153 *r_index = ((rel->r_index[2] << 16)
154 | (rel->r_index[1] << 8)
155 | rel->r_index[0] );
156 *r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
157 *r_pcrel = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
158 r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
159 >> RELOC_STD_BITS_LENGTH_SH_LITTLE);
160 r_ns32k_type = ((rel->r_type[0] & RELOC_STD_BITS_NS32K_TYPE_LITTLE)
161 >> RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
162 return (MY (howto_table) + r_length + 3 * (*r_pcrel) + 6 * r_ns32k_type);
163 }
164
165 #define MY_reloc_howto(BFD, REL, IN, EX, PC) \
166 MY (reloc_howto) (BFD, REL, &IN, &EX, &PC)
167
168 static void
MY(put_reloc)169 MY (put_reloc) (bfd *abfd,
170 int r_extern,
171 int r_index,
172 bfd_vma value,
173 reloc_howto_type *howto,
174 struct reloc_std_external *reloc)
175 {
176 unsigned int r_length;
177 int r_pcrel;
178 int r_ns32k_type;
179
180 PUT_WORD (abfd, value, reloc->r_address);
181 r_length = howto->size ; /* Size as a power of two. */
182 r_pcrel = (int) howto->pc_relative; /* Relative to PC? */
183 r_ns32k_type = (howto - MY (howto_table) )/6;
184
185 reloc->r_index[2] = r_index >> 16;
186 reloc->r_index[1] = r_index >> 8;
187 reloc->r_index[0] = r_index;
188 reloc->r_type[0] =
189 (r_extern? RELOC_STD_BITS_EXTERN_LITTLE: 0)
190 | (r_pcrel? RELOC_STD_BITS_PCREL_LITTLE: 0)
191 | (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE)
192 | (r_ns32k_type << RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
193 }
194
195 #define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) \
196 MY (put_reloc) (BFD, EXT, IDX, VAL, HOWTO, RELOC)
197
198 #define STAT_FOR_EXEC
199
200 #define MY_final_link_relocate _bfd_ns32k_final_link_relocate
201 #define MY_relocate_contents _bfd_ns32k_relocate_contents
202
203 static void MY_swap_std_reloc_in (bfd *, struct reloc_std_external *, arelent *, asymbol **, bfd_size_type);
204 static void MY_swap_std_reloc_out (bfd *, arelent *, struct reloc_std_external *);
205
206 #include "aoutx.h"
207
208 reloc_howto_type *
MY(bfd_reloc_type_lookup)209 MY (bfd_reloc_type_lookup) (bfd *abfd, bfd_reloc_code_real_type code)
210 {
211 #define ENTRY(i,j) case i: return &MY (howto_table)[j]
212
213 int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;
214
215 BFD_ASSERT (ext == 0);
216 if (code == BFD_RELOC_CTOR)
217 switch (bfd_arch_bits_per_address (abfd))
218 {
219 case 32:
220 code = BFD_RELOC_32;
221 break;
222 default:
223 break;
224 }
225 switch (code)
226 {
227 ENTRY (BFD_RELOC_NS32K_IMM_8, 0);
228 ENTRY (BFD_RELOC_NS32K_IMM_16, 1);
229 ENTRY (BFD_RELOC_NS32K_IMM_32, 2);
230 ENTRY (BFD_RELOC_NS32K_IMM_8_PCREL, 3);
231 ENTRY (BFD_RELOC_NS32K_IMM_16_PCREL, 4);
232 ENTRY (BFD_RELOC_NS32K_IMM_32_PCREL, 5);
233 ENTRY (BFD_RELOC_NS32K_DISP_8, 6);
234 ENTRY (BFD_RELOC_NS32K_DISP_16, 7);
235 ENTRY (BFD_RELOC_NS32K_DISP_32, 8);
236 ENTRY (BFD_RELOC_NS32K_DISP_8_PCREL, 9);
237 ENTRY (BFD_RELOC_NS32K_DISP_16_PCREL, 10);
238 ENTRY (BFD_RELOC_NS32K_DISP_32_PCREL, 11);
239 ENTRY (BFD_RELOC_8, 12);
240 ENTRY (BFD_RELOC_16, 13);
241 ENTRY (BFD_RELOC_32, 14);
242 ENTRY (BFD_RELOC_8_PCREL, 15);
243 ENTRY (BFD_RELOC_16_PCREL, 16);
244 ENTRY (BFD_RELOC_32_PCREL, 17);
245 default:
246 return NULL;
247 }
248 #undef ENTRY
249 }
250
251 reloc_howto_type *
MY(bfd_reloc_name_lookup)252 MY (bfd_reloc_name_lookup) (bfd *abfd ATTRIBUTE_UNUSED,
253 const char *r_name)
254 {
255 unsigned int i;
256
257 for (i = 0;
258 i < sizeof (MY (howto_table)) / sizeof (MY (howto_table)[0]);
259 i++)
260 if (MY (howto_table)[i].name != NULL
261 && strcasecmp (MY (howto_table)[i].name, r_name) == 0)
262 return &MY (howto_table)[i];
263
264 return NULL;
265 }
266
267 static void
MY_swap_std_reloc_in(bfd * abfd,struct reloc_std_external * bytes,arelent * cache_ptr,asymbol ** symbols,bfd_size_type symcount ATTRIBUTE_UNUSED)268 MY_swap_std_reloc_in (bfd *abfd,
269 struct reloc_std_external *bytes,
270 arelent *cache_ptr,
271 asymbol **symbols,
272 bfd_size_type symcount ATTRIBUTE_UNUSED)
273 {
274 int r_index;
275 int r_extern;
276 int r_pcrel;
277 struct aoutdata *su = &(abfd->tdata.aout_data->a);
278
279 cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
280
281 /* Now the fun stuff. */
282 cache_ptr->howto = MY_reloc_howto (abfd, bytes, r_index, r_extern, r_pcrel);
283
284 MOVE_ADDRESS (0);
285 }
286
287 static void
MY_swap_std_reloc_out(bfd * abfd,arelent * g,struct reloc_std_external * natptr)288 MY_swap_std_reloc_out (bfd *abfd,
289 arelent *g,
290 struct reloc_std_external *natptr)
291 {
292 int r_index;
293 asymbol *sym = *(g->sym_ptr_ptr);
294 int r_extern;
295 asection *output_section = sym->section->output_section;
296
297 /* Name was clobbered by aout_write_syms to be symbol index. */
298
299 /* If this relocation is relative to a symbol then set the
300 r_index to the symbols index, and the r_extern bit.
301
302 Absolute symbols can come in in two ways, either as an offset
303 from the abs section, or as a symbol which has an abs value.
304 Check for that here. */
305 if (bfd_is_com_section (output_section)
306 || bfd_is_abs_section (output_section)
307 || bfd_is_und_section (output_section))
308 {
309 if (bfd_abs_section_ptr->symbol == sym)
310 {
311 /* Whoops, looked like an abs symbol, but is really an offset
312 from the abs section. */
313 r_index = 0;
314 r_extern = 0;
315 }
316 else
317 {
318 /* Fill in symbol. */
319 r_extern = 1;
320 #undef KEEPIT
321 #define KEEPIT udata.i
322 r_index = (*(g->sym_ptr_ptr))->KEEPIT;
323 #undef KEEPIT
324 }
325 }
326 else
327 {
328 /* Just an ordinary section. */
329 r_extern = 0;
330 r_index = output_section->target_index;
331 }
332
333 MY_put_reloc (abfd, r_extern, r_index, g->address, g->howto, natptr);
334 }
335
336 bfd_reloc_status_type
_bfd_ns32k_relocate_contents(reloc_howto_type * howto,bfd * input_bfd,bfd_vma relocation,bfd_byte * location)337 _bfd_ns32k_relocate_contents (reloc_howto_type *howto,
338 bfd *input_bfd,
339 bfd_vma relocation,
340 bfd_byte *location)
341 {
342 int r_ns32k_type = (howto - MY (howto_table)) / 6;
343 bfd_vma (*get_data) (bfd_byte *, int);
344 void (*put_data) (bfd_vma, bfd_byte *, int);
345
346 switch (r_ns32k_type)
347 {
348 case 0:
349 get_data = _bfd_ns32k_get_immediate;
350 put_data = _bfd_ns32k_put_immediate;
351 break;
352 case 1:
353 get_data = _bfd_ns32k_get_displacement;
354 put_data = _bfd_ns32k_put_displacement;
355 break;
356 case 2:
357 return _bfd_relocate_contents (howto, input_bfd, relocation,
358 location);
359 default:
360 return bfd_reloc_notsupported;
361 }
362 return _bfd_do_ns32k_reloc_contents (howto, input_bfd, relocation,
363 location, get_data, put_data);
364 }
365