source: trunk/binutils/bfd/aout-ns32k.c@ 3907

Last change on this file since 3907 was 610, checked in by bird, 22 years ago

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