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

Last change on this file since 524 was 10, checked in by bird, 22 years ago

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