1
/* BFD back-end for ns32k a.out-ish binaries.
2
Copyright 1990, 1991, 1992, 1994, 1995, 1996, 1998, 2000, 2001
3
Free Software Foundation, Inc.
4
Contributed by Ian Dall (idall@eleceng.adelaide.edu.au).
6
This file is part of BFD, the Binary File Descriptor library.
8
This program is free software; you can redistribute it and/or modify
9
it under the terms of the GNU General Public License as published by
10
the Free Software Foundation; either version 2 of the License, or
11
(at your option) any later version.
13
This program is distributed in the hope that it will be useful,
14
but WITHOUT ANY WARRANTY; without even the implied warranty of
15
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16
GNU General Public License for more details.
18
You should have received a copy of the GNU General Public License
19
along with this program; if not, write to the Free Software
20
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22
#define BYTES_IN_WORD 4
25
#include "aout/aout64.h"
28
/* Do not "beautify" the CONCAT* macro args. Traditional C will not
29
remove whitespace added here, and thus will fail to concatenate
31
#define MYNS(OP) CONCAT2 (ns32kaout_,OP)
34
MYNS(bfd_reloc_type_lookup)
36
bfd_reloc_code_real_type code));
39
MYNS(write_object_contents)
42
/* Avoid multiple definitions from aoutx if supporting
43
standard a.out format(s) as well as this one. */
44
#define NAME(x,y) CONCAT3 (ns32kaout,_32_,y)
46
void bfd_ns32k_arch PARAMS ((void));
50
#define MY(OP) MYNS(OP)
52
#define MY_swap_std_reloc_in MY(swap_std_reloc_in)
53
#define MY_swap_std_reloc_out MY(swap_std_reloc_out)
56
MY_swap_std_reloc_in PARAMS ((bfd *abfd, struct reloc_std_external *bytes,
57
arelent *cache_ptr, asymbol **symbols,
58
bfd_size_type symcount));
60
MY_swap_std_reloc_out PARAMS ((bfd *abfd, arelent *g,
61
struct reloc_std_external *natptr));
63
MY(reloc_howto) PARAMS ((bfd *, struct reloc_std_external *,
64
int *, int *, int *));
66
MY(put_reloc) PARAMS ((bfd *, int, int, bfd_vma, reloc_howto_type *,
67
struct reloc_std_external *));
69
/* The ns32k series is ah, unusual, when it comes to relocation.
70
There are three storage methods for relocateable objects. There
71
are displacements, immediate operands and ordinary twos complement
72
data. Of these, only the last fits into the standard relocation
73
scheme. Immediate operands are stored huffman encoded and
74
immediate operands are stored big endian (where as the natural byte
75
order is little endian for this achitecture).
77
Note that the ns32k displacement storage method is orthogonal to
78
whether the relocation is pc relative or not. The "displacement"
79
storage scheme is used for essentially all address constants. The
80
displacement can be relative to zero (absolute displacement),
81
relative to the pc (pc relative), the stack pointer, the frame
82
pointer, the static base register and general purpose register etc.
86
sym1: .long . # pc relative 2's complement
87
sym1: .long foo # 2's complement not pc relative
89
self: movd @self, r0 # pc relative displacement
90
movd foo, r0 # non pc relative displacement
92
self: movd self, r0 # pc relative immediate
93
movd foo, r0 # non pc relative immediate
95
In addition, for historical reasons the encoding of the relocation types
96
in the a.out format relocation entries is such that even the relocation
97
methods which are standard are not encoded the standard way. */
99
reloc_howto_type MY(howto_table)[] =
101
/* ns32k immediate operands. */
102
HOWTO (BFD_RELOC_NS32K_IMM_8, 0, 0, 8, false, 0, true,
103
_bfd_ns32k_reloc_imm, "NS32K_IMM_8",
104
true, 0x000000ff,0x000000ff, false),
105
HOWTO (BFD_RELOC_NS32K_IMM_16, 0, 1, 16, false, 0, true,
106
_bfd_ns32k_reloc_imm, "NS32K_IMM_16",
107
true, 0x0000ffff,0x0000ffff, false),
108
HOWTO (BFD_RELOC_NS32K_IMM_32, 0, 2, 32, false, 0, true,
109
_bfd_ns32k_reloc_imm, "NS32K_IMM_32",
110
true, 0xffffffff,0xffffffff, false),
111
HOWTO (BFD_RELOC_NS32K_IMM_8_PCREL, 0, 0, 8, true, 0, false,
112
_bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_8",
113
true, 0x000000ff, 0x000000ff, false),
114
HOWTO (BFD_RELOC_NS32K_IMM_16_PCREL, 0, 1, 16, true, 0, false,
115
_bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_16",
116
true, 0x0000ffff,0x0000ffff, false),
117
HOWTO (BFD_RELOC_NS32K_IMM_32_PCREL, 0, 2, 32, true, 0, false,
118
_bfd_ns32k_reloc_imm, "PCREL_NS32K_IMM_32",
119
true, 0xffffffff,0xffffffff, false),
121
/* ns32k displacements. */
122
HOWTO (BFD_RELOC_NS32K_DISP_8, 0, 0, 8, false, 0, true,
123
_bfd_ns32k_reloc_disp, "NS32K_DISP_8",
124
true, 0x000000ff,0x000000ff, false),
125
HOWTO (BFD_RELOC_NS32K_DISP_16, 0, 1, 16, false, 0, true,
126
_bfd_ns32k_reloc_disp, "NS32K_DISP_16",
127
true, 0x0000ffff, 0x0000ffff, false),
128
HOWTO (BFD_RELOC_NS32K_DISP_32, 0, 2, 32, false, 0, true,
129
_bfd_ns32k_reloc_disp, "NS32K_DISP_32",
130
true, 0xffffffff, 0xffffffff, false),
131
HOWTO (BFD_RELOC_NS32K_DISP_8_PCREL, 0, 0, 8, true, 0, false,
132
_bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_8",
133
true, 0x000000ff,0x000000ff, false),
134
HOWTO (BFD_RELOC_NS32K_DISP_16_PCREL, 0, 1, 16, true, 0, false,
135
_bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_16",
136
true, 0x0000ffff,0x0000ffff, false),
137
HOWTO (BFD_RELOC_NS32K_DISP_32_PCREL, 0, 2, 32, true, 0, false,
138
_bfd_ns32k_reloc_disp, "PCREL_NS32K_DISP_32",
139
true, 0xffffffff,0xffffffff, false),
141
/* Normal 2's complement. */
142
HOWTO (BFD_RELOC_8, 0, 0, 8, false, 0, complain_overflow_bitfield,0,
143
"8", true, 0x000000ff,0x000000ff, false),
144
HOWTO (BFD_RELOC_16, 0, 1, 16, false, 0, complain_overflow_bitfield,0,
145
"16", true, 0x0000ffff,0x0000ffff, false),
146
HOWTO (BFD_RELOC_32, 0, 2, 32, false, 0, complain_overflow_bitfield,0,
147
"32", true, 0xffffffff,0xffffffff, false),
148
HOWTO (BFD_RELOC_8_PCREL, 0, 0, 8, true, 0, complain_overflow_signed, 0,
149
"PCREL_8", true, 0x000000ff,0x000000ff, false),
150
HOWTO (BFD_RELOC_16_PCREL, 0, 1, 16, true, 0, complain_overflow_signed, 0,
151
"PCREL_16", true, 0x0000ffff,0x0000ffff, false),
152
HOWTO (BFD_RELOC_32_PCREL, 0, 2, 32, true, 0, complain_overflow_signed, 0,
153
"PCREL_32", true, 0xffffffff,0xffffffff, false),
156
#define CTOR_TABLE_RELOC_HOWTO(BFD) (MY(howto_table) + 14)
158
#define RELOC_STD_BITS_NS32K_TYPE_BIG 0x06
159
#define RELOC_STD_BITS_NS32K_TYPE_LITTLE 0x60
160
#define RELOC_STD_BITS_NS32K_TYPE_SH_BIG 1
161
#define RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE 5
164
MY(reloc_howto) (abfd, rel, r_index, r_extern, r_pcrel)
165
bfd *abfd ATTRIBUTE_UNUSED;
166
struct reloc_std_external *rel;
171
unsigned int r_length;
174
/* BFD_ASSERT(bfd_header_little_endian (abfd)); */
175
*r_index = ((rel->r_index[2] << 16)
176
| (rel->r_index[1] << 8)
178
*r_extern = (0 != (rel->r_type[0] & RELOC_STD_BITS_EXTERN_LITTLE));
179
*r_pcrel = (0 != (rel->r_type[0] & RELOC_STD_BITS_PCREL_LITTLE));
180
r_length = ((rel->r_type[0] & RELOC_STD_BITS_LENGTH_LITTLE)
181
>> RELOC_STD_BITS_LENGTH_SH_LITTLE);
182
r_ns32k_type = ((rel->r_type[0] & RELOC_STD_BITS_NS32K_TYPE_LITTLE)
183
>> RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
184
return (MY(howto_table) + r_length + 3 * (*r_pcrel) + 6 * r_ns32k_type);
187
#define MY_reloc_howto(BFD, REL, IN, EX, PC) \
188
MY(reloc_howto) (BFD, REL, &IN, &EX, &PC)
191
MY(put_reloc) (abfd, r_extern, r_index, value, howto, reloc)
196
reloc_howto_type *howto;
197
struct reloc_std_external *reloc;
199
unsigned int r_length;
203
PUT_WORD (abfd, value, reloc->r_address);
204
r_length = howto->size ; /* Size as a power of two. */
205
r_pcrel = (int) howto->pc_relative; /* Relative to PC? */
206
r_ns32k_type = (howto - MY(howto_table) )/6;
208
/* BFD_ASSERT (bfd_header_little_endian (abfd)); */
209
reloc->r_index[2] = r_index >> 16;
210
reloc->r_index[1] = r_index >> 8;
211
reloc->r_index[0] = r_index;
213
(r_extern? RELOC_STD_BITS_EXTERN_LITTLE: 0)
214
| (r_pcrel? RELOC_STD_BITS_PCREL_LITTLE: 0)
215
| (r_length << RELOC_STD_BITS_LENGTH_SH_LITTLE)
216
| (r_ns32k_type << RELOC_STD_BITS_NS32K_TYPE_SH_LITTLE);
219
#define MY_put_reloc(BFD, EXT, IDX, VAL, HOWTO, RELOC) \
220
MY(put_reloc) (BFD, EXT, IDX, VAL, HOWTO, RELOC)
222
#define STAT_FOR_EXEC
224
#define MY_final_link_relocate _bfd_ns32k_final_link_relocate
225
#define MY_relocate_contents _bfd_ns32k_relocate_contents
230
MY(bfd_reloc_type_lookup) (abfd,code)
232
bfd_reloc_code_real_type code;
235
#define ENTRY(i,j) case i: return &MY(howto_table)[j]
237
int ext = obj_reloc_entry_size (abfd) == RELOC_EXT_SIZE;
239
BFD_ASSERT(ext == 0);
240
if (code == BFD_RELOC_CTOR)
241
switch (bfd_get_arch_info (abfd)->bits_per_address)
251
ENTRY(BFD_RELOC_NS32K_IMM_8, 0);
252
ENTRY(BFD_RELOC_NS32K_IMM_16, 1);
253
ENTRY(BFD_RELOC_NS32K_IMM_32, 2);
254
ENTRY(BFD_RELOC_NS32K_IMM_8_PCREL, 3);
255
ENTRY(BFD_RELOC_NS32K_IMM_16_PCREL, 4);
256
ENTRY(BFD_RELOC_NS32K_IMM_32_PCREL, 5);
257
ENTRY(BFD_RELOC_NS32K_DISP_8, 6);
258
ENTRY(BFD_RELOC_NS32K_DISP_16, 7);
259
ENTRY(BFD_RELOC_NS32K_DISP_32, 8);
260
ENTRY(BFD_RELOC_NS32K_DISP_8_PCREL, 9);
261
ENTRY(BFD_RELOC_NS32K_DISP_16_PCREL, 10);
262
ENTRY(BFD_RELOC_NS32K_DISP_32_PCREL, 11);
263
ENTRY(BFD_RELOC_8, 12);
264
ENTRY(BFD_RELOC_16, 13);
265
ENTRY(BFD_RELOC_32, 14);
266
ENTRY(BFD_RELOC_8_PCREL, 15);
267
ENTRY(BFD_RELOC_16_PCREL, 16);
268
ENTRY(BFD_RELOC_32_PCREL, 17);
270
return (reloc_howto_type *) NULL;
276
MY_swap_std_reloc_in (abfd, bytes, cache_ptr, symbols, symcount)
278
struct reloc_std_external *bytes;
281
bfd_size_type symcount ATTRIBUTE_UNUSED;
286
struct aoutdata *su = &(abfd->tdata.aout_data->a);
288
cache_ptr->address = H_GET_32 (abfd, bytes->r_address);
290
/* Now the fun stuff. */
291
cache_ptr->howto = MY_reloc_howto(abfd, bytes, r_index, r_extern, r_pcrel);
297
MY_swap_std_reloc_out (abfd, g, natptr)
300
struct reloc_std_external *natptr;
303
asymbol *sym = *(g->sym_ptr_ptr);
305
unsigned int r_addend;
306
asection *output_section = sym->section->output_section;
308
r_addend = g->addend + (*(g->sym_ptr_ptr))->section->output_section->vma;
310
/* Name was clobbered by aout_write_syms to be symbol index. */
312
/* If this relocation is relative to a symbol then set the
313
r_index to the symbols index, and the r_extern bit.
315
Absolute symbols can come in in two ways, either as an offset
316
from the abs section, or as a symbol which has an abs value.
317
Check for that here. */
318
if (bfd_is_com_section (output_section)
319
|| output_section == &bfd_abs_section
320
|| output_section == &bfd_und_section)
322
if (bfd_abs_section.symbol == sym)
324
/* Whoops, looked like an abs symbol, but is really an offset
325
from the abs section. */
331
/* Fill in symbol. */
334
#define KEEPIT udata.i
335
r_index = (*(g->sym_ptr_ptr))->KEEPIT;
341
/* Just an ordinary section. */
343
r_index = output_section->target_index;
346
MY_put_reloc (abfd, r_extern, r_index, g->address, g->howto, natptr);
349
bfd_reloc_status_type
350
_bfd_ns32k_relocate_contents (howto, input_bfd, relocation, location)
351
reloc_howto_type *howto;
356
int r_ns32k_type = (howto - MY(howto_table)) / 6;
357
bfd_vma (*get_data) PARAMS ((bfd_byte *, int));
358
int (*put_data) PARAMS ((bfd_vma, bfd_byte *, int));
360
switch (r_ns32k_type)
363
get_data = _bfd_ns32k_get_immediate;
364
put_data = _bfd_ns32k_put_immediate;
367
get_data = _bfd_ns32k_get_displacement;
368
put_data = _bfd_ns32k_put_displacement;
371
return _bfd_relocate_contents (howto, input_bfd, relocation,
376
return bfd_reloc_notsupported;
378
return _bfd_do_ns32k_reloc_contents (howto, input_bfd, relocation,
379
location, get_data, put_data);