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